|
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_ade4b7
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0018 | | .CONST 0x0018 ; 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 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0024 | $ | .CONST 0x0024 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 00e3 | | Load_Encached Natural_Cache 0024 BODY_0020: 0024 00db | | Load_Top At_Offset_3 0025 4be8 |K | Short_Literal 0x3e8 0026 027d | } | Execute Discrete,Greater 0027 6807 |h | Jump_Zero 0x2f 0028 4804 |H | Short_Literal 0x4 0029 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 002a 0092 00b5 | | Action Push_String_Extended,0xb5 ; "conversion vers caractere: nombre superieur a 3 digits non attendu!" 002c e002 | | Load 0x0,0x2 002d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 002e 7818 |x | Jump 0x47 002f 00db | | Load_Top At_Offset_3 0030 0c64 | d | Execute_Immediate Greater_Equal,0x64 0031 6803 |h | Jump_Zero 0x35 0032 4803 |H | Short_Literal 0x3 0033 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0034 7812 |x | Jump 0x47 0035 00db | | Load_Top At_Offset_3 0036 0c0a | | Execute_Immediate Greater_Equal,0xa 0037 6803 |h | Jump_Zero 0x3b 0038 4802 |H | Short_Literal 0x2 0039 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 003a 780c |x | Jump 0x47 003b 00db | | Load_Top At_Offset_3 003c 0c00 | | Execute_Immediate Greater_Equal,0x0 003d 6803 |h | Jump_Zero 0x41 003e 4801 |H | Short_Literal 0x1 003f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0040 7806 |x | Jump 0x47 0041 4800 |H | Short_Literal 0x0 0042 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0043 0092 00b6 | | Action Push_String_Extended,0xb6 ; "conversion vers caractere: nombre negatif non attendu!" 0045 e002 | | Load 0x0,0x2 0046 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0047 00d8 | | Load_Top At_Offset_0 0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0056 | V | .CONST 0x0056 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 00e0 | | Load_Encached Standard_Cache 0055 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0056 BODY_0050: 0056 00db | | Load_Top At_Offset_3 0057 0d0a | | Execute_Immediate Less,0xa 0058 6805 |h | Jump_Zero 0x5e 0059 4802 |H | Short_Literal 0x2 005a 4802 |H | Short_Literal 0x2 005b 00da | | Load_Top At_Offset_2 005c 01cf | | Execute Vector,Slice_Read 005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005e 00db | | Load_Top At_Offset_3 005f 0d64 | d | Execute_Immediate Less,0x64 0060 6805 |h | Jump_Zero 0x66 0061 4802 |H | Short_Literal 0x2 0062 4803 |H | Short_Literal 0x3 0063 00da | | Load_Top At_Offset_2 0064 01cf | | Execute Vector,Slice_Read 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 4802 |H | Short_Literal 0x2 0067 4804 |H | Short_Literal 0x4 0068 00da | | Load_Top At_Offset_2 0069 01cf | | Execute Vector,Slice_Read 006a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0076 | v | .CONST 0x0076 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0003 | | .CONST 0x0003 ; Number of locals 0073 INIT_0070: 0073 00e3 | | Load_Encached Natural_Cache 0074 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0076 BODY_0070: 0076 e5fe | | Load 0x2,-0x2 0077 820d | | Call 0x1,0xd 0078 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0079 8403 | | Call 0x2,0x3 007a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0088 | | .CONST 0x0088 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 4801 |H | Short_Literal 0x1 0084 e402 | | Load 0x2,0x2 0085 00e9 | | Load_Encached String_Cache 0086 035b | [ | Declare_Type Array,Constrained 0087 0337 | 7 | Declare_Variable Array 0088 BODY_0080: 0088 0092 00b7 | | Action Push_String_Extended,0xb7 ; "vers_caractere - la donnee en entree est : " 008a e5fe | | Load 0x2,-0x2 008b 00e0 | | Load_Encached Standard_Cache 008c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 008d 01cc | | Execute Vector,Catenate 008e e002 | | Load 0x0,0x2 008f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0090 0092 00b8 | | Action Push_String_Extended,0xb8 ; "vers_caractere - longueur donnee en entree est : " 0092 e402 | | Load 0x2,0x2 0093 00e0 | | Load_Encached Standard_Cache 0094 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0095 01cc | | Execute Vector,Catenate 0096 e002 | | Load 0x0,0x2 0097 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0098 0092 00b9 | | Action Push_String_Extended,0xb9 ; "vers_caractere - les donnees en sortie sont: " 009a e002 | | Load 0x0,0x2 009b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 009c e5fe | | Load 0x2,-0x2 009d 820e | | Call 0x1,0xe 009e 00d9 | | Load_Top At_Offset_1 009f 01d4 | | Execute Vector,Structure_Write 00a0 00cf | | Action Mark_Auxiliary 00a1 e402 | | Load 0x2,0x2 00a2 4801 |H | Short_Literal 0x1 00a3 0263 | c | Execute Discrete,Above_Bound 00a4 700f |p | Jump_Nonzero 0xb4 00a5 00d8 | | Load_Top At_Offset_0 00a6 e602 | | Load 0x3,0x2 00a7 01d7 | | Execute Vector,Field_Read 00a8 e002 | | Load 0x0,0x2 00a9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 00aa 00ea | | Load_Encached Null_String_Cache 00ab e002 | | Load 0x0,0x2 00ac 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ad 00d8 | | Load_Top At_Offset_0 00ae e602 | | Load 0x3,0x2 00af 01d7 | | Execute Vector,Field_Read 00b0 e5ff | | Load 0x2,-0x1 00b1 8003 | | Call 0x0,0x3 00b2 00c8 | | Action Pop_Auxiliary_Range 00b3 3ff1 |? | Loop_Increasing 0xa5 00b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b5 ; -------------------------------------------------------------------------------------- 00b5 ; STRING TABLE 00b5 ; -------------------------------------------------------------------------------------- 00b5 000c | | .STRTAB 0x000c->0x00bb ; "conversion vers caractere: nombre superieur a 3 digits non attendu!" 00b6 004d | M | .STRTAB 0x004d->0x00dc ; "conversion vers caractere: nombre negatif non attendu!" 00b7 0081 | | .STRTAB 0x0081->0x00f7 ; "vers_caractere - la donnee en entree est : " 00b8 00aa | | .STRTAB 0x00aa->0x010d ; "vers_caractere - longueur donnee en entree est : " 00b9 00d9 | | .STRTAB 0x00d9->0x0125 ; "vers_caractere - les donnees en sortie sont: " 00ba 0104 | | .STREND 0x0104->0x013c 00bb 636f 6e76 |conv| .STRTAB_STRINGS 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 000a | | .DEBUG4 0x0004,0x000a,0xc8e1,0x0000,0x0001,0x0006 0146 000b 015e | ^| .DBG4T 0x000b,0x015e,0x8000,0x0000 014a 0012 0163 | c| .DBG4T 0x0012,0x0163,0x8000,0x0000 014e 0023 0168 | # h| .DBG4T 0x0023,0x0168,0x0002,0x0000 0152 0053 0177 | S w| .DBG4T 0x0053,0x0177,0x0002,0x0000 0156 0073 017f | s | .DBG4T 0x0073,0x017f,0x0001,0x0000 015a 0083 0184 | | .DBG4T 0x0083,0x0184,0x0004,0x0000 015e ; -------------------------------------------------------------------------------------- 015e ; Debug chain 015e ; -------------------------------------------------------------------------------------- 015e 0003 0000 | | .DBGLEN 0x0003,0x0000 0160 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f 0163 ; -------------------------------------------------------------------------------------- 0163 ; Debug chain 0163 ; -------------------------------------------------------------------------------------- 0163 0003 0000 | | .DBGLEN 0x0003,0x0000 0165 0012 0014 | | .DBGLNO 0x0012,0x0014,0x0016 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug chain 0168 ; -------------------------------------------------------------------------------------- 0168 0001 000c | | .DBGLEN 0x0001,0x000c 016a 0023 0024 | # $| .DBGLNO 0x0023,0x0024,0x0028,0x002a,0x002f,0x0032,0x0035,0x0038,0x003b,0x003e,0x0041,0x0043,0x0047 0177 ; -------------------------------------------------------------------------------------- 0177 ; Debug chain 0177 ; -------------------------------------------------------------------------------------- 0177 0001 0005 | | .DBGLEN 0x0001,0x0005 0179 0053 0056 | S V| .DBGLNO 0x0053,0x0056,0x0059,0x005e,0x0061,0x0066 017f ; -------------------------------------------------------------------------------------- 017f ; Debug chain 017f ; -------------------------------------------------------------------------------------- 017f 0001 0002 | | .DBGLEN 0x0001,0x0002 0181 0073 0076 | s v| .DBGLNO 0x0073,0x0076,0x0079 0184 ; -------------------------------------------------------------------------------------- 0184 ; Debug chain 0184 ; -------------------------------------------------------------------------------------- 0184 0001 0008 | | .DBGLEN 0x0001,0x0008 0186 0083 0088 | | .DBGLNO 0x0083,0x0088,0x0090,0x0098,0x009c,0x00a1,0x00a5,0x00aa,0x00ad 018f 0000 0000 | | .BLANK 0000[0x71]