|
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_03c0fe
└─⟦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 00e8 | | .CONST 0x00e8 ; 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 0015 | | .CONST 0x0015 ; Address of begin 0009 00bf | | .CONST 0x00bf ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 000d e21c | | Load 0x1,0x1c 000e 0337 | 7 | Declare_Variable Array 000f e004 | | Load 0x0,0x4 0010 0007 | | Action Break_Optional 0011 00e3 | | Load_Encached Natural_Cache 0012 00e3 | | Load_Encached Natural_Cache 0013 00e3 | | Load_Encached Natural_Cache 0014 00e2 | | Load_Encached Integer_Cache 0015 BODY_0008: 0015 4801 |H | Short_Literal 0x1 0016 e5ff | | Load 0x2,-0x1 0017 0092 00d1 | | Action Push_String_Extended,0xd1 ; "." 0019 e011 | | Load 0x0,0x11 001a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 001b a405 | | Store_Unchecked 0x2,0x5 001c 00db | | Load_Top At_Offset_3 001d 686c |hl | Jump_Zero 0x8a 001e 00db | | Load_Top At_Offset_3 001f e5ff | | Load 0x2,-0x1 0020 01dd | | Execute Vector,First 0021 0272 | r | Execute Discrete,Minus 0022 005b | [ | Store_Top Discrete,At_Offset_3 0023 e5ff | | Load 0x2,-0x1 0024 01dc | | Execute Vector,Last 0025 e405 | | Load 0x2,0x5 0026 0272 | r | Execute Discrete,Minus 0027 005a | Z | Store_Top Discrete,At_Offset_2 0028 e226 | & | Load 0x1,0x26 0029 e005 | | Load 0x0,0x5 002a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 002b c226 | & | Store 0x1,0x26 002c 00cf | | Action Mark_Auxiliary 002d e21d | | Load 0x1,0x1d 002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002f e226 | & | Load 0x1,0x26 0030 e21d | | Load 0x1,0x1d 0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0032 c404 | | Store 0x2,0x4 0033 e21d | | Load 0x1,0x1d 0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0035 e226 | & | Load 0x1,0x26 0036 e21d | | Load 0x1,0x1d 0037 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0038 c404 | | Store 0x2,0x4 0039 e403 | | Load 0x2,0x3 003a e226 | & | Load 0x1,0x26 003b e21e | | Load 0x1,0x1e 003c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003d 00d1 | | Pop_Control Pop_Count_1 003e e21f | | Load 0x1,0x1f 003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0040 e226 | & | Load 0x1,0x26 0041 e21f | | Load 0x1,0x1f 0042 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0043 c402 | | Store 0x2,0x2 0044 4801 |H | Short_Literal 0x1 0045 e5ff | | Load 0x2,-0x1 0046 01dd | | Execute Vector,First 0047 e405 | | Load 0x2,0x5 0048 0aff | | Execute_Immediate Plus,-0x1 0049 e5ff | | Load 0x2,-0x1 004a 01cf | | Execute Vector,Slice_Read 004b 4801 |H | Short_Literal 0x1 004c e406 | | Load 0x2,0x6 004d e403 | | Load 0x2,0x3 004e 01cf | | Execute Vector,Slice_Read 004f e011 | | Load 0x0,0x11 0050 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0051 6805 |h | Jump_Zero 0x57 0052 00db | | Load_Top At_Offset_3 0053 0a01 | | Execute_Immediate Plus,0x1 0054 e403 | | Load 0x2,0x3 0055 01d7 | | Execute Vector,Field_Read 0056 6802 |h | Jump_Zero 0x59 0057 00c9 | | Action Pop_Auxiliary_Loop 0058 7fd4 | | Jump 0x2d 0059 00ce | | Action Pop_Auxiliary 005a e402 | | Load 0x2,0x2 005b 00d8 | | Load_Top At_Offset_0 005c e221 | ! | Load 0x1,0x21 005d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005e 0260 | ` | Execute Discrete,In_Type 005f 7001 |p | Jump_Nonzero 0x61 0060 0801 | | Execute_Immediate Raise,0x1 0061 e227 | ' | Load 0x1,0x27 0062 e221 | ! | Load 0x1,0x21 0063 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0064 00cf | | Action Mark_Auxiliary 0065 e403 | | Load 0x2,0x3 0066 e227 | ' | Load 0x1,0x27 0067 e221 | ! | Load 0x1,0x21 0068 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0069 00d1 | | Pop_Control Pop_Count_1 006a 4801 |H | Short_Literal 0x1 006b e405 | | Load 0x2,0x5 006c 0a01 | | Execute_Immediate Plus,0x1 006d 00d8 | | Load_Top At_Offset_0 006e 00e2 | | Load_Encached Integer_Cache 006f 0260 | ` | Execute Discrete,In_Type 0070 7001 |p | Jump_Nonzero 0x72 0071 0801 | | Execute_Immediate Raise,0x1 0072 e5ff | | Load 0x2,-0x1 0073 01dc | | Execute Vector,Last 0074 e5ff | | Load 0x2,-0x1 0075 01cf | | Execute Vector,Slice_Read 0076 4801 |H | Short_Literal 0x1 0077 e407 | | Load 0x2,0x7 0078 e403 | | Load 0x2,0x3 0079 01cf | | Execute Vector,Slice_Read 007a e011 | | Load 0x0,0x11 007b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007c 6806 |h | Jump_Zero 0x83 007d 00da | | Load_Top At_Offset_2 007e 0a01 | | Execute_Immediate Plus,0x1 007f e403 | | Load 0x2,0x3 0080 01d7 | | Execute Vector,Field_Read 0081 7001 |p | Jump_Nonzero 0x83 0082 7805 |x | Jump 0x88 0083 e402 | | Load 0x2,0x2 0084 0a01 | | Execute_Immediate Plus,0x1 0085 c402 | | Store 0x2,0x2 0086 00c9 | | Action Pop_Auxiliary_Loop 0087 7fdd | | Jump 0x65 0088 00ce | | Action Pop_Auxiliary 0089 7826 |x& | Jump 0xb0 008a e5ff | | Load 0x2,-0x1 008b 01dc | | Execute Vector,Last 008c e5ff | | Load 0x2,-0x1 008d 01dd | | Execute Vector,First 008e 0272 | r | Execute Discrete,Minus 008f 0a01 | | Execute_Immediate Plus,0x1 0090 005a | Z | Store_Top Discrete,At_Offset_2 0091 e227 | ' | Load 0x1,0x27 0092 e221 | ! | Load 0x1,0x21 0093 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0094 c227 | ' | Store 0x1,0x27 0095 00cf | | Action Mark_Auxiliary 0096 e403 | | Load 0x2,0x3 0097 e227 | ' | Load 0x1,0x27 0098 e221 | ! | Load 0x1,0x21 0099 181f | | Execute Package,Field_Execute,Field_Number 0x1f 009a 00d1 | | Pop_Control Pop_Count_1 009b 4801 |H | Short_Literal 0x1 009c e5ff | | Load 0x2,-0x1 009d 4801 |H | Short_Literal 0x1 009e e407 | | Load 0x2,0x7 009f e403 | | Load 0x2,0x3 00a0 01cf | | Execute Vector,Slice_Read 00a1 e011 | | Load 0x0,0x11 00a2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a3 6806 |h | Jump_Zero 0xaa 00a4 00da | | Load_Top At_Offset_2 00a5 0a01 | | Execute_Immediate Plus,0x1 00a6 e403 | | Load 0x2,0x3 00a7 01d7 | | Execute Vector,Field_Read 00a8 7001 |p | Jump_Nonzero 0xaa 00a9 7805 |x | Jump 0xaf 00aa e402 | | Load 0x2,0x2 00ab 0a01 | | Execute_Immediate Plus,0x1 00ac c402 | | Store 0x2,0x2 00ad 00c9 | | Action Pop_Auxiliary_Loop 00ae 7fe7 | | Jump 0x96 00af 00ce | | Action Pop_Auxiliary 00b0 e220 | | Load 0x1,0x20 00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b2 e402 | | Load 0x2,0x2 00b3 00d8 | | Load_Top At_Offset_0 00b4 e220 | | Load 0x1,0x20 00b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b6 0260 | ` | Execute Discrete,In_Type 00b7 7001 |p | Jump_Nonzero 0xb9 00b8 0801 | | Execute_Immediate Raise,0x1 00b9 e228 | ( | Load 0x1,0x28 00ba e220 | | Load 0x1,0x20 00bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00bc c404 | | Store 0x2,0x4 00bd e404 | | Load 0x2,0x4 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf TRAP_0008: 00bf 00d8 | | Load_Top At_Offset_0 00c0 0107 | | Execute Exception,Get_Name 00c1 4950 |IP | Short_Literal 0x150 00c2 495f |I_ | Short_Literal 0x15f 00c3 0262 | b | Execute Discrete,In_Range 00c4 680b |h | Jump_Zero 0xd0 00c5 0092 00d2 | | Action Push_String_Extended,0xd2 ; "Label " 00c7 e5ff | | Load 0x2,-0x1 00c8 01cc | | Execute Vector,Catenate 00c9 0092 00d3 | | Action Push_String_Extended,0xd3 ; " not found " 00cb 01cc | | Execute Vector,Catenate 00cc e012 | | Load 0x0,0x12 00cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ce 4800 |H | Short_Literal 0x0 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 0100 | | Execute Exception,Raise 00d1 ; -------------------------------------------------------------------------------------- 00d1 ; STRING TABLE 00d1 ; -------------------------------------------------------------------------------------- 00d1 0008 | | .STRTAB 0x0008->0x00d5 ; "." 00d2 0007 | | .STRTAB 0x0007->0x00d5 ; "Label " 00d3 000b | | .STRTAB 0x000b->0x00d8 ; " not found " 00d4 001b | | .STREND 0x001b->0x00e1 00d5 2e4c 6162 |.Lab| .STRTAB_STRINGS 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf1f8,0x0000,0x0001,0x0000 00ee 0000 0000 | | .BLANK 0000[0x112]