|
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: 3072 (0xc00)
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 0598 | | .CONST 0x0598 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0067 | g | .CONST 0x0067 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4804 |H | Short_Literal 0x4
000d 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0012 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0014 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0016 0093 0000 | | push_full_address 0x0
0018 6087 |` | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00010000}
0019 0273 | s | Execute Discrete,Plus
001a e002 | | Load 0x0,0x2
001b 0273 | s | Execute Discrete,Plus
001c e003 | | Load 0x0,0x3
001d 0273 | s | Execute Discrete,Plus
001e e004 | | Load 0x0,0x4
001f a005 | | Store_Unchecked 0x0,0x5
0020 a006 | | Store_Unchecked 0x0,0x6
0021 a007 | | Store_Unchecked 0x0,0x7
0022 a008 | | Store_Unchecked 0x0,0x8
0023 e009 | | Load 0x0,0x9
0024 0386 | | Declare_Variable Package,Visible
0025 00d8 | | Load_Top At_Offset_0
0026 020f | | Execute Module,Activate
0027 00e1 | | Load_Encached Boolean_Cache
0028 00e1 | | Load_Encached Boolean_Cache
0029 e00a | | Load 0x0,0xa
002a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002c e00a | | Load 0x0,0xa
002d 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002f e00a | | Load 0x0,0xa
0030 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0032 e00b | | Load 0x0,0xb
0033 e211 | | Load 0x1,0x11
0034 0098 | | Execute Package,Field_Read_Dynamic
0035 029f 0513 | | Declare_Subprogram INIT_0510,For_Call
0037 4806 |H | Short_Literal 0x6
0038 032e | . | Declare_Type Record,Defined,Visible
0039 00bf | | Action Accept_Activation
003a 4800 |H | Short_Literal 0x0
003b 4807 |H | Short_Literal 0x7
003c 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
003e 03fd | | Declare_Type Discrete,Defined
003f 0093 0000 | | push_full_address 0x0
0041 605a |`Z | Indirect_Literal Discrete,0x9c,{0x80000000, 0x00010000}
0042 0273 | s | Execute Discrete,Plus
0043 0093 0000 | | push_full_address 0x0
0045 6052 |`R | Indirect_Literal Discrete,0x98,{0x80000000, 0x00020000}
0046 0273 | s | Execute Discrete,Plus
0047 0007 | | Action Break_Optional
0048 e00c | | Load 0x0,0xc
0049 e00d | | Load 0x0,0xd
004a e213 | | Load 0x1,0x13
004b e00e | | Load 0x0,0xe
004c 0387 | | Declare_Variable Package
004d 00d8 | | Load_Top At_Offset_0
004e 020f | | Execute Module,Activate
004f 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0050 00c7 | | Action Elaborate_Subprogram
0051 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
0053 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0055 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0057 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0059 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
005b 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
005d 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
005f 029d 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call
0061 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
0063 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0064 00c7 | | Action Elaborate_Subprogram
0065 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0066 00c7 | | Action Elaborate_Subprogram
0067 BODY_0008:
0067 00bc | | Action Signal_Activated
0068 00bb | | Action Signal_Completion
0069 0000 0000 | | .BLANK 0000[0x7]
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 052f | /| Action Push_String_Extended_Indexed,0x52f ; "SUCCESSFUL"
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 e20d | | Load 0x1,0xd
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 e20d | | Load 0x1,0xd
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 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
009c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a4 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
00ac 0e00 | | Execute_Immediate Not_Equal,0x0
00ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00ce | | .CONST 0x00ce ; Address of begin
00b1 0164 | d | .CONST 0x0164 ; Address of exception handler
00b2 0007 | | .CONST 0x0007 ; Number of locals
00b3 INIT_00b0:
00b3 4801 |H | Short_Literal 0x1
00b4 00db | | Load_Top At_Offset_3
00b5 01db | | Execute Vector,Length
00b6 00d8 | | Load_Top At_Offset_0
00b7 00e2 | | Load_Encached Integer_Cache
00b8 0260 | ` | Execute Discrete,In_Type
00b9 7001 |p | Jump_Nonzero 0xbb
00ba 0801 | | Execute_Immediate Raise,0x1
00bb 00e9 | | Load_Encached String_Cache
00bc 035b | [ | Declare_Type Array,Constrained
00bd 0337 | 7 | Declare_Variable Array
00be 00e3 | | Load_Encached Natural_Cache
00bf e213 | | Load 0x1,0x13
00c0 0007 | | Action Break_Optional
00c1 e00a | | Load 0x0,0xa
00c2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c4 e00a | | Load 0x0,0xa
00c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00c7 02c7 | | Declare_Variable Any
00c8 e5fe | | Load 0x2,-0x2
00c9 a406 | | Store_Unchecked 0x2,0x6
00ca e212 | | Load 0x1,0x12
00cb 0322 | " | Declare_Variable Record
00cc 00d8 | | Load_Top At_Offset_0
00cd 1c00 | | Execute_Immediate Run_Utility,0x0
00ce BODY_00b0:
00ce 00d8 | | Load_Top At_Offset_0
00cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d0 0120 | | Execute Any,Is_Value
00d1 6804 |h | Jump_Zero 0xd6
00d2 e00a | | Load 0x0,0xa
00d3 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d5 7802 |x | Jump 0xd8
00d6 00d8 | | Load_Top At_Offset_0
00d7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d8 e5fd | | Load 0x2,-0x3
00d9 e00a | | Load 0x0,0xa
00da 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00db 180f | | Execute Package,Field_Execute,Field_Number 0xf
00dc 00d9 | | Load_Top At_Offset_1
00dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00de 00d8 | | Load_Top At_Offset_0
00df 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00e0 0120 | | Execute Any,Is_Value
00e1 6804 |h | Jump_Zero 0xe6
00e2 e00a | | Load 0x0,0xa
00e3 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e5 7802 |x | Jump 0xe8
00e6 00d8 | | Load_Top At_Offset_0
00e7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00e8 e5fd | | Load 0x2,-0x3
00e9 e00a | | Load 0x0,0xa
00ea 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00eb 180f | | Execute Package,Field_Execute,Field_Number 0xf
00ec 00d9 | | Load_Top At_Offset_1
00ed 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00ee 00d8 | | Load_Top At_Offset_0
00ef 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00f0 0120 | | Execute Any,Is_Value
00f1 6804 |h | Jump_Zero 0xf6
00f2 e00a | | Load 0x0,0xa
00f3 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 7802 |x | Jump 0xf8
00f6 00d8 | | Load_Top At_Offset_0
00f7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00f8 e5fd | | Load 0x2,-0x3
00f9 e00a | | Load 0x0,0xa
00fa 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
00fb 180f | | Execute Package,Field_Execute,Field_Number 0xf
00fc 00d9 | | Load_Top At_Offset_1
00fd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00fe e5fd | | Load 0x2,-0x3
00ff e00f | | Load 0x0,0xf
0100 e211 | | Load 0x1,0x11
0101 0096 | | Execute Package,Entry
0102 00d9 | | Load_Top At_Offset_1
0103 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0104 00e3 | | Load_Encached Natural_Cache
0105 e402 | | Load 0x2,0x2
0106 e213 | | Load 0x1,0x13
0107 e5ff | | Load 0x2,-0x1
0108 821a | | Call 0x1,0x1a
0109 c404 | | Store 0x2,0x4
010a 00d1 | | Pop_Control Pop_Count_1
010b c403 | | Store 0x2,0x3
010c 00db | | Load_Top At_Offset_3
010d 4607 |F | Jump_Case 0x8
010e 7843 |xC | Jump 0x152 ; case 0x0
010f 780a |x | Jump 0x11a ; case 0x1
0110 7809 |x | Jump 0x11a ; case 0x2
0111 7818 |x | Jump 0x12a ; case 0x3
0112 7817 |x | Jump 0x12a ; case 0x4
0113 7826 |x& | Jump 0x13a ; case 0x5
0114 7835 |x5 | Jump 0x14a ; case 0x6
0115 7800 |x | Jump 0x116 ; case 0x7
0116 4801 |H | Short_Literal 0x1
0117 00d9 | | Load_Top At_Offset_1
0118 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0119 7838 |x8 | Jump 0x152
011a e00a | | Load 0x0,0xa
011b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011d e20d | | Load 0x1,0xd
011e 00db | | Load_Top At_Offset_3
011f 00db | | Load_Top At_Offset_3
0120 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0121 e5fd | | Load 0x2,-0x3
0122 e404 | | Load 0x2,0x4
0123 821e | | Call 0x1,0x1e
0124 e407 | | Load 0x2,0x7
0125 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0126 c406 | | Store 0x2,0x6
0127 c5fb | | Store 0x2,-0x5
0128 005b | [ | Store_Top Discrete,At_Offset_3
0129 7828 |x( | Jump 0x152
012a e00a | | Load 0x0,0xa
012b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012d e20d | | Load 0x1,0xd
012e 00db | | Load_Top At_Offset_3
012f 00db | | Load_Top At_Offset_3
0130 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0131 e5fd | | Load 0x2,-0x3
0132 e404 | | Load 0x2,0x4
0133 821e | | Call 0x1,0x1e
0134 e407 | | Load 0x2,0x7
0135 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0136 c406 | | Store 0x2,0x6
0137 c5fb | | Store 0x2,-0x5
0138 005b | [ | Store_Top Discrete,At_Offset_3
0139 7818 |x | Jump 0x152
013a e00a | | Load 0x0,0xa
013b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
013c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013d e20d | | Load 0x1,0xd
013e 00db | | Load_Top At_Offset_3
013f 00db | | Load_Top At_Offset_3
0140 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0141 e5fd | | Load 0x2,-0x3
0142 e404 | | Load 0x2,0x4
0143 821e | | Call 0x1,0x1e
0144 e407 | | Load 0x2,0x7
0145 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0146 c406 | | Store 0x2,0x6
0147 c5fb | | Store 0x2,-0x5
0148 005b | [ | Store_Top Discrete,At_Offset_3
0149 7808 |x | Jump 0x152
014a 00d8 | | Load_Top At_Offset_0
014b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
014c e5fd | | Load 0x2,-0x3
014d e010 | | Load 0x0,0x10
014e 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
014f 821b | | Call 0x1,0x1b
0150 00d9 | | Load_Top At_Offset_1
0151 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0152 e00a | | Load 0x0,0xa
0153 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0154 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0155 e20d | | Load 0x1,0xd
0156 00da | | Load_Top At_Offset_2
0157 e5fd | | Load 0x2,-0x3
0158 4801 |H | Short_Literal 0x1
0159 e403 | | Load 0x2,0x3
015a e402 | | Load 0x2,0x2
015b 01cf | | Execute Vector,Slice_Read
015c 821f | | Call 0x1,0x1f
015d 00d1 | | Pop_Control Pop_Count_1
015e c5fb | | Store 0x2,-0x5
015f 005b | [ | Store_Top Discrete,At_Offset_3
0160 00d8 | | Load_Top At_Offset_0
0161 e5fc | | Load 0x2,-0x4
0162 017d | } | Execute Record,Structure_Write
0163 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0164 TRAP_00b0:
0164 e215 | | Load 0x1,0x15
0165 010f | | Execute Exception,Equal
0166 6803 |h | Jump_Zero 0x16a
0167 4804 |H | Short_Literal 0x4
0168 a5fb | | Store_Unchecked 0x2,-0x5
0169 4504 |E | Exit_Suprogram New_Top_Offset 0x4
016a e214 | | Load 0x1,0x14
016b 010f | | Execute Exception,Equal
016c 6803 |h | Jump_Zero 0x170
016d 4802 |H | Short_Literal 0x2
016e a5fb | | Store_Unchecked 0x2,-0x5
016f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0170 0100 | | Execute Exception,Raise
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0182 | | .CONST 0x0182 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b e00a | | Load 0x0,0xa
017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017d 02c7 | | Declare_Variable Any
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call
0182 BODY_0178:
0182 e5fe | | Load 0x2,-0x2
0183 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0184 6802 |h | Jump_Zero 0x187
0185 4800 |H | Short_Literal 0x0
0186 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0187 e5fe | | Load 0x2,-0x2
0188 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0189 6802 |h | Jump_Zero 0x18c
018a 4801 |H | Short_Literal 0x1
018b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018c e5ff | | Load 0x2,-0x1
018d 8219 | | Call 0x1,0x19
018e c402 | | Store 0x2,0x2
018f 00d9 | | Load_Top At_Offset_1
0190 e5fe | | Load 0x2,-0x2
0191 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0192 e00a | | Load 0x0,0xa
0193 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0194 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0195 6802 |h | Jump_Zero 0x198
0196 4801 |H | Short_Literal 0x1
0197 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0198 e5ff | | Load 0x2,-0x1
0199 8218 | | Call 0x1,0x18
019a c402 | | Store 0x2,0x2
019b 00d9 | | Load_Top At_Offset_1
019c e5fe | | Load 0x2,-0x2
019d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
019e e00a | | Load 0x0,0xa
019f 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
01a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a1 6802 |h | Jump_Zero 0x1a4
01a2 4801 |H | Short_Literal 0x1
01a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a4 e5ff | | Load 0x2,-0x1
01a5 e5fe | | Load 0x2,-0x2
01a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a7 e00a | | Load 0x0,0xa
01a8 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
01a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01aa 6802 |h | Jump_Zero 0x1ad
01ab 4801 |H | Short_Literal 0x1
01ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ad 8403 | | Call 0x2,0x3
01ae 4800 |H | Short_Literal 0x0
01af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4607 |F | Jump_Case 0x8
01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01b5 7807 |x | Jump 0x1bd ; case 0x1
01b6 780a |x | Jump 0x1c1 ; case 0x2
01b7 780e |x | Jump 0x1c6 ; case 0x3
01b8 7811 |x | Jump 0x1ca ; case 0x4
01b9 7812 |x | Jump 0x1cc ; case 0x5
01ba 7813 |x | Jump 0x1ce ; case 0x6
01bb 7816 |x | Jump 0x1d2 ; case 0x7
01bc 4302 |C | .XXX[0x1]
01bd 00da | | Load_Top At_Offset_2
01be 0091 0534 | 4| Action Push_String_Extended_Indexed,0x534 ; "NONE"
01c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c1 00db | | Load_Top At_Offset_3
01c2 00db | | Load_Top At_Offset_3
01c3 00e0 | | Load_Encached Standard_Cache
01c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c6 00da | | Load_Top At_Offset_2
01c7 00e0 | | Load_Encached Standard_Cache
01c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ca 00db | | Load_Top At_Offset_3
01cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cc 00db | | Load_Top At_Offset_3
01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ce e213 | | Load 0x1,0x13
01cf 00dc | | Load_Top At_Offset_4
01d0 0267 | g | Execute Discrete,Predecessor
01d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d2 e213 | | Load 0x1,0x13
01d3 00dc | | Load_Top At_Offset_4
01d4 0268 | h | Execute Discrete,Successor
01d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc 0b01 | | Execute_Immediate Case_Compare,0x1
01dd 7003 |p | Jump_Nonzero 0x1e1
01de 6805 |h | Jump_Zero 0x1e4
01df e215 | | Load 0x1,0x15
01e0 0257 | W | Execute Discrete,Raise
01e1 00d1 | | Pop_Control Pop_Count_1
01e2 e214 | | Load 0x1,0x14
01e3 0257 | W | Execute Discrete,Raise
01e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e00a | | Load 0x0,0xa
01ed 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
01ee 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0200 | | .CONST 0x0200 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0004 | | .CONST 0x0004 ; Number of locals
01f3 INIT_01f0:
01f3 e00a | | Load 0x0,0xa
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 e00a | | Load 0x0,0xa
01f6 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
01f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f8 02c7 | | Declare_Variable Any
01f9 00d8 | | Load_Top At_Offset_0
01fa 1c00 | | Execute_Immediate Run_Utility,0x0
01fb e00a | | Load 0x0,0xa
01fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fd 02c7 | | Declare_Variable Any
01fe 00d8 | | Load_Top At_Offset_0
01ff 1c00 | | Execute_Immediate Run_Utility,0x0
0200 BODY_01f0:
0200 e00a | | Load 0x0,0xa
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 00da | | Load_Top At_Offset_2
0203 0120 | | Execute Any,Is_Value
0204 6804 |h | Jump_Zero 0x209
0205 e00a | | Load 0x0,0xa
0206 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0207 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0208 7801 |x | Jump 0x20a
0209 00da | | Load_Top At_Offset_2
020a e5ff | | Load 0x2,-0x1
020b e00a | | Load 0x0,0xa
020c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
020d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
020e c403 | | Store 0x2,0x3
020f 005b | [ | Store_Top Discrete,At_Offset_3
0210 00da | | Load_Top At_Offset_2
0211 8217 | | Call 0x1,0x17
0212 00d9 | | Load_Top At_Offset_1
0213 e00a | | Load 0x0,0xa
0214 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0215 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0216 c404 | | Store 0x2,0x4
0217 00d8 | | Load_Top At_Offset_0
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0234 | 4 | .CONST 0x0234 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0009 | | .CONST 0x0009 ; Number of locals
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 01dd | | Execute Vector,First
0225 00e3 | | Load_Encached Natural_Cache
0226 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0227 e5fd | | Load 0x2,-0x3
0228 01dd | | Execute Vector,First
0229 00e3 | | Load_Encached Natural_Cache
022a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
022b 00e3 | | Load_Encached Natural_Cache
022c 00e1 | | Load_Encached Boolean_Cache
022d 00e1 | | Load_Encached Boolean_Cache
022e e213 | | Load 0x1,0x13
022f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0230 e213 | | Load 0x1,0x13
0231 0007 | | Action Break_Optional
0232 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
0234 BODY_0220:
0234 00cf | | Action Mark_Auxiliary
0235 7840 |x@ | Jump 0x276
0236 e402 | | Load 0x2,0x2
0237 e5ff | | Load 0x2,-0x1
0238 01d7 | | Execute Vector,Field_Read
0239 0f3c | < | Execute_Immediate Equal,0x3c
023a 6839 |h9 | Jump_Zero 0x274
023b 4801 |H | Short_Literal 0x1
023c e402 | | Load 0x2,0x2
023d e5ff | | Load 0x2,-0x1
023e 01dc | | Execute Vector,Last
023f e5ff | | Load 0x2,-0x1
0240 01cf | | Execute Vector,Slice_Read
0241 483e |H> | Short_Literal 0x3e
0242 e011 | | Load 0x0,0x11
0243 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0244 a404 | | Store_Unchecked 0x2,0x4
0245 00e1 | | Load_Encached Boolean_Cache
0246 00e1 | | Load_Encached Boolean_Cache
0247 e216 | | Load 0x1,0x16
0248 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0249 e402 | | Load 0x2,0x2
024a 0a01 | | Execute_Immediate Plus,0x1
024b 00d8 | | Load_Top At_Offset_0
024c 00e2 | | Load_Encached Integer_Cache
024d 0260 | ` | Execute Discrete,In_Type
024e 7001 |p | Jump_Nonzero 0x250
024f 0801 | | Execute_Immediate Raise,0x1
0250 e404 | | Load 0x2,0x4
0251 0aff | | Execute_Immediate Plus,-0x1
0252 e5ff | | Load 0x2,-0x1
0253 01cf | | Execute Vector,Slice_Read
0254 e216 | | Load 0x1,0x16
0255 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0256 c408 | | Store 0x2,0x8
0257 c405 | | Store 0x2,0x5
0258 c406 | | Store 0x2,0x6
0259 e406 | | Load 0x2,0x6
025a 700d |p | Jump_Nonzero 0x268
025b e010 | | Load 0x0,0x10
025c 180e | | Execute Package,Field_Execute,Field_Number 0xe
025d 4806 |H | Short_Literal 0x6
025e 0092 053c | <| Action Push_String_Extended,0x53c ; "Invalid Constraint String Placeholder "
0260 e402 | | Load 0x2,0x2
0261 e404 | | Load 0x2,0x4
0262 e5ff | | Load 0x2,-0x1
0263 01cf | | Execute Vector,Slice_Read
0264 01cc | | Execute Vector,Catenate
0265 e012 | | Load 0x0,0x12
0266 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0267 780d |x | Jump 0x275
0268 00da | | Load_Top At_Offset_2
0269 e407 | | Load 0x2,0x7
026a 027d | } | Execute Discrete,Greater
026b 6802 |h | Jump_Zero 0x26e
026c 00da | | Load_Top At_Offset_2
026d a407 | | Store_Unchecked 0x2,0x7
026e e404 | | Load 0x2,0x4
026f 6805 |h | Jump_Zero 0x275
0270 e404 | | Load 0x2,0x4
0271 0a01 | | Execute_Immediate Plus,0x1
0272 c402 | | Store 0x2,0x2
0273 7801 |x | Jump 0x275
0274 8409 | | Call 0x2,0x9
0275 00c9 | | Action Pop_Auxiliary_Loop
0276 e402 | | Load 0x2,0x2
0277 e5ff | | Load 0x2,-0x1
0278 01dc | | Execute Vector,Last
0279 027a | z | Execute Discrete,Less_Equal
027a 77bb |w | Jump_Nonzero 0x236
027b 00ce | | Action Pop_Auxiliary
027c e403 | | Load 0x2,0x3
027d 0aff | | Execute_Immediate Plus,-0x1
027e c5fc | | Store 0x2,-0x4
027f 00da | | Load_Top At_Offset_2
0280 a5fe | | Store_Unchecked 0x2,-0x2
0281 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 02ac | | .CONST 0x02ac ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0006 | | .CONST 0x0006 ; Number of locals
028b INIT_0288:
028b e013 | | Load 0x0,0x13
028c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
028d 0124 | $ | Execute Any,Is_Constrained
028e 7008 |p | Jump_Nonzero 0x297
028f e013 | | Load 0x0,0x13
0290 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0291 1c09 | | Execute_Immediate Run_Utility,0x9
0292 e013 | | Load 0x0,0x13
0293 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0294 e5fe | | Load 0x2,-0x2
0295 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype
0296 7804 |x | Jump 0x29b
0297 e013 | | Load 0x0,0x13
0298 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0299 e5fe | | Load 0x2,-0x2
029a 039c | | Declare_Variable Heap_Access,By_Allocation
029b e00a | | Load 0x0,0xa
029c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029d e013 | | Load 0x0,0x13
029e 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
029f 02c7 | | Declare_Variable Any
02a0 00d8 | | Load_Top At_Offset_0
02a1 1c00 | | Execute_Immediate Run_Utility,0x0
02a2 e013 | | Load 0x0,0x13
02a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a4 02c7 | | Declare_Variable Any
02a5 00d8 | | Load_Top At_Offset_0
02a6 1c00 | | Execute_Immediate Run_Utility,0x0
02a7 e00a | | Load 0x0,0xa
02a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a9 02c7 | | Declare_Variable Any
02aa 00d8 | | Load_Top At_Offset_0
02ab 1c00 | | Execute_Immediate Run_Utility,0x0
02ac BODY_0288:
02ac 00be | | Action Activate_Tasks
02ad e5ff | | Load 0x2,-0x1
02ae e013 | | Load 0x0,0x13
02af 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
02b0 7002 |p | Jump_Nonzero 0x2b3
02b1 e215 | | Load 0x1,0x15
02b2 0257 | W | Execute Discrete,Raise
02b3 e402 | | Load 0x2,0x2
02b4 e00a | | Load 0x0,0xa
02b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b6 00d9 | | Load_Top At_Offset_1
02b7 0219 | | Execute Heap_Access,All_Read
02b8 4800 |H | Short_Literal 0x0
02b9 4800 |H | Short_Literal 0x0
02ba e014 | | Load 0x0,0x14
02bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bc e5ff | | Load 0x2,-0x1
02bd e013 | | Load 0x0,0x13
02be 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02bf 00da | | Load_Top At_Offset_2
02c0 0218 | | Execute Heap_Access,All_Write
02c1 c403 | | Store 0x2,0x3
02c2 00d1 | | Pop_Control Pop_Count_1
02c3 00db | | Load_Top At_Offset_3
02c4 8217 | | Call 0x1,0x17
02c5 00da | | Load_Top At_Offset_2
02c6 0120 | | Execute Any,Is_Value
02c7 6803 |h | Jump_Zero 0x2cb
02c8 e013 | | Load 0x0,0x13
02c9 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
02ca 7801 |x | Jump 0x2cc
02cb 00da | | Load_Top At_Offset_2
02cc e402 | | Load 0x2,0x2
02cd e013 | | Load 0x0,0x13
02ce 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
02cf c404 | | Store 0x2,0x4
02d0 00cf | | Action Mark_Auxiliary
02d1 782b |x+ | Jump 0x2fd
02d2 00db | | Load_Top At_Offset_3
02d3 e013 | | Load 0x0,0x13
02d4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
02d5 c405 | | Store 0x2,0x5
02d6 00da | | Load_Top At_Offset_2
02d7 e00a | | Load 0x0,0xa
02d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d9 701e |p | Jump_Nonzero 0x2f8
02da e402 | | Load 0x2,0x2
02db 0219 | | Execute Heap_Access,All_Read
02dc 00db | | Load_Top At_Offset_3
02dd e013 | | Load 0x0,0x13
02de 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02df c406 | | Store 0x2,0x6
02e0 00d9 | | Load_Top At_Offset_1
02e1 e00a | | Load 0x0,0xa
02e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e3 7005 |p | Jump_Nonzero 0x2e9
02e4 00d9 | | Load_Top At_Offset_1
02e5 e5fd | | Load 0x2,-0x3
02e6 e00a | | Load 0x0,0xa
02e7 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
02e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e9 e402 | | Load 0x2,0x2
02ea 0219 | | Execute Heap_Access,All_Read
02eb 00db | | Load_Top At_Offset_3
02ec e013 | | Load 0x0,0x13
02ed 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02ee c406 | | Store 0x2,0x6
02ef 00d9 | | Load_Top At_Offset_1
02f0 e00a | | Load 0x0,0xa
02f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f2 7005 |p | Jump_Nonzero 0x2f8
02f3 00d9 | | Load_Top At_Offset_1
02f4 e5fd | | Load 0x2,-0x3
02f5 e00a | | Load 0x0,0xa
02f6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
02f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f8 00db | | Load_Top At_Offset_3
02f9 e013 | | Load 0x0,0x13
02fa 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02fb c404 | | Store 0x2,0x4
02fc 00c9 | | Action Pop_Auxiliary_Loop
02fd 00db | | Load_Top At_Offset_3
02fe e013 | | Load 0x0,0x13
02ff 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0300 6fd1 |o | Jump_Zero 0x2d2
0301 00ce | | Action Pop_Auxiliary
0302 e402 | | Load 0x2,0x2
0303 e00a | | Load 0x0,0xa
0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0305 00d9 | | Load_Top At_Offset_1
0306 0219 | | Execute Heap_Access,All_Read
0307 e013 | | Load 0x0,0x13
0308 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0309 00da | | Load_Top At_Offset_2
030a 0218 | | Execute Heap_Access,All_Write
030b c403 | | Store 0x2,0x3
030c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0325 | % | .CONST 0x0325 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0005 | | .CONST 0x0005 ; Number of locals
0313 INIT_0310:
0313 e00a | | Load 0x0,0xa
0314 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0315 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0316 02c7 | | Declare_Variable Any
0317 00d8 | | Load_Top At_Offset_0
0318 1c00 | | Execute_Immediate Run_Utility,0x0
0319 e00a | | Load 0x0,0xa
031a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031b e00a | | Load 0x0,0xa
031c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
031d 02c7 | | Declare_Variable Any
031e 00d8 | | Load_Top At_Offset_0
031f 1c00 | | Execute_Immediate Run_Utility,0x0
0320 e00a | | Load 0x0,0xa
0321 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0322 02ff | | Declare_Variable Variant_Record
0323 00d8 | | Load_Top At_Offset_0
0324 1c00 | | Execute_Immediate Run_Utility,0x0
0325 BODY_0310:
0325 e5ff | | Load 0x2,-0x1
0326 e5fe | | Load 0x2,-0x2
0327 e00a | | Load 0x0,0xa
0328 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0329 1815 | | Execute Package,Field_Execute,Field_Number 0x15
032a e00a | | Load 0x0,0xa
032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032c e402 | | Load 0x2,0x2
032d 0120 | | Execute Any,Is_Value
032e 6804 |h | Jump_Zero 0x333
032f e00a | | Load 0x0,0xa
0330 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0331 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0332 7801 |x | Jump 0x334
0333 e402 | | Load 0x2,0x2
0334 603b |`; | Indirect_Literal Discrete,0x370,{0x00000000, 0x00004000}
0335 e014 | | Load 0x0,0x14
0336 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0337 e5ff | | Load 0x2,-0x1
0338 e00a | | Load 0x0,0xa
0339 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
033a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033b e00a | | Load 0x0,0xa
033c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
033d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
033e c402 | | Store 0x2,0x2
033f 005b | [ | Store_Top Discrete,At_Offset_3
0340 00da | | Load_Top At_Offset_2
0341 8217 | | Call 0x1,0x17
0342 00cf | | Action Mark_Auxiliary
0343 7823 |x# | Jump 0x367
0344 e402 | | Load 0x2,0x2
0345 e00a | | Load 0x0,0xa
0346 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0347 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0348 c404 | | Store 0x2,0x4
0349 e00a | | Load 0x0,0xa
034a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034b 00da | | Load_Top At_Offset_2
034c 6023 |`# | Indirect_Literal Discrete,0x370,{0x00000000, 0x00004000}
034d e014 | | Load 0x0,0x14
034e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034f 4800 |H | Short_Literal 0x0
0350 e404 | | Load 0x2,0x4
0351 e00a | | Load 0x0,0xa
0352 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0353 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0354 00d1 | | Pop_Control Pop_Count_1
0355 c403 | | Store 0x2,0x3
0356 00db | | Load_Top At_Offset_3
0357 7009 |p | Jump_Nonzero 0x361
0358 00da | | Load_Top At_Offset_2
0359 e00a | | Load 0x0,0xa
035a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
035b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
035c 7004 |p | Jump_Nonzero 0x361
035d e5fe | | Load 0x2,-0x2
035e 00db | | Load_Top At_Offset_3
035f 821c | | Call 0x1,0x1c
0360 c5fe | | Store 0x2,-0x2
0361 e402 | | Load 0x2,0x2
0362 e00a | | Load 0x0,0xa
0363 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0364 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0365 c402 | | Store 0x2,0x2
0366 00c9 | | Action Pop_Auxiliary_Loop
0367 e402 | | Load 0x2,0x2
0368 e00a | | Load 0x0,0xa
0369 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
036a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
036b 6fd8 |o | Jump_Zero 0x344
036c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
036d 0000 0000 | | .XXX[0x3]
036f 0000 | |
0370 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0374 0000 0000 | | .BLANK 0000[0x4]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 4800 |H | Short_Literal 0x0
037c a5fb | | Store_Unchecked 0x2,-0x5
037d 4800 |H | Short_Literal 0x0
037e a5fa | | Store_Unchecked 0x2,-0x6
037f 00da | | Load_Top At_Offset_2
0380 4607 |F | Jump_Case 0x8
0381 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
0382 781a |x | Jump 0x39d ; case 0x1
0383 7806 |x | Jump 0x38a ; case 0x2
0384 780a |x | Jump 0x38f ; case 0x3
0385 7809 |x | Jump 0x38f ; case 0x4
0386 780f |x | Jump 0x396 ; case 0x5
0387 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x6
0388 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x7
0389 4503 |E | .XXX[0x1]
038a e5fd | | Load 0x2,-0x3
038b e5fc | | Load 0x2,-0x4
038c 821c | | Call 0x1,0x1c
038d c5fd | | Store 0x2,-0x3
038e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038f e5fc | | Load 0x2,-0x4
0390 8218 | | Call 0x1,0x18
0391 e5fd | | Load 0x2,-0x3
0392 e00a | | Load 0x0,0xa
0393 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0394 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0395 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0396 e5fc | | Load 0x2,-0x4
0397 8219 | | Call 0x1,0x19
0398 e5fd | | Load 0x2,-0x3
0399 e00a | | Load 0x0,0xa
039a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
039b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
039c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
039d e5fc | | Load 0x2,-0x4
039e e5fd | | Load 0x2,-0x3
039f e00a | | Load 0x0,0xa
03a0 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
03a1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a3 0000 0000 | | .BLANK 0000[0x5]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b2 | | .CONST 0x03b2 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0003 | | .CONST 0x0003 ; Number of locals
03ab INIT_03a8:
03ab e00a | | Load 0x0,0xa
03ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ad 02c7 | | Declare_Variable Any
03ae 00d8 | | Load_Top At_Offset_0
03af 1c00 | | Execute_Immediate Run_Utility,0x0
03b0 e00a | | Load 0x0,0xa
03b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b2 BODY_03a8:
03b2 4800 |H | Short_Literal 0x0
03b3 a5fb | | Store_Unchecked 0x2,-0x5
03b4 4800 |H | Short_Literal 0x0
03b5 a5fa | | Store_Unchecked 0x2,-0x6
03b6 00cf | | Action Mark_Auxiliary
03b7 7824 |x$ | Jump 0x3dc
03b8 e00a | | Load 0x0,0xa
03b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ba 00db | | Load_Top At_Offset_3
03bb 0120 | | Execute Any,Is_Value
03bc 6803 |h | Jump_Zero 0x3c0
03bd e00a | | Load 0x0,0xa
03be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bf 7801 |x | Jump 0x3c1
03c0 00db | | Load_Top At_Offset_3
03c1 e5fc | | Load 0x2,-0x4
03c2 e00a | | Load 0x0,0xa
03c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03c4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03c5 c402 | | Store 0x2,0x2
03c6 005a | Z | Store_Top Discrete,At_Offset_2
03c7 00d9 | | Load_Top At_Offset_1
03c8 8217 | | Call 0x1,0x17
03c9 e00a | | Load 0x0,0xa
03ca 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03cc e20d | | Load 0x1,0xd
03cd e402 | | Load 0x2,0x2
03ce e5fd | | Load 0x2,-0x3
03cf e5fe | | Load 0x2,-0x2
03d0 e5ff | | Load 0x2,-0x1
03d1 821d | | Call 0x1,0x1d
03d2 c5fd | | Store 0x2,-0x3
03d3 c402 | | Store 0x2,0x2
03d4 c5fb | | Store 0x2,-0x5
03d5 c5fa | | Store 0x2,-0x6
03d6 e5fc | | Load 0x2,-0x4
03d7 e00a | | Load 0x0,0xa
03d8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03d9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03da c5fc | | Store 0x2,-0x4
03db 00c9 | | Action Pop_Auxiliary_Loop
03dc e5fc | | Load 0x2,-0x4
03dd e00a | | Load 0x0,0xa
03de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03df 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03e0 6fd7 |o | Jump_Zero 0x3b8
03e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03e2 0000 0000 | | .BLANK 0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 0405 | | .CONST 0x0405 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0009 | | .CONST 0x0009 ; Number of locals
03eb INIT_03e8:
03eb e00a | | Load 0x0,0xa
03ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ee 00db | | Load_Top At_Offset_3
03ef 01dd | | Execute Vector,First
03f0 0aff | | Execute_Immediate Plus,-0x1
03f1 00e3 | | Load_Encached Natural_Cache
03f2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03f3 00e3 | | Load_Encached Natural_Cache
03f4 e00a | | Load 0x0,0xa
03f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03f6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03f7 02c7 | | Declare_Variable Any
03f8 00d8 | | Load_Top At_Offset_0
03f9 1c00 | | Execute_Immediate Run_Utility,0x0
03fa e00a | | Load 0x0,0xa
03fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fc e00a | | Load 0x0,0xa
03fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03fe 02c7 | | Declare_Variable Any
03ff 00d8 | | Load_Top At_Offset_0
0400 1c00 | | Execute_Immediate Run_Utility,0x0
0401 00e1 | | Load_Encached Boolean_Cache
0402 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0403 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
0405 BODY_03e8:
0405 4800 |H | Short_Literal 0x0
0406 a5fc | | Store_Unchecked 0x2,-0x4
0407 4800 |H | Short_Literal 0x0
0408 a5fb | | Store_Unchecked 0x2,-0x5
0409 e5ff | | Load 0x2,-0x1
040a 01db | | Execute Vector,Length
040b 7001 |p | Jump_Nonzero 0x40d
040c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040d 00cf | | Action Mark_Auxiliary
040e 4801 |H | Short_Literal 0x1
040f e403 | | Load 0x2,0x3
0410 0a01 | | Execute_Immediate Plus,0x1
0411 00d8 | | Load_Top At_Offset_0
0412 00e2 | | Load_Encached Integer_Cache
0413 0260 | ` | Execute Discrete,In_Type
0414 7001 |p | Jump_Nonzero 0x416
0415 0801 | | Execute_Immediate Raise,0x1
0416 e5ff | | Load 0x2,-0x1
0417 01dc | | Execute Vector,Last
0418 e5ff | | Load 0x2,-0x1
0419 01cf | | Execute Vector,Slice_Read
041a 482c |H, | Short_Literal 0x2c
041b e011 | | Load 0x0,0x11
041c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
041d a404 | | Store_Unchecked 0x2,0x4
041e e404 | | Load 0x2,0x4
041f 7006 |p | Jump_Nonzero 0x426
0420 e5ff | | Load 0x2,-0x1
0421 01dc | | Execute Vector,Last
0422 0a01 | | Execute_Immediate Plus,0x1
0423 c404 | | Store 0x2,0x4
0424 4801 |H | Short_Literal 0x1
0425 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0426 8409 | | Call 0x2,0x9
0427 00da | | Load_Top At_Offset_2
0428 7002 |p | Jump_Nonzero 0x42b
0429 00c9 | | Action Pop_Auxiliary_Loop
042a 7fe3 | | Jump 0x40e
042b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
042c 0000 0000 | | .BLANK 0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0437 | 7 | .CONST 0x0437 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0002 | | .CONST 0x0002 ; Number of locals
0433 INIT_0430:
0433 e5ff | | Load 0x2,-0x1
0434 e00a | | Load 0x0,0xa
0435 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0436 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0437 BODY_0430:
0437 e015 | | Load 0x0,0x15
0438 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0439 e016 | | Load 0x0,0x16
043a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
043b 00d9 | | Load_Top At_Offset_1
043c 8017 | | Call 0x0,0x17
043d e5fe | | Load 0x2,-0x2
043e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
043f e018 | | Load 0x0,0x18
0440 e211 | | Load 0x1,0x11
0441 0096 | | Execute Package,Entry
0442 6803 |h | Jump_Zero 0x446
0443 4801 |H | Short_Literal 0x1
0444 00cb | | Action Pop_Block_With_Result
0445 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0446 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0447 0000 | | .XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e402 | | Load 0x2,0x2
044c e5ff | | Load 0x2,-0x1
044d 01d7 | | Execute Vector,Field_Read
044e e403 | | Load 0x2,0x3
044f e5fd | | Load 0x2,-0x3
0450 01d6 | | Execute Vector,Field_Write
0451 e403 | | Load 0x2,0x3
0452 0a01 | | Execute_Immediate Plus,0x1
0453 c403 | | Store 0x2,0x3
0454 e402 | | Load 0x2,0x2
0455 0a01 | | Execute_Immediate Plus,0x1
0456 c402 | | Store 0x2,0x2
0457 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 046a | j | .CONST 0x046a ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0003 | | .CONST 0x0003 ; Number of locals
045b INIT_0458:
045b e403 | | Load 0x2,0x3
045c 0a01 | | Execute_Immediate Plus,0x1
045d 00d8 | | Load_Top At_Offset_0
045e 00e2 | | Load_Encached Integer_Cache
045f 0260 | ` | Execute Discrete,In_Type
0460 7001 |p | Jump_Nonzero 0x462
0461 0801 | | Execute_Immediate Raise,0x1
0462 e404 | | Load 0x2,0x4
0463 0aff | | Execute_Immediate Plus,-0x1
0464 e5ff | | Load 0x2,-0x1
0465 01cf | | Execute Vector,Slice_Read
0466 0335 | 5 | Declare_Variable Array,Duplicate
0467 00cd | | Action Spare6_Action
0468 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call
046a BODY_0458:
046a e404 | | Load 0x2,0x4
046b a403 | | Store_Unchecked 0x2,0x3
046c e00a | | Load 0x0,0xa
046d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
046e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
046f e405 | | Load 0x2,0x5
0470 6077 |`w | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000}
0471 e014 | | Load 0x0,0x14
0472 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0473 e015 | | Load 0x0,0x15
0474 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0475 e016 | | Load 0x0,0x16
0476 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0477 4801 |H | Short_Literal 0x1
0478 4800 |H | Short_Literal 0x0
0479 e015 | | Load 0x0,0x15
047a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
047b e00a | | Load 0x0,0xa
047c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
047d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
047e e602 | | Load 0x3,0x2
047f e00a | | Load 0x0,0xa
0480 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0481 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0482 c405 | | Store 0x2,0x5
0483 c402 | | Store 0x2,0x2
0484 e402 | | Load 0x2,0x2
0485 460e |F | Jump_Case 0xf
0486 7814 |x | Jump 0x49b ; case 0x0
0487 780d |x | Jump 0x495 ; case 0x1
0488 780c |x | Jump 0x495 ; case 0x2
0489 785b |x[ | Jump 0x4e5 ; case 0x3
048a 780a |x | Jump 0x495 ; case 0x4
048b 7809 |x | Jump 0x495 ; case 0x5
048c 7808 |x | Jump 0x495 ; case 0x6
048d 7807 |x | Jump 0x495 ; case 0x7
048e 7806 |x | Jump 0x495 ; case 0x8
048f 7805 |x | Jump 0x495 ; case 0x9
0490 7804 |x | Jump 0x495 ; case 0xa
0491 7803 |x | Jump 0x495 ; case 0xb
0492 7802 |x | Jump 0x495 ; case 0xc
0493 7801 |x | Jump 0x495 ; case 0xd
0494 7800 |x | Jump 0x495 ; case 0xe
0495 4803 |H | Short_Literal 0x3
0496 a5fc | | Store_Unchecked 0x2,-0x4
0497 e402 | | Load 0x2,0x2
0498 a5fb | | Store_Unchecked 0x2,-0x5
0499 00cc | | Action Pop_Block
049a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
049b 00cf | | Action Mark_Auxiliary
049c 7841 |xA | Jump 0x4de
049d e00a | | Load 0x0,0xa
049e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049f e407 | | Load 0x2,0x7
04a0 0120 | | Execute Any,Is_Value
04a1 6803 |h | Jump_Zero 0x4a5
04a2 e00a | | Load 0x0,0xa
04a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a4 7801 |x | Jump 0x4a6
04a5 e407 | | Load 0x2,0x7
04a6 e405 | | Load 0x2,0x5
04a7 e00a | | Load 0x0,0xa
04a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04a9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04aa c407 | | Store 0x2,0x7
04ab c406 | | Store 0x2,0x6
04ac e406 | | Load 0x2,0x6
04ad 8217 | | Call 0x1,0x17
04ae e407 | | Load 0x2,0x7
04af e013 | | Load 0x0,0x13
04b0 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
04b1 6808 |h | Jump_Zero 0x4ba
04b2 e5fd | | Load 0x2,-0x3
04b3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04b4 e5fe | | Load 0x2,-0x2
04b5 e407 | | Load 0x2,0x7
04b6 821b | | Call 0x1,0x1b
04b7 e5fd | | Load 0x2,-0x3
04b8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04b9 781e |x | Jump 0x4d8
04ba e407 | | Load 0x2,0x7
04bb e00a | | Load 0x0,0xa
04bc 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
04bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04be 6807 |h | Jump_Zero 0x4c6
04bf e407 | | Load 0x2,0x7
04c0 e5fd | | Load 0x2,-0x3
04c1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04c2 e00a | | Load 0x0,0xa
04c3 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
04c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04c5 7812 |x | Jump 0x4d8
04c6 e407 | | Load 0x2,0x7
04c7 e00a | | Load 0x0,0xa
04c8 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
04c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04ca 6807 |h | Jump_Zero 0x4d2
04cb e407 | | Load 0x2,0x7
04cc e5fd | | Load 0x2,-0x3
04cd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04ce e00a | | Load 0x0,0xa
04cf 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
04d0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04d1 7806 |x | Jump 0x4d8
04d2 e407 | | Load 0x2,0x7
04d3 e5fd | | Load 0x2,-0x3
04d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d5 e00a | | Load 0x0,0xa
04d6 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
04d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04d8 e405 | | Load 0x2,0x5
04d9 e00a | | Load 0x0,0xa
04da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04db 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04dc c405 | | Store 0x2,0x5
04dd 00c9 | | Action Pop_Auxiliary_Loop
04de e405 | | Load 0x2,0x5
04df e00a | | Load 0x0,0xa
04e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04e2 6fba |o | Jump_Zero 0x49d
04e3 00ce | | Action Pop_Auxiliary
04e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e5 8603 | | Call 0x3,0x3
04e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e7 0000 | | .XXX[0x1]
04e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f7 | | .CONST 0x04f7 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0002 | | .CONST 0x0002 ; Number of locals
04f3 INIT_04f0:
04f3 e602 | | Load 0x3,0x2
04f4 e00a | | Load 0x0,0xa
04f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04f6 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
04f7 BODY_04f0:
04f7 00d8 | | Load_Top At_Offset_0
04f8 01db | | Execute Vector,Length
04f9 700b |p | Jump_Nonzero 0x505
04fa e5fd | | Load 0x2,-0x3
04fb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04fc e5fe | | Load 0x2,-0x2
04fd e602 | | Load 0x3,0x2
04fe 8017 | | Call 0x0,0x17
04ff e019 | | Load 0x0,0x19
0500 e211 | | Load 0x1,0x11
0501 0096 | | Execute Package,Entry
0502 e5fd | | Load 0x2,-0x3
0503 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0504 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0505 4803 |H | Short_Literal 0x3
0506 a5fc | | Store_Unchecked 0x2,-0x4
0507 e402 | | Load 0x2,0x2
0508 a5fb | | Store_Unchecked 0x2,-0x5
0509 4501 |E | Exit_Suprogram New_Top_Offset 0x1
050a 0000 0000 | | .BLANK 0000[0x6]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513 | | .CONST 0x0513 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0001 | | .CONST 0x0001 ; Number of locals
0513 BODY_0510:
0513 INIT_0510:
0513 4601 |F | Jump_Case 0x2
0514 7801 |x | Jump 0x516 ; case 0x0
0515 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0516 4800 |H | Short_Literal 0x0
0517 00db | | Load_Top At_Offset_3
0518 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0519 4800 |H | Short_Literal 0x0
051a 00db | | Load_Top At_Offset_3
051b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
051c 00da | | Load_Top At_Offset_2
051d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
051e 0125 | % | Execute Any,Set_Constraint
051f 00da | | Load_Top At_Offset_2
0520 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0521 1c00 | | Execute_Immediate Run_Utility,0x0
0522 00da | | Load_Top At_Offset_2
0523 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0524 0125 | % | Execute Any,Set_Constraint
0525 00da | | Load_Top At_Offset_2
0526 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0527 1c00 | | Execute_Immediate Run_Utility,0x0
0528 00da | | Load_Top At_Offset_2
0529 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
052a 0125 | % | Execute Any,Set_Constraint
052b 00da | | Load_Top At_Offset_2
052c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
052d 1c00 | | Execute_Immediate Run_Utility,0x0
052e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
052f ; --------------------------------------------------------------------------------------
052f ; STRING TABLE
052f ; --------------------------------------------------------------------------------------
052f 001e | | .STRTAB 0x001e->0x053e ; "SUCCESSFUL"
0530 0026 | & | .STRTAB 0x0026->0x0543 ; "UNKNOWN_LIMIT_SPECIFIER"
0531 003b | ; | .STRTAB 0x003b->0x054e ; "LOCK_ERROR"
0532 0043 | C | .STRTAB 0x0043->0x0553 ; "NAMING_ERROR"
0533 004d | M | .STRTAB 0x004d->0x0559 ; "OTHER_ERROR"
0534 0056 | V | .STRTAB 0x0056->0x055f ; "NONE"
0535 0058 | X | .STRTAB 0x0058->0x0561 ; "UNITS"
0536 005b | [ | .STRTAB 0x005b->0x0563 ; "SUBUNITS"
0537 0061 | a | .STRTAB 0x0061->0x0567 ; "DIRECTORY"
0538 0068 | h | .STRTAB 0x0068->0x056c ; "DIRECTORIES"
0539 0071 | q | .STRTAB 0x0071->0x0571 ; "WORLDS"
053a 0075 | u | .STRTAB 0x0075->0x0574 ; "ACTIVITY"
053b 007b | { | .STRTAB 0x007b->0x0578 ; "ALL_WORLDS"
053c 0083 | | .STRTAB 0x0083->0x057d ; "Invalid Constraint String Placeholder "
053d 00a7 | | .STREND 0x00a7->0x0590
053e 5355 4343 |SUCC| .STRTAB_STRINGS
0591 0000 0000 | | .BLANK 0000[0x7]
0598 ; --------------------------------------------------------------------------------------
0598 ; Debug Table
0598 ; --------------------------------------------------------------------------------------
0598 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5dc1,0x0000,0x0001,0x0000
059e 0000 0000 | | .BLANK 0000[0x62]