|
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_38d4c7
└─⟦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 0148 | H | .CONST 0x0148 ; 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 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 4800 |H | Short_Literal 0x0 0011 480a |H | Short_Literal 0xa 0012 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0014 03fd | | Declare_Type Discrete,Defined 0015 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0016 00c7 | | Action Elaborate_Subprogram 0017 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0018 00c7 | | Action Elaborate_Subprogram 0019 BODY_0008: 0019 00bc | | Action Signal_Activated 001a 00bb | | Action Signal_Completion 001b 0000 0000 | | .BLANK 0000[0x5] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0032 | 2 | .CONST 0x0032 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 00db | | Load_Top At_Offset_3 0024 0f02 | | Execute_Immediate Equal,0x2 0025 6802 |h | Jump_Zero 0x28 0026 4801 |H | Short_Literal 0x1 0027 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0028 00da | | Load_Top At_Offset_2 0029 8002 | | Call 0x0,0x2 002a 00d8 | | Load_Top At_Offset_0 002b e20f | | Load 0x1,0xf 002c 0260 | ` | Execute Discrete,In_Type 002d 7001 |p | Jump_Nonzero 0x2f 002e 0801 | | Execute_Immediate Raise,0x1 002f 0f07 | | Execute_Immediate Equal,0x7 0030 0f00 | | Execute_Immediate Equal,0x0 0031 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0032 TRAP_0020: 0032 0007 | | Action Break_Optional 0033 0092 0102 | | Action Push_String_Extended,0x102 ; "erreur player_sens);" 0035 e003 | | Load 0x0,0x3 0036 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0037 0831 | 1 | Execute_Immediate Raise,0x31 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0041 | A | .CONST 0x0041 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0004 | | .CONST 0x0004 ; Number of locals 003b INIT_0038: 003b e20f | | Load 0x1,0xf 003c 0607 | | Execute_Immediate Set_Value_Unchecked,0x7 003d 00e1 | | Load_Encached Boolean_Cache 003e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003f 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0041 BODY_0038: 0041 00cf | | Action Mark_Auxiliary 0042 e5fe | | Load 0x2,-0x2 0043 4801 |H | Short_Literal 0x1 0044 0263 | c | Execute Discrete,Above_Bound 0045 707f |p | Jump_Nonzero 0xc5 0046 4800 |H | Short_Literal 0x0 0047 a403 | | Store_Unchecked 0x2,0x3 0048 00d8 | | Load_Top At_Offset_0 0049 e5ff | | Load 0x2,-0x1 004a 01d7 | | Execute Vector,Field_Read 004b 8002 | | Call 0x0,0x2 004c 00d8 | | Load_Top At_Offset_0 004d e20f | | Load 0x1,0xf 004e 0260 | ` | Execute Discrete,In_Type 004f 7001 |p | Jump_Nonzero 0x51 0050 0801 | | Execute_Immediate Raise,0x1 0051 460a |F | Jump_Case 0xb 0052 783a |x: | Jump 0x8d ; case 0x0 0053 7839 |x9 | Jump 0x8d ; case 0x1 0054 7838 |x8 | Jump 0x8d ; case 0x2 0055 7837 |x7 | Jump 0x8d ; case 0x3 0056 7836 |x6 | Jump 0x8d ; case 0x4 0057 7815 |x | Jump 0x6d ; case 0x5 0058 7824 |x$ | Jump 0x7d ; case 0x6 0059 7803 |x | Jump 0x5d ; case 0x7 005a 7802 |x | Jump 0x5d ; case 0x8 005b 7801 |x | Jump 0x5d ; case 0x9 005c 7800 |x | Jump 0x5d ; case 0xa 005d 00d8 | | Load_Top At_Offset_0 005e 0f02 | | Execute_Immediate Equal,0x2 005f 6809 |h | Jump_Zero 0x69 0060 480a |H | Short_Literal 0xa 0061 e402 | | Load 0x2,0x2 0062 8404 | | Call 0x2,0x4 0063 6805 |h | Jump_Zero 0x69 0064 4801 |H | Short_Literal 0x1 0065 a403 | | Store_Unchecked 0x2,0x3 0066 4808 |H | Short_Literal 0x8 0067 a402 | | Store_Unchecked 0x2,0x2 0068 785a |xZ | Jump 0xc3 0069 4800 |H | Short_Literal 0x0 006a a403 | | Store_Unchecked 0x2,0x3 006b 00d2 | | Pop_Control Pop_Count_2 006c 7858 |xX | Jump 0xc5 006d 00d8 | | Load_Top At_Offset_0 006e 0f01 | | Execute_Immediate Equal,0x1 006f 6809 |h | Jump_Zero 0x79 0070 4807 |H | Short_Literal 0x7 0071 e402 | | Load 0x2,0x2 0072 8404 | | Call 0x2,0x4 0073 6805 |h | Jump_Zero 0x79 0074 4801 |H | Short_Literal 0x1 0075 a403 | | Store_Unchecked 0x2,0x3 0076 480a |H | Short_Literal 0xa 0077 a402 | | Store_Unchecked 0x2,0x2 0078 784a |xJ | Jump 0xc3 0079 4800 |H | Short_Literal 0x0 007a a403 | | Store_Unchecked 0x2,0x3 007b 00d2 | | Pop_Control Pop_Count_2 007c 7848 |xH | Jump 0xc5 007d 00d8 | | Load_Top At_Offset_0 007e 0f03 | | Execute_Immediate Equal,0x3 007f 6809 |h | Jump_Zero 0x89 0080 4809 |H | Short_Literal 0x9 0081 e402 | | Load 0x2,0x2 0082 8404 | | Call 0x2,0x4 0083 6805 |h | Jump_Zero 0x89 0084 4801 |H | Short_Literal 0x1 0085 a403 | | Store_Unchecked 0x2,0x3 0086 480a |H | Short_Literal 0xa 0087 a402 | | Store_Unchecked 0x2,0x2 0088 783a |x: | Jump 0xc3 0089 4800 |H | Short_Literal 0x0 008a a403 | | Store_Unchecked 0x2,0x3 008b 00d2 | | Pop_Control Pop_Count_2 008c 7838 |x8 | Jump 0xc5 008d 00d8 | | Load_Top At_Offset_0 008e 0f02 | | Execute_Immediate Equal,0x2 008f 6809 |h | Jump_Zero 0x99 0090 480a |H | Short_Literal 0xa 0091 e402 | | Load 0x2,0x2 0092 8404 | | Call 0x2,0x4 0093 6805 |h | Jump_Zero 0x99 0094 4801 |H | Short_Literal 0x1 0095 a403 | | Store_Unchecked 0x2,0x3 0096 4809 |H | Short_Literal 0x9 0097 a402 | | Store_Unchecked 0x2,0x2 0098 782a |x* | Jump 0xc3 0099 00d8 | | Load_Top At_Offset_0 009a 0f03 | | Execute_Immediate Equal,0x3 009b 6817 |h | Jump_Zero 0xb3 009c 4809 |H | Short_Literal 0x9 009d e402 | | Load 0x2,0x2 009e 8404 | | Call 0x2,0x4 009f 6813 |h | Jump_Zero 0xb3 00a0 4801 |H | Short_Literal 0x1 00a1 a403 | | Store_Unchecked 0x2,0x3 00a2 00d8 | | Load_Top At_Offset_0 00a3 e5ff | | Load 0x2,-0x1 00a4 01d7 | | Execute Vector,Field_Read 00a5 8002 | | Call 0x0,0x2 00a6 00d8 | | Load_Top At_Offset_0 00a7 e20f | | Load 0x1,0xf 00a8 0260 | ` | Execute Discrete,In_Type 00a9 7001 |p | Jump_Nonzero 0xab 00aa 0801 | | Execute_Immediate Raise,0x1 00ab 0f06 | | Execute_Immediate Equal,0x6 00ac 6803 |h | Jump_Zero 0xb0 00ad 480a |H | Short_Literal 0xa 00ae a402 | | Store_Unchecked 0x2,0x2 00af 7813 |x | Jump 0xc3 00b0 4808 |H | Short_Literal 0x8 00b1 a402 | | Store_Unchecked 0x2,0x2 00b2 7810 |x | Jump 0xc3 00b3 00d8 | | Load_Top At_Offset_0 00b4 0f04 | | Execute_Immediate Equal,0x4 00b5 6809 |h | Jump_Zero 0xbf 00b6 480a |H | Short_Literal 0xa 00b7 e402 | | Load 0x2,0x2 00b8 8404 | | Call 0x2,0x4 00b9 6805 |h | Jump_Zero 0xbf 00ba 4801 |H | Short_Literal 0x1 00bb a403 | | Store_Unchecked 0x2,0x3 00bc 4808 |H | Short_Literal 0x8 00bd a402 | | Store_Unchecked 0x2,0x2 00be 7804 |x | Jump 0xc3 00bf 4800 |H | Short_Literal 0x0 00c0 a403 | | Store_Unchecked 0x2,0x3 00c1 00d2 | | Pop_Control Pop_Count_2 00c2 7802 |x | Jump 0xc5 00c3 00c8 | | Action Pop_Auxiliary_Range 00c4 3f81 |? | Loop_Increasing 0x46 00c5 00ce | | Action Pop_Auxiliary 00c6 00d9 | | Load_Top At_Offset_1 00c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 4607 |F | Jump_Case 0x8 00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00cd 7807 |x | Jump 0xd5 ; case 0x1 00ce 780a |x | Jump 0xd9 ; case 0x2 00cf 780e |x | Jump 0xde ; case 0x3 00d0 7811 |x | Jump 0xe2 ; case 0x4 00d1 7812 |x | Jump 0xe4 ; case 0x5 00d2 7813 |x | Jump 0xe6 ; case 0x6 00d3 7816 |x | Jump 0xea ; case 0x7 00d4 4302 |C | .XXX[0x1] 00d5 00da | | Load_Top At_Offset_2 00d6 0091 00f7 | | Action Push_String_Extended_Indexed,0xf7 ; "COMMUNICATION" 00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d9 00db | | Load_Top At_Offset_3 00da 00db | | Load_Top At_Offset_3 00db 00e0 | | Load_Encached Standard_Cache 00dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00de 00da | | Load_Top At_Offset_2 00df 00e0 | | Load_Encached Standard_Cache 00e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e2 00db | | Load_Top At_Offset_3 00e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e4 00db | | Load_Top At_Offset_3 00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e6 e20f | | Load 0x1,0xf 00e7 00dc | | Load_Top At_Offset_4 00e8 0267 | g | Execute Discrete,Predecessor 00e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ea e20f | | Load 0x1,0xf 00eb 00dc | | Load_Top At_Offset_4 00ec 0268 | h | Execute Discrete,Successor 00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 e7fe | | Load 0x3,-0x2 00f5 027f | | Execute Discrete,Equal 00f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f7 ; -------------------------------------------------------------------------------------- 00f7 ; STRING TABLE 00f7 ; -------------------------------------------------------------------------------------- 00f7 001a | | .STRTAB 0x001a->0x0104 ; "COMMUNICATION" 00f8 0025 | % | .STRTAB 0x0025->0x010a ; "COMPTEUR" 00f9 002b | + | .STRTAB 0x002b->0x010e ; "LIEU" 00fa 002d | - | .STRTAB 0x002d->0x0110 ; "OBJET" 00fb 0030 | 0 | .STRTAB 0x0030->0x0113 ; "PERSONNAGE" 00fc 0038 | 8 | .STRTAB 0x0038->0x0118 ; "VERBE" 00fd 003b | ; | .STRTAB 0x003b->0x011a ; "PREPOSITION" 00fe 0044 | D | .STRTAB 0x0044->0x0120 ; "SANS_TYPE" 00ff 004b | K | .STRTAB 0x004b->0x0124 ; "NO_MORE" 0100 0050 | P | .STRTAB 0x0050->0x0128 ; "PREPOSITION_OU_COMPLEMENT" 0101 0067 | g | .STRTAB 0x0067->0x0134 ; "COMPLEMENT" 0102 006f | o | .STRTAB 0x006f->0x0139 ; "erreur player_sens);" 0103 0081 | | .STREND 0x0081->0x0143 0104 434f 4d4d |COMM| .STRTAB_STRINGS 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug Table 0148 ; -------------------------------------------------------------------------------------- 0148 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd407,0x0000,0x0001,0x0006 014e 000b 0166 | f| .DBG4T 0x000b,0x0166,0x8000,0x0000 0152 0010 016a | j| .DBG4T 0x0010,0x016a,0x8000,0x0000 0156 0023 016f | # o| .DBG4T 0x0023,0x016f,0x0002,0x0000 015a 003b 0175 | ; u| .DBG4T 0x003b,0x0175,0x0002,0x4000 015e 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x0005,0x0000 0162 00f3 01ba | | .DBG4T 0x00f3,0x01ba,0x0002,0x0000 0166 ; -------------------------------------------------------------------------------------- 0166 ; Debug chain 0166 ; -------------------------------------------------------------------------------------- 0166 0002 0000 | | .DBGLEN 0x0002,0x0000 0168 000b 000d | | .DBGLNO 0x000b,0x000d 016a ; -------------------------------------------------------------------------------------- 016a ; Debug chain 016a ; -------------------------------------------------------------------------------------- 016a 0003 0000 | | .DBGLEN 0x0003,0x0000 016c 0010 0015 | | .DBGLNO 0x0010,0x0015,0x0017 016f ; -------------------------------------------------------------------------------------- 016f ; Debug chain 016f ; -------------------------------------------------------------------------------------- 016f 0000 0004 | | .DBGLEN 0x0000,0x0004 0171 0023 0026 | # &| .DBGLNO 0x0023,0x0026,0x0028,0x0033 0175 ; -------------------------------------------------------------------------------------- 0175 ; Debug chain 0175 ; -------------------------------------------------------------------------------------- 0175 0003 0020 | | .DBGLEN 0x0003,0x0020 0177 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x003f,0x0042,0x0046,0x0048,0x005d,0x0064,0x0066,0x0069,0x006b,0x006d,0x0074,0x0076,0x0079,0x007b,0x007d,0x0084,0x0086,0x0089,0x008b,0x008d,0x0094,0x0096,0x0099,0x00a0,0x00a2,0x00ad,0x00b0,0x00b3,0x00ba,0x00bc,0x00bf,0x00c1,0x00c6 019a 0001 0002 | | .XXX[0x20] 019c 0003 001b | | 019e 001c 001d | | 01a0 001e 001f | | 01a2 0004 0005 | | 01a4 0006 0007 | | 01a6 0008 0009 | | 01a8 000a 000b | | 01aa 000c 000d | | 01ac 000e 000f | | 01ae 0010 0011 | | 01b0 0012 0013 | | 01b2 0014 0015 | | 01b4 0016 0017 | | 01b6 0018 0019 | | 01b8 001a 0020 | | 01ba ; -------------------------------------------------------------------------------------- 01ba ; Debug chain 01ba ; -------------------------------------------------------------------------------------- 01ba 0000 0001 | | .DBGLEN 0x0000,0x0001 01bc 00f3 | | .DBGLNO 0x00f3 01bd 0000 0000 | | .BLANK 0000[0x43]