|
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_1ca4c7
└─⟦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 00f0 | | .CONST 0x00f0 ; 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 0017 | | .CONST 0x0017 ; 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 00bf | | Action Accept_Activation 000e 4800 |H | Short_Literal 0x0 000f 4805 |H | Short_Literal 0x5 0010 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0012 03fd | | Declare_Type Discrete,Defined 0013 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call 0015 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0016 00c7 | | Action Elaborate_Subprogram 0017 BODY_0008: 0017 00bc | | Action Signal_Activated 0018 00bb | | Action Signal_Completion 0019 0000 0000 | | .BLANK 0000[0x7] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 8002 | | Call 0x0,0x2 0024 820f | | Call 0x1,0xf 0025 4605 |F | Jump_Case 0x6 0026 7808 |x | Jump 0x2f ; case 0x0 0027 781a |x | Jump 0x42 ; case 0x1 0028 782c |x, | Jump 0x55 ; case 0x2 0029 783e |x> | Jump 0x68 ; case 0x3 002a 7850 |xP | Jump 0x7b ; case 0x4 002b 7800 |x | Jump 0x2c ; case 0x5 002c 4801 |H | Short_Literal 0x1 002d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 002e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 002f 8003 | | Call 0x0,0x3 0030 00da | | Load_Top At_Offset_2 0031 8004 | | Call 0x0,0x4 0032 005b | [ | Store_Top Discrete,At_Offset_3 0033 00da | | Load_Top At_Offset_2 0034 7004 |p | Jump_Nonzero 0x39 0035 e005 | | Load 0x0,0x5 0036 4804 |H | Short_Literal 0x4 0037 8006 | | Call 0x0,0x6 0038 7803 |x | Jump 0x3c 0039 00db | | Load_Top At_Offset_3 003a 8007 | | Call 0x0,0x7 003b c5fe | | Store 0x2,-0x2 003c 00db | | Load_Top At_Offset_3 003d 00db | | Load_Top At_Offset_3 003e 820d | | Call 0x1,0xd 003f c5ff | | Store 0x2,-0x1 0040 c5fe | | Store 0x2,-0x2 0041 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0042 8008 | | Call 0x0,0x8 0043 00da | | Load_Top At_Offset_2 0044 8009 | | Call 0x0,0x9 0045 005b | [ | Store_Top Discrete,At_Offset_3 0046 00da | | Load_Top At_Offset_2 0047 7004 |p | Jump_Nonzero 0x4c 0048 e005 | | Load 0x0,0x5 0049 4804 |H | Short_Literal 0x4 004a 8006 | | Call 0x0,0x6 004b 7803 |x | Jump 0x4f 004c 00db | | Load_Top At_Offset_3 004d 8007 | | Call 0x0,0x7 004e c5fe | | Store 0x2,-0x2 004f 00db | | Load_Top At_Offset_3 0050 00db | | Load_Top At_Offset_3 0051 820d | | Call 0x1,0xd 0052 c5ff | | Store 0x2,-0x1 0053 c5fe | | Store 0x2,-0x2 0054 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0055 800a | | Call 0x0,0xa 0056 00da | | Load_Top At_Offset_2 0057 800b | | Call 0x0,0xb 0058 005b | [ | Store_Top Discrete,At_Offset_3 0059 00da | | Load_Top At_Offset_2 005a 7004 |p | Jump_Nonzero 0x5f 005b e005 | | Load 0x0,0x5 005c 4804 |H | Short_Literal 0x4 005d 8006 | | Call 0x0,0x6 005e 7803 |x | Jump 0x62 005f 00db | | Load_Top At_Offset_3 0060 8007 | | Call 0x0,0x7 0061 c5fe | | Store 0x2,-0x2 0062 00db | | Load_Top At_Offset_3 0063 00db | | Load_Top At_Offset_3 0064 820d | | Call 0x1,0xd 0065 c5ff | | Store 0x2,-0x1 0066 c5fe | | Store 0x2,-0x2 0067 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0068 800c | | Call 0x0,0xc 0069 00da | | Load_Top At_Offset_2 006a 800d | | Call 0x0,0xd 006b 005b | [ | Store_Top Discrete,At_Offset_3 006c 00da | | Load_Top At_Offset_2 006d 7004 |p | Jump_Nonzero 0x72 006e e005 | | Load 0x0,0x5 006f 4804 |H | Short_Literal 0x4 0070 8006 | | Call 0x0,0x6 0071 7803 |x | Jump 0x75 0072 00db | | Load_Top At_Offset_3 0073 8007 | | Call 0x0,0x7 0074 c5fe | | Store 0x2,-0x2 0075 00db | | Load_Top At_Offset_3 0076 00db | | Load_Top At_Offset_3 0077 820d | | Call 0x1,0xd 0078 c5ff | | Store 0x2,-0x1 0079 c5fe | | Store 0x2,-0x2 007a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007b 800e | | Call 0x0,0xe 007c 00da | | Load_Top At_Offset_2 007d 800f | | Call 0x0,0xf 007e 005b | [ | Store_Top Discrete,At_Offset_3 007f 00da | | Load_Top At_Offset_2 0080 7004 |p | Jump_Nonzero 0x85 0081 e005 | | Load 0x0,0x5 0082 4804 |H | Short_Literal 0x4 0083 8006 | | Call 0x0,0x6 0084 7803 |x | Jump 0x88 0085 00db | | Load_Top At_Offset_3 0086 8007 | | Call 0x0,0x7 0087 c5fe | | Store 0x2,-0x2 0088 00db | | Load_Top At_Offset_3 0089 00db | | Load_Top At_Offset_3 008a 820d | | Call 0x1,0xd 008b c5ff | | Store 0x2,-0x1 008c c5fe | | Store 0x2,-0x2 008d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008e 0000 0000 | | .XXX[0x2] 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 4607 |F | Jump_Case 0x8 0094 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0095 7807 |x | Jump 0x9d ; case 0x1 0096 780a |x | Jump 0xa1 ; case 0x2 0097 780e |x | Jump 0xa6 ; case 0x3 0098 7811 |x | Jump 0xaa ; case 0x4 0099 7812 |x | Jump 0xac ; case 0x5 009a 7813 |x | Jump 0xae ; case 0x6 009b 7816 |x | Jump 0xb2 ; case 0x7 009c 4302 |C | .XXX[0x1] 009d 00da | | Load_Top At_Offset_2 009e 0091 00c7 | | Action Push_String_Extended_Indexed,0xc7 ; "L_COMMUNICATION" 00a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a1 00db | | Load_Top At_Offset_3 00a2 00db | | Load_Top At_Offset_3 00a3 00e0 | | Load_Encached Standard_Cache 00a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a6 00da | | Load_Top At_Offset_2 00a7 00e0 | | Load_Encached Standard_Cache 00a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00aa 00db | | Load_Top At_Offset_3 00ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ac 00db | | Load_Top At_Offset_3 00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ae e20e | | Load 0x1,0xe 00af 00dc | | Load_Top At_Offset_4 00b0 0267 | g | Execute Discrete,Predecessor 00b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b2 e20e | | Load 0x1,0xe 00b3 00dc | | Load_Top At_Offset_4 00b4 0268 | h | Execute Discrete,Successor 00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 00c2 | | .CONST 0x00c2 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc e010 | | Load 0x0,0x10 00bd 011c | | Execute Any,Convert_Unchecked 00be 1c01 | | Execute_Immediate Run_Utility,0x1 00bf e20e | | Load 0x1,0xe 00c0 1c02 | | Execute_Immediate Run_Utility,0x2 00c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c2 TRAP_00b8: 00c2 010e | | Execute Exception,Is_Constraint_Error 00c3 6802 |h | Jump_Zero 0xc6 00c4 4805 |H | Short_Literal 0x5 00c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c6 0100 | | Execute Exception,Raise 00c7 ; -------------------------------------------------------------------------------------- 00c7 ; STRING TABLE 00c7 ; -------------------------------------------------------------------------------------- 00c7 000e | | .STRTAB 0x000e->0x00ce ; "L_COMMUNICATION" 00c8 001b | | .STRTAB 0x001b->0x00d5 ; "L_COMPTEUR" 00c9 0023 | # | .STRTAB 0x0023->0x00da ; "L_LIEU" 00ca 0027 | ' | .STRTAB 0x0027->0x00dd ; "L_PERSONNAGE" 00cb 0031 | 1 | .STRTAB 0x0031->0x00e3 ; "L_OBJET" 00cc 0036 | 6 | .STRTAB 0x0036->0x00e7 ; "NOT_IN" 00cd 003a | : | .STREND 0x003a->0x00ea 00ce 4c5f 434f |L_CO| .STRTAB_STRINGS 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; Debug Table 00f0 ; -------------------------------------------------------------------------------------- 00f0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdea2,0x0000,0x0001,0x0005 00f6 000b 010a | | .DBG4T 0x000b,0x010a,0x8000,0x0000 00fa 000e 010d | | .DBG4T 0x000e,0x010d,0x8000,0x0000 00fe 0023 0112 | # | .DBG4T 0x0023,0x0112,0x0001,0x4000 0102 0093 0000 | | .DBG4T 0x0093,0x0000,0x0005,0x0000 0106 00bb 0154 | T| .DBG4T 0x00bb,0x0154,0x0002,0x0000 010a ; -------------------------------------------------------------------------------------- 010a ; Debug chain 010a ; -------------------------------------------------------------------------------------- 010a 0001 0000 | | .DBGLEN 0x0001,0x0000 010c 000b | | .DBGLNO 0x000b 010d ; -------------------------------------------------------------------------------------- 010d ; Debug chain 010d ; -------------------------------------------------------------------------------------- 010d 0003 0000 | | .DBGLEN 0x0003,0x0000 010f 000e 0013 | | .DBGLNO 0x000e,0x0013,0x0015 0112 ; -------------------------------------------------------------------------------------- 0112 ; Debug chain 0112 ; -------------------------------------------------------------------------------------- 0112 0000 0020 | | .DBGLEN 0x0000,0x0020 0114 0023 002c | # ,| .DBGLNO 0x0023,0x002c,0x002f,0x0030,0x0033,0x0035,0x0039,0x003c,0x0042,0x0043,0x0046,0x0048,0x004c,0x004f,0x0055,0x0056,0x0059,0x005b,0x005f,0x0062,0x0068,0x0069,0x006c,0x006e,0x0072,0x0075,0x007b,0x007c,0x007f,0x0081,0x0085,0x0088 0134 0001 0020 | | .XXX[0x20] 0136 0002 0003 | | 0138 0004 0005 | | 013a 0006 0007 | | 013c 0008 0009 | | 013e 000a 000b | | 0140 000c 000d | | 0142 000e 000f | | 0144 0010 0011 | | 0146 0012 0013 | | 0148 0014 0015 | | 014a 0016 0017 | | 014c 0018 0019 | | 014e 001a 001b | | 0150 001c 001d | | 0152 001e 001f | | 0154 ; -------------------------------------------------------------------------------------- 0154 ; Debug chain 0154 ; -------------------------------------------------------------------------------------- 0154 0000 0002 | | .DBGLEN 0x0000,0x0002 0156 00bb 00c4 | | .DBGLNO 0x00bb,0x00c4 0158 0000 0000 | | .BLANK 0000[0xa8]