|
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_03b8fe
└─⟦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 0118 | | .CONST 0x0118 ; 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 0044 | D | .CONST 0x0044 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0006 | | .CONST 0x0006 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 001d 4800 |H | Short_Literal 0x0 001e e402 | | Load 0x2,0x2 001f 0092 00f1 | | Action Push_String_Extended,0xf1 ; "[" 0021 e002 | | Load 0x0,0x2 0022 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0023 00e3 | | Load_Encached Natural_Cache 0024 03f1 | | Declare_Variable Discrete,With_Value 0025 4800 |H | Short_Literal 0x0 0026 e402 | | Load 0x2,0x2 0027 0092 00f2 | | Action Push_String_Extended,0xf2 ; "]" 0029 e002 | | Load 0x0,0x2 002a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 002b 00e3 | | Load_Encached Natural_Cache 002c 03f1 | | Declare_Variable Discrete,With_Value 002d 4800 |H | Short_Literal 0x0 002e 4800 |H | Short_Literal 0x0 002f e403 | | Load 0x2,0x3 0030 e404 | | Load 0x2,0x4 0031 e402 | | Load 0x2,0x2 0032 01cf | | Execute Vector,Slice_Read 0033 0092 00f3 | | Action Push_String_Extended,0xf3 ; "," 0035 e002 | | Load 0x0,0x2 0036 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0037 0a01 | | Execute_Immediate Plus,0x1 0038 0248 | H | Execute Discrete,Check_In_Integer 0039 e404 | | Load 0x2,0x4 003a e402 | | Load 0x2,0x2 003b 01cf | | Execute Vector,Slice_Read 003c 0092 00f3 | | Action Push_String_Extended,0xf3 ; "," 003e e002 | | Load 0x0,0x2 003f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0040 00e3 | | Load_Encached Natural_Cache 0041 03f1 | | Declare_Variable Discrete,With_Value 0042 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0044 BODY_0018: 0044 0092 00f4 | | Action Push_String_Extended,0xf4 ; "State: " 0046 4801 |H | Short_Literal 0x1 0047 e403 | | Load 0x2,0x3 0048 0aff | | Execute_Immediate Plus,-0x1 0049 e402 | | Load 0x2,0x2 004a 01cf | | Execute Vector,Slice_Read 004b 01cc | | Execute Vector,Catenate 004c e003 | | Load 0x0,0x3 004d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 004e 0092 00f5 | | Action Push_String_Extended,0xf5 ; "Params: " 0050 e403 | | Load 0x2,0x3 0051 0a01 | | Execute_Immediate Plus,0x1 0052 0248 | H | Execute Discrete,Check_In_Integer 0053 e405 | | Load 0x2,0x5 0054 e402 | | Load 0x2,0x2 0055 01cf | | Execute Vector,Slice_Read 0056 01cc | | Execute Vector,Catenate 0057 e003 | | Load 0x0,0x3 0058 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0059 0092 00f6 | | Action Push_String_Extended,0xf6 ; " " 005b e405 | | Load 0x2,0x5 005c 0a02 | | Execute_Immediate Plus,0x2 005d 0248 | H | Execute Discrete,Check_In_Integer 005e e404 | | Load 0x2,0x4 005f 0aff | | Execute_Immediate Plus,-0x1 0060 e402 | | Load 0x2,0x2 0061 01cf | | Execute Vector,Slice_Read 0062 01cc | | Execute Vector,Catenate 0063 e003 | | Load 0x0,0x3 0064 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0065 e404 | | Load 0x2,0x4 0066 0a01 | | Execute_Immediate Plus,0x1 0067 e402 | | Load 0x2,0x2 0068 01dc | | Execute Vector,Last 0069 027a | z | Execute Discrete,Less_Equal 006a 680c |h | Jump_Zero 0x77 006b 4840 |H@ | Short_Literal 0x40 006c e404 | | Load 0x2,0x4 006d 0a02 | | Execute_Immediate Plus,0x2 006e 0248 | H | Execute Discrete,Check_In_Integer 006f e402 | | Load 0x2,0x2 0070 01dc | | Execute Vector,Last 0071 e402 | | Load 0x2,0x2 0072 01cf | | Execute Vector,Slice_Read 0073 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Clients: " 0075 8406 | | Call 0x2,0x6 0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0077 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Clients: none" 0079 e003 | | Load 0x0,0x3 007a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 007b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0090 | | .CONST 0x0090 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 4801 |H | Short_Literal 0x1 0084 e7ff | | Load 0x3,-0x1 0085 01db | | Execute Vector,Length 0086 00e9 | | Load_Encached String_Cache 0087 0334 | 4 | Declare_Variable Array,With_Constraint 0088 e7ff | | Load 0x3,-0x1 0089 e602 | | Load 0x3,0x2 008a 01d4 | | Execute Vector,Structure_Write 008b e7fe | | Load 0x3,-0x2 008c 01dd | | Execute Vector,First 008d 00e4 | | Load_Encached Positive_Cache 008e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 008f 00e4 | | Load_Encached Positive_Cache 0090 BODY_0080: 0090 00cf | | Action Mark_Auxiliary 0091 7848 |xH | Jump 0xda 0092 e603 | | Load 0x3,0x3 0093 e7fd | | Load 0x3,-0x3 0094 0273 | s | Execute Discrete,Plus 0095 c604 | | Store 0x3,0x4 0096 00cf | | Action Mark_Auxiliary 0097 7818 |x | Jump 0xb0 0098 e604 | | Load 0x3,0x4 0099 e7fe | | Load 0x3,-0x2 009a 01d7 | | Execute Vector,Field_Read 009b 0f20 | | Execute_Immediate Equal,0x20 009c 7017 |p | Jump_Nonzero 0xb4 009d e604 | | Load 0x3,0x4 009e e7fe | | Load 0x3,-0x2 009f 01d7 | | Execute Vector,Field_Read 00a0 0f2c | , | Execute_Immediate Equal,0x2c 00a1 7012 |p | Jump_Nonzero 0xb4 00a2 e604 | | Load 0x3,0x4 00a3 e7fe | | Load 0x3,-0x2 00a4 01d7 | | Execute Vector,Field_Read 00a5 0f2e | . | Execute_Immediate Equal,0x2e 00a6 700d |p | Jump_Nonzero 0xb4 00a7 e604 | | Load 0x3,0x4 00a8 e7fe | | Load 0x3,-0x2 00a9 01d7 | | Execute Vector,Field_Read 00aa 0f0a | | Execute_Immediate Equal,0xa 00ab 7008 |p | Jump_Nonzero 0xb4 00ac e604 | | Load 0x3,0x4 00ad 0aff | | Execute_Immediate Plus,-0x1 00ae c604 | | Store 0x3,0x4 00af 00c9 | | Action Pop_Auxiliary_Loop 00b0 e604 | | Load 0x3,0x4 00b1 e603 | | Load 0x3,0x3 00b2 027d | } | Execute Discrete,Greater 00b3 77e4 |w | Jump_Nonzero 0x98 00b4 00ce | | Action Pop_Auxiliary 00b5 e604 | | Load 0x3,0x4 00b6 e603 | | Load 0x3,0x3 00b7 027a | z | Execute Discrete,Less_Equal 00b8 6805 |h | Jump_Zero 0xbe 00b9 e603 | | Load 0x3,0x3 00ba e7fd | | Load 0x3,-0x3 00bb 0273 | s | Execute Discrete,Plus 00bc 0aff | | Execute_Immediate Plus,-0x1 00bd c604 | | Store 0x3,0x4 00be e602 | | Load 0x3,0x2 00bf e603 | | Load 0x3,0x3 00c0 e604 | | Load 0x3,0x4 00c1 e7fe | | Load 0x3,-0x2 00c2 01cf | | Execute Vector,Slice_Read 00c3 01cc | | Execute Vector,Catenate 00c4 e003 | | Load 0x0,0x3 00c5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00c6 e602 | | Load 0x3,0x2 00c7 00d8 | | Load_Top At_Offset_0 00c8 0335 | 5 | Declare_Variable Array,Duplicate 00c9 00cd | | Action Spare6_Action 00ca e606 | | Load 0x3,0x6 00cb 01d9 | | Execute Vector,Reverse_Bounds 00cc 0263 | c | Execute Discrete,Above_Bound 00cd 7005 |p | Jump_Nonzero 0xd3 00ce 4820 |H | Short_Literal 0x20 00cf e609 | | Load 0x3,0x9 00d0 e607 | | Load 0x3,0x7 00d1 01d6 | | Execute Vector,Field_Write 00d2 3ffb |? | Loop_Increasing 0xce 00d3 00cd | | Action Spare6_Action 00d4 e602 | | Load 0x3,0x2 00d5 01d4 | | Execute Vector,Structure_Write 00d6 e604 | | Load 0x3,0x4 00d7 0a01 | | Execute_Immediate Plus,0x1 00d8 c603 | | Store 0x3,0x3 00d9 00c9 | | Action Pop_Auxiliary_Loop 00da e7fe | | Load 0x3,-0x2 00db 01dc | | Execute Vector,Last 00dc e603 | | Load 0x3,0x3 00dd 0272 | r | Execute Discrete,Minus 00de e7fd | | Load 0x3,-0x3 00df 027d | } | Execute Discrete,Greater 00e0 77b1 |w | Jump_Nonzero 0x92 00e1 00ce | | Action Pop_Auxiliary 00e2 e603 | | Load 0x3,0x3 00e3 e7fe | | Load 0x3,-0x2 00e4 01dc | | Execute Vector,Last 00e5 027a | z | Execute Discrete,Less_Equal 00e6 6809 |h | Jump_Zero 0xf0 00e7 e602 | | Load 0x3,0x2 00e8 e603 | | Load 0x3,0x3 00e9 e7fe | | Load 0x3,-0x2 00ea 01dc | | Execute Vector,Last 00eb e7fe | | Load 0x3,-0x2 00ec 01cf | | Execute Vector,Slice_Read 00ed 01cc | | Execute Vector,Catenate 00ee e003 | | Load 0x0,0x3 00ef 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f1 ; -------------------------------------------------------------------------------------- 00f1 ; STRING TABLE 00f1 ; -------------------------------------------------------------------------------------- 00f1 0012 | | .STRTAB 0x0012->0x00fa ; "[" 00f2 0011 | | .STRTAB 0x0011->0x00fa ; "]" 00f3 0010 | | .STRTAB 0x0010->0x00fb ; "," 00f4 000f | | .STRTAB 0x000f->0x00fb ; "State: " 00f5 0016 | | .STRTAB 0x0016->0x0100 ; "Params: " 00f6 001d | | .STRTAB 0x001d->0x0104 ; " " 00f7 0024 | $ | .STRTAB 0x0024->0x0109 ; "Clients: " 00f8 002b | + | .STRTAB 0x002b->0x010d ; "Clients: none" 00f9 0036 | 6 | .STREND 0x0036->0x0114 00fa 5b5d 2c53 |[],S| .STRTAB_STRINGS 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb64,0x0000,0x0001,0x0000 011e b936 b2b2 | 6 | .XXX[0xe2] 0120 103b b4ba | ; | 0122 3410 3232 |4 22| 0124 bb34 b1b2 | 4 | 0126 9037 30b6 | 70 | 0128 b290 3337 | 37| 012a b900 0000 | | 012c 0080 0000 | | 012e 2590 1010 |% | 0130 1029 b832 | ) 2| 0132 b1b4 b334 | 4| 0134 b2b9 903a | :| 0136 3430 ba10 |40 | 0138 3090 2a32 |0 *2| 013a b637 32ba | 72 | 013c 1031 b7b7 | 1 | 013e 3732 b1ba |72 | 0140 34b7 b710 |4 | 0142 34b9 903a |4 :| 0144 3790 3132 |7 12| 0146 9033 37b9 | 37 | 0148 36b2 b210 |6 | 014a 3bb4 ba34 |; 4| 014c 1032 32bb | 22 | 014e 34b1 b290 |4 | 0150 3730 b6b2 |70 | 0152 9033 37b9 | 37 | 0154 0000 0000 | | 0156 8000 0025 | %| 0158 9010 1010 | | 015a 29b8 32b1 |) 2 | 015c b4b3 34b2 | 4 | 015e b990 3a34 | :4| 0160 30ba 1030 |0 0| 0162 902a 32b6 | *2 | 0164 3732 ba10 |72 | 0166 31b7 b737 |1 7| 0168 32b1 ba34 |2 4| 016a b7b7 1034 | 4| 016c b990 3a37 | :7| 016e 9031 3290 | 12 | 0170 3337 b936 |37 6| 0172 b2b2 103b | ;| 0174 b4ba 3410 | 4 | 0176 3232 bb34 |22 4| 0178 b1b2 9037 | 7| 017a 30b6 b290 |0 | 017c 3337 b900 |37 | 017e 0000 2880 | ( | 0180 0000 1eb2 | | 0182 b0b1 b410 | | 0184 3839 34b7 |894 | 0186 3a10 3932 |: 92| 0188 b8ba b2b9 | | 018a ba17 102a | *| 018c 3434 b990 |44 | 018e 31b7 b737 |1 7| 0190 32b1 ba34 |2 4| 0192 b7b7 1034 | 4| 0194 30b9 9039 |0 9| 0196 ba30 b732 | 0 2| 0198 30b9 3210 |0 2 | 019a 3336 37bb |367 | 019c 9031 b7b7 | 1 | 019e 3a39 37b6 |:97 | 01a0 0000 0026 | &| 01a2 8000 0020 | | 01a4 9010 1010 | | 01a6 32b0 b1b4 |2 | 01a8 1038 3934 | 894| 01aa b73a 1039 | : 9| 01ac 32b8 bab2 |2 | 01ae b9ba 1710 | | 01b0 2a34 34b9 |*44 | 01b2 9031 b7b7 | 1 | 01b4 3732 b1ba |72 | 01b6 34b7 b710 |4 | 01b8 3430 b990 |40 | 01ba 39ba 30b7 |9 0 | 01bc 3230 b932 |20 2| 01be 1033 3637 | 367| 01c0 bb90 31b7 | 1 | 01c2 b73a 3937 | :97| 01c4 b600 0000 | | 01c6 2680 0000 |& | 01c8 2090 1010 | | 01ca 1032 b0b1 | 2 | 01cc b410 3839 | 89| 01ce 34b7 3a10 |4 : | 01d0 3932 b8ba |92 | 01d2 b2b9 ba17 | | 01d4 102a 3434 | *44| 01d6 b990 31b7 | 1 | 01d8 b737 32b1 | 72 | 01da ba34 b7b7 | 4 | 01dc 1034 30b9 | 40 | 01de 9039 ba30 | 9 0| 01e0 b732 30b9 | 20 | 01e2 3210 3336 |2 36| 01e4 37bb 9031 |7 1| 01e6 b7b7 3a39 | :9| 01e8 37b6 0000 |7 | 01ea 0009 8000 | | 01ec 0022 942c | " ,| 01ee 27a7 2fac |' / | 01f0 27a3 2314 |' # | 01f2 9030 b732 | 0 2| 01f4 1034 b990 | 4 | 01f6 3139 37b5 |197 | 01f8 b2b7 1030 | 0| 01fa b33a 32b9 | :2 | 01fc 103a 3432 | :42| 01fe 9039 32b8 | 92 |