|
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_779ce4
└─⟦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 0188 | | .CONST 0x0188 ; 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 0065 | e | .CONST 0x0065 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 00c4 | | Action Make_Default
0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0014 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0016 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0018 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001a 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001c 0093 0000 | | push_full_address 0x0
001e 605d |`] | Indirect_Literal Discrete,0x7c,{0x80000000, 0x00010000}
001f 0273 | s | Execute Discrete,Plus
0020 e20d | | Load 0x1,0xd
0021 6056 |`V | Indirect_Literal Discrete,0x78,{0x00000000, 0x0000ffff}
0022 0279 | y | Execute Discrete,And
0023 0273 | s | Execute Discrete,Plus
0024 0129 | ) | Execute Any,Make_Visible
0025 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0027 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0029 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
002b 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
002d 4802 |H | Short_Literal 0x2
002e 032b | + | Declare_Type Record,Incomplete,Visible
002f 00d8 | | Load_Top At_Offset_0
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 03ae | | Declare_Type Heap_Access,Defined,Visible
0032 00d8 | | Load_Top At_Offset_0
0033 0129 | ) | Execute Any,Make_Visible
0034 c216 | | Store 0x1,0x16
0035 4802 |H | Short_Literal 0x2
0036 032b | + | Declare_Type Record,Incomplete,Visible
0037 00d8 | | Load_Top At_Offset_0
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 03ae | | Declare_Type Heap_Access,Defined,Visible
003a 00d8 | | Load_Top At_Offset_0
003b 0129 | ) | Execute Any,Make_Visible
003c 00bf | | Action Accept_Activation
003d e002 | | Load 0x0,0x2
003e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
003f 00da | | Load_Top At_Offset_2
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 e221 | ! | Load 0x1,0x21
0042 0326 | & | Complete_Type Record,By_Defining
0043 00db | | Load_Top At_Offset_3
0044 03a0 | | Complete_Type Heap_Access,By_Component_Completion
0045 e20e | | Load 0x1,0xe
0046 00da | | Load_Top At_Offset_2
0047 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0049 e223 | # | Load 0x1,0x23
004a 0326 | & | Complete_Type Record,By_Defining
004b 00d9 | | Load_Top At_Offset_1
004c 03a0 | | Complete_Type Heap_Access,By_Component_Completion
004d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004e 00c7 | | Action Elaborate_Subprogram
004f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0050 00c7 | | Action Elaborate_Subprogram
0051 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0052 00c7 | | Action Elaborate_Subprogram
0053 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0054 00c7 | | Action Elaborate_Subprogram
0055 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0056 00c7 | | Action Elaborate_Subprogram
0057 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0058 00c7 | | Action Elaborate_Subprogram
0059 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005a 00c7 | | Action Elaborate_Subprogram
005b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005c 00c7 | | Action Elaborate_Subprogram
005d 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
005e 00c7 | | Action Elaborate_Subprogram
005f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0060 00c7 | | Action Elaborate_Subprogram
0061 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0062 00c7 | | Action Elaborate_Subprogram
0063 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0064 00c7 | | Action Elaborate_Subprogram
0065 BODY_0008:
0065 00bc | | Action Signal_Activated
0066 00bb | | Action Signal_Completion
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d | m | .CONST 0x006d ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b e222 | " | Load 0x1,0x22
006c 0007 | | Action Break_Optional
006d BODY_0068:
006d e222 | " | Load 0x1,0x22
006e e5ff | | Load 0x2,-0x1
006f 039c | | Declare_Variable Heap_Access,By_Allocation
0070 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0071 00db | | Load_Top At_Offset_3
0072 00d9 | | Load_Top At_Offset_1
0073 0217 | | Execute Heap_Access,All_Reference
0074 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0075 00d8 | | Load_Top At_Offset_0
0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0077 0000 | | .XXX[0x1]
0078 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
007c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 0217 | | Execute Heap_Access,All_Reference
008d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 0217 | | Execute Heap_Access,All_Reference
0095 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0096 7002 |p | Jump_Nonzero 0x99
0097 e21c | | Load 0x1,0x1c
0098 0257 | W | Execute Discrete,Raise
0099 00da | | Load_Top At_Offset_2
009a 0217 | | Execute Heap_Access,All_Reference
009b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009c 0217 | | Execute Heap_Access,All_Reference
009d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009e 00db | | Load_Top At_Offset_3
009f 0217 | | Execute Heap_Access,All_Reference
00a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0 | | .CONST 0x00b0 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e224 | $ | Load 0x1,0x24
00ac e5fe | | Load 0x2,-0x2
00ad 0217 | | Execute Heap_Access,All_Reference
00ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00af 039c | | Declare_Variable Heap_Access,By_Allocation
00b0 BODY_00a8:
00b0 00d8 | | Load_Top At_Offset_0
00b1 0219 | | Execute Heap_Access,All_Read
00b2 00d8 | | Load_Top At_Offset_0
00b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b4 00d8 | | Load_Top At_Offset_0
00b5 0120 | | Execute Any,Is_Value
00b6 6803 |h | Jump_Zero 0xba
00b7 e20e | | Load 0x1,0xe
00b8 0122 | " | Execute Any,Make_Root_Type
00b9 011e | | Execute Any,Convert
00ba e5fe | | Load 0x2,-0x2
00bb 0217 | | Execute Heap_Access,All_Reference
00bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00bd e5ff | | Load 0x2,-0x1
00be 8211 | | Call 0x1,0x11
00bf 00d9 | | Load_Top At_Offset_1
00c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c1 00d1 | | Pop_Control Pop_Count_1
00c2 e5fe | | Load 0x2,-0x2
00c3 0217 | | Execute Heap_Access,All_Reference
00c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c5 00d9 | | Load_Top At_Offset_1
00c6 0217 | | Execute Heap_Access,All_Reference
00c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c8 00d8 | | Load_Top At_Offset_0
00c9 e5fe | | Load 0x2,-0x2
00ca 0217 | | Execute Heap_Access,All_Reference
00cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 0217 | | Execute Heap_Access,All_Reference
00d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d6 021d | | Execute Heap_Access,Is_Null
00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
00dc 0217 | | Execute Heap_Access,All_Reference
00dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00de 7002 |p | Jump_Nonzero 0xe1
00df e21c | | Load 0x1,0x1c
00e0 0257 | W | Execute Discrete,Raise
00e1 00da | | Load_Top At_Offset_2
00e2 0217 | | Execute Heap_Access,All_Reference
00e3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e4 0217 | | Execute Heap_Access,All_Reference
00e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e6 00d8 | | Load_Top At_Offset_0
00e7 0120 | | Execute Any,Is_Value
00e8 7002 |p | Jump_Nonzero 0xeb
00e9 00d8 | | Load_Top At_Offset_0
00ea 011e | | Execute Any,Convert
00eb e20e | | Load 0x1,0xe
00ec 0119 | | Execute Any,Check_In_Formal_Type
00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7 | | .CONST 0x00f7 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0003 | | .CONST 0x0003 ; Number of locals
00f3 INIT_00f0:
00f3 e224 | $ | Load 0x1,0x24
00f4 0007 | | Action Break_Optional
00f5 00d8 | | Load_Top At_Offset_0
00f6 0007 | | Action Break_Optional
00f7 BODY_00f0:
00f7 e5fd | | Load 0x2,-0x3
00f8 8214 | | Call 0x1,0x14
00f9 c5fd | | Store 0x2,-0x3
00fa e5fe | | Load 0x2,-0x2
00fb 8213 | | Call 0x1,0x13
00fc a5fd | | Store_Unchecked 0x2,-0x3
00fd e5ff | | Load 0x2,-0x1
00fe 0217 | | Execute Heap_Access,All_Reference
00ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0100 684e |hN | Jump_Zero 0x14f
0101 e224 | $ | Load 0x1,0x24
0102 e5fe | | Load 0x2,-0x2
0103 039c | | Declare_Variable Heap_Access,By_Allocation
0104 e5fd | | Load 0x2,-0x3
0105 0217 | | Execute Heap_Access,All_Reference
0106 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0107 e5fd | | Load 0x2,-0x3
0108 0219 | | Execute Heap_Access,All_Read
0109 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010a 0219 | | Execute Heap_Access,All_Read
010b 00d8 | | Load_Top At_Offset_0
010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010d 00d8 | | Load_Top At_Offset_0
010e 0120 | | Execute Any,Is_Value
010f 6803 |h | Jump_Zero 0x113
0110 e20e | | Load 0x1,0xe
0111 0122 | " | Execute Any,Make_Root_Type
0112 011e | | Execute Any,Convert
0113 e5fe | | Load 0x2,-0x2
0114 e5ff | | Load 0x2,-0x1
0115 0217 | | Execute Heap_Access,All_Reference
0116 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0117 0217 | | Execute Heap_Access,All_Reference
0118 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0119 8211 | | Call 0x1,0x11
011a 00d9 | | Load_Top At_Offset_1
011b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011c 00d1 | | Pop_Control Pop_Count_1
011d e5fd | | Load 0x2,-0x3
011e 0217 | | Execute Heap_Access,All_Reference
011f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0120 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0121 e5ff | | Load 0x2,-0x1
0122 0217 | | Execute Heap_Access,All_Reference
0123 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0124 0217 | | Execute Heap_Access,All_Reference
0125 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0126 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0127 00cf | | Action Mark_Auxiliary
0128 7823 |x# | Jump 0x14c
0129 e224 | $ | Load 0x1,0x24
012a e5fe | | Load 0x2,-0x2
012b 039c | | Declare_Variable Heap_Access,By_Allocation
012c 00da | | Load_Top At_Offset_2
012d 0217 | | Execute Heap_Access,All_Reference
012e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012f 00d9 | | Load_Top At_Offset_1
0130 0219 | | Execute Heap_Access,All_Read
0131 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0132 0219 | | Execute Heap_Access,All_Read
0133 00d8 | | Load_Top At_Offset_0
0134 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0135 00d8 | | Load_Top At_Offset_0
0136 0120 | | Execute Any,Is_Value
0137 6803 |h | Jump_Zero 0x13b
0138 e20e | | Load 0x1,0xe
0139 0122 | " | Execute Any,Make_Root_Type
013a 011e | | Execute Any,Convert
013b e5fe | | Load 0x2,-0x2
013c e402 | | Load 0x2,0x2
013d 0217 | | Execute Heap_Access,All_Reference
013e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013f 8211 | | Call 0x1,0x11
0140 00d9 | | Load_Top At_Offset_1
0141 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0142 00d1 | | Pop_Control Pop_Count_1
0143 00d9 | | Load_Top At_Offset_1
0144 0217 | | Execute Heap_Access,All_Reference
0145 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0146 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0147 00da | | Load_Top At_Offset_2
0148 0217 | | Execute Heap_Access,All_Reference
0149 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014a 0033 | 3 | Store_Top Heap_Access,At_Offset_3
014b 00c9 | | Action Pop_Auxiliary_Loop
014c 00da | | Load_Top At_Offset_2
014d 77db |w | Jump_Nonzero 0x129
014e 00ce | | Action Pop_Auxiliary
014f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00da | | Load_Top At_Offset_2
0154 0217 | | Execute Heap_Access,All_Reference
0155 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0156 a5fe | | Store_Unchecked 0x2,-0x2
0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 0217 | | Execute Heap_Access,All_Reference
015d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
015f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 0217 | | Execute Heap_Access,All_Reference
0165 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0166 00d8 | | Load_Top At_Offset_0
0167 0120 | | Execute Any,Is_Value
0168 7002 |p | Jump_Nonzero 0x16b
0169 00d8 | | Load_Top At_Offset_0
016a 011e | | Execute Any,Convert
016b e20e | | Load 0x1,0xe
016c 0119 | | Execute Any,Check_In_Formal_Type
016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 021d | | Execute Heap_Access,Is_Null
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0000 0000 | | .XXX[0x2]
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 4601 |F | Jump_Case 0x2
017c 7801 |x | Jump 0x17e ; case 0x0
017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
017e 00da | | Load_Top At_Offset_2
017f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0180 0125 | % | Execute Any,Set_Constraint
0181 00da | | Load_Top At_Offset_2
0182 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0183 1c00 | | Execute_Immediate Run_Utility,0x0
0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5da8,0x0000,0x0001,0x0000
018e 0000 0000 | | .BLANK 0000[0x72]