|
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_06e8fd
└─⟦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 0000 0000 | | .BLANK 0000[0x1c] 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]