|
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 3a36 3c90 |:6< | .XXX[0xbd] 00d0 37b3 103a |7 :| 00d2 3432 9039 |42 9| 00d4 b1b4 32b2 | 2 | 00d6 3ab6 3296 |: 2 | 00d8 1038 3932 | 892| 00da bb32 b73a | 2 :| 00dc 1030 9039 | 0 9| 00de b1b4 32b2 | 2 | 00e0 3ab6 32b2 |: 2 | 00e2 1031 b634 | 1 4| 00e4 b2b7 3a10 | : | 00e6 3339 37b6 |397 | 00e8 9039 3ab7 | 9: | 00ea 3734 b733 |74 3| 00ec 9600 0000 | | 00ee 2f80 0000 |/ | 00f0 2410 34b7 |$ 4 | 00f2 3232 b832 |22 2| 00f4 b732 32b7 | 22 | 00f6 3a36 3c90 |:6< | 00f8 37b3 103a |7 :| 00fa 3432 9039 |42 9| 00fc b1b4 32b2 | 2 | 00fe 3ab6 3296 |: 2 | 0100 1038 3932 | 892| 0102 bb32 b73a | 2 :| 0104 1030 9039 | 0 9| 0106 b1b4 32b2 | 2 | 0108 3ab6 32b2 |: 2 | 010a 1031 b634 | 1 4| 010c b2b7 3a10 | : | 010e 3339 37b6 |397 | 0110 9039 3ab7 | 9: | 0112 3734 b733 |74 3| 0114 9600 0000 | | 0116 2f80 0000 |/ | 0118 2410 34b7 |$ 4 | 011a 3232 b832 |22 2| 011c b732 32b7 | 22 | 011e 3a36 3c90 |:6< | 0120 37b3 103a |7 :| 0122 3432 9039 |42 9| 0124 b1b4 32b2 | 2 | 0126 3ab6 3296 |: 2 | 0128 1038 3932 | 892| 012a bb32 b73a | 2 :| 012c 1030 9039 | 0 9| 012e b1b4 32b2 | 2 | 0130 3ab6 32b2 |: 2 | 0132 1031 b634 | 1 4| 0134 b2b7 3a10 | : | 0136 3339 37b6 |397 | 0138 9039 3ab7 | 9: | 013a 3734 b733 |74 3| 013c 9600 0000 | | 013e 1480 0000 | | 0140 1530 b732 | 0 2| 0142 1032 34b9 | 24 | 0144 b836 30bc | 60 | 0146 9034 b733 | 4 3| 0148 37b9 36b0 |7 6 | 014a ba34 b7b7 | 4 | 014c 1030 b137 | 0 7| 014e baba 1032 | 2| 0150 b0b1 b410 | | 0152 31b6 34b2 |1 4 | 0154 b73a 1700 | : | 0156 0000 1400 | | 0158 0000 1590 | | 015a 30b7 3210 |0 2 | 015c 3234 b9b8 |24 | 015e 3630 bc90 |60 | 0160 34b7 3337 |4 37| 0162 b936 b0ba | 6 | 0164 34b7 b710 |4 | 0166 30b1 37ba |0 7 | 0168 ba10 32b0 | 2 | 016a b1b4 1031 | 1| 016c b634 b2b7 | 4 | 016e 3a17 0000 |: | 0170 0014 0000 | | 0172 0015 9030 | 0| 0174 b732 1032 | 2 2| 0176 34b9 b836 |4 6| 0178 30bc 9034 |0 4| 017a b733 37b9 | 37 | 017c 36b0 ba34 |6 4| 017e b7b7 1030 | 0| 0180 b137 baba | 7 | 0182 1032 b0b1 | 2 | 0184 b410 31b6 | 1 | 0186 34b2 b73a |4 :| 0188 1700 0000 | | 018a 0080 | | 018b 0000 0000 | | .BLANK 0000[0x5] 0190 2a00 0000 |* | .XXX[0x70] 0192 0000 0000 | | 0194 2980 0000 |) | 0196 2b00 0000 |+ | 0198 2129 32b9 |!)2 | 019a b7ba b931 | 1| 019c b2b9 9033 | 3| 019e 3937 b690 |97 | 01a0 3830 b1b5 |80 | 01a2 b0b3 b290 | | 01a4 10aa 37b7 | 7 | 01a6 b639 9722 | 9 "| 01a8 34b9 b5af |4 | 01aa a230 b2b6 | 0 | 01ac b7b7 1039 | 9| 01ae b832 b1b4 | 2 | 01b0 b334 b1b0 | 4 | 01b2 b636 3c90 | 6< | 01b4 31b7 b73a |1 :| 01b6 3937 b610 |97 | 01b8 3a34 3280 |:42 | 01ba 0000 2a80 | * | 01bc 0000 2190 | ! | 01be 2932 b9b7 |)2 | 01c0 bab9 31b2 | 1 | 01c2 b990 3339 | 39| 01c4 37b6 9038 |7 8| 01c6 30b1 b5b0 |0 | 01c8 b3b2 9010 | | 01ca aa37 b7b6 | 7 | 01cc 3997 2234 |9 "4| 01ce b9b5 afa2 | | 01d0 30b2 b6b7 |0 | 01d2 b710 39b8 | 9 | 01d4 32b1 b4b3 |2 | 01d6 34b1 b0b6 |4 | 01d8 363c 9031 |6< 1| 01da b7b7 3a39 | :9| 01dc 37b6 103a |7 :| 01de 3432 8000 |42 | 01e0 002a 8000 | * | 01e2 0021 9029 | ! )| 01e4 32b9 b7ba |2 | 01e6 b931 b2b9 | 1 | 01e8 9033 3937 | 397| 01ea b690 3830 | 80| 01ec b1b5 b0b3 | | 01ee b290 10aa | | 01f0 37b7 b639 |7 9| 01f2 9722 34b9 | "4 | 01f4 b5af a230 | 0| 01f6 b2b6 b7b7 | | 01f8 1039 b832 | 9 2| 01fa b1b4 b334 | 4| 01fc b1b0 b636 | 6| 01fe 3c90 31b7 |< 1 |