|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 0368 | h | .CONST 0x0368 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a3 | | .CONST 0x00a3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 4832 |H2 | Short_Literal 0x32
000c e002 | | Load 0x0,0x2
000d 1c07 | | Execute_Immediate Run_Utility,0x7
000e 0129 | ) | Execute Any,Make_Visible
000f 4832 |H2 | Short_Literal 0x32
0010 e002 | | Load 0x0,0x2
0011 1c07 | | Execute_Immediate Run_Utility,0x7
0012 0129 | ) | Execute Any,Make_Visible
0013 4864 |Hd | Short_Literal 0x64
0014 e002 | | Load 0x0,0x2
0015 1c07 | | Execute_Immediate Run_Utility,0x7
0016 0129 | ) | Execute Any,Make_Visible
0017 4832 |H2 | Short_Literal 0x32
0018 e002 | | Load 0x0,0x2
0019 1c07 | | Execute_Immediate Run_Utility,0x7
001a 0129 | ) | Execute Any,Make_Visible
001b 00d8 | | Load_Top At_Offset_0
001c e20d | | Load 0x1,0xd
001d e20e | | Load 0x1,0xe
001e e20f | | Load 0x1,0xf
001f 029f 032b | +| Declare_Subprogram For_Call,INIT_0328
0021 4804 |H | Short_Literal 0x4
0022 032e | . | Declare_Type Record,Defined,Visible
0023 00d8 | | Load_Top At_Offset_0
0024 00e3 | | Load_Encached Natural_Cache
0025 029f 035b | [| Declare_Subprogram For_Call,INIT_0358
0027 4802 |H | Short_Literal 0x2
0028 032e | . | Declare_Type Record,Defined,Visible
0029 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
002b 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
002d 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
002f 029a 0123 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0120
0031 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
0033 0093 0000 | | PushFullAddress InMicrocode
0035 6082 |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00010000}
0036 0273 | s | Execute Discrete,Plus
0037 e003 | | Load 0x0,0x3
0038 0273 | s | Execute Discrete,Plus
0039 e004 | | Load 0x0,0x4
003a 0273 | s | Execute Discrete,Plus
003b e212 | | Load 0x1,0x12
003c e211 | | Load 0x1,0x11
003d 4801 |H | Short_Literal 0x1
003e 4832 |H2 | Short_Literal 0x32
003f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0040 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0041 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0043 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0044 e005 | | Load 0x0,0x5
0045 0386 | | Declare_Variable Package,Visible
0046 00d8 | | Load_Top At_Offset_0
0047 020f | | Execute Module,Activate
0048 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
004a 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
004c 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
004e 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0050 029a 01d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d0
0052 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0054 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
0056 029a 0213 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0210
0058 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
005a 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230
005c 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
005e 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
0060 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
0062 029a 0293 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0290
0064 029a 02ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a8
0066 029a 02bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b8
0068 029a 02cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c8
006a 029a 02db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d8
006c 00bf | | Action Accept_Activation
006d e006 | | Load 0x0,0x6
006e e218 | | Load 0x1,0x18
006f 0098 | | Execute Package,Field_Read_Dynamic
0070 0322 | " | Declare_Variable Record
0071 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0072 00c7 | | Action Elaborate_Subprogram
0073 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0074 00c7 | | Action Elaborate_Subprogram
0075 029d 02f3 | | Declare_Subprogram For_Outer_Call,INIT_02f0
0077 029d 0313 | | Declare_Subprogram For_Outer_Call,INIT_0310
0079 1d19 | | Execute_Immediate Reference_Lex_1,0x19
007a 00c7 | | Action Elaborate_Subprogram
007b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007c 00c7 | | Action Elaborate_Subprogram
007d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0082 00c7 | | Action Elaborate_Subprogram
0083 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0084 00c7 | | Action Elaborate_Subprogram
0085 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0086 00c7 | | Action Elaborate_Subprogram
0087 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0088 00c7 | | Action Elaborate_Subprogram
0089 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
008a 00c7 | | Action Elaborate_Subprogram
008b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
008c 00c7 | | Action Elaborate_Subprogram
008d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
008e 00c7 | | Action Elaborate_Subprogram
008f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0090 00c7 | | Action Elaborate_Subprogram
0091 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0092 00c7 | | Action Elaborate_Subprogram
0093 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0094 00c7 | | Action Elaborate_Subprogram
0095 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0096 00c7 | | Action Elaborate_Subprogram
0097 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0098 00c7 | | Action Elaborate_Subprogram
0099 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
009a 00c7 | | Action Elaborate_Subprogram
009b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
009c 00c7 | | Action Elaborate_Subprogram
009d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
009e 00c7 | | Action Elaborate_Subprogram
009f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a2 00c7 | | Action Elaborate_Subprogram
00a3 BODY_0008:
00a3 00da | | Load_Top At_Offset_2
00a4 e007 | | Load 0x0,0x7
00a5 e218 | | Load 0x1,0x18
00a6 0096 | | Execute Package,Field_Execute_Dynamic
00a7 00d1 | | Pop_Control Pop_Count_1
00a8 00bc | | Action Signal_Activated
00a9 00bb | | Action Signal_Completion
00aa 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
00b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00b5 0320 | | Declare_Variable Record,Duplicate
00b6 00cd | | Action Spare6_Action
00b7 4401 |D | Exit_Subprogram With_Result,0x1
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c4 | | .CONST 0x00c4 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 00e2 | | Load_Encached Integer_Cache
00c4 BODY_00c0:
00c4 00db | | Load_Top At_Offset_3
00c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c6 8008 | | Call 0x0,0x8
00c7 e5ff | | Load 0x2,-0x1
00c8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00c9 8008 | | Call 0x0,0x8
00ca 01cc | | Execute Vector,Catenate
00cb e5ff | | Load 0x2,-0x1
00cc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00cd 8008 | | Call 0x0,0x8
00ce 01cc | | Execute Vector,Catenate
00cf e5ff | | Load 0x2,-0x1
00d0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
00d1 8008 | | Call 0x0,0x8
00d2 01cc | | Execute Vector,Catenate
00d3 8009 | | Call 0x0,0x9
00d4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00d5 00d8 | | Load_Top At_Offset_0
00d6 0d00 | | Execute_Immediate Less,0x0
00d7 6804 |h | Jump_Zero 0xdc
00d8 00d8 | | Load_Top At_Offset_0
00d9 4fff |O | Short_Literal 0x7ff
00da 0271 | q | Execute Discrete,Times
00db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00dc 00d8 | | Load_Top At_Offset_0
00dd 600a |` | Indirect_Literal Discrete,0xe8,{0x00000000, 0x7fffffff}
00de 026e | n | Execute Discrete,Modulo
00df 00d8 | | Load_Top At_Offset_0
00e0 00e3 | | Load_Encached Natural_Cache
00e1 0260 | ` | Execute Discrete,In_Type
00e2 7001 |p | Jump_Nonzero 0xe4
00e3 0801 | | Execute_Immediate Raise,0x1
00e4 4401 |D | Exit_Subprogram With_Result,0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f5 e5fe | | Load 0x2,-0x2
00f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f7 00db | | Load_Top At_Offset_3
00f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00fa 00d8 | | Load_Top At_Offset_0
00fb e5ff | | Load 0x2,-0x1
00fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00fe 800a | | Call 0x0,0xa
00ff 00d2 | | Pop_Control Pop_Count_2
0100 00db | | Load_Top At_Offset_3
0101 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0102 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0103 00d8 | | Load_Top At_Offset_0
0104 e5ff | | Load 0x2,-0x1
0105 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0106 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0107 800a | | Call 0x0,0xa
0108 00d2 | | Pop_Control Pop_Count_2
0109 00db | | Load_Top At_Offset_3
010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
010c 00d8 | | Load_Top At_Offset_0
010d e5ff | | Load 0x2,-0x1
010e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
010f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0110 800a | | Call 0x0,0xa
0111 00d2 | | Pop_Control Pop_Count_2
0112 00db | | Load_Top At_Offset_3
0113 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0114 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0115 00d8 | | Load_Top At_Offset_0
0116 e5ff | | Load 0x2,-0x1
0117 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0118 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0119 800a | | Call 0x0,0xa
011a 4502 |E | Exit_Subprogram 0x2
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0125 e5fe | | Load 0x2,-0x2
0126 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0127 027f | | Execute Discrete,Equal
0128 6806 |h | Jump_Zero 0x12f
0129 00db | | Load_Top At_Offset_3
012a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012b 00db | | Load_Top At_Offset_3
012c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012d 8217 | | Call 0x1,0x17
012e 4402 |D | Exit_Subprogram With_Result,0x2
012f 4800 |H | Short_Literal 0x0
0130 4402 |D | Exit_Subprogram With_Result,0x2
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4801 |H | Short_Literal 0x1
013c e5fe | | Load 0x2,-0x2
013d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013e 8008 | | Call 0x0,0x8
013f e5ff | | Load 0x2,-0x1
0140 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0141 8008 | | Call 0x0,0x8
0142 800b | | Call 0x0,0xb
0143 681f |h | Jump_Zero 0x163
0144 4801 |H | Short_Literal 0x1
0145 e5fe | | Load 0x2,-0x2
0146 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0147 8008 | | Call 0x0,0x8
0148 e5ff | | Load 0x2,-0x1
0149 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
014a 8008 | | Call 0x0,0x8
014b 800b | | Call 0x0,0xb
014c 6814 |h | Jump_Zero 0x161
014d 4801 |H | Short_Literal 0x1
014e e5fe | | Load 0x2,-0x2
014f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0150 8008 | | Call 0x0,0x8
0151 e5ff | | Load 0x2,-0x1
0152 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0153 8008 | | Call 0x0,0x8
0154 800b | | Call 0x0,0xb
0155 6809 |h | Jump_Zero 0x15f
0156 4801 |H | Short_Literal 0x1
0157 e5fe | | Load 0x2,-0x2
0158 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0159 8008 | | Call 0x0,0x8
015a e5ff | | Load 0x2,-0x1
015b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
015c 8008 | | Call 0x0,0x8
015d 800b | | Call 0x0,0xb
015e 4402 |D | Exit_Subprogram With_Result,0x2
015f 4800 |H | Short_Literal 0x0
0160 4402 |D | Exit_Subprogram With_Result,0x2
0161 4800 |H | Short_Literal 0x0
0162 4402 |D | Exit_Subprogram With_Result,0x2
0163 4800 |H | Short_Literal 0x0
0164 4402 |D | Exit_Subprogram With_Result,0x2
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016f | o | .CONST 0x016f ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e212 | | Load 0x1,0x12
016c 0322 | " | Declare_Variable Record
016d 00d8 | | Load_Top At_Offset_0
016e 1c00 | | Execute_Immediate Run_Utility,0x0
016f BODY_0168:
016f e5fb | | Load 0x2,-0x5
0170 e5fc | | Load 0x2,-0x4
0171 e5fd | | Load 0x2,-0x3
0172 e5fe | | Load 0x2,-0x2
0173 e5ff | | Load 0x2,-0x1
0174 822d | - | Call 0x1,0x2d
0175 00d9 | | Load_Top At_Offset_1
0176 017d | } | Execute Record,Structure_Write
0177 00d8 | | Load_Top At_Offset_0
0178 e22b | + | Load 0x1,0x2b
0179 e00c | | Load 0x0,0xc
017a e218 | | Load 0x1,0x18
017b 0096 | | Execute Package,Field_Execute_Dynamic
017c 7006 |p | Jump_Nonzero 0x183
017d e22b | + | Load 0x1,0x2b
017e 00d9 | | Load_Top At_Offset_1
017f e00d | | Load 0x0,0xd
0180 e218 | | Load 0x1,0x18
0181 0096 | | Execute Package,Field_Execute_Dynamic
0182 00d1 | | Pop_Control Pop_Count_1
0183 4506 |E | Exit_Subprogram 0x6
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f | | .CONST 0x018f ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e212 | | Load 0x1,0x12
018c 0322 | " | Declare_Variable Record
018d 00d8 | | Load_Top At_Offset_0
018e 1c00 | | Execute_Immediate Run_Utility,0x0
018f BODY_0188:
018f e5fb | | Load 0x2,-0x5
0190 e5fc | | Load 0x2,-0x4
0191 e5fd | | Load 0x2,-0x3
0192 e5fe | | Load 0x2,-0x2
0193 e5ff | | Load 0x2,-0x1
0194 822d | - | Call 0x1,0x2d
0195 00d9 | | Load_Top At_Offset_1
0196 017d | } | Execute Record,Structure_Write
0197 e22b | + | Load 0x1,0x2b
0198 00d9 | | Load_Top At_Offset_1
0199 e00e | | Load 0x0,0xe
019a e218 | | Load 0x1,0x18
019b 0096 | | Execute Package,Field_Execute_Dynamic
019c 4506 |E | Exit_Subprogram 0x6
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a7 | | .CONST 0x01a7 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e211 | | Load 0x1,0x11
01a4 0322 | " | Declare_Variable Record
01a5 00d8 | | Load_Top At_Offset_0
01a6 1c00 | | Execute_Immediate Run_Utility,0x0
01a7 BODY_01a0:
01a7 e5fc | | Load 0x2,-0x4
01a8 e5fd | | Load 0x2,-0x3
01a9 e5fe | | Load 0x2,-0x2
01aa e5ff | | Load 0x2,-0x1
01ab 822c | , | Call 0x1,0x2c
01ac 00d9 | | Load_Top At_Offset_1
01ad 017d | } | Execute Record,Structure_Write
01ae e22b | + | Load 0x1,0x2b
01af 00d9 | | Load_Top At_Offset_1
01b0 e00f | | Load 0x0,0xf
01b1 e218 | | Load 0x1,0x18
01b2 0096 | | Execute Package,Field_Execute_Dynamic
01b3 4505 |E | Exit_Subprogram 0x5
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bf | | .CONST 0x01bf ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb e212 | | Load 0x1,0x12
01bc 0322 | " | Declare_Variable Record
01bd 00d8 | | Load_Top At_Offset_0
01be 1c00 | | Execute_Immediate Run_Utility,0x0
01bf BODY_01b8:
01bf e5fb | | Load 0x2,-0x5
01c0 e5fc | | Load 0x2,-0x4
01c1 e5fd | | Load 0x2,-0x3
01c2 e5fe | | Load 0x2,-0x2
01c3 e5ff | | Load 0x2,-0x1
01c4 822d | - | Call 0x1,0x2d
01c5 00d9 | | Load_Top At_Offset_1
01c6 017d | } | Execute Record,Structure_Write
01c7 00d8 | | Load_Top At_Offset_0
01c8 e22b | + | Load 0x1,0x2b
01c9 e00c | | Load 0x0,0xc
01ca e218 | | Load 0x1,0x18
01cb 0096 | | Execute Package,Field_Execute_Dynamic
01cc 4405 |D | Exit_Subprogram With_Result,0x5
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01db | | .CONST 0x01db ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0003 | | .CONST 0x0003 ; Number of locals
01d3 INIT_01d0:
01d3 e211 | | Load 0x1,0x11
01d4 0322 | " | Declare_Variable Record
01d5 00d8 | | Load_Top At_Offset_0
01d6 1c00 | | Execute_Immediate Run_Utility,0x0
01d7 e212 | | Load 0x1,0x12
01d8 0322 | " | Declare_Variable Record
01d9 00d8 | | Load_Top At_Offset_0
01da 1c00 | | Execute_Immediate Run_Utility,0x0
01db BODY_01d0:
01db e5fc | | Load 0x2,-0x4
01dc e5fd | | Load 0x2,-0x3
01dd e5fe | | Load 0x2,-0x2
01de e5ff | | Load 0x2,-0x1
01df 822c | , | Call 0x1,0x2c
01e0 00da | | Load_Top At_Offset_2
01e1 017d | } | Execute Record,Structure_Write
01e2 00d9 | | Load_Top At_Offset_1
01e3 e22b | + | Load 0x1,0x2b
01e4 e010 | | Load 0x0,0x10
01e5 e218 | | Load 0x1,0x18
01e6 0096 | | Execute Package,Field_Execute_Dynamic
01e7 00d9 | | Load_Top At_Offset_1
01e8 017d | } | Execute Record,Structure_Write
01e9 00d8 | | Load_Top At_Offset_0
01ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01eb 4404 |D | Exit_Subprogram With_Result,0x4
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f7 | | .CONST 0x01f7 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e212 | | Load 0x1,0x12
01f4 0322 | " | Declare_Variable Record
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 BODY_01f0:
01f7 e5fb | | Load 0x2,-0x5
01f8 e5fc | | Load 0x2,-0x4
01f9 e5fd | | Load 0x2,-0x3
01fa e5fe | | Load 0x2,-0x2
01fb e5ff | | Load 0x2,-0x1
01fc 822d | - | Call 0x1,0x2d
01fd 00d9 | | Load_Top At_Offset_1
01fe 017d | } | Execute Record,Structure_Write
01ff e22b | + | Load 0x1,0x2b
0200 00d9 | | Load_Top At_Offset_1
0201 e011 | | Load 0x0,0x11
0202 e218 | | Load 0x1,0x18
0203 0096 | | Execute Package,Field_Execute_Dynamic
0204 4506 |E | Exit_Subprogram 0x6
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e22b | + | Load 0x1,0x2b
020c e012 | | Load 0x0,0x12
020d e218 | | Load 0x1,0x18
020e 0096 | | Execute Package,Field_Execute_Dynamic
020f 00ca | | Action Exit_Nullary_Function
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 e22b | + | Load 0x1,0x2b
0215 e013 | | Load 0x0,0x13
0216 e218 | | Load 0x1,0x18
0217 0096 | | Execute Package,Field_Execute_Dynamic
0218 4401 |D | Exit_Subprogram With_Result,0x1
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 e22b | + | Load 0x1,0x2b
0225 e014 | | Load 0x0,0x14
0226 e218 | | Load 0x1,0x18
0227 0096 | | Execute Package,Field_Execute_Dynamic
0228 4401 |D | Exit_Subprogram With_Result,0x1
0229 0000 0000 | | .BLANK 0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0237 | 7 | .CONST 0x0237 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e212 | | Load 0x1,0x12
0234 0322 | " | Declare_Variable Record
0235 00d8 | | Load_Top At_Offset_0
0236 1c00 | | Execute_Immediate Run_Utility,0x0
0237 BODY_0230:
0237 00db | | Load_Top At_Offset_3
0238 e22b | + | Load 0x1,0x2b
0239 e015 | | Load 0x0,0x15
023a e218 | | Load 0x1,0x18
023b 0096 | | Execute Package,Field_Execute_Dynamic
023c 00d9 | | Load_Top At_Offset_1
023d 017d | } | Execute Record,Structure_Write
023e 00d8 | | Load_Top At_Offset_0
023f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0240 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0241 8008 | | Call 0x0,0x8
0242 4401 |D | Exit_Subprogram With_Result,0x1
0243 0000 0000 | | .BLANK 0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024f | O | .CONST 0x024f ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b e212 | | Load 0x1,0x12
024c 0322 | " | Declare_Variable Record
024d 00d8 | | Load_Top At_Offset_0
024e 1c00 | | Execute_Immediate Run_Utility,0x0
024f BODY_0248:
024f 00db | | Load_Top At_Offset_3
0250 e22b | + | Load 0x1,0x2b
0251 e015 | | Load 0x0,0x15
0252 e218 | | Load 0x1,0x18
0253 0096 | | Execute Package,Field_Execute_Dynamic
0254 00d9 | | Load_Top At_Offset_1
0255 017d | } | Execute Record,Structure_Write
0256 00d8 | | Load_Top At_Offset_0
0257 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0258 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0259 8008 | | Call 0x0,0x8
025a 4401 |D | Exit_Subprogram With_Result,0x1
025b 0000 0000 | | .BLANK 0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0267 | g | .CONST 0x0267 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 e212 | | Load 0x1,0x12
0264 0322 | " | Declare_Variable Record
0265 00d8 | | Load_Top At_Offset_0
0266 1c00 | | Execute_Immediate Run_Utility,0x0
0267 BODY_0260:
0267 00db | | Load_Top At_Offset_3
0268 e22b | + | Load 0x1,0x2b
0269 e015 | | Load 0x0,0x15
026a e218 | | Load 0x1,0x18
026b 0096 | | Execute Package,Field_Execute_Dynamic
026c 00d9 | | Load_Top At_Offset_1
026d 017d | } | Execute Record,Structure_Write
026e 00d8 | | Load_Top At_Offset_0
026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0270 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0271 8008 | | Call 0x0,0x8
0272 4401 |D | Exit_Subprogram With_Result,0x1
0273 0000 0000 | | .BLANK 0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f | | .CONST 0x027f ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b e212 | | Load 0x1,0x12
027c 0322 | " | Declare_Variable Record
027d 00d8 | | Load_Top At_Offset_0
027e 1c00 | | Execute_Immediate Run_Utility,0x0
027f BODY_0278:
027f 00db | | Load_Top At_Offset_3
0280 e22b | + | Load 0x1,0x2b
0281 e015 | | Load 0x0,0x15
0282 e218 | | Load 0x1,0x18
0283 0096 | | Execute Package,Field_Execute_Dynamic
0284 00d9 | | Load_Top At_Offset_1
0285 017d | } | Execute Record,Structure_Write
0286 00d8 | | Load_Top At_Offset_0
0287 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0288 4401 |D | Exit_Subprogram With_Result,0x1
0289 0000 0000 | | .BLANK 0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0297 | | .CONST 0x0297 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0002 | | .CONST 0x0002 ; Number of locals
0293 INIT_0290:
0293 e212 | | Load 0x1,0x12
0294 0322 | " | Declare_Variable Record
0295 00d8 | | Load_Top At_Offset_0
0296 1c00 | | Execute_Immediate Run_Utility,0x0
0297 BODY_0290:
0297 00db | | Load_Top At_Offset_3
0298 e22b | + | Load 0x1,0x2b
0299 e015 | | Load 0x0,0x15
029a e218 | | Load 0x1,0x18
029b 0096 | | Execute Package,Field_Execute_Dynamic
029c 00d9 | | Load_Top At_Offset_1
029d 017d | } | Execute Record,Structure_Write
029e 00d8 | | Load_Top At_Offset_0
029f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a1 8008 | | Call 0x0,0x8
02a2 4401 |D | Exit_Subprogram With_Result,0x1
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab e5fc | | Load 0x2,-0x4
02ac e5fd | | Load 0x2,-0x3
02ad e5fe | | Load 0x2,-0x2
02ae e5ff | | Load 0x2,-0x1
02af 822c | , | Call 0x1,0x2c
02b0 e22b | + | Load 0x1,0x2b
02b1 e016 | | Load 0x0,0x16
02b2 e218 | | Load 0x1,0x18
02b3 0096 | | Execute Package,Field_Execute_Dynamic
02b4 4404 |D | Exit_Subprogram With_Result,0x4
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc e5fb | | Load 0x2,-0x5
02bd e5fc | | Load 0x2,-0x4
02be e5fd | | Load 0x2,-0x3
02bf e5fe | | Load 0x2,-0x2
02c0 822c | , | Call 0x1,0x2c
02c1 e22b | + | Load 0x1,0x2b
02c2 e017 | | Load 0x0,0x17
02c3 e218 | | Load 0x1,0x18
02c4 0096 | | Execute Package,Field_Execute_Dynamic
02c5 4405 |D | Exit_Subprogram With_Result,0x5
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc e5fb | | Load 0x2,-0x5
02cd e5fc | | Load 0x2,-0x4
02ce e5fd | | Load 0x2,-0x3
02cf e5fe | | Load 0x2,-0x2
02d0 822c | , | Call 0x1,0x2c
02d1 e22b | + | Load 0x1,0x2b
02d2 e018 | | Load 0x0,0x18
02d3 e218 | | Load 0x1,0x18
02d4 0096 | | Execute Package,Field_Execute_Dynamic
02d5 4405 |D | Exit_Subprogram With_Result,0x5
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02df | | .CONST 0x02df ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e212 | | Load 0x1,0x12
02dc 0322 | " | Declare_Variable Record
02dd 00d8 | | Load_Top At_Offset_0
02de 1c00 | | Execute_Immediate Run_Utility,0x0
02df BODY_02d8:
02df 00db | | Load_Top At_Offset_3
02e0 e5fb | | Load 0x2,-0x5
02e1 e5fc | | Load 0x2,-0x4
02e2 e5fd | | Load 0x2,-0x3
02e3 e5fe | | Load 0x2,-0x2
02e4 822c | , | Call 0x1,0x2c
02e5 e22b | + | Load 0x1,0x2b
02e6 e019 | | Load 0x0,0x19
02e7 e218 | | Load 0x1,0x18
02e8 0096 | | Execute Package,Field_Execute_Dynamic
02e9 00d9 | | Load_Top At_Offset_1
02ea 017d | } | Execute Record,Structure_Write
02eb 00d8 | | Load_Top At_Offset_0
02ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ed 4405 |D | Exit_Subprogram With_Result,0x5
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f7 | | .CONST 0x02f7 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 e211 | | Load 0x1,0x11
02f4 0322 | " | Declare_Variable Record
02f5 00d8 | | Load_Top At_Offset_0
02f6 1c00 | | Execute_Immediate Run_Utility,0x0
02f7 BODY_02f0:
02f7 00d8 | | Load_Top At_Offset_0
02f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f9 e5ff | | Load 0x2,-0x1
02fa 801a | | Call 0x0,0x1a
02fb 00d1 | | Pop_Control Pop_Count_1
02fc 00d8 | | Load_Top At_Offset_0
02fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fe e5fe | | Load 0x2,-0x2
02ff 801a | | Call 0x0,0x1a
0300 00d1 | | Pop_Control Pop_Count_1
0301 00d8 | | Load_Top At_Offset_0
0302 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0303 e5fd | | Load 0x2,-0x3
0304 801a | | Call 0x0,0x1a
0305 00d1 | | Pop_Control Pop_Count_1
0306 00d8 | | Load_Top At_Offset_0
0307 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0308 e5fc | | Load 0x2,-0x4
0309 801a | | Call 0x0,0x1a
030a 00d1 | | Pop_Control Pop_Count_1
030b 00d8 | | Load_Top At_Offset_0
030c 4404 |D | Exit_Subprogram With_Result,0x4
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0317 | | .CONST 0x0317 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0002 | | .CONST 0x0002 ; Number of locals
0313 INIT_0310:
0313 e212 | | Load 0x1,0x12
0314 0322 | " | Declare_Variable Record
0315 00d8 | | Load_Top At_Offset_0
0316 1c00 | | Execute_Immediate Run_Utility,0x0
0317 BODY_0310:
0317 e5fc | | Load 0x2,-0x4
0318 e5fd | | Load 0x2,-0x3
0319 e5fe | | Load 0x2,-0x2
031a e5ff | | Load 0x2,-0x1
031b 822c | , | Call 0x1,0x2c
031c 00d9 | | Load_Top At_Offset_1
031d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
031e e5fb | | Load 0x2,-0x5
031f 00d9 | | Load_Top At_Offset_1
0320 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0321 00d8 | | Load_Top At_Offset_0
0322 4405 |D | Exit_Subprogram With_Result,0x5
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 4601 |F | Jump_Case 0x1
032c 7801 |x | Jump 0x32e ; case 0x0
032d 7819 |x | Jump 0x347 ; case 0x1
032e 00da | | Load_Top At_Offset_2
032f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0330 0125 | % | Execute Any,Set_Constraint
0331 00da | | Load_Top At_Offset_2
0332 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0333 1c00 | | Execute_Immediate Run_Utility,0x0
0334 00da | | Load_Top At_Offset_2
0335 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0336 0125 | % | Execute Any,Set_Constraint
0337 00da | | Load_Top At_Offset_2
0338 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0339 1c00 | | Execute_Immediate Run_Utility,0x0
033a 00da | | Load_Top At_Offset_2
033b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
033c 0125 | % | Execute Any,Set_Constraint
033d 00da | | Load_Top At_Offset_2
033e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
033f 1c00 | | Execute_Immediate Run_Utility,0x0
0340 00da | | Load_Top At_Offset_2
0341 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0342 0125 | % | Execute Any,Set_Constraint
0343 00da | | Load_Top At_Offset_2
0344 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0345 1c00 | | Execute_Immediate Run_Utility,0x0
0346 4302 |C | Exit_Subprogram From_Utility,0x2
0347 00da | | Load_Top At_Offset_2
0348 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0349 0125 | % | Execute Any,Set_Constraint
034a 00da | | Load_Top At_Offset_2
034b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
034c 0125 | % | Execute Any,Set_Constraint
034d 00da | | Load_Top At_Offset_2
034e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
034f 0125 | % | Execute Any,Set_Constraint
0350 00da | | Load_Top At_Offset_2
0351 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0352 0125 | % | Execute Any,Set_Constraint
0353 4302 |C | Exit_Subprogram From_Utility,0x2
0354 0000 0000 | | .BLANK 0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 4601 |F | Jump_Case 0x1
035c 7801 |x | Jump 0x35e ; case 0x0
035d 7804 |x | Jump 0x362 ; case 0x1
035e 00da | | Load_Top At_Offset_2
035f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0360 1c00 | | Execute_Immediate Run_Utility,0x0
0361 4302 |C | Exit_Subprogram From_Utility,0x2
0362 00da | | Load_Top At_Offset_2
0363 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0364 1c01 | | Execute_Immediate Run_Utility,0x1
0365 4302 |C | Exit_Subprogram From_Utility,0x2
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug Table
0368 ; --------------------------------------------------------------------------------------
0368 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1cf,0x0000,0x0001,0x0000
036e 0004 8000 | | .XXX[0x57]
0370 0000 0000 | |
0372 0001 a37d | }|
0374 8000 0000 | |
0376 1000 0001 | |
0378 2000 0000 | |
037a 0000 0000 | |
037c 68df 6000 |h ` |
037e 0000 0400 | |
0380 0000 4800 | H |
0382 0000 0000 | |
0384 0000 1a37 | 7|
0386 d800 0000 | |
0388 0100 0000 | |
038a 1200 0000 | |
038c 0000 0000 | |
038e 068d f600 | |
0390 0000 0040 | @|
0392 0000 0480 | |
0394 0000 0000 | |
0396 0000 01a3 | |
0398 7d80 0000 |} |
039a 0010 0000 | |
039c 0120 0000 | |
039e 0000 0000 | |
03a0 0060 0000 | ` |
03a2 0240 0000 | @ |
03a4 0000 0000 | |
03a6 00c0 0000 | |
03a8 0480 0000 | |
03aa 0400 0000 | |
03ac 0100 0000 | |
03ae 0201 2150 | !P|
03b0 0000 0120 | |
03b2 0000 0100 | |
03b4 0000 0040 | @|
03b6 0040 0000 | @ |
03b8 0240 0000 | @ |
03ba 0000 0000 | |
03bc 008d 2600 | & |
03be 9800 0000 | |
03c0 0000 0000 | |
03c2 0003 4f80 | O |
03c4 3a00 |: |
03c5 0000 0000 | | .BLANK 0000[0x5]
03ca 0048 0028 | H (| .XXX[0x2d]
03cc ac20 0000 | |
03ce 0010 a000 | |
03d0 0002 4000 | @ |
03d2 0000 0000 | |
03d4 0000 c000 | |
03d6 0004 8000 | |
03d8 0004 0000 | |
03da 0001 0000 | |
03dc 0002 0121 | !|
03de 5000 0001 |P |
03e0 2000 0001 | |
03e2 0000 0000 | |
03e4 4000 4000 |@ @ |
03e6 0006 0000 | |
03e8 0001 0000 | |
03ea 0001 0011 | |
03ec d2b6 0000 | |
03ee 0002 8000 | |
03f0 0002 4000 | @ |
03f2 0000 0000 | |
03f4 0000 8d26 | &|
03f6 0098 | |
03f7 0000 0000 | | .BLANK 0000[0x4]
03fb 034f 803a | O :| .XXX[0x5]
03fd 0000 0000 | |
03ff 0000 | |