|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0540 | @ | .CONST 0x0540 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 012a | * | .CONST 0x012a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0066 | f | .CONST 0x0066 ; Number of locals
000b INIT_0008:
000b 4844 |HD | Short_Literal 0x44
000c e001 | | Load 0x0,0x1
000d 01d7 | | Execute Vector,Field_Read
000e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
000f 00bf | | Action Accept_Activation
0010 0007 | | Action Break_Optional
0011 0007 | | Action Break_Optional
0012 0007 | | Action Break_Optional
0013 0007 | | Action Break_Optional
0014 0007 | | Action Break_Optional
0015 0007 | | Action Break_Optional
0016 0007 | | Action Break_Optional
0017 0007 | | Action Break_Optional
0018 0007 | | Action Break_Optional
0019 0007 | | Action Break_Optional
001a 0007 | | Action Break_Optional
001b 0092 0521 | !| Action Push_String_Extended,0x521 ; "YES"
001d 0092 0522 | "| Action Push_String_Extended,0x522 ; "NO"
001f 0092 0523 | #| Action Push_String_Extended,0x523 ; "unknown"
0021 e002 | | Load 0x0,0x2
0022 0007 | | Action Break_Optional
0023 e003 | | Load 0x0,0x3
0024 0007 | | Action Break_Optional
0025 4808 |H | Short_Literal 0x8
0026 48ff |H | Short_Literal 0xff
0027 e004 | | Load 0x0,0x4
0028 03f8 | | Declare_Type Discrete,Constrained
0029 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
002b 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
002d 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
002f 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0031 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
0033 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
0035 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call
0037 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
0039 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call
003b 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call
003d 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call
003f 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
0041 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
0043 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
0045 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0047 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call
0049 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
004b 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
004d 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call
004f 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call
0051 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
0053 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call
0055 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call
0057 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
0059 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
005b 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
005d 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call
005f 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call
0061 029b 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Unelaborated
0063 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0064 00c7 | | Action Elaborate_Subprogram
0065 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0066 00c6 | | Action Check_Subprogram_Elaborated
0067 e005 | | Load 0x0,0x5
0068 e006 | | Load 0x0,0x6
0069 0092 0524 | $| Action Push_String_Extended,0x524 ; "Enter_Leave_"
006b 00ea | | Load_Encached Null_String_Cache
006c 0093 0000 | | push_full_address 0x0
006e 6181 |a | Indirect_Literal Discrete,0x1f0,{0x80000000, 0x00030000}
006f 0273 | s | Execute Discrete,Plus
0070 e007 | | Load 0x0,0x7
0071 0273 | s | Execute Discrete,Plus
0072 e008 | | Load 0x0,0x8
0073 0273 | s | Execute Discrete,Plus
0074 4800 |H | Short_Literal 0x0
0075 0007 | | Action Break_Optional
0076 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0077 00c6 | | Action Check_Subprogram_Elaborated
0078 e009 | | Load 0x0,0x9
0079 e00a | | Load 0x0,0xa
007a 00ea | | Load_Encached Null_String_Cache
007b 0092 0525 | %| Action Push_String_Extended,0x525 ; "_Mask"
007d 0093 0000 | | push_full_address 0x0
007f 616c |al | Indirect_Literal Discrete,0x1ec,{0x80000000, 0x00020000}
0080 0273 | s | Execute Discrete,Plus
0081 e007 | | Load 0x0,0x7
0082 0273 | s | Execute Discrete,Plus
0083 e00b | | Load 0x0,0xb
0084 0273 | s | Execute Discrete,Plus
0085 4800 |H | Short_Literal 0x0
0086 0007 | | Action Break_Optional
0087 4848 |HH | Short_Literal 0x48
0088 e001 | | Load 0x0,0x1
0089 01d7 | | Execute Vector,Field_Read
008a 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
008b 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
008c 00c6 | | Action Check_Subprogram_Elaborated
008d e00c | | Load 0x0,0xc
008e e00d | | Load 0x0,0xd
008f 0092 0526 | &| Action Push_String_Extended,0x526 ; "Cw_"
0091 00ea | | Load_Encached Null_String_Cache
0092 0093 0000 | | push_full_address 0x0
0094 6153 |aS | Indirect_Literal Discrete,0x1e8,{0x80000000, 0x00010000}
0095 0273 | s | Execute Discrete,Plus
0096 e007 | | Load 0x0,0x7
0097 0273 | s | Execute Discrete,Plus
0098 e00e | | Load 0x0,0xe
0099 0273 | s | Execute Discrete,Plus
009a 4800 |H | Short_Literal 0x0
009b 0007 | | Action Break_Optional
009c 4846 |HF | Short_Literal 0x46
009d e001 | | Load 0x0,0x1
009e 01d7 | | Execute Vector,Field_Read
009f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00a0 4824 |H$ | Short_Literal 0x24
00a1 e001 | | Load 0x0,0x1
00a2 01d7 | | Execute Vector,Field_Read
00a3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00a4 4826 |H& | Short_Literal 0x26
00a5 e001 | | Load 0x0,0x1
00a6 01d7 | | Execute Vector,Field_Read
00a7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00a8 4802 |H | Short_Literal 0x2
00a9 e001 | | Load 0x0,0x1
00aa 01d7 | | Execute Vector,Field_Read
00ab 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00ac 4804 |H | Short_Literal 0x4
00ad e001 | | Load 0x0,0x1
00ae 01d7 | | Execute Vector,Field_Read
00af 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00b0 4830 |H0 | Short_Literal 0x30
00b1 e001 | | Load 0x0,0x1
00b2 01d7 | | Execute Vector,Field_Read
00b3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00b4 4816 |H | Short_Literal 0x16
00b5 e001 | | Load 0x0,0x1
00b6 01d7 | | Execute Vector,Field_Read
00b7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00b8 4828 |H( | Short_Literal 0x28
00b9 e001 | | Load 0x0,0x1
00ba 01d7 | | Execute Vector,Field_Read
00bb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00bc 481a |H | Short_Literal 0x1a
00bd e001 | | Load 0x0,0x1
00be 01d7 | | Execute Vector,Field_Read
00bf 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00c0 481c |H | Short_Literal 0x1c
00c1 e001 | | Load 0x0,0x1
00c2 01d7 | | Execute Vector,Field_Read
00c3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00c4 4822 |H" | Short_Literal 0x22
00c5 e001 | | Load 0x0,0x1
00c6 01d7 | | Execute Vector,Field_Read
00c7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00c8 4818 |H | Short_Literal 0x18
00c9 e001 | | Load 0x0,0x1
00ca 01d7 | | Execute Vector,Field_Read
00cb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00cc 481e |H | Short_Literal 0x1e
00cd e001 | | Load 0x0,0x1
00ce 01d7 | | Execute Vector,Field_Read
00cf 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00d0 4832 |H2 | Short_Literal 0x32
00d1 e001 | | Load 0x0,0x1
00d2 01d7 | | Execute Vector,Field_Read
00d3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00d4 4842 |HB | Short_Literal 0x42
00d5 e001 | | Load 0x0,0x1
00d6 01d7 | | Execute Vector,Field_Read
00d7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00d8 4812 |H | Short_Literal 0x12
00d9 e001 | | Load 0x0,0x1
00da 01d7 | | Execute Vector,Field_Read
00db 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00dc 4814 |H | Short_Literal 0x14
00dd e001 | | Load 0x0,0x1
00de 01d7 | | Execute Vector,Field_Read
00df 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00e0 4840 |H@ | Short_Literal 0x40
00e1 e001 | | Load 0x0,0x1
00e2 01d7 | | Execute Vector,Field_Read
00e3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00e4 482a |H* | Short_Literal 0x2a
00e5 e001 | | Load 0x0,0x1
00e6 01d7 | | Execute Vector,Field_Read
00e7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00e8 482e |H. | Short_Literal 0x2e
00e9 e001 | | Load 0x0,0x1
00ea 01d7 | | Execute Vector,Field_Read
00eb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00ec 4836 |H6 | Short_Literal 0x36
00ed e001 | | Load 0x0,0x1
00ee 01d7 | | Execute Vector,Field_Read
00ef 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00f0 480e |H | Short_Literal 0xe
00f1 e001 | | Load 0x0,0x1
00f2 01d7 | | Execute Vector,Field_Read
00f3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00f4 4810 |H | Short_Literal 0x10
00f5 e001 | | Load 0x0,0x1
00f6 01d7 | | Execute Vector,Field_Read
00f7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00f8 4820 |H | Short_Literal 0x20
00f9 e001 | | Load 0x0,0x1
00fa 01d7 | | Execute Vector,Field_Read
00fb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
00fc 4838 |H8 | Short_Literal 0x38
00fd e001 | | Load 0x0,0x1
00fe 01d7 | | Execute Vector,Field_Read
00ff 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0100 4806 |H | Short_Literal 0x6
0101 e001 | | Load 0x0,0x1
0102 01d7 | | Execute Vector,Field_Read
0103 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0104 4808 |H | Short_Literal 0x8
0105 e001 | | Load 0x0,0x1
0106 01d7 | | Execute Vector,Field_Read
0107 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0108 4834 |H4 | Short_Literal 0x34
0109 e001 | | Load 0x0,0x1
010a 01d7 | | Execute Vector,Field_Read
010b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
010c 483a |H: | Short_Literal 0x3a
010d e001 | | Load 0x0,0x1
010e 01d7 | | Execute Vector,Field_Read
010f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0110 483e |H> | Short_Literal 0x3e
0111 e001 | | Load 0x0,0x1
0112 01d7 | | Execute Vector,Field_Read
0113 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0114 483c |H< | Short_Literal 0x3c
0115 e001 | | Load 0x0,0x1
0116 01d7 | | Execute Vector,Field_Read
0117 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0118 480c |H | Short_Literal 0xc
0119 e001 | | Load 0x0,0x1
011a 01d7 | | Execute Vector,Field_Read
011b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
011c 480a |H | Short_Literal 0xa
011d e001 | | Load 0x0,0x1
011e 01d7 | | Execute Vector,Field_Read
011f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0120 482c |H, | Short_Literal 0x2c
0121 e001 | | Load 0x0,0x1
0122 01d7 | | Execute Vector,Field_Read
0123 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0124 484a |HJ | Short_Literal 0x4a
0125 e001 | | Load 0x0,0x1
0126 01d7 | | Execute Vector,Field_Read
0127 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0128 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0129 00c7 | | Action Elaborate_Subprogram
012a BODY_0008:
012a 00bc | | Action Signal_Activated
012b 00bb | | Action Signal_Completion
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013c | < | .CONST 0x013c ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 01da | | Execute Vector,Bounds
0135 00e9 | | Load_Encached String_Cache
0136 035b | [ | Declare_Type Array,Constrained
0137 0337 | 7 | Declare_Variable Array
0138 00db | | Load_Top At_Offset_3
0139 01dd | | Execute Vector,First
013a 00e3 | | Load_Encached Natural_Cache
013b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
013c BODY_0130:
013c 00cf | | Action Mark_Auxiliary
013d 0007 | | Action Break_Optional
013e 00d9 | | Load_Top At_Offset_1
013f e5ff | | Load 0x2,-0x1
0140 01dc | | Execute Vector,Last
0141 027d | } | Execute Discrete,Greater
0142 6804 |h | Jump_Zero 0x147
0143 00da | | Load_Top At_Offset_2
0144 00e9 | | Load_Encached String_Cache
0145 01c6 | | Execute Vector,Convert_To_Formal
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 00cf | | Action Mark_Auxiliary
0148 0007 | | Action Break_Optional
0149 00da | | Load_Top At_Offset_2
014a e5ff | | Load 0x2,-0x1
014b 01d7 | | Execute Vector,Field_Read
014c 4861 |Ha | Short_Literal 0x61
014d 487a |Hz | Short_Literal 0x7a
014e 0262 | b | Execute Discrete,In_Range
014f 6810 |h | Jump_Zero 0x160
0150 00da | | Load_Top At_Offset_2
0151 e5ff | | Load 0x2,-0x1
0152 01d7 | | Execute Vector,Field_Read
0153 0ae0 | | Execute_Immediate Plus,-0x20
0154 00d8 | | Load_Top At_Offset_0
0155 00e8 | | Load_Encached Character_Cache
0156 0260 | ` | Execute Discrete,In_Type
0157 7001 |p | Jump_Nonzero 0x159
0158 0801 | | Execute_Immediate Raise,0x1
0159 00db | | Load_Top At_Offset_3
015a e402 | | Load 0x2,0x2
015b 01d6 | | Execute Vector,Field_Write
015c 00da | | Load_Top At_Offset_2
015d 0a01 | | Execute_Immediate Plus,0x1
015e 005b | [ | Store_Top Discrete,At_Offset_3
015f 782c |x, | Jump 0x18c
0160 00da | | Load_Top At_Offset_2
0161 e5ff | | Load 0x2,-0x1
0162 01d7 | | Execute Vector,Field_Read
0163 4841 |HA | Short_Literal 0x41
0164 485a |HZ | Short_Literal 0x5a
0165 0262 | b | Execute Discrete,In_Range
0166 7007 |p | Jump_Nonzero 0x16e
0167 00da | | Load_Top At_Offset_2
0168 e5ff | | Load 0x2,-0x1
0169 01d7 | | Execute Vector,Field_Read
016a 4830 |H0 | Short_Literal 0x30
016b 4839 |H9 | Short_Literal 0x39
016c 0262 | b | Execute Discrete,In_Range
016d 680a |h | Jump_Zero 0x178
016e 00da | | Load_Top At_Offset_2
016f e5ff | | Load 0x2,-0x1
0170 01d7 | | Execute Vector,Field_Read
0171 00db | | Load_Top At_Offset_3
0172 e402 | | Load 0x2,0x2
0173 01d6 | | Execute Vector,Field_Write
0174 00da | | Load_Top At_Offset_2
0175 0a01 | | Execute_Immediate Plus,0x1
0176 005b | [ | Store_Top Discrete,At_Offset_3
0177 7814 |x | Jump 0x18c
0178 00da | | Load_Top At_Offset_2
0179 e5ff | | Load 0x2,-0x1
017a 01d7 | | Execute Vector,Field_Read
017b 00db | | Load_Top At_Offset_3
017c e402 | | Load 0x2,0x2
017d 01d6 | | Execute Vector,Field_Write
017e 00da | | Load_Top At_Offset_2
017f 0a01 | | Execute_Immediate Plus,0x1
0180 005b | [ | Store_Top Discrete,At_Offset_3
0181 00da | | Load_Top At_Offset_2
0182 e5ff | | Load 0x2,-0x1
0183 01dc | | Execute Vector,Last
0184 027d | } | Execute Discrete,Greater
0185 6804 |h | Jump_Zero 0x18a
0186 00db | | Load_Top At_Offset_3
0187 00e9 | | Load_Encached String_Cache
0188 01c6 | | Execute Vector,Convert_To_Formal
0189 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018a 00c9 | | Action Pop_Auxiliary_Loop
018b 7fbd | | Jump 0x149
018c 00ce | | Action Pop_Auxiliary
018d 00d9 | | Load_Top At_Offset_1
018e e5ff | | Load 0x2,-0x1
018f 01dc | | Execute Vector,Last
0190 027d | } | Execute Discrete,Greater
0191 6804 |h | Jump_Zero 0x196
0192 00da | | Load_Top At_Offset_2
0193 00e9 | | Load_Encached String_Cache
0194 01c6 | | Execute Vector,Convert_To_Formal
0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0196 00cf | | Action Mark_Auxiliary
0197 0007 | | Action Break_Optional
0198 00da | | Load_Top At_Offset_2
0199 e5ff | | Load 0x2,-0x1
019a 01d7 | | Execute Vector,Field_Read
019b 4841 |HA | Short_Literal 0x41
019c 485a |HZ | Short_Literal 0x5a
019d 0262 | b | Execute Discrete,In_Range
019e 6818 |h | Jump_Zero 0x1b7
019f 00da | | Load_Top At_Offset_2
01a0 e5ff | | Load 0x2,-0x1
01a1 01d7 | | Execute Vector,Field_Read
01a2 0a20 | | Execute_Immediate Plus,0x20
01a3 00d8 | | Load_Top At_Offset_0
01a4 00e8 | | Load_Encached Character_Cache
01a5 0260 | ` | Execute Discrete,In_Type
01a6 7001 |p | Jump_Nonzero 0x1a8
01a7 0801 | | Execute_Immediate Raise,0x1
01a8 00db | | Load_Top At_Offset_3
01a9 e402 | | Load 0x2,0x2
01aa 01d6 | | Execute Vector,Field_Write
01ab 00da | | Load_Top At_Offset_2
01ac 0a01 | | Execute_Immediate Plus,0x1
01ad 005b | [ | Store_Top Discrete,At_Offset_3
01ae 00da | | Load_Top At_Offset_2
01af e5ff | | Load 0x2,-0x1
01b0 01dc | | Execute Vector,Last
01b1 027d | } | Execute Discrete,Greater
01b2 682e |h. | Jump_Zero 0x1e1
01b3 00db | | Load_Top At_Offset_3
01b4 00e9 | | Load_Encached String_Cache
01b5 01c6 | | Execute Vector,Convert_To_Formal
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 00da | | Load_Top At_Offset_2
01b8 e5ff | | Load 0x2,-0x1
01b9 01d7 | | Execute Vector,Field_Read
01ba 4861 |Ha | Short_Literal 0x61
01bb 487a |Hz | Short_Literal 0x7a
01bc 0262 | b | Execute Discrete,In_Range
01bd 7007 |p | Jump_Nonzero 0x1c5
01be 00da | | Load_Top At_Offset_2
01bf e5ff | | Load 0x2,-0x1
01c0 01d7 | | Execute Vector,Field_Read
01c1 4830 |H0 | Short_Literal 0x30
01c2 4839 |H9 | Short_Literal 0x39
01c3 0262 | b | Execute Discrete,In_Range
01c4 6812 |h | Jump_Zero 0x1d7
01c5 00da | | Load_Top At_Offset_2
01c6 e5ff | | Load 0x2,-0x1
01c7 01d7 | | Execute Vector,Field_Read
01c8 00db | | Load_Top At_Offset_3
01c9 e402 | | Load 0x2,0x2
01ca 01d6 | | Execute Vector,Field_Write
01cb 00da | | Load_Top At_Offset_2
01cc 0a01 | | Execute_Immediate Plus,0x1
01cd 005b | [ | Store_Top Discrete,At_Offset_3
01ce 00da | | Load_Top At_Offset_2
01cf e5ff | | Load 0x2,-0x1
01d0 01dc | | Execute Vector,Last
01d1 027d | } | Execute Discrete,Greater
01d2 680e |h | Jump_Zero 0x1e1
01d3 00db | | Load_Top At_Offset_3
01d4 00e9 | | Load_Encached String_Cache
01d5 01c6 | | Execute Vector,Convert_To_Formal
01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d7 00da | | Load_Top At_Offset_2
01d8 e5ff | | Load 0x2,-0x1
01d9 01d7 | | Execute Vector,Field_Read
01da 00db | | Load_Top At_Offset_3
01db e402 | | Load 0x2,0x2
01dc 01d6 | | Execute Vector,Field_Write
01dd 00da | | Load_Top At_Offset_2
01de 0a01 | | Execute_Immediate Plus,0x1
01df 005b | [ | Store_Top Discrete,At_Offset_3
01e0 7802 |x | Jump 0x1e3
01e1 00c9 | | Action Pop_Auxiliary_Loop
01e2 7fb5 | | Jump 0x198
01e3 00ce | | Action Pop_Auxiliary
01e4 00c9 | | Action Pop_Auxiliary_Loop
01e5 7f58 | X | Jump 0x13e
01e6 0000 0000 | | .XXX[0x2]
01e8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01ec 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
01f0 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 480a |H | Short_Literal 0xa
01fc 4800 |H | Short_Literal 0x0
01fd e5ff | | Load 0x2,-0x1
01fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ff e00f | | Load 0x0,0xf
0200 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0201 482f |H/ | Short_Literal 0x2f
0202 e010 | | Load 0x0,0x10
0203 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0204 4810 |H | Short_Literal 0x10
0205 4800 |H | Short_Literal 0x0
0206 e5ff | | Load 0x2,-0x1
0207 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0208 e00f | | Load 0x0,0xf
0209 1815 | | Execute Package,Field_Execute,Field_Number 0x15
020a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020b 0000 0000 | | .BLANK 0000[0x5]
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 00e1 | | Load_Encached Boolean_Cache
0215 011c | | Execute Any,Convert_Unchecked
0216 1c01 | | Execute_Immediate Run_Utility,0x1
0217 8214 | | Call 0x1,0x14
0218 e010 | | Load 0x0,0x10
0219 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
021a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 022b | + | .CONST 0x022b ; 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 e011 | | Load 0x0,0x11
0225 011c | | Execute Any,Convert_Unchecked
0226 1c01 | | Execute_Immediate Run_Utility,0x1
0227 8214 | | Call 0x1,0x14
0228 e010 | | Load 0x0,0x10
0229 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
022a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022b TRAP_0220:
022b 010e | | Execute Exception,Is_Constraint_Error
022c 6811 |h | Jump_Zero 0x23e
022d e00f | | Load 0x0,0xf
022e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
022f e00f | | Load 0x0,0xf
0230 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0231 e5ff | | Load 0x2,-0x1
0232 00d8 | | Load_Top At_Offset_0
0233 e003 | | Load 0x0,0x3
0234 0260 | ` | Execute Discrete,In_Type
0235 7001 |p | Jump_Nonzero 0x237
0236 0801 | | Execute_Immediate Raise,0x1
0237 e00f | | Load 0x0,0xf
0238 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0239 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
023b e010 | | Load 0x0,0x10
023c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
023d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023e 0100 | | Execute Exception,Raise
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 024b | K | .CONST 0x024b ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 e012 | | Load 0x0,0x12
0245 011c | | Execute Any,Convert_Unchecked
0246 1c01 | | Execute_Immediate Run_Utility,0x1
0247 8214 | | Call 0x1,0x14
0248 e010 | | Load 0x0,0x10
0249 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
024a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024b TRAP_0240:
024b 010e | | Execute Exception,Is_Constraint_Error
024c 6811 |h | Jump_Zero 0x25e
024d e00f | | Load 0x0,0xf
024e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
024f e00f | | Load 0x0,0xf
0250 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0251 e5ff | | Load 0x2,-0x1
0252 00d8 | | Load_Top At_Offset_0
0253 e003 | | Load 0x0,0x3
0254 0260 | ` | Execute Discrete,In_Type
0255 7001 |p | Jump_Nonzero 0x257
0256 0801 | | Execute_Immediate Raise,0x1
0257 e00f | | Load 0x0,0xf
0258 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0259 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
025b e010 | | Load 0x0,0x10
025c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
025d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025e 0100 | | Execute Exception,Raise
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 026b | k | .CONST 0x026b ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 e013 | | Load 0x0,0x13
0265 011c | | Execute Any,Convert_Unchecked
0266 1c01 | | Execute_Immediate Run_Utility,0x1
0267 8214 | | Call 0x1,0x14
0268 e010 | | Load 0x0,0x10
0269 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
026a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026b TRAP_0260:
026b 010e | | Execute Exception,Is_Constraint_Error
026c 6811 |h | Jump_Zero 0x27e
026d e00f | | Load 0x0,0xf
026e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
026f e00f | | Load 0x0,0xf
0270 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0271 e5ff | | Load 0x2,-0x1
0272 00d8 | | Load_Top At_Offset_0
0273 e003 | | Load 0x0,0x3
0274 0260 | ` | Execute Discrete,In_Type
0275 7001 |p | Jump_Nonzero 0x277
0276 0801 | | Execute_Immediate Raise,0x1
0277 e00f | | Load 0x0,0xf
0278 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0279 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
027b e010 | | Load 0x0,0x10
027c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
027d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027e 0100 | | Execute Exception,Raise
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 028b | | .CONST 0x028b ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 e014 | | Load 0x0,0x14
0285 011c | | Execute Any,Convert_Unchecked
0286 1c01 | | Execute_Immediate Run_Utility,0x1
0287 8214 | | Call 0x1,0x14
0288 e010 | | Load 0x0,0x10
0289 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
028a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028b TRAP_0280:
028b 010e | | Execute Exception,Is_Constraint_Error
028c 6811 |h | Jump_Zero 0x29e
028d e00f | | Load 0x0,0xf
028e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
028f e00f | | Load 0x0,0xf
0290 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0291 e5ff | | Load 0x2,-0x1
0292 00d8 | | Load_Top At_Offset_0
0293 e003 | | Load 0x0,0x3
0294 0260 | ` | Execute Discrete,In_Type
0295 7001 |p | Jump_Nonzero 0x297
0296 0801 | | Execute_Immediate Raise,0x1
0297 e00f | | Load 0x0,0xf
0298 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0299 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
029b e010 | | Load 0x0,0x10
029c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
029d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029e 0100 | | Execute Exception,Raise
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4810 |H | Short_Literal 0x10
02a4 e00f | | Load 0x0,0xf
02a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02a6 e5ff | | Load 0x2,-0x1
02a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a9 e00f | | Load 0x0,0xf
02aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 02bb | | .CONST 0x02bb ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 e015 | | Load 0x0,0x15
02b5 011c | | Execute Any,Convert_Unchecked
02b6 1c01 | | Execute_Immediate Run_Utility,0x1
02b7 8214 | | Call 0x1,0x14
02b8 e010 | | Load 0x0,0x10
02b9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bb TRAP_02b0:
02bb 010e | | Execute Exception,Is_Constraint_Error
02bc 6811 |h | Jump_Zero 0x2ce
02bd e00f | | Load 0x0,0xf
02be 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02bf e00f | | Load 0x0,0xf
02c0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02c1 e5ff | | Load 0x2,-0x1
02c2 00d8 | | Load_Top At_Offset_0
02c3 e003 | | Load 0x0,0x3
02c4 0260 | ` | Execute Discrete,In_Type
02c5 7001 |p | Jump_Nonzero 0x2c7
02c6 0801 | | Execute_Immediate Raise,0x1
02c7 e00f | | Load 0x0,0xf
02c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c9 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
02cb e010 | | Load 0x0,0x10
02cc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ce 0100 | | Execute Exception,Raise
02cf 0000 | | .XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4810 |H | Short_Literal 0x10
02d4 e00f | | Load 0x0,0xf
02d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d6 e5ff | | Load 0x2,-0x1
02d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d9 e00f | | Load 0x0,0xf
02da 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 02eb | | .CONST 0x02eb ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 e016 | | Load 0x0,0x16
02e5 011c | | Execute Any,Convert_Unchecked
02e6 1c01 | | Execute_Immediate Run_Utility,0x1
02e7 8214 | | Call 0x1,0x14
02e8 e010 | | Load 0x0,0x10
02e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02eb TRAP_02e0:
02eb 010e | | Execute Exception,Is_Constraint_Error
02ec 6811 |h | Jump_Zero 0x2fe
02ed e00f | | Load 0x0,0xf
02ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02ef e00f | | Load 0x0,0xf
02f0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02f1 e5ff | | Load 0x2,-0x1
02f2 00d8 | | Load_Top At_Offset_0
02f3 e003 | | Load 0x0,0x3
02f4 0260 | ` | Execute Discrete,In_Type
02f5 7001 |p | Jump_Nonzero 0x2f7
02f6 0801 | | Execute_Immediate Raise,0x1
02f7 e00f | | Load 0x0,0xf
02f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f9 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
02fb e010 | | Load 0x0,0x10
02fc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
02fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02fe 0100 | | Execute Exception,Raise
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 030b | | .CONST 0x030b ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 e017 | | Load 0x0,0x17
0305 011c | | Execute Any,Convert_Unchecked
0306 1c01 | | Execute_Immediate Run_Utility,0x1
0307 8214 | | Call 0x1,0x14
0308 e010 | | Load 0x0,0x10
0309 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
030a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030b TRAP_0300:
030b 010e | | Execute Exception,Is_Constraint_Error
030c 6811 |h | Jump_Zero 0x31e
030d e00f | | Load 0x0,0xf
030e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
030f e00f | | Load 0x0,0xf
0310 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0311 e5ff | | Load 0x2,-0x1
0312 00d8 | | Load_Top At_Offset_0
0313 e003 | | Load 0x0,0x3
0314 0260 | ` | Execute Discrete,In_Type
0315 7001 |p | Jump_Nonzero 0x317
0316 0801 | | Execute_Immediate Raise,0x1
0317 e00f | | Load 0x0,0xf
0318 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0319 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
031b e010 | | Load 0x0,0x10
031c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
031d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031e 0100 | | Execute Exception,Raise
031f 0000 | | .XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 032b | + | .CONST 0x032b ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 e018 | | Load 0x0,0x18
0325 011c | | Execute Any,Convert_Unchecked
0326 1c01 | | Execute_Immediate Run_Utility,0x1
0327 8214 | | Call 0x1,0x14
0328 e010 | | Load 0x0,0x10
0329 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
032a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
032b TRAP_0320:
032b 010e | | Execute Exception,Is_Constraint_Error
032c 6811 |h | Jump_Zero 0x33e
032d e00f | | Load 0x0,0xf
032e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
032f e00f | | Load 0x0,0xf
0330 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0331 e5ff | | Load 0x2,-0x1
0332 00d8 | | Load_Top At_Offset_0
0333 e003 | | Load 0x0,0x3
0334 0260 | ` | Execute Discrete,In_Type
0335 7001 |p | Jump_Nonzero 0x337
0336 0801 | | Execute_Immediate Raise,0x1
0337 e00f | | Load 0x0,0xf
0338 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0339 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
033b e010 | | Load 0x0,0x10
033c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
033d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033e 0100 | | Execute Exception,Raise
033f 0000 | | .XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 034b | K | .CONST 0x034b ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 e019 | | Load 0x0,0x19
0345 011c | | Execute Any,Convert_Unchecked
0346 1c01 | | Execute_Immediate Run_Utility,0x1
0347 8214 | | Call 0x1,0x14
0348 e010 | | Load 0x0,0x10
0349 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
034a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
034b TRAP_0340:
034b 010e | | Execute Exception,Is_Constraint_Error
034c 6811 |h | Jump_Zero 0x35e
034d e00f | | Load 0x0,0xf
034e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
034f e00f | | Load 0x0,0xf
0350 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0351 e5ff | | Load 0x2,-0x1
0352 00d8 | | Load_Top At_Offset_0
0353 e003 | | Load 0x0,0x3
0354 0260 | ` | Execute Discrete,In_Type
0355 7001 |p | Jump_Nonzero 0x357
0356 0801 | | Execute_Immediate Raise,0x1
0357 e00f | | Load 0x0,0xf
0358 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0359 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
035b e010 | | Load 0x0,0x10
035c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
035d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035e 0100 | | Execute Exception,Raise
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 e00f | | Load 0x0,0xf
0364 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0365 4800 |H | Short_Literal 0x0
0366 e5ff | | Load 0x2,-0x1
0367 e00f | | Load 0x0,0xf
0368 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0369 4502 |E | Exit_Suprogram New_Top_Offset 0x2
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 4810 |H | Short_Literal 0x10
0374 4800 |H | Short_Literal 0x0
0375 e5ff | | Load 0x2,-0x1
0376 e00f | | Load 0x0,0xf
0377 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0378 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0379 0000 0000 | | .BLANK 0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 038b | | .CONST 0x038b ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 00da | | Load_Top At_Offset_2
0384 e01a | | Load 0x0,0x1a
0385 011c | | Execute Any,Convert_Unchecked
0386 1c01 | | Execute_Immediate Run_Utility,0x1
0387 8214 | | Call 0x1,0x14
0388 e010 | | Load 0x0,0x10
0389 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
038a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
038b TRAP_0380:
038b 010e | | Execute Exception,Is_Constraint_Error
038c 6810 |h | Jump_Zero 0x39d
038d e00f | | Load 0x0,0xf
038e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
038f 4800 |H | Short_Literal 0x0
0390 e5ff | | Load 0x2,-0x1
0391 00d8 | | Load_Top At_Offset_0
0392 e003 | | Load 0x0,0x3
0393 0260 | ` | Execute Discrete,In_Type
0394 7001 |p | Jump_Nonzero 0x396
0395 0801 | | Execute_Immediate Raise,0x1
0396 e00f | | Load 0x0,0xf
0397 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0398 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
039a e010 | | Load 0x0,0x10
039b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
039c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
039d 0100 | | Execute Exception,Raise
039e 0000 0000 | | .XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 03ab | | .CONST 0x03ab ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 e01b | | Load 0x0,0x1b
03a5 011c | | Execute Any,Convert_Unchecked
03a6 1c01 | | Execute_Immediate Run_Utility,0x1
03a7 8214 | | Call 0x1,0x14
03a8 e010 | | Load 0x0,0x10
03a9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ab TRAP_03a0:
03ab 010e | | Execute Exception,Is_Constraint_Error
03ac 6810 |h | Jump_Zero 0x3bd
03ad e00f | | Load 0x0,0xf
03ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03af 4800 |H | Short_Literal 0x0
03b0 e5ff | | Load 0x2,-0x1
03b1 00d8 | | Load_Top At_Offset_0
03b2 e003 | | Load 0x0,0x3
03b3 0260 | ` | Execute Discrete,In_Type
03b4 7001 |p | Jump_Nonzero 0x3b6
03b5 0801 | | Execute_Immediate Raise,0x1
03b6 e00f | | Load 0x0,0xf
03b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03b8 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
03ba e010 | | Load 0x0,0x10
03bb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bd 0100 | | Execute Exception,Raise
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 03cb | | .CONST 0x03cb ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 e01c | | Load 0x0,0x1c
03c5 011c | | Execute Any,Convert_Unchecked
03c6 1c01 | | Execute_Immediate Run_Utility,0x1
03c7 8214 | | Call 0x1,0x14
03c8 e010 | | Load 0x0,0x10
03c9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03cb TRAP_03c0:
03cb 010e | | Execute Exception,Is_Constraint_Error
03cc 6810 |h | Jump_Zero 0x3dd
03cd e00f | | Load 0x0,0xf
03ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03cf 4800 |H | Short_Literal 0x0
03d0 e5ff | | Load 0x2,-0x1
03d1 00d8 | | Load_Top At_Offset_0
03d2 e003 | | Load 0x0,0x3
03d3 0260 | ` | Execute Discrete,In_Type
03d4 7001 |p | Jump_Nonzero 0x3d6
03d5 0801 | | Execute_Immediate Raise,0x1
03d6 e00f | | Load 0x0,0xf
03d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03d8 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
03da e010 | | Load 0x0,0x10
03db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03dd 0100 | | Execute Exception,Raise
03de 0000 0000 | | .XXX[0x2]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 03eb | | .CONST 0x03eb ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 e01d | | Load 0x0,0x1d
03e5 011c | | Execute Any,Convert_Unchecked
03e6 1c01 | | Execute_Immediate Run_Utility,0x1
03e7 8214 | | Call 0x1,0x14
03e8 e010 | | Load 0x0,0x10
03e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03eb TRAP_03e0:
03eb 010e | | Execute Exception,Is_Constraint_Error
03ec 6810 |h | Jump_Zero 0x3fd
03ed e00f | | Load 0x0,0xf
03ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03ef 4800 |H | Short_Literal 0x0
03f0 e5ff | | Load 0x2,-0x1
03f1 00d8 | | Load_Top At_Offset_0
03f2 e003 | | Load 0x0,0x3
03f3 0260 | ` | Execute Discrete,In_Type
03f4 7001 |p | Jump_Nonzero 0x3f6
03f5 0801 | | Execute_Immediate Raise,0x1
03f6 e00f | | Load 0x0,0xf
03f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03f8 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
03fa e010 | | Load 0x0,0x10
03fb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
03fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03fd 0100 | | Execute Exception,Raise
03fe 0000 0000 | | .XXX[0x2]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 040b | | .CONST 0x040b ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 00da | | Load_Top At_Offset_2
0404 e01e | | Load 0x0,0x1e
0405 011c | | Execute Any,Convert_Unchecked
0406 1c01 | | Execute_Immediate Run_Utility,0x1
0407 8214 | | Call 0x1,0x14
0408 e010 | | Load 0x0,0x10
0409 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
040a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040b TRAP_0400:
040b 010e | | Execute Exception,Is_Constraint_Error
040c 6810 |h | Jump_Zero 0x41d
040d e00f | | Load 0x0,0xf
040e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
040f 4800 |H | Short_Literal 0x0
0410 e5ff | | Load 0x2,-0x1
0411 00d8 | | Load_Top At_Offset_0
0412 e003 | | Load 0x0,0x3
0413 0260 | ` | Execute Discrete,In_Type
0414 7001 |p | Jump_Nonzero 0x416
0415 0801 | | Execute_Immediate Raise,0x1
0416 e00f | | Load 0x0,0xf
0417 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0418 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)"
041a e010 | | Load 0x0,0x10
041b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
041c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041d 0100 | | Execute Exception,Raise
041e 0000 0000 | | .XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00da | | Load_Top At_Offset_2
0424 7004 |p | Jump_Nonzero 0x429
0425 e210 | | Load 0x1,0x10
0426 e010 | | Load 0x0,0x10
0427 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0428 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0429 00da | | Load_Top At_Offset_2
042a 0227 | ' | Execute Access,All_Reference
042b 801f | | Call 0x0,0x1f
042c e010 | | Load 0x0,0x10
042d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
042e 00da | | Load_Top At_Offset_2
042f e020 | | Load 0x0,0x20
0430 e021 | ! | Load 0x0,0x21
0431 a022 | " | Store_Unchecked 0x0,0x22
0432 8023 | # | Call 0x0,0x23
0433 003b | ; | Store_Top Access,At_Offset_3
0434 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0435 0000 0000 | | .XXX[0x3]
0437 0000 | |
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 4810 |H | Short_Literal 0x10
043c 4800 |H | Short_Literal 0x0
043d e5ff | | Load 0x2,-0x1
043e e00f | | Load 0x0,0xf
043f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0440 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0441 0000 0000 | | .BLANK 0000[0x7]
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 4810 |H | Short_Literal 0x10
044c 4800 |H | Short_Literal 0x0
044d e5ff | | Load 0x2,-0x1
044e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
044f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0450 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0451 e00f | | Load 0x0,0xf
0452 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0453 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b e00f | | Load 0x0,0xf
045c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
045d 4800 |H | Short_Literal 0x0
045e e5ff | | Load 0x2,-0x1
045f e00f | | Load 0x0,0xf
0460 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0461 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0462 0000 0000 | | .BLANK 0000[0x6]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b e00f | | Load 0x0,0xf
046c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
046d 4800 |H | Short_Literal 0x0
046e e5ff | | Load 0x2,-0x1
046f e00f | | Load 0x0,0xf
0470 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0471 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0472 0000 0000 | | .BLANK 0000[0x6]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b e00f | | Load 0x0,0xf
047c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
047d 4800 |H | Short_Literal 0x0
047e e5ff | | Load 0x2,-0x1
047f e00f | | Load 0x0,0xf
0480 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0481 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0482 0000 0000 | | .BLANK 0000[0x6]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b e00f | | Load 0x0,0xf
048c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
048d 4800 |H | Short_Literal 0x0
048e e5ff | | Load 0x2,-0x1
048f e00f | | Load 0x0,0xf
0490 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0491 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0492 0000 0000 | | .BLANK 0000[0x6]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049f | | .CONST 0x049f ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0003 | | .CONST 0x0003 ; Number of locals
049b INIT_0498:
049b 00e1 | | Load_Encached Boolean_Cache
049c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
049d 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call
049f BODY_0498:
049f 4828 |H( | Short_Literal 0x28
04a0 e010 | | Load 0x0,0x10
04a1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04a2 00cf | | Action Mark_Auxiliary
04a3 e5fa | | Load 0x2,-0x6
04a4 01da | | Execute Vector,Bounds
04a5 e5fb | | Load 0x2,-0x5
04a6 1c05 | | Execute_Immediate Run_Utility,0x5
04a7 00d0 | | Action Swap_Control
04a8 e5fb | | Load 0x2,-0x5
04a9 1c05 | | Execute_Immediate Run_Utility,0x5
04aa 0263 | c | Execute Discrete,Above_Bound
04ab 7019 |p | Jump_Nonzero 0x4c5
04ac 00d8 | | Load_Top At_Offset_0
04ad e5fb | | Load 0x2,-0x5
04ae 1c04 | | Execute_Immediate Run_Utility,0x4
04af e5fa | | Load 0x2,-0x6
04b0 01d7 | | Execute Vector,Field_Read
04b1 6809 |h | Jump_Zero 0x4bb
04b2 e402 | | Load 0x2,0x2
04b3 7004 |p | Jump_Nonzero 0x4b8
04b4 482c |H, | Short_Literal 0x2c
04b5 e010 | | Load 0x0,0x10
04b6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04b7 7802 |x | Jump 0x4ba
04b8 4800 |H | Short_Literal 0x0
04b9 a402 | | Store_Unchecked 0x2,0x2
04ba 8403 | | Call 0x2,0x3
04bb 00c8 | | Action Pop_Auxiliary_Range
04bc 00d9 | | Load_Top At_Offset_1
04bd 00d9 | | Load_Top At_Offset_1
04be 027f | | Execute Discrete,Equal
04bf 7004 |p | Jump_Nonzero 0x4c4
04c0 e5fb | | Load 0x2,-0x5
04c1 0122 | " | Execute Any,Make_Root_Type
04c2 1c07 | | Execute_Immediate Run_Utility,0x7
04c3 7fe8 | | Jump 0x4ac
04c4 00d2 | | Pop_Control Pop_Count_2
04c5 00ce | | Action Pop_Auxiliary
04c6 4829 |H) | Short_Literal 0x29
04c7 e010 | | Load 0x0,0x10
04c8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
04c9 4507 |E | Exit_Suprogram New_Top_Offset 0x7
04ca 0000 0000 | | .BLANK 0000[0x6]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04e3 | | .CONST 0x04e3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0004 | | .CONST 0x0004 ; Number of locals
04d3 INIT_04d0:
04d3 e406 | | Load 0x2,0x6
04d4 e5fb | | Load 0x2,-0x5
04d5 1c04 | | Execute_Immediate Run_Utility,0x4
04d6 e5fb | | Load 0x2,-0x5
04d7 0122 | " | Execute Any,Make_Root_Type
04d8 011c | | Execute Any,Convert_Unchecked
04d9 1c01 | | Execute_Immediate Run_Utility,0x1
04da 8214 | | Call 0x1,0x14
04db 00d8 | | Load_Top At_Offset_0
04dc 01dd | | Execute Vector,First
04dd 00e3 | | Load_Encached Natural_Cache
04de 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
04df 00d9 | | Load_Top At_Offset_1
04e0 01dc | | Execute Vector,Last
04e1 00e3 | | Load_Encached Natural_Cache
04e2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
04e3 BODY_04d0:
04e3 e5fd | | Load 0x2,-0x3
04e4 01db | | Execute Vector,Length
04e5 681d |h | Jump_Zero 0x503
04e6 00da | | Load_Top At_Offset_2
04e7 01db | | Execute Vector,Length
04e8 e5fd | | Load 0x2,-0x3
04e9 01db | | Execute Vector,Length
04ea 027b | { | Execute Discrete,Greater_Equal
04eb 6817 |h | Jump_Zero 0x503
04ec 00da | | Load_Top At_Offset_2
04ed 01dd | | Execute Vector,First
04ee 00db | | Load_Top At_Offset_3
04ef 01dd | | Execute Vector,First
04f0 0aff | | Execute_Immediate Plus,-0x1
04f1 e5fd | | Load 0x2,-0x3
04f2 01db | | Execute Vector,Length
04f3 0273 | s | Execute Discrete,Plus
04f4 00d8 | | Load_Top At_Offset_0
04f5 00e2 | | Load_Encached Integer_Cache
04f6 0260 | ` | Execute Discrete,In_Type
04f7 7001 |p | Jump_Nonzero 0x4f9
04f8 0801 | | Execute_Immediate Raise,0x1
04f9 e602 | | Load 0x3,0x2
04fa 01cf | | Execute Vector,Slice_Read
04fb e5fd | | Load 0x2,-0x3
04fc 01df | | Execute Vector,Equal
04fd 6805 |h | Jump_Zero 0x503
04fe 00d9 | | Load_Top At_Offset_1
04ff e5fd | | Load 0x2,-0x3
0500 01db | | Execute Vector,Length
0501 0273 | s | Execute Discrete,Plus
0502 005a | Z | Store_Top Discrete,At_Offset_2
0503 e5fe | | Load 0x2,-0x2
0504 01db | | Execute Vector,Length
0505 6814 |h | Jump_Zero 0x51a
0506 00da | | Load_Top At_Offset_2
0507 01dc | | Execute Vector,Last
0508 0afc | | Execute_Immediate Plus,-0x4
0509 00d8 | | Load_Top At_Offset_0
050a 00e2 | | Load_Encached Integer_Cache
050b 0260 | ` | Execute Discrete,In_Type
050c 7001 |p | Jump_Nonzero 0x50e
050d 0801 | | Execute_Immediate Raise,0x1
050e 00db | | Load_Top At_Offset_3
050f 01dc | | Execute Vector,Last
0510 e602 | | Load 0x3,0x2
0511 01cf | | Execute Vector,Slice_Read
0512 e5fe | | Load 0x2,-0x2
0513 01df | | Execute Vector,Equal
0514 6805 |h | Jump_Zero 0x51a
0515 00d8 | | Load_Top At_Offset_0
0516 e5fe | | Load 0x2,-0x2
0517 01db | | Execute Vector,Length
0518 0272 | r | Execute Discrete,Minus
0519 0059 | Y | Store_Top Discrete,At_Offset_1
051a 00d9 | | Load_Top At_Offset_1
051b 00d9 | | Load_Top At_Offset_1
051c e602 | | Load 0x3,0x2
051d 01cf | | Execute Vector,Slice_Read
051e e010 | | Load 0x0,0x10
051f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0520 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0521 ; --------------------------------------------------------------------------------------
0521 ; STRING TABLE
0521 ; --------------------------------------------------------------------------------------
0521 0010 | | .STRTAB 0x0010->0x0529 ; "YES"
0522 0011 | | .STRTAB 0x0011->0x052a ; "NO"
0523 0011 | | .STRTAB 0x0011->0x052b ; "unknown"
0524 0016 | | .STRTAB 0x0016->0x052f ; "Enter_Leave_"
0525 0020 | | .STRTAB 0x0020->0x0535 ; "_Mask"
0526 0023 | # | .STRTAB 0x0023->0x0537 ; "Cw_"
0527 0024 | $ | .STRTAB 0x0024->0x0539 ; "(!!)"
0528 0026 | & | .STREND 0x0026->0x053b
0529 5945 534e |YESN| .STRTAB_STRINGS
053b 0000 0000 | | .BLANK 0000[0x5]
0540 ; --------------------------------------------------------------------------------------
0540 ; Debug Table
0540 ; --------------------------------------------------------------------------------------
0540 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6866,0x0000,0x0001,0x0020
0546 000b 05c6 | | .DBG4T 0x000b,0x05c6,0x8000,0x0000
054a 0010 05c9 | | .DBG4T 0x0010,0x05c9,0x8000,0x0000
054e 0133 0622 | 3 "| .DBG4T 0x0133,0x0622,0x0002,0x0000
0552 01fb 0646 | F| .DBG4T 0x01fb,0x0646,0x0001,0x0000
0556 0213 064b | K| .DBG4T 0x0213,0x064b,0x0001,0x0000
055a 0223 064e | # N| .DBG4T 0x0223,0x064e,0x0001,0x0000
055e 0243 0653 | C S| .DBG4T 0x0243,0x0653,0x0001,0x0000
0562 0263 0658 | c X| .DBG4T 0x0263,0x0658,0x0001,0x0000
0566 0283 065d | ]| .DBG4T 0x0283,0x065d,0x0001,0x0000
056a 02a3 0662 | b| .DBG4T 0x02a3,0x0662,0x0001,0x0000
056e 02b3 0665 | e| .DBG4T 0x02b3,0x0665,0x0001,0x0000
0572 02d3 066a | j| .DBG4T 0x02d3,0x066a,0x0001,0x0000
0576 02e3 066d | m| .DBG4T 0x02e3,0x066d,0x0001,0x0000
057a 0303 0672 | r| .DBG4T 0x0303,0x0672,0x0001,0x0000
057e 0323 0677 | # w| .DBG4T 0x0323,0x0677,0x0001,0x0000
0582 0343 067c | C || .DBG4T 0x0343,0x067c,0x0001,0x0000
0586 0363 0681 | c | .DBG4T 0x0363,0x0681,0x0001,0x0000
058a 0373 0684 | s | .DBG4T 0x0373,0x0684,0x0001,0x0000
058e 0383 0687 | | .DBG4T 0x0383,0x0687,0x0001,0x0000
0592 03a3 068c | | .DBG4T 0x03a3,0x068c,0x0001,0x0000
0596 03c3 0691 | | .DBG4T 0x03c3,0x0691,0x0001,0x0000
059a 03e3 0696 | | .DBG4T 0x03e3,0x0696,0x0001,0x0000
059e 0403 069b | | .DBG4T 0x0403,0x069b,0x0001,0x0000
05a2 0423 06a0 | # | .DBG4T 0x0423,0x06a0,0x0001,0x0000
05a6 043b 06a6 | ; | .DBG4T 0x043b,0x06a6,0x0001,0x0000
05aa 044b 06a9 | K | .DBG4T 0x044b,0x06a9,0x0001,0x0000
05ae 045b 06ac | [ | .DBG4T 0x045b,0x06ac,0x0001,0x0000
05b2 046b 06af | k | .DBG4T 0x046b,0x06af,0x0001,0x0000
05b6 047b 06b2 | { | .DBG4T 0x047b,0x06b2,0x0001,0x0000
05ba 048b 06b5 | | .DBG4T 0x048b,0x06b5,0x0001,0x0000
05be 049b 06b8 | | .DBG4T 0x049b,0x06b8,0x2801,0x0002
05c2 04d3 06c3 | | .DBG4T 0x04d3,0x06c3,0x0804,0x0002
05c6 ; --------------------------------------------------------------------------------------
05c6 ; Debug chain
05c6 ; --------------------------------------------------------------------------------------
05c6 0001 0000 | | .DBGLEN 0x0001,0x0000
05c8 000b | | .DBGLNO 0x000b
05c9 ; --------------------------------------------------------------------------------------
05c9 ; Debug chain
05c9 ; --------------------------------------------------------------------------------------
05c9 0057 0000 | W | .DBGLEN 0x0057,0x0000
05cb 0010 0011 | | .DBGLNO 0x0010,0x0011,0x0012,0x0013,0x0014,0x0015,0x0016,0x0017,0x0018,0x0019,0x001a,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0076,0x0087,0x008b,0x009c,0x00a0,0x00a4,0x00a8,0x00ac,0x00b0,0x00b4,0x00b8,0x00bc,0x00c0,0x00c4,0x00c8,0x00cc,0x00d0,0x00d4,0x00d8,0x00dc,0x00e0,0x00e4,0x00e8,0x00ec,0x00f0,0x00f4,0x00f8,0x00fc,0x0100,0x0104,0x0108,0x010c,0x0110,0x0114,0x0118,0x011c,0x0120,0x0124,0x0128
0622 ; --------------------------------------------------------------------------------------
0622 ; Debug chain
0622 ; --------------------------------------------------------------------------------------
0622 0002 0020 | | .DBGLEN 0x0002,0x0020
0624 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x013d,0x013e,0x0143,0x0148,0x0149,0x0150,0x015c,0x015f,0x0160,0x016e,0x0174,0x0177,0x0178,0x017e,0x0181,0x0186,0x018d,0x0192,0x0197,0x0198,0x019f,0x01ab,0x01ae,0x01b3,0x01b7,0x01c5,0x01cb,0x01ce,0x01d3,0x01d7,0x01dd,0x01e0
0646 ; --------------------------------------------------------------------------------------
0646 ; Debug chain
0646 ; --------------------------------------------------------------------------------------
0646 0000 0003 | | .DBGLEN 0x0000,0x0003
0648 01fb 0201 | | .DBGLNO 0x01fb,0x0201,0x0204
064b ; --------------------------------------------------------------------------------------
064b ; Debug chain
064b ; --------------------------------------------------------------------------------------
064b 0000 0001 | | .DBGLEN 0x0000,0x0001
064d 0213 | | .DBGLNO 0x0213
064e ; --------------------------------------------------------------------------------------
064e ; Debug chain
064e ; --------------------------------------------------------------------------------------
064e 0000 0003 | | .DBGLEN 0x0000,0x0003
0650 0223 022d | # -| .DBGLNO 0x0223,0x022d,0x0239
0653 ; --------------------------------------------------------------------------------------
0653 ; Debug chain
0653 ; --------------------------------------------------------------------------------------
0653 0000 0003 | | .DBGLEN 0x0000,0x0003
0655 0243 024d | C M| .DBGLNO 0x0243,0x024d,0x0259
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug chain
0658 ; --------------------------------------------------------------------------------------
0658 0000 0003 | | .DBGLEN 0x0000,0x0003
065a 0263 026d | c m| .DBGLNO 0x0263,0x026d,0x0279
065d ; --------------------------------------------------------------------------------------
065d ; Debug chain
065d ; --------------------------------------------------------------------------------------
065d 0000 0003 | | .DBGLEN 0x0000,0x0003
065f 0283 028d | | .DBGLNO 0x0283,0x028d,0x0299
0662 ; --------------------------------------------------------------------------------------
0662 ; Debug chain
0662 ; --------------------------------------------------------------------------------------
0662 0000 0001 | | .DBGLEN 0x0000,0x0001
0664 02a3 | | .DBGLNO 0x02a3
0665 ; --------------------------------------------------------------------------------------
0665 ; Debug chain
0665 ; --------------------------------------------------------------------------------------
0665 0000 0003 | | .DBGLEN 0x0000,0x0003
0667 02b3 02bd | | .DBGLNO 0x02b3,0x02bd,0x02c9
066a ; --------------------------------------------------------------------------------------
066a ; Debug chain
066a ; --------------------------------------------------------------------------------------
066a 0000 0001 | | .DBGLEN 0x0000,0x0001
066c 02d3 | | .DBGLNO 0x02d3
066d ; --------------------------------------------------------------------------------------
066d ; Debug chain
066d ; --------------------------------------------------------------------------------------
066d 0000 0003 | | .DBGLEN 0x0000,0x0003
066f 02e3 02ed | | .DBGLNO 0x02e3,0x02ed,0x02f9
0672 ; --------------------------------------------------------------------------------------
0672 ; Debug chain
0672 ; --------------------------------------------------------------------------------------
0672 0000 0003 | | .DBGLEN 0x0000,0x0003
0674 0303 030d | | .DBGLNO 0x0303,0x030d,0x0319
0677 ; --------------------------------------------------------------------------------------
0677 ; Debug chain
0677 ; --------------------------------------------------------------------------------------
0677 0000 0003 | | .DBGLEN 0x0000,0x0003
0679 0323 032d | # -| .DBGLNO 0x0323,0x032d,0x0339
067c ; --------------------------------------------------------------------------------------
067c ; Debug chain
067c ; --------------------------------------------------------------------------------------
067c 0000 0003 | | .DBGLEN 0x0000,0x0003
067e 0343 034d | C M| .DBGLNO 0x0343,0x034d,0x0359
0681 ; --------------------------------------------------------------------------------------
0681 ; Debug chain
0681 ; --------------------------------------------------------------------------------------
0681 0000 0001 | | .DBGLEN 0x0000,0x0001
0683 0363 | c | .DBGLNO 0x0363
0684 ; --------------------------------------------------------------------------------------
0684 ; Debug chain
0684 ; --------------------------------------------------------------------------------------
0684 0000 0001 | | .DBGLEN 0x0000,0x0001
0686 0373 | s | .DBGLNO 0x0373
0687 ; --------------------------------------------------------------------------------------
0687 ; Debug chain
0687 ; --------------------------------------------------------------------------------------
0687 0000 0003 | | .DBGLEN 0x0000,0x0003
0689 0383 038d | | .DBGLNO 0x0383,0x038d,0x0398
068c ; --------------------------------------------------------------------------------------
068c ; Debug chain
068c ; --------------------------------------------------------------------------------------
068c 0000 0003 | | .DBGLEN 0x0000,0x0003
068e 03a3 03ad | | .DBGLNO 0x03a3,0x03ad,0x03b8
0691 ; --------------------------------------------------------------------------------------
0691 ; Debug chain
0691 ; --------------------------------------------------------------------------------------
0691 0000 0003 | | .DBGLEN 0x0000,0x0003
0693 03c3 03cd | | .DBGLNO 0x03c3,0x03cd,0x03d8
0696 ; --------------------------------------------------------------------------------------
0696 ; Debug chain
0696 ; --------------------------------------------------------------------------------------
0696 0000 0003 | | .DBGLEN 0x0000,0x0003
0698 03e3 03ed | | .DBGLNO 0x03e3,0x03ed,0x03f8
069b ; --------------------------------------------------------------------------------------
069b ; Debug chain
069b ; --------------------------------------------------------------------------------------
069b 0000 0003 | | .DBGLEN 0x0000,0x0003
069d 0403 040d | | .DBGLNO 0x0403,0x040d,0x0418
06a0 ; --------------------------------------------------------------------------------------
06a0 ; Debug chain
06a0 ; --------------------------------------------------------------------------------------
06a0 0000 0004 | | .DBGLEN 0x0000,0x0004
06a2 0423 0425 | # %| .DBGLNO 0x0423,0x0425,0x0429,0x042e
06a6 ; --------------------------------------------------------------------------------------
06a6 ; Debug chain
06a6 ; --------------------------------------------------------------------------------------
06a6 0000 0001 | | .DBGLEN 0x0000,0x0001
06a8 043b | ; | .DBGLNO 0x043b
06a9 ; --------------------------------------------------------------------------------------
06a9 ; Debug chain
06a9 ; --------------------------------------------------------------------------------------
06a9 0000 0001 | | .DBGLEN 0x0000,0x0001
06ab 044b | K | .DBGLNO 0x044b
06ac ; --------------------------------------------------------------------------------------
06ac ; Debug chain
06ac ; --------------------------------------------------------------------------------------
06ac 0000 0001 | | .DBGLEN 0x0000,0x0001
06ae 045b | [ | .DBGLNO 0x045b
06af ; --------------------------------------------------------------------------------------
06af ; Debug chain
06af ; --------------------------------------------------------------------------------------
06af 0000 0001 | | .DBGLEN 0x0000,0x0001
06b1 046b | k | .DBGLNO 0x046b
06b2 ; --------------------------------------------------------------------------------------
06b2 ; Debug chain
06b2 ; --------------------------------------------------------------------------------------
06b2 0000 0001 | | .DBGLEN 0x0000,0x0001
06b4 047b | { | .DBGLNO 0x047b
06b5 ; --------------------------------------------------------------------------------------
06b5 ; Debug chain
06b5 ; --------------------------------------------------------------------------------------
06b5 0000 0001 | | .DBGLEN 0x0000,0x0001
06b7 048b | | .DBGLNO 0x048b
06b8 ; --------------------------------------------------------------------------------------
06b8 ; Debug chain
06b8 ; --------------------------------------------------------------------------------------
06b8 0001 0008 | | .DBGLEN 0x0001,0x0008
06ba 049b 049f | | .DBGLNO 0x049b,0x049f,0x04a3,0x04ac,0x04b2,0x04b4,0x04b8,0x04ba,0x04c6
06c3 ; --------------------------------------------------------------------------------------
06c3 ; Debug chain
06c3 ; --------------------------------------------------------------------------------------
06c3 0003 0005 | | .DBGLEN 0x0003,0x0005
06c5 04d3 04db | | .DBGLNO 0x04d3,0x04db,0x04df,0x04e3,0x04fe,0x0503,0x0515,0x051a
06cd 0000 0000 | | .BLANK 0000[0x133]