|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_042c77
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0068 | h | .CONST 0x0068 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 000e | | .CONST 0x000e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0003 | | .CONST 0x0003 ; Number of locals 000b INIT_0008: 000b e213 | | Load 0x1,0x13 000c 0701 | | Execute_Immediate Set_Value,0x1 000d 03e9 | | Declare_Variable Discrete,Duplicate 000e BODY_0008: 000e 0092 0049 | I| Action Push_String_Extended,0x49 ; "Service_Toolbox.Add_Service" 0010 e003 | | Load 0x0,0x3 0011 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0012 00cf | | Action Mark_Auxiliary 0013 e213 | | Load 0x1,0x13 0014 0269 | i | Execute Discrete,Last 0015 4801 |H | Short_Literal 0x1 0016 0263 | c | Execute Discrete,Above_Bound 0017 700b |p | Jump_Nonzero 0x23 0018 00d8 | | Load_Top At_Offset_0 0019 a403 | | Store_Unchecked 0x2,0x3 001a 00d8 | | Load_Top At_Offset_0 001b e215 | | Load 0x1,0x15 001c 01d5 | | Execute Vector,Field_Reference 001d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 001e 7002 |p | Jump_Nonzero 0x21 001f 00d2 | | Pop_Control Pop_Count_2 0020 7802 |x | Jump 0x23 0021 00c8 | | Action Pop_Auxiliary_Range 0022 3ff5 |? | Loop_Increasing 0x18 0023 00ce | | Action Pop_Auxiliary 0024 00d8 | | Load_Top At_Offset_0 0025 e215 | | Load 0x1,0x15 0026 01d5 | | Execute Vector,Field_Reference 0027 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0028 701a |p | Jump_Nonzero 0x43 0029 0092 0049 | I| Action Push_String_Extended,0x49 ; "Service_Toolbox.Add_Service" 002b e003 | | Load 0x0,0x3 002c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 002d e5ff | | Load 0x2,-0x1 002e 00d9 | | Load_Top At_Offset_1 002f e215 | | Load 0x1,0x15 0030 01d5 | | Execute Vector,Field_Reference 0031 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0032 e5fe | | Load 0x2,-0x2 0033 00d9 | | Load_Top At_Offset_1 0034 e215 | | Load 0x1,0x15 0035 01d5 | | Execute Vector,Field_Reference 0036 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0037 e5fd | | Load 0x2,-0x3 0038 00d9 | | Load_Top At_Offset_1 0039 e215 | | Load 0x1,0x15 003a 01d5 | | Execute Vector,Field_Reference 003b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 003c 4801 |H | Short_Literal 0x1 003d 00d9 | | Load_Top At_Offset_1 003e e215 | | Load 0x1,0x15 003f 01d5 | | Execute Vector,Field_Reference 0040 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0041 4801 |H | Short_Literal 0x1 0042 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0043 4800 |H | Short_Literal 0x0 0044 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0045 004a e003 | J | .XXX[0x4] 0047 184f 0831 | O 1| 0049 ; -------------------------------------------------------------------------------------- 0049 ; STRING TABLE 0049 ; -------------------------------------------------------------------------------------- 0049 0006 | | .STRTAB 0x0006->0x004c ; "Service_Toolbox.Add_Service" 004a 001f | | .STRTAB 0x001f->0x0059 ; "Service Ajoute." 004b 002c | , | .STREND 0x002c->0x0061 004c 5365 7276 |Serv| .STRTAB_STRINGS 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 0009 | | .DEBUG4 0x0004,0x0009,0xfae3,0x0000,0x0001,0x0001 006e 000b 0072 | r| .DBG4T 0x000b,0x0072,0x1002,0x0000 0072 ; -------------------------------------------------------------------------------------- 0072 ; Debug chain 0072 ; -------------------------------------------------------------------------------------- 0072 0001 000c | | .DBGLEN 0x0001,0x000c 0074 000b 000e | | .DBGLNO 0x000b,0x000e,0x0013,0x0018,0x001a,0x0024,0x0029,0x002d,0x0032,0x0037,0x003c,0x0041,0x0043 0081 0000 0000 | | .BLANK 0000[0x17f]