|
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_0b849f
└─⟦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 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 000b | | .CONST 0x000b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b BODY_0008: 000b INIT_0008: 000b e404 | | Load 0x2,0x4 000c e405 | | Load 0x2,0x5 000d e218 | | Load 0x1,0x18 000e 802b | + | Call 0x0,0x2b 000f a406 | | Store_Unchecked 0x2,0x6 0010 e406 | | Load 0x2,0x6 0011 8019 | | Call 0x0,0x19 0012 7061 |pa | Jump_Nonzero 0x74 0013 0092 0095 | | Action Push_String_Extended,0x95 ; "un object correspond a la description " 0015 8007 | | Call 0x0,0x7 0016 e014 | | Load 0x0,0x14 0017 e406 | | Load 0x2,0x6 0018 801a | | Call 0x0,0x1a 0019 c407 | | Store 0x2,0x7 001a 00cf | | Action Mark_Auxiliary 001b e407 | | Load 0x2,0x7 001c 801b | | Call 0x0,0x1b 001d e409 | | Load 0x2,0x9 001e 01d4 | | Execute Vector,Structure_Write 001f e409 | | Load 0x2,0x9 0020 e218 | | Load 0x1,0x18 0021 8017 | | Call 0x0,0x17 0022 e408 | | Load 0x2,0x8 0023 017d | } | Execute Record,Structure_Write 0024 e407 | | Load 0x2,0x7 0025 801d | | Call 0x0,0x1d 0026 c407 | | Store 0x2,0x7 0027 0092 0096 | | Action Push_String_Extended,0x96 ; "the choosen object is" 0029 e408 | | Load 0x2,0x8 002a 802c | , | Call 0x0,0x2c 002b 01cc | | Execute Vector,Catenate 002c 8007 | | Call 0x0,0x7 002d e408 | | Load 0x2,0x8 002e 802d | - | Call 0x0,0x2d 002f 6802 |h | Jump_Zero 0x32 0030 00c9 | | Action Pop_Auxiliary_Loop 0031 7fe9 | | Jump 0x1b 0032 00ce | | Action Pop_Auxiliary 0033 e5ff | | Load 0x2,-0x1 0034 00d8 | | Load_Top At_Offset_0 0035 800a | | Call 0x0,0xa 0036 8025 | % | Call 0x0,0x25 0037 00d1 | | Pop_Control Pop_Count_1 0038 e5ff | | Load 0x2,-0x1 0039 e409 | | Load 0x2,0x9 003a 8026 | & | Call 0x0,0x26 003b 00d1 | | Pop_Control Pop_Count_1 003c 0092 0097 | | Action Push_String_Extended,0x97 ; "i have request from" 003e e5ff | | Load 0x2,-0x1 003f 800a | | Call 0x0,0xa 0040 e00d | | Load 0x0,0xd 0041 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0042 01cc | | Execute Vector,Catenate 0043 8007 | | Call 0x0,0x7 0044 0092 0098 | | Action Push_String_Extended,0x98 ; "for " 0046 e5ff | | Load 0x2,-0x1 0047 800e | | Call 0x0,0xe 0048 e00d | | Load 0x0,0xd 0049 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004a 01cc | | Execute Vector,Catenate 004b 8007 | | Call 0x0,0x7 004c 00e1 | | Load_Encached Boolean_Cache 004d e5ff | | Load 0x2,-0x1 004e e409 | | Load 0x2,0x9 004f e218 | | Load 0x1,0x18 0050 8006 | | Call 0x0,0x6 0051 00d1 | | Pop_Control Pop_Count_1 0052 c40b | | Store 0x2,0xb 0053 e40b | | Load 0x2,0xb 0054 7017 |p | Jump_Nonzero 0x6c 0055 0092 0099 | | Action Push_String_Extended,0x99 ; "talk pas reussi" 0057 8007 | | Call 0x0,0x7 0058 e218 | | Load 0x1,0x18 0059 e409 | | Load 0x2,0x9 005a 801c | | Call 0x0,0x1c 005b 00d1 | | Pop_Control Pop_Count_1 005c 0092 009a | | Action Push_String_Extended,0x9a ; "renvoie une answer bidon au demandeur" 005e 8007 | | Call 0x0,0x7 005f e5ff | | Load 0x2,-0x1 0060 480f |H | Short_Literal 0xf 0061 8027 | ' | Call 0x0,0x27 0062 00d1 | | Pop_Control Pop_Count_1 0063 00e1 | | Load_Encached Boolean_Cache 0064 e5ff | | Load 0x2,-0x1 0065 00d8 | | Load_Top At_Offset_0 0066 800a | | Call 0x0,0xa 0067 e218 | | Load 0x1,0x18 0068 8006 | | Call 0x0,0x6 0069 00d1 | | Pop_Control Pop_Count_1 006a c40b | | Store 0x2,0xb 006b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006c e218 | | Load 0x1,0x18 006d e409 | | Load 0x2,0x9 006e 802a | * | Call 0x0,0x2a 006f 00d1 | | Pop_Control Pop_Count_1 0070 0092 009b | | Action Push_String_Extended,0x9b ; "ok request sended" 0072 8007 | | Call 0x0,0x7 0073 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0074 e5ff | | Load 0x2,-0x1 0075 00d8 | | Load_Top At_Offset_0 0076 800a | | Call 0x0,0xa 0077 8025 | % | Call 0x0,0x25 0078 00d1 | | Pop_Control Pop_Count_1 0079 e5ff | | Load 0x2,-0x1 007a 00d8 | | Load_Top At_Offset_0 007b 800a | | Call 0x0,0xa 007c 8026 | & | Call 0x0,0x26 007d 00d1 | | Pop_Control Pop_Count_1 007e 0092 009a | | Action Push_String_Extended,0x9a ; "renvoie une answer bidon au demandeur" 0080 8007 | | Call 0x0,0x7 0081 e5ff | | Load 0x2,-0x1 0082 480f |H | Short_Literal 0xf 0083 8027 | ' | Call 0x0,0x27 0084 00d1 | | Pop_Control Pop_Count_1 0085 00e1 | | Load_Encached Boolean_Cache 0086 e5ff | | Load 0x2,-0x1 0087 00d8 | | Load_Top At_Offset_0 0088 800a | | Call 0x0,0xa 0089 e218 | | Load 0x1,0x18 008a 8006 | | Call 0x0,0x6 008b 00d1 | | Pop_Control Pop_Count_1 008c c40b | | Store 0x2,0xb 008d e40b | | Load 0x2,0xb 008e 7005 |p | Jump_Nonzero 0x94 008f e218 | | Load 0x1,0x18 0090 e5ff | | Load 0x2,-0x1 0091 800a | | Call 0x0,0xa 0092 801c | | Call 0x0,0x1c 0093 00d1 | | Pop_Control Pop_Count_1 0094 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0095 ; -------------------------------------------------------------------------------------- 0095 ; STRING TABLE 0095 ; -------------------------------------------------------------------------------------- 0095 0010 | | .STRTAB 0x0010->0x009d ; "un object correspond a la description " 0096 0034 | 4 | .STRTAB 0x0034->0x00b0 ; "the choosen object is" 0097 0047 | G | .STRTAB 0x0047->0x00ba ; "i have request from" 0098 0058 | X | .STRTAB 0x0058->0x00c4 ; "for " 0099 005a | Z | .STRTAB 0x005a->0x00c6 ; "talk pas reussi" 009a 0067 | g | .STRTAB 0x0067->0x00cd ; "renvoie une answer bidon au demandeur" 009b 008a | | .STRTAB 0x008a->0x00e0 ; "ok request sended" 009c 0099 | | .STREND 0x0099->0x00e8 009d 756e 206f |un o| .STRTAB_STRINGS 00e9 0000 0000 | | .BLANK 0000[0x7] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; Debug Table 00f0 ; -------------------------------------------------------------------------------------- 00f0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7013,0x0000,0x0001,0x0001 00f6 000b 00fa | | .DBG4T 0x000b,0x00fa,0x0001,0x4000 00fa ; -------------------------------------------------------------------------------------- 00fa ; Debug chain 00fa ; -------------------------------------------------------------------------------------- 00fa 0000 001d | | .DBGLEN 0x0000,0x001d 00fc 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0013,0x0016,0x001b,0x001f,0x0024,0x0027,0x002d,0x0033,0x0038,0x003c,0x0044,0x004c,0x0053,0x0055,0x0058,0x005c,0x005f,0x0063,0x006c,0x0070,0x0074,0x0079,0x007e,0x0081,0x0085,0x008d,0x008f 0119 0001 0002 | | .XXX[0x1d] 011b 0003 0004 | | 011d 0006 0007 | | 011f 0008 0009 | | 0121 000a 000b | | 0123 000c 000d | | 0125 000e 000f | | 0127 0010 0011 | | 0129 0012 0013 | | 012b 0014 0015 | | 012d 0016 0017 | | 012f 0018 0019 | | 0131 001a 001b | | 0133 001c 001d | | 0135 001e | | 0136 0000 0000 | | .BLANK 0000[0xca]