|
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_0220f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0058 | X | .CONST 0x0058 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4800 |H | Short_Literal 0x0 001d 4800 |H | Short_Literal 0x0 001e 4801 |H | Short_Literal 0x1 001f 4801 |H | Short_Literal 0x1 0020 4800 |H | Short_Literal 0x0 0021 4800 |H | Short_Literal 0x0 0022 4801 |H | Short_Literal 0x1 0023 4800 |H | Short_Literal 0x0 0024 4800 |H | Short_Literal 0x0 0025 4801 |H | Short_Literal 0x1 0026 4800 |H | Short_Literal 0x0 0027 e5ff | | Load 0x2,-0x1 0028 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 002a 01cc | | Execute Vector,Catenate 002b e5ff | | Load 0x2,-0x1 002c e001 | | Load 0x0,0x1 002d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002e 4800 |H | Short_Literal 0x0 002f 4800 |H | Short_Literal 0x0 0030 4800 |H | Short_Literal 0x0 0031 4800 |H | Short_Literal 0x0 0032 4800 |H | Short_Literal 0x0 0033 4800 |H | Short_Literal 0x0 0034 4800 |H | Short_Literal 0x0 0035 4801 |H | Short_Literal 0x1 0036 4800 |H | Short_Literal 0x0 0037 4800 |H | Short_Literal 0x0 0038 4800 |H | Short_Literal 0x0 0039 4800 |H | Short_Literal 0x0 003a e5ff | | Load 0x2,-0x1 003b 0092 0046 | F| Action Push_String_Extended,0x46 ; "_Negatives" 003d 01cc | | Execute Vector,Catenate 003e e5ff | | Load 0x2,-0x1 003f 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 0041 01cc | | Execute Vector,Catenate 0042 e001 | | Load 0x0,0x1 0043 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0044 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0045 ; -------------------------------------------------------------------------------------- 0045 ; STRING TABLE 0045 ; -------------------------------------------------------------------------------------- 0045 0006 | | .STRTAB 0x0006->0x0048 ; "_Errors" 0046 000b | | .STRTAB 0x000b->0x004b ; "_Negatives" 0047 0013 | | .STREND 0x0013->0x0050 0048 5f45 7272 |_Err| .STRTAB_STRINGS 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 000d | | .DEBUG4 0x0004,0x000d,0x789a,0x0000,0x0001,0x0000 005e 1a10 1039 | 9| .XXX[0x63] 0060 32b9 ba39 |2 9| 0062 34b1 ba32 |4 2| 0064 b210 3a37 | :7| 0066 9039 b7b6 | 9 | 0068 b290 39ba | 9 | 006a b139 b2ba | 9 | 006c 1037 b310 | 7 | 006e 3a34 3290 |:42 | 0070 3634 b735 |64 5| 0072 b990 34b7 | 4 | 0074 103a 3432 | :42| 0076 9039 b2ba | 9 | 0078 1700 0000 | | 007a 1d00 0000 | | 007c 1a10 1039 | 9| 007e 32b9 ba39 |2 9| 0080 34b1 ba32 |4 2| 0082 b210 3a37 | :7| 0084 9039 b7b6 | 9 | 0086 b290 39ba | 9 | 0088 b139 b2ba | 9 | 008a 1037 b310 | 7 | 008c 3a34 3290 |:42 | 008e 3634 b735 |64 5| 0090 b990 34b7 | 4 | 0092 103a 3432 | :42| 0094 9039 b2ba | 9 | 0096 1700 0000 | | 0098 3880 0000 |8 | 009a 0ea0 3737 | 77| 009c b232 9010 | 2 | 009e a1b7 b6b6 | | 00a0 b0b7 3239 | 29| 00a2 9726 34b7 | &4 | 00a4 35b9 9722 |5 "| 00a6 34b9 b836 |4 6| 00a8 30bc 8000 |0 | 00aa 0039 0000 | 9 | 00ac 0002 3737 | 77| 00ae b232 8000 | 2 | 00b0 003b 8000 | ; | 00b2 000b 90a1 | | 00b4 b7b6 b6b0 | | 00b6 b732 3997 | 29 | 00b8 2634 b735 |&4 5| 00ba b997 2234 | "4| 00bc b9b8 3630 | 60| 00be bc80 0000 | | 00c0 0080 | | 00c1 0000 0000 | | .BLANK 0000[0x5] 00c6 0780 0000 | | .XXX[0x83] 00c8 0000 0000 | | 00ca 0700 0000 | | 00cc 0900 0000 | | 00ce 1d38 3937 | 897| 00d0 b1b2 b23a | :| 00d2 b932 9022 | 2 "| 00d4 34b9 b836 |4 6| 00d6 30bc 9014 |0 | 00d8 2bb7 b936 |+ 6| 00da 3210 1010 |2 | 00dc 101d 102b | +| 00de b7b9 3632 | 62| 00e0 2fa7 30b6 |/ 0 | 00e2 b290 1010 | | 00e4 1010 1d1e | | 00e6 9011 1e24 | $| 00e8 a6a0 a3a2 | | 00ea 9f11 1d80 | | 00ec 0000 0800 | | 00ee 0000 1e10 | | 00f0 1038 3937 | 897| 00f2 b1b2 b23a | :| 00f4 b932 9022 | 2 "| 00f6 34b9 b836 |4 6| 00f8 30bc 9014 |0 | 00fa 2bb7 b936 |+ 6| 00fc 3210 1010 |2 | 00fe 101d 102b | +| 0100 b7b9 3632 | 62| 0102 2fa7 30b6 |/ 0 | 0104 b290 1010 | | 0106 1010 1d1e | | 0108 9011 1e24 | $| 010a a6a0 a3a2 | | 010c 9f11 1d80 | | 010e 0000 0800 | | 0110 0000 1e10 | | 0112 1038 3937 | 897| 0114 b1b2 b23a | :| 0116 b932 9022 | 2 "| 0118 34b9 b836 |4 6| 011a 30bc 9014 |0 | 011c 2bb7 b936 |+ 6| 011e 3210 1010 |2 | 0120 101d 102b | +| 0122 b7b9 3632 | 62| 0124 2fa7 30b6 |/ 0 | 0126 b290 1010 | | 0128 1010 1d1e | | 012a 9011 1e24 | $| 012c a6a0 a3a2 | | 012e 9f11 1d80 | | 0130 0000 3080 | 0 | 0132 0000 10a6 | | 0134 34b7 3590 |4 5 | 0136 1010 1010 | | 0138 1d10 2634 | &4| 013a b735 afa7 | 5 | 013c 30b6 b290 |0 | 013e 1010 1010 | | 0140 101d 1e90 | | 0142 1120 111d | | 0144 8000 0026 | &| 0146 8000 001a | | 0148 9010 | | 0149 1010 1010 | | .BLANK 1010[0x9] 0152 2634 b735 |&4 5| .XXX[0x15] 0154 9010 1010 | | 0156 101d 1026 | &| 0158 34b7 35af |4 5 | 015a a730 b6b2 | 0 | 015c 9010 1010 | | 015e 1010 1d1e | | 0160 9011 2011 | | 0162 1d80 0000 | | 0164 2680 0000 |& | 0166 1a90 | | 0167 1010 1010 | | .BLANK 1010[0x9] 0170 1026 34b7 | &4 | .XXX[0x2a] 0172 3590 1010 |5 | 0174 1010 1d10 | | 0176 2634 b735 |&4 5| 0178 afa7 30b6 | 0 | 017a b290 1010 | | 017c 1010 101d | | 017e 1e90 1120 | | 0180 111d 8000 | | 0182 000b 8000 | | 0184 0010 a9b7 | | 0186 bab9 31b2 | 1 | 0188 9010 101d | | 018a 1029 b7ba | ) | 018c b931 b2af | 1 | 018e a830 ba3a | 0 :| 0190 32b9 3710 |2 7 | 0192 1d1e 9011 | | 0194 1f91 1d80 | | 0196 0000 0180 | | 0198 0000 1a90 | | 019a 1010 1010 | | .BLANK 1010[0x9] 01a3 1029 b7ba | ) | .XXX[0x16] 01a5 b931 b290 | 1 | 01a7 1010 1d10 | | 01a9 29b7 bab9 |) | 01ab 31b2 afa8 |1 | 01ad 30ba 3a32 |0 :2| 01af b937 101d | 7 | 01b1 1e90 111f | | 01b3 911d 8000 | | 01b5 0001 8000 | | 01b7 001a 9010 | | 01b9 1010 1010 | | .BLANK 1010[0x9] 01c2 29b7 bab9 |) | .XXX[0x2d] 01c4 31b2 9010 |1 | 01c6 101d 1029 | )| 01c8 b7ba b931 | 1| 01ca b2af a830 | 0| 01cc ba3a 32b9 | :2 | 01ce 3710 1d1e |7 | 01d0 9011 1f91 | | 01d2 1d80 0000 | | 01d4 2680 0000 |& | 01d6 13a5 b4b7 | | 01d8 3210 1010 |2 | 01da 1010 1d10 | | 01dc 2634 b735 |&4 5| 01de afa5 b4b7 | | 01e0 3210 1010 |2 | 01e2 1010 101d | | 01e4 1e90 2634 | &4| 01e6 b735 b997 | 5 | 01e8 20b7 3c9d | < | 01ea 8000 001c | | 01ec 8000 001d | | 01ee 9010 | | 01ef 1010 1010 | | .BLANK 1010[0x9] 01f8 25b4 b732 |% 2| .XXX[0x8] 01fa 1010 1010 | | 01fc 101d 1026 | &| 01fe 34b7 35af |4 5 |