|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00c8 | | .CONST 0x00c8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0023 | # | .CONST 0x0023 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0007 | | .CONST 0x0007 ; Number of locals 000b INIT_0008: 000b e0a3 | | Load 0x0,0xa3 000c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 000d 00e1 | | Load_Encached Boolean_Cache 000e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 000f 00e1 | | Load_Encached Boolean_Cache 0010 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0011 e0a4 | | Load 0x0,0xa4 0012 0337 | 7 | Declare_Variable Array 0013 00d8 | | Load_Top At_Offset_0 0014 0335 | 5 | Declare_Variable Array,Duplicate 0015 00cd | | Action Spare6_Action 0016 4803 |H | Short_Literal 0x3 0017 4800 |H | Short_Literal 0x0 0018 4800 |H | Short_Literal 0x0 0019 e408 | | Load 0x2,0x8 001a e406 | | Load 0x2,0x6 001b 01d6 | | Execute Vector,Field_Write 001c 3ffb |? | Loop_Increasing 0x18 001d e405 | | Load 0x2,0x5 001e 01d4 | | Execute Vector,Structure_Write 001f e0a5 | | Load 0x0,0xa5 0020 02ab | | Declare_Subprogram For_Call,With_Address 0021 e0a6 | | Load 0x0,0xa6 0022 02ab | | Declare_Subprogram For_Call,With_Address 0023 BODY_0008: 0023 e5ff | | Load 0x2,-0x1 0024 e011 | | Load 0x0,0x11 0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0026 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0027 e0a3 | | Load 0x0,0xa3 0028 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0029 a402 | | Store_Unchecked 0x2,0x2 002a e402 | | Load 0x2,0x2 002b e0a3 | | Load 0x0,0xa3 002c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 002d e5ff | | Load 0x2,-0x1 002e e011 | | Load 0x0,0x11 002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0030 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0031 0e00 | | Execute_Immediate Not_Equal,0x0 0032 0279 | y | Execute Discrete,And 0033 6805 |h | Jump_Zero 0x39 0034 0092 00a6 | | Action Push_String_Extended,0xa6 ; "Argument to Generate was unrecognizable" 0036 e01c | | Load 0x0,0x1c 0037 180e | | Execute Package,Field_Execute,Field_Number 0xe 0038 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0039 00cf | | Action Mark_Auxiliary 003a 785f |x_ | Jump 0x9a 003b 4800 |H | Short_Literal 0x0 003c e402 | | Load 0x2,0x2 003d e0a3 | | Load 0x0,0xa3 003e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 003f 684c |hL | Jump_Zero 0x8c 0040 e402 | | Load 0x2,0x2 0041 e0a3 | | Load 0x0,0xa3 0042 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0043 4606 |F | Jump_Case 0x7 0044 7850 |xP | Jump 0x95 ; case 0x0 0045 7812 |x | Jump 0x58 ; case 0x1 0046 7838 |x8 | Jump 0x7f ; case 0x2 0047 782a |x* | Jump 0x72 ; case 0x3 0048 781c |x | Jump 0x65 ; case 0x4 0049 7804 |x | Jump 0x4e ; case 0x5 004a 7800 |x | Jump 0x4b ; case 0x6 004b 4801 |H | Short_Literal 0x1 004c a403 | | Store_Unchecked 0x2,0x3 004d 7847 |xG | Jump 0x95 004e 4801 |H | Short_Literal 0x1 004f c0a7 | | Store 0x0,0xa7 0050 4800 |H | Short_Literal 0x0 0051 4800 |H | Short_Literal 0x0 0052 e402 | | Load 0x2,0x2 0053 e0a3 | | Load 0x0,0xa3 0054 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0055 683f |h? | Jump_Zero 0x95 0056 8406 | | Call 0x2,0x6 0057 783d |x= | Jump 0x95 0058 4801 |H | Short_Literal 0x1 0059 c0a7 | | Store 0x0,0xa7 005a 4801 |H | Short_Literal 0x1 005b a404 | | Store_Unchecked 0x2,0x4 005c 4800 |H | Short_Literal 0x0 005d 4800 |H | Short_Literal 0x0 005e e402 | | Load 0x2,0x2 005f e0a3 | | Load 0x0,0xa3 0060 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0061 4800 |H | Short_Literal 0x0 0062 e405 | | Load 0x2,0x5 0063 01d6 | | Execute Vector,Field_Write 0064 7830 |x0 | Jump 0x95 0065 4801 |H | Short_Literal 0x1 0066 c0a7 | | Store 0x0,0xa7 0067 4801 |H | Short_Literal 0x1 0068 a404 | | Store_Unchecked 0x2,0x4 0069 4800 |H | Short_Literal 0x0 006a 4800 |H | Short_Literal 0x0 006b e402 | | Load 0x2,0x2 006c e0a3 | | Load 0x0,0xa3 006d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 006e 4801 |H | Short_Literal 0x1 006f e405 | | Load 0x2,0x5 0070 01d6 | | Execute Vector,Field_Write 0071 7823 |x# | Jump 0x95 0072 4801 |H | Short_Literal 0x1 0073 c0a7 | | Store 0x0,0xa7 0074 4801 |H | Short_Literal 0x1 0075 a404 | | Store_Unchecked 0x2,0x4 0076 4800 |H | Short_Literal 0x0 0077 4800 |H | Short_Literal 0x0 0078 e402 | | Load 0x2,0x2 0079 e0a3 | | Load 0x0,0xa3 007a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 007b 4802 |H | Short_Literal 0x2 007c e405 | | Load 0x2,0x5 007d 01d6 | | Execute Vector,Field_Write 007e 7816 |x | Jump 0x95 007f 4801 |H | Short_Literal 0x1 0080 c0a7 | | Store 0x0,0xa7 0081 4801 |H | Short_Literal 0x1 0082 a404 | | Store_Unchecked 0x2,0x4 0083 4800 |H | Short_Literal 0x0 0084 4800 |H | Short_Literal 0x0 0085 e402 | | Load 0x2,0x2 0086 e0a3 | | Load 0x0,0xa3 0087 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0088 4803 |H | Short_Literal 0x3 0089 e405 | | Load 0x2,0x5 008a 01d6 | | Execute Vector,Field_Write 008b 7809 |x | Jump 0x95 008c 0092 00a7 | | Action Push_String_Extended,0xa7 ; "Generate" 008e 4800 |H | Short_Literal 0x0 008f e402 | | Load 0x2,0x2 0090 e0a3 | | Load 0x0,0xa3 0091 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0092 01cc | | Execute Vector,Catenate 0093 e01c | | Load 0x0,0x1c 0094 180e | | Execute Package,Field_Execute,Field_Number 0xe 0095 e402 | | Load 0x2,0x2 0096 e0a3 | | Load 0x0,0xa3 0097 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0098 c402 | | Store 0x2,0x2 0099 00c9 | | Action Pop_Auxiliary_Loop 009a e402 | | Load 0x2,0x2 009b e0a3 | | Load 0x0,0xa3 009c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 009d 6f9d |o | Jump_Zero 0x3b 009e 00ce | | Action Pop_Auxiliary 009f e404 | | Load 0x2,0x4 00a0 6801 |h | Jump_Zero 0xa2 00a1 8407 | | Call 0x2,0x7 00a2 e403 | | Load 0x2,0x3 00a3 6801 |h | Jump_Zero 0xa5 00a4 8232 | 2 | Call 0x1,0x32 00a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a6 ; -------------------------------------------------------------------------------------- 00a6 ; STRING TABLE 00a6 ; -------------------------------------------------------------------------------------- 00a6 0006 | | .STRTAB 0x0006->0x00a9 ; "Argument to Generate was unrecognizable" 00a7 002b | + | .STRTAB 0x002b->0x00bc ; "Generate" 00a8 0031 | 1 | .STREND 0x0031->0x00c0 00a9 4172 6775 |Argu| .STRTAB_STRINGS 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 000f | | .DEBUG4 0x0004,0x000f,0x4804,0x0000,0x0001,0x0000 00ce 0011 0000 | | .XXX[0xf] 00d0 0000 0800 | | 00d2 0000 5200 | R | 00d4 0008 0a0c | | 00d6 5a00 0008 |Z | 00d8 0a0c 6200 | b | 00da 0008 0a0c | | 00dc 6800 |h | 00dd 0000 0000 | | .BLANK 0000[0x5] 00e2 0200 0008 | | .XXX[0xa] 00e4 0a0c 7200 | r | 00e6 0008 0a0c | | 00e8 7a00 0008 |z | 00ea 0a0c 8000 | | 00ec 0000 0000 | | .BLANK 0000[0x5] 00f1 0008 0001 | | .XXX[0x3] 00f3 3238 |28 | 00f4 0000 0000 | | .BLANK 0000[0xd] 0101 0020 0500 | | .XXX[0xc] 0103 0000 0000 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a00 | | 010d 0000 0000 | | .BLANK 0000[0x2d] 013a 0004 00a0 | | .XXX[0xc] 013c 0000 0000 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0140 | @| 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]