|
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_0314bd
└─⟦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 0108 | | .CONST 0x0108 ; 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 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 0129 | ) | Execute Any,Make_Visible 000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e003 | | Load 0x0,0x3 0011 0337 | 7 | Declare_Variable Array 0012 4801 |H | Short_Literal 0x1 0013 4804 |H | Short_Literal 0x4 0014 e004 | | Load 0x0,0x4 0015 035b | [ | Declare_Type Array,Constrained 0016 0337 | 7 | Declare_Variable Array 0017 4820 |H | Short_Literal 0x20 0018 4801 |H | Short_Literal 0x1 0019 00da | | Load_Top At_Offset_2 001a 01d6 | | Execute Vector,Field_Write 001b 4821 |H! | Short_Literal 0x21 001c 4802 |H | Short_Literal 0x2 001d 00da | | Load_Top At_Offset_2 001e 01d6 | | Execute Vector,Field_Write 001f 4818 |H | Short_Literal 0x18 0020 4803 |H | Short_Literal 0x3 0021 00da | | Load_Top At_Offset_2 0022 01d6 | | Execute Vector,Field_Write 0023 481f |H | Short_Literal 0x1f 0024 4804 |H | Short_Literal 0x4 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 8005 | | Call 0x0,0x5 0028 00d9 | | Load_Top At_Offset_1 0029 01d4 | | Execute Vector,Structure_Write 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0043 | C | .CONST 0x0043 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0007 | | .CONST 0x0007 ; Number of locals 0033 INIT_0030: 0033 00e1 | | Load_Encached Boolean_Cache 0034 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0035 00e1 | | Load_Encached Boolean_Cache 0036 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0037 e006 | | Load 0x0,0x6 0038 0007 | | Action Break_Optional 0039 e007 | | Load 0x0,0x7 003a 0007 | | Action Break_Optional 003b e008 | | Load 0x0,0x8 003c 0322 | " | Declare_Variable Record 003d 00d8 | | Load_Top At_Offset_0 003e 1c00 | | Execute_Immediate Run_Utility,0x0 003f e009 | | Load 0x0,0x9 0040 02ff | | Declare_Variable Variant_Record 0041 00d8 | | Load_Top At_Offset_0 0042 1c00 | | Execute_Immediate Run_Utility,0x0 0043 BODY_0030: 0043 482d |H- | Short_Literal 0x2d 0044 800a | | Call 0x0,0xa 0045 6859 |hY | Jump_Zero 0x9f 0046 00d8 | | Load_Top At_Offset_0 0047 800b | | Call 0x0,0xb 0048 800c | | Call 0x0,0xc 0049 800d | | Call 0x0,0xd 004a 00d1 | | Pop_Control Pop_Count_1 004b 800e | | Call 0x0,0xe 004c 4805 |H | Short_Literal 0x5 004d 800a | | Call 0x0,0xa 004e 684a |hJ | Jump_Zero 0x99 004f 800e | | Call 0x0,0xe 0050 482d |H- | Short_Literal 0x2d 0051 800a | | Call 0x0,0xa 0052 682d |h- | Jump_Zero 0x80 0053 e403 | | Load 0x2,0x3 0054 00db | | Load_Top At_Offset_3 0055 800b | | Call 0x0,0xb 0056 800c | | Call 0x0,0xc 0057 800f | | Call 0x0,0xf 0058 c405 | | Store 0x2,0x5 0059 c403 | | Store 0x2,0x3 005a e403 | | Load 0x2,0x3 005b 7006 |p | Jump_Nonzero 0x62 005c 0092 00a5 | | Action Push_String_Extended,0xa5 ; " : Identificateur inconnu !" 005e 8010 | | Call 0x0,0x10 005f 4800 |H | Short_Literal 0x0 0060 a5ff | | Store_Unchecked 0x2,-0x1 0061 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0062 8011 | | Call 0x0,0x11 0063 00da | | Load_Top At_Offset_2 0064 017d | } | Execute Record,Structure_Write 0065 00da | | Load_Top At_Offset_2 0066 8012 | | Call 0x0,0x12 0067 00da | | Load_Top At_Offset_2 0068 017d | } | Execute Record,Structure_Write 0069 e403 | | Load 0x2,0x3 006a e404 | | Load 0x2,0x4 006b 00db | | Load_Top At_Offset_3 006c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 006d 00db | | Load_Top At_Offset_3 006e 8013 | | Call 0x0,0x13 006f 8014 | | Call 0x0,0x14 0070 c404 | | Store 0x2,0x4 0071 c403 | | Store 0x2,0x3 0072 e403 | | Load 0x2,0x3 0073 7006 |p | Jump_Nonzero 0x7a 0074 0092 00a6 | | Action Push_String_Extended,0xa6 ; " : l'attribut recherche n'existe pas dans la structure !" 0076 8010 | | Call 0x0,0x10 0077 4800 |H | Short_Literal 0x0 0078 a5ff | | Store_Unchecked 0x2,-0x1 0079 7804 |x | Jump 0x7e 007a 00db | | Load_Top At_Offset_3 007b 4807 |H | Short_Literal 0x7 007c 8015 | | Call 0x0,0x15 007d a20d | | Store_Unchecked 0x1,0xd 007e 800e | | Call 0x0,0xe 007f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0080 e20f | | Load 0x1,0xf 0081 8016 | | Call 0x0,0x16 0082 8017 | | Call 0x0,0x17 0083 6811 |h | Jump_Zero 0x95 0084 e402 | | Load 0x2,0x2 0085 8018 | | Call 0x0,0x18 0086 c402 | | Store 0x2,0x2 0087 e5ff | | Load 0x2,-0x1 0088 e402 | | Load 0x2,0x2 0089 0279 | y | Execute Discrete,And 008a a5ff | | Store_Unchecked 0x2,-0x1 008b e019 | | Load 0x0,0x19 008c a20d | | Store_Unchecked 0x1,0xd 008d e20d | | Load 0x1,0xd 008e 0229 | ) | Execute Access,All_Read 008f 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0090 00d8 | | Load_Top At_Offset_0 0091 00da | | Load_Top At_Offset_2 0092 801a | | Call 0x0,0x1a 0093 00d2 | | Pop_Control Pop_Count_2 0094 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0095 0092 00a7 | | Action Push_String_Extended,0xa7 ; " : ident ou objet ou pnj ou hero ou piece_courante attendu !" 0097 8010 | | Call 0x0,0x10 0098 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0099 0092 00a8 | | Action Push_String_Extended,0xa8 ; " : mot cle 'de' attendu !" 009b 8010 | | Call 0x0,0x10 009c 4800 |H | Short_Literal 0x0 009d a5ff | | Store_Unchecked 0x2,-0x1 009e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009f 0092 00a9 | | Action Push_String_Extended,0xa9 ; " : ident attendu !" 00a1 8010 | | Call 0x0,0x10 00a2 4800 |H | Short_Literal 0x0 00a3 a5ff | | Store_Unchecked 0x2,-0x1 00a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a5 ; -------------------------------------------------------------------------------------- 00a5 ; STRING TABLE 00a5 ; -------------------------------------------------------------------------------------- 00a5 000c | | .STRTAB 0x000c->0x00ab ; " : Identificateur inconnu !" 00a6 0025 | % | .STRTAB 0x0025->0x00b8 ; " : l'attribut recherche n'existe pas dans la structure !" 00a7 005b | [ | .STRTAB 0x005b->0x00d4 ; " : ident ou objet ou pnj ou hero ou piece_courante attendu !" 00a8 0095 | | .STRTAB 0x0095->0x00f2 ; " : mot cle 'de' attendu !" 00a9 00ac | | .STRTAB 0x00ac->0x00ff ; " : ident attendu !" 00aa 00bc | | .STREND 0x00bc->0x0108 00ab 203a 2049 | : I| .STRTAB_STRINGS 0108 ; -------------------------------------------------------------------------------------- 0108 ; Debug Table 0108 ; -------------------------------------------------------------------------------------- 0108 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdfbf,0x0000,0x0001,0x0003 010e 000b 011a | | .DBG4T 0x000b,0x011a,0x8000,0x0000 0112 0010 011e | | .DBG4T 0x0010,0x011e,0x8000,0x0000 0116 0033 0122 | 3 "| .DBG4T 0x0033,0x0122,0x0001,0x0000 011a ; -------------------------------------------------------------------------------------- 011a ; Debug chain 011a ; -------------------------------------------------------------------------------------- 011a 0002 0000 | | .DBGLEN 0x0002,0x0000 011c 000b 000d | | .DBGLNO 0x000b,0x000d 011e ; -------------------------------------------------------------------------------------- 011e ; Debug chain 011e ; -------------------------------------------------------------------------------------- 011e 0002 0000 | | .DBGLEN 0x0002,0x0000 0120 0010 002a | *| .DBGLNO 0x0010,0x002a 0122 ; -------------------------------------------------------------------------------------- 0122 ; Debug chain 0122 ; -------------------------------------------------------------------------------------- 0122 0006 001c | | .DBGLEN 0x0006,0x001c 0124 0033 0035 | 3 5| .DBGLNO 0x0033,0x0035,0x0037,0x0039,0x003b,0x003f,0x0043,0x0046,0x004b,0x004c,0x004f,0x0050,0x0053,0x005a,0x005c,0x005f,0x0062,0x0065,0x0069,0x0072,0x0074,0x0077,0x007a,0x007e,0x0080,0x0084,0x0087,0x008b,0x008d,0x0095,0x0099,0x009c,0x009f,0x00a2 0146 0000 0000 | | .BLANK 0000[0xba]