|
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_03bcfe
└─⟦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 4000 | @ | .XXX[0x1f]
0128 64e6 8180 |d |
012a 0000 4000 | @ |
012c 0203 0824 | $|
012e 6008 8000 |` |
0130 0000 0000 | |
0132 1939 a060 | 9 `|
0134 0000 1007 | |
0136 da23 9a6c | # l|
0138 ef40 0000 | @ |
013a a000 0000 | |
013c 9000 01ba | |
013e c000 0000 | |
0140 2000 0000 | |
0142 4000 80c2 |@ |
0144 0918 | |
0145 0000 0000 | | .BLANK 0000[0x7]
014c 01f6 88e6 | | .XXX[0x25]
014e 9b3b d000 | ; |
0150 0028 0000 | ( |
0152 0024 0000 | $ |
0154 6eb0 0000 |n |
0156 0008 0000 | |
0158 0010 0000 | |
015a 0018 0000 | |
015c bbd8 00d3 | |
015e 88f0 00d3 | |
0160 83e8 00d3 | |
0162 d4e8 0069 | i|
0164 d9c4 0000 | |
0166 71e4 1f68 |q h|
0168 634e 1def |cN |
016a 4000 0050 |@ P|
016c 5610 9f3e |V >|
016e 9920 0002 | |
0170 4400 |D |
0171 0000 0000 | | .BLANK 0000[0x4]
0175 ef7e 8000 | ~ | .XXX[0xa]
0177 0000 4000 | @ |
0179 ef80 8000 | |
017b 0000 4000 | @ |
017d 0200 8800 | |
017f 0000 0000 | | .BLANK 0000[0x4]
0183 3be0 2000 |; | .XXX[0x12]
0185 0000 1007 | |
0187 da24 0ac3 | $ |
0189 22f0 0000 |" |
018b a000 0000 | |
018d 9000 000b | |
018f c000 0000 | |
0191 2000 0000 | |
0193 4008 8000 |@ |
0195 0000 0000 | | .BLANK 0000[0x8]
019d 01f6 8902 | | .XXX[0x13]
019f b0c8 bc00 | |
01a1 0028 0000 | ( |
01a3 0024 0000 | $ |
01a5 02f0 0000 | |
01a7 0008 0000 | |
01a9 0010 0000 | |
01ab 0018 0000 | |
01ad db60 00d3 | ` |
01af b170 | p |
01b0 0000 0000 | | .BLANK 0000[0x4]
01b4 0069 ee04 | i | .XXX[0xe]
01b6 0000 7961 | ya|
01b8 2016 ddca | |
01ba 4000 0000 |@ |
01bc 0050 316f | P1o|
01be 3f8a f400 |? |
01c0 0000 8000 | |
01c2 0000 0000 | | .BLANK 0000[0x4]
01c6 7bfa 8080 |{ | .XXX[0x21]
01c8 0000 4000 | @ |
01ca 7bfe 8080 |{ |
01cc 0000 4000 | @ |
01ce 0203 0824 | $|
01d0 6008 8000 |` |
01d2 0000 0000 | |
01d4 1eff a020 | |
01d6 0000 1008 | |
01d8 05b7 7290 | r |
01da 0000 0000 | |
01dc 1000 0000 | |
01de 9000 040b | |
01e0 2000 0000 | |
01e2 2000 0000 | |
01e4 4000 80c2 |@ |
01e6 0918 | |
01e7 0000 0000 | | .BLANK 0000[0x7]
01ee 0201 6ddc | m | .XXX[0x12]
01f0 a400 0000 | |
01f2 0004 0000 | |
01f4 0024 0001 | $ |
01f6 02c8 0000 | |
01f8 0008 0000 | |
01fa 0010 0000 | |
01fc 0018 0001 | |
01fe b818 00d3 | |