|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0810ad
└─⟦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 02a0 | | .CONST 0x02a0 ; 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 0001 | | .CONST 0x0001 ; 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 000d | | .CONST 0x000d ; 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 0025 | % | .CONST 0x0025 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0006 | | .CONST 0x0006 ; Number of locals 001b INIT_0018: 001b 00e1 | | Load_Encached Boolean_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d e002 | | Load 0x0,0x2 001e 0007 | | Action Break_Optional 001f 00e1 | | Load_Encached Boolean_Cache 0020 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0021 00e1 | | Load_Encached Boolean_Cache 0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0023 00e1 | | Load_Encached Boolean_Cache 0024 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0025 BODY_0018: 0025 00d9 | | Load_Top At_Offset_1 0026 00db | | Load_Top At_Offset_3 0027 e5fb | | Load 0x2,-0x5 0028 e5fa | | Load 0x2,-0x6 0029 e5fc | | Load 0x2,-0x4 002a 4800 |H | Short_Literal 0x0 002b e5fe | | Load 0x2,-0x2 002c e5fd | | Load 0x2,-0x3 002d e5f9 | | Load 0x2,-0x7 002e 8003 | | Call 0x0,0x3 002f 00d3 | | Pop_Control Pop_Count_3 0030 c404 | | Store 0x2,0x4 0031 005a | Z | Store_Top Discrete,At_Offset_2 0032 00cf | | Action Mark_Auxiliary 0033 78be |x | Jump 0xf2 0034 e5ff | | Load 0x2,-0x1 0035 e5fe | | Load 0x2,-0x2 0036 8004 | | Call 0x0,0x4 0037 a403 | | Store_Unchecked 0x2,0x3 0038 e403 | | Load 0x2,0x3 0039 4624 |F$ | Jump_Case 0x25 003a 7881 |x | Jump 0xbc ; case 0x0 003b 7823 |x# | Jump 0x5f ; case 0x1 003c 7822 |x" | Jump 0x5f ; case 0x2 003d 7821 |x! | Jump 0x5f ; case 0x3 003e 7825 |x% | Jump 0x64 ; case 0x4 003f 786d |xm | Jump 0xad ; case 0x5 0040 783b |x; | Jump 0x7c ; case 0x6 0041 7833 |x3 | Jump 0x75 ; case 0x7 0042 7824 |x$ | Jump 0x67 ; case 0x8 0043 782a |x* | Jump 0x6e ; case 0x9 0044 7845 |xE | Jump 0x8a ; case 0xa 0045 783d |x= | Jump 0x83 ; case 0xb 0046 784a |xJ | Jump 0x91 ; case 0xc 0047 7857 |xW | Jump 0x9f ; case 0xd 0048 784f |xO | Jump 0x98 ; case 0xe 0049 785c |x\ | Jump 0xa6 ; case 0xf 004a 78a5 |x | Jump 0xf0 ; case 0x10 004b 7813 |x | Jump 0x5f ; case 0x11 004c 7812 |x | Jump 0x5f ; case 0x12 004d 7811 |x | Jump 0x5f ; case 0x13 004e 7810 |x | Jump 0x5f ; case 0x14 004f 780f |x | Jump 0x5f ; case 0x15 0050 780e |x | Jump 0x5f ; case 0x16 0051 780d |x | Jump 0x5f ; case 0x17 0052 780c |x | Jump 0x5f ; case 0x18 0053 780b |x | Jump 0x5f ; case 0x19 0054 780a |x | Jump 0x5f ; case 0x1a 0055 7809 |x | Jump 0x5f ; case 0x1b 0056 7808 |x | Jump 0x5f ; case 0x1c 0057 7807 |x | Jump 0x5f ; case 0x1d 0058 7806 |x | Jump 0x5f ; case 0x1e 0059 7805 |x | Jump 0x5f ; case 0x1f 005a 7804 |x | Jump 0x5f ; case 0x20 005b 7803 |x | Jump 0x5f ; case 0x21 005c 7802 |x | Jump 0x5f ; case 0x22 005d 7801 |x | Jump 0x5f ; case 0x23 005e 7800 |x | Jump 0x5f ; case 0x24 005f 0092 00f9 | | Action Push_String_Extended,0xf9 ; "-- Option non implementee --------------------------------------------------" 0061 e005 | | Load 0x0,0x5 0062 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0063 788d |x | Jump 0xf1 0064 4801 |H | Short_Literal 0x1 0065 a402 | | Store_Unchecked 0x2,0x2 0066 788a |x | Jump 0xf1 0067 0092 00fa | | Action Push_String_Extended,0xfa ; "-- Liste des Verbes -------------------------------------------------" 0069 e005 | | Load 0x0,0x5 006a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006b e5ff | | Load 0x2,-0x1 006c 8006 | | Call 0x0,0x6 006d 7883 |x | Jump 0xf1 006e 0092 00fb | | Action Push_String_Extended,0xfb ; "-- Liste des Complements --------------------------------------------" 0070 e005 | | Load 0x0,0x5 0071 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0072 e5fe | | Load 0x2,-0x2 0073 8007 | | Call 0x0,0x7 0074 787c |x| | Jump 0xf1 0075 0092 00fc | | Action Push_String_Extended,0xfc ; "-- Liste des Modeles :Definition des types ---------------------------" 0077 e005 | | Load 0x0,0x5 0078 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0079 e5fd | | Load 0x2,-0x3 007a 8008 | | Call 0x0,0x8 007b 7875 |xu | Jump 0xf1 007c 0092 00fd | | Action Push_String_Extended,0xfd ; "-- Table des Symboles -----------------------------------------------" 007e e005 | | Load 0x0,0x5 007f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0080 e5fc | | Load 0x2,-0x4 0081 8009 | | Call 0x0,0x9 0082 786e |xn | Jump 0xf1 0083 0092 00fe | | Action Push_String_Extended,0xfe ; "-- Liste des Connexions --------------------------------------------" 0085 e005 | | Load 0x0,0x5 0086 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0087 e5fa | | Load 0x2,-0x6 0088 800a | | Call 0x0,0xa 0089 7867 |xg | Jump 0xf1 008a 0092 00ff | | Action Push_String_Extended,0xff ; "-- Liste des Liens --------------------------------------------------" 008c e005 | | Load 0x0,0x5 008d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 008e e5fb | | Load 0x2,-0x5 008f 800b | | Call 0x0,0xb 0090 7860 |x` | Jump 0xf1 0091 0092 0100 | | Action Push_String_Extended,0x100 ; "-- Instructions d' Introduction -------------------------------------" 0093 e005 | | Load 0x0,0x5 0094 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0095 e5f9 | | Load 0x2,-0x7 0096 800c | | Call 0x0,0xc 0097 7859 |xY | Jump 0xf1 0098 0092 0101 | | Action Push_String_Extended,0x101 ; "-- Instructions Generales -------------------------------------------" 009a e005 | | Load 0x0,0x5 009b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 009c e5f8 | | Load 0x2,-0x8 009d 800c | | Call 0x0,0xc 009e 7852 |xR | Jump 0xf1 009f 0092 0102 | | Action Push_String_Extended,0x102 ; "-- Instructions Globales --------------------------------------------" 00a1 e005 | | Load 0x0,0x5 00a2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00a3 e5f7 | | Load 0x2,-0x9 00a4 800c | | Call 0x0,0xc 00a5 784b |xK | Jump 0xf1 00a6 0092 0103 | | Action Push_String_Extended,0x103 ; "-- Instructions Locales ---------------------------------------------" 00a8 e005 | | Load 0x0,0x5 00a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00aa e5f6 | | Load 0x2,-0xa 00ab 800c | | Call 0x0,0xc 00ac 7844 |xD | Jump 0xf1 00ad 00d9 | | Load_Top At_Offset_1 00ae 6805 |h | Jump_Zero 0xb4 00af 0092 0104 | | Action Push_String_Extended,0x104 ; "-- Mode Trace: INACTIF" 00b1 e005 | | Load 0x0,0x5 00b2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b3 7804 |x | Jump 0xb8 00b4 0092 0105 | | Action Push_String_Extended,0x105 ; "-- Mode Trace: ACTIF" 00b6 e005 | | Load 0x0,0x5 00b7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00b8 00d9 | | Load_Top At_Offset_1 00b9 0f00 | | Execute_Immediate Equal,0x0 00ba 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00bb 7835 |x5 | Jump 0xf1 00bc 4800 |H | Short_Literal 0x0 00bd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00be 00da | | Load_Top At_Offset_2 00bf e404 | | Load 0x2,0x4 00c0 e5fb | | Load 0x2,-0x5 00c1 e5fa | | Load 0x2,-0x6 00c2 e5fc | | Load 0x2,-0x4 00c3 e406 | | Load 0x2,0x6 00c4 e5fe | | Load 0x2,-0x2 00c5 e5fd | | Load 0x2,-0x3 00c6 e5f8 | | Load 0x2,-0x8 00c7 8003 | | Call 0x0,0x3 00c8 00d3 | | Pop_Control Pop_Count_3 00c9 c404 | | Store 0x2,0x4 00ca 005b | [ | Store_Top Discrete,At_Offset_3 00cb 00db | | Load_Top At_Offset_3 00cc 7024 |p$ | Jump_Nonzero 0xf1 00cd 4800 |H | Short_Literal 0x0 00ce 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00cf 00da | | Load_Top At_Offset_2 00d0 e404 | | Load 0x2,0x4 00d1 e5fb | | Load 0x2,-0x5 00d2 e5fa | | Load 0x2,-0x6 00d3 e5fc | | Load 0x2,-0x4 00d4 e406 | | Load 0x2,0x6 00d5 e5fe | | Load 0x2,-0x2 00d6 e5fd | | Load 0x2,-0x3 00d7 e5f6 | | Load 0x2,-0xa 00d8 8003 | | Call 0x0,0x3 00d9 00d3 | | Pop_Control Pop_Count_3 00da c404 | | Store 0x2,0x4 00db 005b | [ | Store_Top Discrete,At_Offset_3 00dc 00da | | Load_Top At_Offset_2 00dd 0f00 | | Execute_Immediate Equal,0x0 00de e404 | | Load 0x2,0x4 00df 0f00 | | Execute_Immediate Equal,0x0 00e0 0279 | y | Execute Discrete,And 00e1 680f |h | Jump_Zero 0xf1 00e2 00da | | Load_Top At_Offset_2 00e3 e404 | | Load 0x2,0x4 00e4 e5fb | | Load 0x2,-0x5 00e5 e5fa | | Load 0x2,-0x6 00e6 e5fc | | Load 0x2,-0x4 00e7 e406 | | Load 0x2,0x6 00e8 e5fe | | Load 0x2,-0x2 00e9 e5fd | | Load 0x2,-0x3 00ea e5f7 | | Load 0x2,-0x9 00eb 8003 | | Call 0x0,0x3 00ec 00d3 | | Pop_Control Pop_Count_3 00ed c404 | | Store 0x2,0x4 00ee 005b | [ | Store_Top Discrete,At_Offset_3 00ef 7801 |x | Jump 0xf1 00f0 800d | | Call 0x0,0xd 00f1 00c9 | | Action Pop_Auxiliary_Loop 00f2 e402 | | Load 0x2,0x2 00f3 0f00 | | Execute_Immediate Equal,0x0 00f4 e404 | | Load 0x2,0x4 00f5 0f00 | | Execute_Immediate Equal,0x0 00f6 0279 | y | Execute Discrete,And 00f7 773c |w< | Jump_Nonzero 0x34 00f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f9 ; -------------------------------------------------------------------------------------- 00f9 ; STRING TABLE 00f9 ; -------------------------------------------------------------------------------------- 00f9 001c | | .STRTAB 0x001c->0x0107 ; "-- Option non implementee --------------------------------------------------" 00fa 0066 | f | .STRTAB 0x0066->0x012d ; "-- Liste des Verbes -------------------------------------------------" 00fb 00a9 | | .STRTAB 0x00a9->0x014f ; "-- Liste des Complements --------------------------------------------" 00fc 00ec | | .STRTAB 0x00ec->0x0172 ; "-- Liste des Modeles :Definition des types ---------------------------" 00fd 0130 | 0 | .STRTAB 0x0130->0x0195 ; "-- Table des Symboles -----------------------------------------------" 00fe 0173 | s | .STRTAB 0x0173->0x01b7 ; "-- Liste des Connexions --------------------------------------------" 00ff 01b6 | | .STRTAB 0x01b6->0x01da ; "-- Liste des Liens --------------------------------------------------" 0100 01f9 | | .STRTAB 0x01f9->0x01fc ; "-- Instructions d' Introduction -------------------------------------" 0101 023c | < | .STRTAB 0x023c->0x021f ; "-- Instructions Generales -------------------------------------------" 0102 027f | | .STRTAB 0x027f->0x0241 ; "-- Instructions Globales --------------------------------------------" 0103 02c2 | | .STRTAB 0x02c2->0x0264 ; "-- Instructions Locales ---------------------------------------------" 0104 0305 | | .STRTAB 0x0305->0x0286 ; "-- Mode Trace: INACTIF" 0105 0319 | | .STRTAB 0x0319->0x0291 ; "-- Mode Trace: ACTIF" 0106 032b | + | .STREND 0x032b->0x029b 0107 2d2d 204f |-- O| .STRTAB_STRINGS 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug Table 02a0 ; -------------------------------------------------------------------------------------- 02a0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd5f9,0x0000,0x0001,0x0003 02a6 000b 02b2 | | .DBG4T 0x000b,0x02b2,0x8000,0x0000 02aa 000e 02b5 | | .DBG4T 0x000e,0x02b5,0x8000,0x0000 02ae 001b 02b8 | | .DBG4T 0x001b,0x02b8,0x0001,0x4000 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug chain 02b2 ; -------------------------------------------------------------------------------------- 02b2 0001 0000 | | .DBGLEN 0x0001,0x0000 02b4 000b | | .DBGLNO 0x000b 02b5 ; -------------------------------------------------------------------------------------- 02b5 ; Debug chain 02b5 ; -------------------------------------------------------------------------------------- 02b5 0001 0000 | | .DBGLEN 0x0001,0x0000 02b7 000e | | .DBGLNO 0x000e 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug chain 02b8 ; -------------------------------------------------------------------------------------- 02b8 0005 0026 | &| .DBGLEN 0x0005,0x0026 02ba 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0034,0x0038,0x005f,0x0064,0x0067,0x006b,0x006e,0x0072,0x0075,0x0079,0x007c,0x0080,0x0083,0x0087,0x008a,0x008e,0x0091,0x0095,0x0098,0x009c,0x009f,0x00a3,0x00a6,0x00aa,0x00ad,0x00af,0x00b4,0x00b8,0x00bc,0x00be,0x00cb,0x00cd,0x00cf,0x00dc,0x00e2,0x00f0,0x00f2 02e5 0001 0003 | | .XXX[0x26] 02e7 0004 0026 | &| 02e9 0005 0006 | | 02eb 0007 0008 | | 02ed 0009 000a | | 02ef 000b 000c | | 02f1 000d 000e | | 02f3 000f 0010 | | 02f5 0011 0012 | | 02f7 0013 0014 | | 02f9 0015 0016 | | 02fb 0017 0018 | | 02fd 0019 001a | | 02ff 001b 001c | | 0301 001d 001e | | 0303 001f 0020 | | 0305 0021 0022 | ! "| 0307 0023 0024 | # $| 0309 0025 0002 | % | 030b 0000 0000 | | .BLANK 0000[0xf5]