|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0308 | | .CONST 0x0308 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005f | _ | .CONST 0x005f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4808 |H | Short_Literal 0x8
000d 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00d8 | | Load_Top At_Offset_0
0011 0266 | f | Execute Discrete,Bounds
0012 00e1 | | Load_Encached Boolean_Cache
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 4801 |H | Short_Literal 0x1
0015 035e | ^ | Declare_Type Array,Defined,Visible
0016 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0018 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001a 4800 |H | Short_Literal 0x0
001b 4800 |H | Short_Literal 0x0
001c 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
001e 03fe | | Declare_Type Discrete,Defined,Visible
001f 4800 |H | Short_Literal 0x0
0020 4812 |H | Short_Literal 0x12
0021 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0023 03fe | | Declare_Type Discrete,Defined,Visible
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 4800 |H | Short_Literal 0x0
002b 4802 |H | Short_Literal 0x2
002c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
002e 03fe | | Declare_Type Discrete,Defined,Visible
002f c218 | | Store 0x1,0x18
0030 4800 |H | Short_Literal 0x0
0031 4803 |H | Short_Literal 0x3
0032 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
0034 03fe | | Declare_Type Discrete,Defined,Visible
0035 c214 | | Store 0x1,0x14
0036 4800 |H | Short_Literal 0x0
0037 4802 |H | Short_Literal 0x2
0038 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
003a 03fe | | Declare_Type Discrete,Defined,Visible
003b c215 | | Store 0x1,0x15
003c 4800 |H | Short_Literal 0x0
003d 4801 |H | Short_Literal 0x1
003e 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0040 03fe | | Declare_Type Discrete,Defined,Visible
0041 c216 | | Store 0x1,0x16
0042 4800 |H | Short_Literal 0x0
0043 4805 |H | Short_Literal 0x5
0044 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0046 03fe | | Declare_Type Discrete,Defined,Visible
0047 c217 | | Store 0x1,0x17
0048 00bf | | Action Accept_Activation
0049 4800 |H | Short_Literal 0x0
004a 4801 |H | Short_Literal 0x1
004b 4801 |H | Short_Literal 0x1
004c 604b |`K | Indirect_Literal Discrete,0x98,{0x00000000, 0x0000076d}
004d e001 | | Load 0x0,0x1
004e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
004f e001 | | Load 0x0,0x1
0050 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0051 011e | | Execute Any,Convert
0052 6041 |`A | Indirect_Literal Discrete,0x94,{0x00000000, 0xa8bf8000}
0053 481f |H | Short_Literal 0x1f
0054 480c |H | Short_Literal 0xc
0055 603a |`: | Indirect_Literal Discrete,0x90,{0x00000000, 0x00000833}
0056 e001 | | Load 0x0,0x1
0057 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0058 e001 | | Load 0x0,0x1
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a 011e | | Execute Any,Convert
005b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005c 00c7 | | Action Elaborate_Subprogram
005d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005e 00c7 | | Action Elaborate_Subprogram
005f BODY_0008:
005f 00bc | | Action Signal_Activated
0060 00bb | | Action Signal_Completion
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4607 |F | Jump_Case 0x8
006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
006d 7806 |x | Jump 0x74 ; case 0x1
006e 7809 |x | Jump 0x78 ; case 0x2
006f 780d |x | Jump 0x7d ; case 0x3
0070 7810 |x | Jump 0x81 ; case 0x4
0071 7811 |x | Jump 0x83 ; case 0x5
0072 7812 |x | Jump 0x85 ; case 0x6
0073 7815 |x | Jump 0x89 ; case 0x7
0074 00da | | Load_Top At_Offset_2
0075 0091 01c5 | | Action Push_String_Extended_Indexed,0x1c5 ; "GENERICS_SHARE_CODE"
0077 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0078 00db | | Load_Top At_Offset_3
0079 00db | | Load_Top At_Offset_3
007a 00e0 | | Load_Encached Standard_Cache
007b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007d 00da | | Load_Top At_Offset_2
007e 00e0 | | Load_Encached Standard_Cache
007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0081 00db | | Load_Top At_Offset_3
0082 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0083 00db | | Load_Top At_Offset_3
0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0085 e20d | | Load 0x1,0xd
0086 00dc | | Load_Top At_Offset_4
0087 0267 | g | Execute Discrete,Predecessor
0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0089 e20d | | Load 0x1,0xd
008a 00dc | | Load_Top At_Offset_4
008b 0268 | h | Execute Discrete,Successor
008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 0000 0000 | | .LITERAL {0x00000000, 0x00000833}
0094 0000 0000 | | .LITERAL {0x00000000, 0xa8bf8000}
0098 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e219 | | Load 0x1,0x19
00a4 00ca | | Action Exit_Nullary_Function
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e21a | | Load 0x1,0x1a
00ac 00ca | | Action Exit_Nullary_Function
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4607 |F | Jump_Case 0x8
00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00b5 7806 |x | Jump 0xbc ; case 0x1
00b6 7809 |x | Jump 0xc0 ; case 0x2
00b7 780d |x | Jump 0xc5 ; case 0x3
00b8 7810 |x | Jump 0xc9 ; case 0x4
00b9 7811 |x | Jump 0xcb ; case 0x5
00ba 7812 |x | Jump 0xcd ; case 0x6
00bb 7815 |x | Jump 0xd1 ; case 0x7
00bc 00da | | Load_Top At_Offset_2
00bd 0091 01ce | | Action Push_String_Extended_Indexed,0x1ce ; "ONE"
00bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c0 00db | | Load_Top At_Offset_3
00c1 00db | | Load_Top At_Offset_3
00c2 00e0 | | Load_Encached Standard_Cache
00c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c5 00da | | Load_Top At_Offset_2
00c6 00e0 | | Load_Encached Standard_Cache
00c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c9 00db | | Load_Top At_Offset_3
00ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cb 00db | | Load_Top At_Offset_3
00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cd e211 | | Load 0x1,0x11
00ce 00dc | | Load_Top At_Offset_4
00cf 0267 | g | Execute Discrete,Predecessor
00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d1 e211 | | Load 0x1,0x11
00d2 00dc | | Load_Top At_Offset_4
00d3 0268 | h | Execute Discrete,Successor
00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4607 |F | Jump_Case 0x8
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7806 |x | Jump 0xe4 ; case 0x1
00de 7809 |x | Jump 0xe8 ; case 0x2
00df 780d |x | Jump 0xed ; case 0x3
00e0 7810 |x | Jump 0xf1 ; case 0x4
00e1 7811 |x | Jump 0xf3 ; case 0x5
00e2 7812 |x | Jump 0xf5 ; case 0x6
00e3 7815 |x | Jump 0xf9 ; case 0x7
00e4 00da | | Load_Top At_Offset_2
00e5 0091 01cf | | Action Push_String_Extended_Indexed,0x1cf ; "NOOP"
00e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e8 00db | | Load_Top At_Offset_3
00e9 00db | | Load_Top At_Offset_3
00ea 00e0 | | Load_Encached Standard_Cache
00eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed 00da | | Load_Top At_Offset_2
00ee 00e0 | | Load_Encached Standard_Cache
00ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f3 00db | | Load_Top At_Offset_3
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 e212 | | Load 0x1,0x12
00f6 00dc | | Load_Top At_Offset_4
00f7 0267 | g | Execute Discrete,Predecessor
00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f9 e212 | | Load 0x1,0x12
00fa 00dc | | Load_Top At_Offset_4
00fb 0268 | h | Execute Discrete,Successor
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4607 |F | Jump_Case 0x8
0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0105 7806 |x | Jump 0x10c ; case 0x1
0106 7809 |x | Jump 0x110 ; case 0x2
0107 780d |x | Jump 0x115 ; case 0x3
0108 7810 |x | Jump 0x119 ; case 0x4
0109 7811 |x | Jump 0x11b ; case 0x5
010a 7812 |x | Jump 0x11d ; case 0x6
010b 7815 |x | Jump 0x121 ; case 0x7
010c 00da | | Load_Top At_Offset_2
010d 0091 01e2 | | Action Push_String_Extended_Indexed,0x1e2 ; "NONE"
010f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0110 00db | | Load_Top At_Offset_3
0111 00db | | Load_Top At_Offset_3
0112 00e0 | | Load_Encached Standard_Cache
0113 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 00da | | Load_Top At_Offset_2
0116 00e0 | | Load_Encached Standard_Cache
0117 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0118 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0119 00db | | Load_Top At_Offset_3
011a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011b 00db | | Load_Top At_Offset_3
011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011d e218 | | Load 0x1,0x18
011e 00dc | | Load_Top At_Offset_4
011f 0267 | g | Execute Discrete,Predecessor
0120 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0121 e218 | | Load 0x1,0x18
0122 00dc | | Load_Top At_Offset_4
0123 0268 | h | Execute Discrete,Successor
0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4607 |F | Jump_Case 0x8
012c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
012d 7806 |x | Jump 0x134 ; case 0x1
012e 7809 |x | Jump 0x138 ; case 0x2
012f 780d |x | Jump 0x13d ; case 0x3
0130 7810 |x | Jump 0x141 ; case 0x4
0131 7811 |x | Jump 0x143 ; case 0x5
0132 7812 |x | Jump 0x145 ; case 0x6
0133 7815 |x | Jump 0x149 ; case 0x7
0134 00da | | Load_Top At_Offset_2
0135 0091 01e5 | | Action Push_String_Extended_Indexed,0x1e5 ; "INVALID"
0137 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0138 00db | | Load_Top At_Offset_3
0139 00db | | Load_Top At_Offset_3
013a 00e0 | | Load_Encached Standard_Cache
013b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d 00da | | Load_Top At_Offset_2
013e 00e0 | | Load_Encached Standard_Cache
013f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0140 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0141 00db | | Load_Top At_Offset_3
0142 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0143 00db | | Load_Top At_Offset_3
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 e214 | | Load 0x1,0x14
0146 00dc | | Load_Top At_Offset_4
0147 0267 | g | Execute Discrete,Predecessor
0148 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0149 e214 | | Load 0x1,0x14
014a 00dc | | Load_Top At_Offset_4
014b 0268 | h | Execute Discrete,Successor
014c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4607 |F | Jump_Case 0x8
0154 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0155 7806 |x | Jump 0x15c ; case 0x1
0156 7809 |x | Jump 0x160 ; case 0x2
0157 780d |x | Jump 0x165 ; case 0x3
0158 7810 |x | Jump 0x169 ; case 0x4
0159 7811 |x | Jump 0x16b ; case 0x5
015a 7812 |x | Jump 0x16d ; case 0x6
015b 7815 |x | Jump 0x171 ; case 0x7
015c 00da | | Load_Top At_Offset_2
015d 0091 01e9 | | Action Push_String_Extended_Indexed,0x1e9 ; "UNKNOWN"
015f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0160 00db | | Load_Top At_Offset_3
0161 00db | | Load_Top At_Offset_3
0162 00e0 | | Load_Encached Standard_Cache
0163 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0165 00da | | Load_Top At_Offset_2
0166 00e0 | | Load_Encached Standard_Cache
0167 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0168 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0169 00db | | Load_Top At_Offset_3
016a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016b 00db | | Load_Top At_Offset_3
016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016d e215 | | Load 0x1,0x15
016e 00dc | | Load_Top At_Offset_4
016f 0267 | g | Execute Discrete,Predecessor
0170 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0171 e215 | | Load 0x1,0x15
0172 00dc | | Load_Top At_Offset_4
0173 0268 | h | Execute Discrete,Successor
0174 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4607 |F | Jump_Case 0x8
017c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
017d 7806 |x | Jump 0x184 ; case 0x1
017e 7809 |x | Jump 0x188 ; case 0x2
017f 780d |x | Jump 0x18d ; case 0x3
0180 7810 |x | Jump 0x191 ; case 0x4
0181 7811 |x | Jump 0x193 ; case 0x5
0182 7812 |x | Jump 0x195 ; case 0x6
0183 7815 |x | Jump 0x199 ; case 0x7
0184 00da | | Load_Top At_Offset_2
0185 0091 01ec | | Action Push_String_Extended_Indexed,0x1ec ; "READ_ONLY"
0187 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0188 00db | | Load_Top At_Offset_3
0189 00db | | Load_Top At_Offset_3
018a 00e0 | | Load_Encached Standard_Cache
018b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018d 00da | | Load_Top At_Offset_2
018e 00e0 | | Load_Encached Standard_Cache
018f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0190 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0191 00db | | Load_Top At_Offset_3
0192 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0193 00db | | Load_Top At_Offset_3
0194 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0195 e216 | | Load 0x1,0x16
0196 00dc | | Load_Top At_Offset_4
0197 0267 | g | Execute Discrete,Predecessor
0198 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0199 e216 | | Load 0x1,0x16
019a 00dc | | Load_Top At_Offset_4
019b 0268 | h | Execute Discrete,Successor
019c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4607 |F | Jump_Case 0x8
01a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01a5 7806 |x | Jump 0x1ac ; case 0x1
01a6 7809 |x | Jump 0x1b0 ; case 0x2
01a7 780d |x | Jump 0x1b5 ; case 0x3
01a8 7810 |x | Jump 0x1b9 ; case 0x4
01a9 7811 |x | Jump 0x1bb ; case 0x5
01aa 7812 |x | Jump 0x1bd ; case 0x6
01ab 7815 |x | Jump 0x1c1 ; case 0x7
01ac 00da | | Load_Top At_Offset_2
01ad 0091 01ee | | Action Push_String_Extended_Indexed,0x1ee ; "UNKNOWN"
01af 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b0 00db | | Load_Top At_Offset_3
01b1 00db | | Load_Top At_Offset_3
01b2 00e0 | | Load_Encached Standard_Cache
01b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b5 00da | | Load_Top At_Offset_2
01b6 00e0 | | Load_Encached Standard_Cache
01b7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b9 00db | | Load_Top At_Offset_3
01ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bb 00db | | Load_Top At_Offset_3
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bd e217 | | Load 0x1,0x17
01be 00dc | | Load_Top At_Offset_4
01bf 0267 | g | Execute Discrete,Predecessor
01c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c1 e217 | | Load 0x1,0x17
01c2 00dc | | Load_Top At_Offset_4
01c3 0268 | h | Execute Discrete,Successor
01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c5 ; --------------------------------------------------------------------------------------
01c5 ; STRING TABLE
01c5 ; --------------------------------------------------------------------------------------
01c5 0060 | ` | .STRTAB 0x0060->0x01f5 ; "GENERICS_SHARE_CODE"
01c6 0071 | q | .STRTAB 0x0071->0x01fe ; "REQUIRES_BODY_AND_GENERIC_IN_SAME_COMPILATION"
01c7 009c | | .STRTAB 0x009c->0x0215 ; "REQUIRES_SUBUNITS_AND_GENERIC_IN_SAME_COMPILATION"
01c8 00cb | | .STRTAB 0x00cb->0x022d ; "IMPLEMENTS_PRAGMA_INLINE"
01c9 00e1 | | .STRTAB 0x00e1->0x0239 ; "SEPARATE_SUBUNITS_ARE_INEFFICIENT"
01ca 0100 | | .STRTAB 0x0100->0x024a ; "HAS_OTHER_OPTIMIZATION_DEPENDENCIES"
01cb 0121 | ! | .STRTAB 0x0121->0x025b ; "REQUIRES_SOURCE_TRANSFORMATIONS_BEFORE_TRANSFER"
01cc 014e | N | .STRTAB 0x014e->0x0273 ; "SPARE_06"
01cd 0154 | T | .STRTAB 0x0154->0x0277 ; "SPARE_07"
01ce 015a | Z | .STRTAB 0x015a->0x027b ; "ONE"
01cf 015b | [ | .STRTAB 0x015b->0x027c ; "NOOP"
01d0 015d | ] | .STRTAB 0x015d->0x027e ; "PROLOG"
01d1 0161 | a | .STRTAB 0x0161->0x0281 ; "SUBSCRIPT"
01d2 0168 | h | .STRTAB 0x0168->0x0286 ; "TRANSFERS"
01d3 016f | o | .STRTAB 0x016f->0x028a ; "REBUILDS"
01d4 0175 | u | .STRTAB 0x0175->0x028e ; "DELETES"
01d5 017a | z | .STRTAB 0x017a->0x0292 ; "IMPORTS"
01d6 017f | | .STRTAB 0x017f->0x0295 ; "CONTEXT"
01d7 0184 | | .STRTAB 0x0184->0x0299 ; "IMPORT"
01d8 0188 | | .STRTAB 0x0188->0x029c ; "DEPORT"
01d9 018c | | .STRTAB 0x018c->0x029f ; "DOWNLOAD"
01da 0192 | | .STRTAB 0x0192->0x02a3 ; "UPLOAD"
01db 0196 | | .STRTAB 0x0196->0x02a6 ; "GATHER"
01dc 019a | | .STRTAB 0x019a->0x02a9 ; "SPREAD"
01dd 019e | | .STRTAB 0x019e->0x02ac ; "DELETE"
01de 01a2 | | .STRTAB 0x01a2->0x02af ; "BUILD"
01df 01a5 | | .STRTAB 0x01a5->0x02b1 ; "LOAD"
01e0 01a7 | | .STRTAB 0x01a7->0x02b3 ; "CUSTOM"
01e1 01ab | | .STRTAB 0x01ab->0x02b6 ; "EPILOG"
01e2 01af | | .STRTAB 0x01af->0x02b9 ; "NONE"
01e3 01b1 | | .STRTAB 0x01b1->0x02bb ; "BASIC"
01e4 01b4 | | .STRTAB 0x01b4->0x02be ; "FULL"
01e5 01b6 | | .STRTAB 0x01b6->0x02c0 ; "INVALID"
01e6 01bb | | .STRTAB 0x01bb->0x02c3 ; "LOAD_VIEW"
01e7 01c2 | | .STRTAB 0x01c2->0x02c8 ; "WORLD"
01e8 01c5 | | .STRTAB 0x01c5->0x02ca ; "COMBINED_VIEW"
01e9 01d0 | | .STRTAB 0x01d0->0x02d1 ; "UNKNOWN"
01ea 01d5 | | .STRTAB 0x01d5->0x02d4 ; "LOAD_VIEWS"
01eb 01dd | | .STRTAB 0x01dd->0x02d9 ; "WORLDS"
01ec 01e1 | | .STRTAB 0x01e1->0x02dc ; "READ_ONLY"
01ed 01e8 | | .STRTAB 0x01e8->0x02e1 ; "READ_WRITE"
01ee 01f0 | | .STRTAB 0x01f0->0x02e6 ; "UNKNOWN"
01ef 01f5 | | .STRTAB 0x01f5->0x02e9 ; "STRUCTURAL"
01f0 01fd | | .STRTAB 0x01fd->0x02ee ; "WITHED"
01f1 0201 | | .STRTAB 0x0201->0x02f1 ; "INSTANTIATED"
01f2 020b | | .STRTAB 0x020b->0x02f7 ; "CALLED_INLINE"
01f3 0216 | | .STRTAB 0x0216->0x02fe ; "OTHER"
01f4 0219 | | .STREND 0x0219->0x0300
01f5 4745 4e45 |GENE| .STRTAB_STRINGS
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 000d | | .DEBUG4 0x0004,0x000d,0xd8e5,0x0000,0x0001,0x0000
030e 0000 0000 | | .BLANK 0000[0xf2]