|
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 0120 | | .CONST 0x0120 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 480f |H | Short_Literal 0xf 0012 00e2 | | Load_Encached Integer_Cache 0013 03f9 | | Declare_Type Discrete,Constrained,Visible 0014 4800 |H | Short_Literal 0x0 0015 481f |H | Short_Literal 0x1f 0016 00e2 | | Load_Encached Integer_Cache 0017 03f9 | | Declare_Type Discrete,Constrained,Visible 0018 4800 |H | Short_Literal 0x0 0019 481f |H | Short_Literal 0x1f 001a 00e2 | | Load_Encached Integer_Cache 001b 03f9 | | Declare_Type Discrete,Constrained,Visible 001c 4800 |H | Short_Literal 0x0 001d 4bff |K | Short_Literal 0x3ff 001e 00e2 | | Load_Encached Integer_Cache 001f 03f9 | | Declare_Type Discrete,Constrained,Visible 0020 4ff8 |O | Short_Literal -0x8 0021 4801 |H | Short_Literal 0x1 0022 00e2 | | Load_Encached Integer_Cache 0023 03f9 | | Declare_Type Discrete,Constrained,Visible 0024 4fff |O | Short_Literal -0x1 0025 4800 |H | Short_Literal 0x0 0026 00e2 | | Load_Encached Integer_Cache 0027 03f9 | | Declare_Type Discrete,Constrained,Visible 0028 4800 |H | Short_Literal 0x0 0029 4804 |H | Short_Literal 0x4 002a 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 002c 03fe | | Declare_Type Discrete,Defined,Visible 002d 00d8 | | Load_Top At_Offset_0 002e 4801 |H | Short_Literal 0x1 002f e20e | | Load 0x1,0xe 0030 4801 |H | Short_Literal 0x1 0031 e212 | | Load 0x1,0x12 0032 4801 |H | Short_Literal 0x1 0033 e213 | | Load 0x1,0x13 0034 4802 |H | Short_Literal 0x2 0035 e20f | | Load 0x1,0xf 0036 e210 | | Load 0x1,0x10 0037 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0039 4805 |H | Short_Literal 0x5 003a 4800 |H | Short_Literal 0x0 003b 4804 |H | Short_Literal 0x4 003c 4800 |H | Short_Literal 0x0 003d 4801 |H | Short_Literal 0x1 003e 031e | | Declare_Type Variant_Record,Defined,Visible 003f 00bf | | Action Accept_Activation 0040 BODY_0008: 0040 00bc | | Action Signal_Activated 0041 00bb | | Action Signal_Completion 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4607 |F | Jump_Case 0x8 004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 004d 7807 |x | Jump 0x55 ; case 0x1 004e 780a |x | Jump 0x59 ; case 0x2 004f 780e |x | Jump 0x5e ; case 0x3 0050 7811 |x | Jump 0x62 ; case 0x4 0051 7812 |x | Jump 0x64 ; case 0x5 0052 7813 |x | Jump 0x66 ; case 0x6 0053 7816 |x | Jump 0x6a ; case 0x7 0054 4302 |C | .XXX[0x1] 0055 00da | | Load_Top At_Offset_2 0056 0091 00f6 | | Action Push_String_Extended_Indexed,0xf6 ; "GP" 0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0059 00db | | Load_Top At_Offset_3 005a 00db | | Load_Top At_Offset_3 005b 00e0 | | Load_Encached Standard_Cache 005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e 00da | | Load_Top At_Offset_2 005f 00e0 | | Load_Encached Standard_Cache 0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0061 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0062 00db | | Load_Top At_Offset_3 0063 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0064 00db | | Load_Top At_Offset_3 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 e20d | | Load 0x1,0xd 0067 00dc | | Load_Top At_Offset_4 0068 0267 | g | Execute Discrete,Predecessor 0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006a e20d | | Load 0x1,0xd 006b 00dc | | Load_Top At_Offset_4 006c 0268 | h | Execute Discrete,Successor 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4607 |F | Jump_Case 0x8 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7807 |x | Jump 0x7d ; case 0x1 0076 780a |x | Jump 0x81 ; case 0x2 0077 780e |x | Jump 0x86 ; case 0x3 0078 7811 |x | Jump 0x8a ; case 0x4 0079 7812 |x | Jump 0x8c ; case 0x5 007a 7813 |x | Jump 0x8e ; case 0x6 007b 7816 |x | Jump 0x92 ; case 0x7 007c 4302 |C | .XXX[0x1] 007d 00da | | Load_Top At_Offset_2 007e 0091 00f9 | | Action Push_String_Extended_Indexed,0xf9 ; "CSA_TOP" 0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0081 00db | | Load_Top At_Offset_3 0082 00db | | Load_Top At_Offset_3 0083 00e0 | | Load_Encached Standard_Cache 0084 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 00da | | Load_Top At_Offset_2 0087 00e0 | | Load_Encached Standard_Cache 0088 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0089 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 008a 00db | | Load_Top At_Offset_3 008b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008c 00db | | Load_Top At_Offset_3 008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 008e e214 | | Load 0x1,0x14 008f 00dc | | Load_Top At_Offset_4 0090 0267 | g | Execute Discrete,Predecessor 0091 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0092 e214 | | Load 0x1,0x14 0093 00dc | | Load_Top At_Offset_4 0094 0268 | h | Execute Discrete,Successor 0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4609 |F | Jump_Case 0xa 009c 7809 |x | Jump 0xa6 ; case 0x0 009d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 009e 781c |x | Jump 0xbb ; case 0x2 009f 781f |x | Jump 0xbf ; case 0x3 00a0 7854 |xT | Jump 0xf5 ; case 0x4 00a1 7853 |xS | Jump 0xf5 ; case 0x5 00a2 7822 |x" | Jump 0xc5 ; case 0x6 00a3 7832 |x2 | Jump 0xd6 ; case 0x7 00a4 7845 |xE | Jump 0xea ; case 0x8 00a5 784b |xK | Jump 0xf1 ; case 0x9 00a6 00da | | Load_Top At_Offset_2 00a7 016c | l | Execute Variant_Record,Is_Constrained 00a8 7009 |p | Jump_Nonzero 0xb2 00a9 00cf | | Action Mark_Auxiliary 00aa 4802 |H | Short_Literal 0x2 00ab e5ff | | Load 0x2,-0x1 00ac 1c08 | | Execute_Immediate Run_Utility,0x8 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af c5ff | | Store 0x2,-0x1 00b0 00ce | | Action Pop_Auxiliary 00b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00b2 00da | | Load_Top At_Offset_2 00b3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00b4 4604 |F | Jump_Case 0x5 00b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00b7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00ba 4302 |C | .XXX[0x1] 00bb 4801 |H | Short_Literal 0x1 00bc 4806 |H | Short_Literal 0x6 00bd 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 00be 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00bf e5fd | | Load 0x2,-0x3 00c0 00db | | Load_Top At_Offset_3 00c1 1c07 | | Execute_Immediate Run_Utility,0x7 00c2 e5fe | | Load 0x2,-0x2 00c3 0306 | | Complete_Type Variant_Record,By_Renaming 00c4 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 00c5 00db | | Load_Top At_Offset_3 00c6 4604 |F | Jump_Case 0x5 00c7 7808 |x | Jump 0xd0 ; case 0x0 00c8 7809 |x | Jump 0xd2 ; case 0x1 00c9 7804 |x | Jump 0xce ; case 0x2 00ca 7809 |x | Jump 0xd4 ; case 0x3 00cb 7800 |x | Jump 0xcc ; case 0x4 00cc 48ff |H | Short_Literal 0xff 00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ce 4801 |H | Short_Literal 0x1 00cf 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d0 4802 |H | Short_Literal 0x2 00d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d2 4803 |H | Short_Literal 0x3 00d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d4 4804 |H | Short_Literal 0x4 00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d6 00db | | Load_Top At_Offset_3 00d7 e5fe | | Load 0x2,-0x2 00d8 4604 |F | Jump_Case 0x5 00d9 7808 |x | Jump 0xe2 ; case 0x0 00da 7809 |x | Jump 0xe4 ; case 0x1 00db 7804 |x | Jump 0xe0 ; case 0x2 00dc 7809 |x | Jump 0xe6 ; case 0x3 00dd 7800 |x | Jump 0xde ; case 0x4 00de 48ff |H | Short_Literal 0xff 00df 7807 |x | Jump 0xe7 00e0 4801 |H | Short_Literal 0x1 00e1 7805 |x | Jump 0xe7 00e2 4802 |H | Short_Literal 0x2 00e3 7803 |x | Jump 0xe7 00e4 4803 |H | Short_Literal 0x3 00e5 7801 |x | Jump 0xe7 00e6 4804 |H | Short_Literal 0x4 00e7 e5ff | | Load 0x2,-0x1 00e8 031b | | Declare_Type Variant_Record,Constrained 00e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ea 00db | | Load_Top At_Offset_3 00eb e5fe | | Load 0x2,-0x2 00ec e5ff | | Load 0x2,-0x1 00ed 1c06 | | Execute_Immediate Run_Utility,0x6 00ee e5ff | | Load 0x2,-0x1 00ef 02fc | | Declare_Variable Variant_Record,With_Constraint 00f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f1 4802 |H | Short_Literal 0x2 00f2 00db | | Load_Top At_Offset_3 00f3 1c07 | | Execute_Immediate Run_Utility,0x7 00f4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f5 0869 | i | Execute_Immediate Raise,0x69 00f6 ; -------------------------------------------------------------------------------------- 00f6 ; STRING TABLE 00f6 ; -------------------------------------------------------------------------------------- 00f6 0012 | | .STRTAB 0x0012->0x00ff ; "GP" 00f7 0012 | | .STRTAB 0x0012->0x0100 ; "CSA" 00f8 0013 | | .STRTAB 0x0013->0x0101 ; "FRAME" 00f9 0016 | | .STRTAB 0x0016->0x0104 ; "CSA_TOP" 00fa 001b | | .STRTAB 0x001b->0x0107 ; "CSA_BOTTOM" 00fb 0023 | # | .STRTAB 0x0023->0x010c ; "GP_VALUE" 00fc 0029 | ) | .STRTAB 0x0029->0x0110 ; "FRAME_RELATIVE" 00fd 0035 | 5 | .STRTAB 0x0035->0x0117 ; "LOOP_COUNTER" 00fe 003f | ? | .STREND 0x003f->0x011d 00ff 4750 4353 |GPCS| .STRTAB_STRINGS 011e 0000 0000 | | .XXX[0x2] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0011 | | .DEBUG4 0x0004,0x0011,0x3491,0x0000,0x0001,0x0000 0126 0000 0000 | | .BLANK 0000[0xda]