|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 07a8 | | .CONST 0x07a8 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01d8 | | .CONST 0x01d8 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0066 | f | .CONST 0x0066 ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
000f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
004b c247 | G | Store 0x1,0x47
004c 4800 |H | Short_Literal 0x0
004d 619e |a | Indirect_Literal Discrete,0x1ec,{0x00000000, 0x0000ffff}
004e 00e3 | | Load_Encached Natural_Cache
004f 03f9 | | Declare_Type Discrete,Constrained,Visible
0050 c210 | | Store 0x1,0x10
0051 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0053 c211 | | Store 0x1,0x11
0054 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0056 c212 | | Store 0x1,0x12
0057 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0059 c213 | | Store 0x1,0x13
005a 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
005c c214 | | Store 0x1,0x14
005d e001 | | Load 0x0,0x1
005e 0129 | ) | Execute Any,Make_Visible
005f c215 | | Store 0x1,0x15
0060 e002 | | Load 0x0,0x2
0061 0129 | ) | Execute Any,Make_Visible
0062 c216 | | Store 0x1,0x16
0063 e003 | | Load 0x0,0x3
0064 0129 | ) | Execute Any,Make_Visible
0065 c217 | | Store 0x1,0x17
0066 4800 |H | Short_Literal 0x0
0067 4803 |H | Short_Literal 0x3
0068 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
006a 03fe | | Declare_Type Discrete,Defined,Visible
006b c218 | | Store 0x1,0x18
006c 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
006e c219 | | Store 0x1,0x19
006f 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0071 c21a | | Store 0x1,0x1a
0072 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0074 c21b | | Store 0x1,0x1b
0075 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0077 c21c | | Store 0x1,0x1c
0078 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
007a c21d | | Store 0x1,0x1d
007b 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
007d c21e | | Store 0x1,0x1e
007e 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0080 c21f | | Store 0x1,0x1f
0081 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0083 c220 | | Store 0x1,0x20
0084 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0086 c221 | ! | Store 0x1,0x21
0087 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
0089 c222 | " | Store 0x1,0x22
008a 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
008c c223 | # | Store 0x1,0x23
008d 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
008f c224 | $ | Store 0x1,0x24
0090 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0092 c225 | % | Store 0x1,0x25
0093 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0095 c226 | & | Store 0x1,0x26
0096 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0098 c227 | ' | Store 0x1,0x27
0099 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
009b c228 | ( | Store 0x1,0x28
009c 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated
009e c229 | ) | Store 0x1,0x29
009f 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
00a1 c22a | * | Store 0x1,0x2a
00a2 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
00a4 c22b | + | Store 0x1,0x2b
00a5 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
00a7 c22c | , | Store 0x1,0x2c
00a8 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
00aa c22d | - | Store 0x1,0x2d
00ab 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
00ad c22e | . | Store 0x1,0x2e
00ae 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
00b0 c22f | / | Store 0x1,0x2f
00b1 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
00b3 c230 | 0 | Store 0x1,0x30
00b4 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
00b6 c231 | 1 | Store 0x1,0x31
00b7 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated
00b9 c232 | 2 | Store 0x1,0x32
00ba 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
00bc c241 | A | Store 0x1,0x41
00bd 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
00bf c242 | B | Store 0x1,0x42
00c0 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
00c2 c233 | 3 | Store 0x1,0x33
00c3 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated
00c5 c234 | 4 | Store 0x1,0x34
00c6 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated
00c8 c243 | C | Store 0x1,0x43
00c9 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
00cb c244 | D | Store 0x1,0x44
00cc 0092 0783 | | Action Push_String_Extended,0x783 ; "<ERROR>"
00ce 0129 | ) | Execute Any,Make_Visible
00cf c235 | 5 | Store 0x1,0x35
00d0 4800 |H | Short_Literal 0x0
00d1 481f |H | Short_Literal 0x1f
00d2 480c |H | Short_Literal 0xc
00d3 6114 |a | Indirect_Literal Discrete,0x1e8,{0x00000000, 0x00000833}
00d4 e004 | | Load 0x0,0x4
00d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d6 e004 | | Load 0x0,0x4
00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d8 011e | | Execute Any,Convert
00d9 0129 | ) | Execute Any,Make_Visible
00da c236 | 6 | Store 0x1,0x36
00db 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated
00dd c237 | 7 | Store 0x1,0x37
00de 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated
00e0 c238 | 8 | Store 0x1,0x38
00e1 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated
00e3 c239 | 9 | Store 0x1,0x39
00e4 029a 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call,Visible,Unelaborated
00e6 c23a | : | Store 0x1,0x3a
00e7 029a 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call,Visible,Unelaborated
00e9 c23b | ; | Store 0x1,0x3b
00ea 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
00ec c23c | < | Store 0x1,0x3c
00ed e005 | | Load 0x0,0x5
00ee 0129 | ) | Execute Any,Make_Visible
00ef c23d | = | Store 0x1,0x3d
00f0 e006 | | Load 0x0,0x6
00f1 0129 | ) | Execute Any,Make_Visible
00f2 c23e | > | Store 0x1,0x3e
00f3 00bf | | Action Accept_Activation
00f4 4800 |H | Short_Literal 0x0
00f5 48ff |H | Short_Literal 0xff
00f6 00e2 | | Load_Encached Integer_Cache
00f7 03f8 | | Declare_Type Discrete,Constrained
00f8 4800 |H | Short_Literal 0x0
00f9 4807 |H | Short_Literal 0x7
00fa 00e2 | | Load_Encached Integer_Cache
00fb 03f8 | | Declare_Type Discrete,Constrained
00fc e210 | | Load 0x1,0x10
00fd 00e1 | | Load_Encached Boolean_Cache
00fe e007 | | Load 0x0,0x7
00ff 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0100 00db | | Load_Top At_Offset_3
0101 e008 | | Load 0x0,0x8
0102 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0103 02a0 | | Declare_Subprogram Null_Subprogram
0104 4805 |H | Short_Literal 0x5
0105 032d | - | Declare_Type Record,Defined
0106 e009 | | Load 0x0,0x9
0107 e00a | | Load 0x0,0xa
0108 00da | | Load_Top At_Offset_2
0109 e20d | | Load 0x1,0xd
010a e00b | | Load 0x0,0xb
010b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010c 0387 | | Declare_Variable Package
010d 00d8 | | Load_Top At_Offset_0
010e 020f | | Execute Module,Activate
010f e00c | | Load 0x0,0xc
0110 e00d | | Load 0x0,0xd
0111 e20d | | Load 0x1,0xd
0112 e24a | J | Load 0x1,0x4a
0113 e00b | | Load 0x0,0xb
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 0387 | | Declare_Variable Package
0116 00d8 | | Load_Top At_Offset_0
0117 020f | | Execute Module,Activate
0118 00e1 | | Load_Encached Boolean_Cache
0119 00e1 | | Load_Encached Boolean_Cache
011a e20d | | Load 0x1,0xd
011b e218 | | Load 0x1,0x18
011c e00e | | Load 0x0,0xe
011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011e 00e2 | | Load_Encached Integer_Cache
011f 00e2 | | Load_Encached Integer_Cache
0120 00e2 | | Load_Encached Integer_Cache
0121 00e2 | | Load_Encached Integer_Cache
0122 00e2 | | Load_Encached Integer_Cache
0123 02a0 | | Declare_Subprogram Null_Subprogram
0124 480a |H | Short_Literal 0xa
0125 032d | - | Declare_Type Record,Defined
0126 00d8 | | Load_Top At_Offset_0
0127 0322 | " | Declare_Variable Record
0128 4800 |H | Short_Literal 0x0
0129 00d9 | | Load_Top At_Offset_1
012a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
012b 4800 |H | Short_Literal 0x0
012c 00d9 | | Load_Top At_Offset_1
012d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012e 4800 |H | Short_Literal 0x0
012f 00d9 | | Load_Top At_Offset_1
0130 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0131 4800 |H | Short_Literal 0x0
0132 00d9 | | Load_Top At_Offset_1
0133 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0134 e00e | | Load 0x0,0xe
0135 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0136 00d9 | | Load_Top At_Offset_1
0137 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0138 4800 |H | Short_Literal 0x0
0139 00d9 | | Load_Top At_Offset_1
013a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
013b 4800 |H | Short_Literal 0x0
013c 00d9 | | Load_Top At_Offset_1
013d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
013e 4800 |H | Short_Literal 0x0
013f 00d9 | | Load_Top At_Offset_1
0140 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0141 4800 |H | Short_Literal 0x0
0142 00d9 | | Load_Top At_Offset_1
0143 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0144 4800 |H | Short_Literal 0x0
0145 00d9 | | Load_Top At_Offset_1
0146 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0147 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call
0149 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call
014b e00f | | Load 0x0,0xf
014c e010 | | Load 0x0,0x10
014d e24d | M | Load 0x1,0x4d
014e e24e | N | Load 0x1,0x4e
014f 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
0150 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
0151 0092 0784 | | Action Push_String_Extended,0x784 ; "TBU Error State"
0153 e011 | | Load 0x0,0x11
0154 0387 | | Declare_Variable Package
0155 00d8 | | Load_Top At_Offset_0
0156 020f | | Execute Module,Activate
0157 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0158 00c7 | | Action Elaborate_Subprogram
0159 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call
015b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
015c 00c7 | | Action Elaborate_Subprogram
015d 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
015e 00c7 | | Action Elaborate_Subprogram
015f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0160 00c7 | | Action Elaborate_Subprogram
0161 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0162 00c7 | | Action Elaborate_Subprogram
0163 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0164 00c7 | | Action Elaborate_Subprogram
0165 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0166 00c7 | | Action Elaborate_Subprogram
0167 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0168 00c7 | | Action Elaborate_Subprogram
0169 1d14 | | Execute_Immediate Reference_Lex_1,0x14
016a 00c7 | | Action Elaborate_Subprogram
016b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
016c 00c7 | | Action Elaborate_Subprogram
016d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
016e 00c7 | | Action Elaborate_Subprogram
016f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0170 00c7 | | Action Elaborate_Subprogram
0171 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0172 00c7 | | Action Elaborate_Subprogram
0173 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0174 00c7 | | Action Elaborate_Subprogram
0175 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0176 00c7 | | Action Elaborate_Subprogram
0177 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0178 00c7 | | Action Elaborate_Subprogram
0179 1d20 | | Execute_Immediate Reference_Lex_1,0x20
017a 00c7 | | Action Elaborate_Subprogram
017b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
017c 00c7 | | Action Elaborate_Subprogram
017d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
017e 00c7 | | Action Elaborate_Subprogram
017f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0180 00c7 | | Action Elaborate_Subprogram
0181 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0182 00c7 | | Action Elaborate_Subprogram
0183 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0184 00c7 | | Action Elaborate_Subprogram
0185 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0186 00c7 | | Action Elaborate_Subprogram
0187 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0188 00c7 | | Action Elaborate_Subprogram
0189 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
018a 00c7 | | Action Elaborate_Subprogram
018b 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
018c 00c7 | | Action Elaborate_Subprogram
018d 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
018e 00c7 | | Action Elaborate_Subprogram
018f 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call
0191 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
0193 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0194 00c7 | | Action Elaborate_Subprogram
0195 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0196 00c7 | | Action Elaborate_Subprogram
0197 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0198 00c7 | | Action Elaborate_Subprogram
0199 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call
019b 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
019d 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call
019f e008 | | Load 0x0,0x8
01a0 193e | > | Execute Package,Field_Reference,Field_Number 0x3e
01a1 00c6 | | Action Check_Subprogram_Elaborated
01a2 e20d | | Load 0x1,0xd
01a3 480e |H | Short_Literal 0xe
01a4 e012 | | Load 0x0,0x12
01a5 e013 | | Load 0x0,0x13
01a6 4800 |H | Short_Literal 0x0
01a7 0007 | | Action Break_Optional
01a8 e008 | | Load 0x0,0x8
01a9 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f
01aa 00c6 | | Action Check_Subprogram_Elaborated
01ab e20d | | Load 0x1,0xd
01ac 480e |H | Short_Literal 0xe
01ad 4800 |H | Short_Literal 0x0
01ae e014 | | Load 0x0,0x14
01af e015 | | Load 0x0,0x15
01b0 4800 |H | Short_Literal 0x0
01b1 0007 | | Action Break_Optional
01b2 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
01b3 00c7 | | Action Elaborate_Subprogram
01b4 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
01b5 00c7 | | Action Elaborate_Subprogram
01b6 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
01b7 00c7 | | Action Elaborate_Subprogram
01b8 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
01ba 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
01bb 00c7 | | Action Elaborate_Subprogram
01bc 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call
01be 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call
01c0 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call
01c2 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
01c3 00c7 | | Action Elaborate_Subprogram
01c4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
01c5 00c7 | | Action Elaborate_Subprogram
01c6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
01c7 00c7 | | Action Elaborate_Subprogram
01c8 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
01c9 00c7 | | Action Elaborate_Subprogram
01ca 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
01cb 00c7 | | Action Elaborate_Subprogram
01cc 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
01cd 00c7 | | Action Elaborate_Subprogram
01ce 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
01cf 00c7 | | Action Elaborate_Subprogram
01d0 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
01d1 00c7 | | Action Elaborate_Subprogram
01d2 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
01d3 00c7 | | Action Elaborate_Subprogram
01d4 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
01d5 00c7 | | Action Elaborate_Subprogram
01d6 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
01d7 00c7 | | Action Elaborate_Subprogram
01d8 BODY_0008:
01d8 00bc | | Action Signal_Activated
01d9 00bb | | Action Signal_Completion
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4800 |H | Short_Literal 0x0
01e4 00ca | | Action Exit_Nullary_Function
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 0000 0000 | | .LITERAL {0x00000000, 0x00000833}
01ec 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 6806 |h | Jump_Zero 0x1fb
01f5 00da | | Load_Top At_Offset_2
01f6 e24c | L | Load 0x1,0x4c
01f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f9 0f00 | | Execute_Immediate Equal,0x0
01fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fb 4801 |H | Short_Literal 0x1
01fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 e5fe | | Load 0x2,-0x2
0205 027f | | Execute Discrete,Equal
0206 7006 |p | Jump_Nonzero 0x20d
0207 00da | | Load_Top At_Offset_2
0208 e24c | L | Load 0x1,0x4c
0209 1811 | | Execute Package,Field_Execute,Field_Number 0x11
020a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
020b 0f06 | | Execute_Immediate Equal,0x6
020c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020d 4801 |H | Short_Literal 0x1
020e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020f 0000 | | .XXX[0x1]
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 00db | | Load_Top At_Offset_3
0214 00db | | Load_Top At_Offset_3
0215 01db | | Execute Vector,Length
0216 027d | } | Execute Discrete,Greater
0217 6802 |h | Jump_Zero 0x21a
0218 4800 |H | Short_Literal 0x0
0219 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
021a 00da | | Load_Top At_Offset_2
021b 01dd | | Execute Vector,First
021c e5fe | | Load 0x2,-0x2
021d 0273 | s | Execute Discrete,Plus
021e 0aff | | Execute_Immediate Plus,-0x1
021f 00db | | Load_Top At_Offset_3
0220 01d7 | | Execute Vector,Field_Read
0221 e008 | | Load 0x0,0x8
0222 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0223 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00db | | Load_Top At_Offset_3
022c 00d8 | | Load_Top At_Offset_0
022d 00e4 | | Load_Encached Positive_Cache
022e 0260 | ` | Execute Discrete,In_Type
022f 7001 |p | Jump_Nonzero 0x231
0230 0801 | | Execute_Immediate Raise,0x1
0231 00db | | Load_Top At_Offset_3
0232 e24c | L | Load 0x1,0x4c
0233 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0234 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0235 e008 | | Load 0x0,0x8
0236 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0237 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e24a | J | Load 0x1,0x4a
023c 0322 | " | Declare_Variable Record
023d BODY_0238:
023d 00db | | Load_Top At_Offset_3
023e 00d9 | | Load_Top At_Offset_1
023f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0240 4800 |H | Short_Literal 0x0
0241 00d9 | | Load_Top At_Offset_1
0242 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0243 4800 |H | Short_Literal 0x0
0244 00d9 | | Load_Top At_Offset_1
0245 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0246 e5fe | | Load 0x2,-0x2
0247 e008 | | Load 0x0,0x8
0248 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0249 00d9 | | Load_Top At_Offset_1
024a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
024b 4800 |H | Short_Literal 0x0
024c 00d9 | | Load_Top At_Offset_1
024d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
024e 00d8 | | Load_Top At_Offset_0
024f e24b | K | Load 0x1,0x4b
0250 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0251 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025d | ] | .CONST 0x025d ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e24a | J | Load 0x1,0x4a
025c 0322 | " | Declare_Variable Record
025d BODY_0258:
025d 00db | | Load_Top At_Offset_3
025e 00d9 | | Load_Top At_Offset_1
025f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0260 4801 |H | Short_Literal 0x1
0261 00d9 | | Load_Top At_Offset_1
0262 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0263 e5fe | | Load 0x2,-0x2
0264 00d9 | | Load_Top At_Offset_1
0265 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0266 e5fd | | Load 0x2,-0x3
0267 e008 | | Load 0x0,0x8
0268 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0269 00d9 | | Load_Top At_Offset_1
026a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
026b 4800 |H | Short_Literal 0x0
026c 00d9 | | Load_Top At_Offset_1
026d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
026e 00d8 | | Load_Top At_Offset_0
026f e24b | K | Load 0x1,0x4b
0270 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0271 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0272 0000 0000 | | .BLANK 0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4607 |F | Jump_Case 0x8
027c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
027d 7806 |x | Jump 0x284 ; case 0x1
027e 7809 |x | Jump 0x288 ; case 0x2
027f 780d |x | Jump 0x28d ; case 0x3
0280 7810 |x | Jump 0x291 ; case 0x4
0281 7811 |x | Jump 0x293 ; case 0x5
0282 7812 |x | Jump 0x295 ; case 0x6
0283 7815 |x | Jump 0x299 ; case 0x7
0284 00da | | Load_Top At_Offset_2
0285 0091 077f | | Action Push_String_Extended_Indexed,0x77f ; "NIL"
0287 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0288 00db | | Load_Top At_Offset_3
0289 00db | | Load_Top At_Offset_3
028a 00e0 | | Load_Encached Standard_Cache
028b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
028c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
028d 00da | | Load_Top At_Offset_2
028e 00e0 | | Load_Encached Standard_Cache
028f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0290 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0291 00db | | Load_Top At_Offset_3
0292 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0293 00db | | Load_Top At_Offset_3
0294 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0295 e218 | | Load 0x1,0x18
0296 00dc | | Load_Top At_Offset_4
0297 0267 | g | Execute Discrete,Predecessor
0298 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0299 e218 | | Load 0x1,0x18
029a 00dc | | Load_Top At_Offset_4
029b 0268 | h | Execute Discrete,Successor
029c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
029d 0000 0000 | | .XXX[0x3]
029f 0000 | |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ab | | .CONST 0x02ab ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e24d | M | Load 0x1,0x4d
02a4 0322 | " | Declare_Variable Record
02a5 e016 | | Load 0x0,0x16
02a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a7 e251 | Q | Load 0x1,0x51
02a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a9 00d9 | | Load_Top At_Offset_1
02aa 017d | } | Execute Record,Structure_Write
02ab BODY_02a0:
02ab 00db | | Load_Top At_Offset_3
02ac 00d9 | | Load_Top At_Offset_1
02ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ae e5fe | | Load 0x2,-0x2
02af 00d9 | | Load_Top At_Offset_1
02b0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02b1 4800 |H | Short_Literal 0x0
02b2 e016 | | Load 0x0,0x16
02b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b4 00da | | Load_Top At_Offset_2
02b5 e251 | Q | Load 0x1,0x51
02b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02b7 00db | | Load_Top At_Offset_3
02b8 820f | | Call 0x1,0xf
02b9 700c |p | Jump_Nonzero 0x2c6
02ba e5fe | | Load 0x2,-0x2
02bb 4603 |F | Jump_Case 0x4
02bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
02bd 7806 |x | Jump 0x2c4 ; case 0x1
02be 7803 |x | Jump 0x2c2 ; case 0x2
02bf 7800 |x | Jump 0x2c0 ; case 0x3
02c0 e217 | | Load 0x1,0x17
02c1 0257 | W | Execute Discrete,Raise
02c2 e216 | | Load 0x1,0x16
02c3 0257 | W | Execute Discrete,Raise
02c4 e215 | | Load 0x1,0x15
02c5 0257 | W | Execute Discrete,Raise
02c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e016 | | Load 0x0,0x16
02cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02cd e251 | Q | Load 0x1,0x51
02ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02d0 00ca | | Action Exit_Nullary_Function
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e016 | | Load 0x0,0x16
02dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02dd e251 | Q | Load 0x1,0x51
02de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02e0 00ca | | Action Exit_Nullary_Function
02e1 0000 0000 | | .BLANK 0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f7 | | .CONST 0x02f7 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb e24d | M | Load 0x1,0x4d
02ec 0322 | " | Declare_Variable Record
02ed e016 | | Load 0x0,0x16
02ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02ef e251 | Q | Load 0x1,0x51
02f0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f1 00d9 | | Load_Top At_Offset_1
02f2 017d | } | Execute Record,Structure_Write
02f3 00d8 | | Load_Top At_Offset_0
02f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f5 00e1 | | Load_Encached Boolean_Cache
02f6 03f1 | | Declare_Variable Discrete,With_Value
02f7 BODY_02e8:
02f7 e5ff | | Load 0x2,-0x1
02f8 00da | | Load_Top At_Offset_2
02f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02fa 4800 |H | Short_Literal 0x0
02fb e016 | | Load 0x0,0x16
02fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02fd 00db | | Load_Top At_Offset_3
02fe e251 | Q | Load 0x1,0x51
02ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0300 00d8 | | Load_Top At_Offset_0
0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0313 | | .CONST 0x0313 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e24d | M | Load 0x1,0x4d
030c 0322 | " | Declare_Variable Record
030d e016 | | Load 0x0,0x16
030e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030f e251 | Q | Load 0x1,0x51
0310 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0311 00d9 | | Load_Top At_Offset_1
0312 017d | } | Execute Record,Structure_Write
0313 BODY_0308:
0313 00db | | Load_Top At_Offset_3
0314 00d9 | | Load_Top At_Offset_1
0315 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0316 4800 |H | Short_Literal 0x0
0317 e016 | | Load 0x0,0x16
0318 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0319 00da | | Load_Top At_Offset_2
031a e251 | Q | Load 0x1,0x51
031b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
031c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031d 0000 0000 | | .XXX[0x3]
031f 0000 | |
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 e016 | | Load 0x0,0x16
0324 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0325 e251 | Q | Load 0x1,0x51
0326 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0327 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0328 00ca | | Action Exit_Nullary_Function
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 033f | ? | .CONST 0x033f ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0003 | | .CONST 0x0003 ; Number of locals
0333 INIT_0330:
0333 e24d | M | Load 0x1,0x4d
0334 0322 | " | Declare_Variable Record
0335 e016 | | Load 0x0,0x16
0336 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0337 e251 | Q | Load 0x1,0x51
0338 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0339 00d9 | | Load_Top At_Offset_1
033a 017d | } | Execute Record,Structure_Write
033b 00d8 | | Load_Top At_Offset_0
033c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
033d 00e1 | | Load_Encached Boolean_Cache
033e 03f1 | | Declare_Variable Discrete,With_Value
033f BODY_0330:
033f e5ff | | Load 0x2,-0x1
0340 00da | | Load_Top At_Offset_2
0341 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0342 4800 |H | Short_Literal 0x0
0343 e016 | | Load 0x0,0x16
0344 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0345 00db | | Load_Top At_Offset_3
0346 e251 | Q | Load 0x1,0x51
0347 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0348 00d8 | | Load_Top At_Offset_0
0349 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034a 0000 0000 | | .BLANK 0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035b | [ | .CONST 0x035b ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0002 | | .CONST 0x0002 ; Number of locals
0353 INIT_0350:
0353 e24d | M | Load 0x1,0x4d
0354 0322 | " | Declare_Variable Record
0355 e016 | | Load 0x0,0x16
0356 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0357 e251 | Q | Load 0x1,0x51
0358 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0359 00d9 | | Load_Top At_Offset_1
035a 017d | } | Execute Record,Structure_Write
035b BODY_0350:
035b 00db | | Load_Top At_Offset_3
035c 00d9 | | Load_Top At_Offset_1
035d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
035e 4800 |H | Short_Literal 0x0
035f e016 | | Load 0x0,0x16
0360 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0361 00da | | Load_Top At_Offset_2
0362 e251 | Q | Load 0x1,0x51
0363 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0364 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b e016 | | Load 0x0,0x16
036c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
036d e251 | Q | Load 0x1,0x51
036e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
036f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0370 00ca | | Action Exit_Nullary_Function
0371 0000 0000 | | .BLANK 0000[0x7]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0380 | | .CONST 0x0380 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0002 | | .CONST 0x0002 ; Number of locals
037b INIT_0378:
037b 00db | | Load_Top At_Offset_3
037c 00db | | Load_Top At_Offset_3
037d 8213 | | Call 0x1,0x13
037e e20d | | Load 0x1,0xd
037f 03f1 | | Declare_Variable Discrete,With_Value
0380 BODY_0378:
0380 00d8 | | Load_Top At_Offset_0
0381 a5fd | | Store_Unchecked 0x2,-0x3
0382 00d8 | | Load_Top At_Offset_0
0383 8226 | & | Call 0x1,0x26
0384 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0391 | | .CONST 0x0391 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0002 | | .CONST 0x0002 ; Number of locals
038b INIT_0388:
038b e5fd | | Load 0x2,-0x3
038c e5fe | | Load 0x2,-0x2
038d e5ff | | Load 0x2,-0x1
038e 8214 | | Call 0x1,0x14
038f e20d | | Load 0x1,0xd
0390 03f1 | | Declare_Variable Discrete,With_Value
0391 BODY_0388:
0391 00d8 | | Load_Top At_Offset_0
0392 a5fc | | Store_Unchecked 0x2,-0x4
0393 00d8 | | Load_Top At_Offset_0
0394 8226 | & | Call 0x1,0x26
0395 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0396 0000 0000 | | .XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00da | | Load_Top At_Offset_2
039c 6804 |h | Jump_Zero 0x3a1
039d 00db | | Load_Top At_Offset_3
039e 00db | | Load_Top At_Offset_3
039f 8213 | | Call 0x1,0x13
03a0 8226 | & | Call 0x1,0x26
03a1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a2 0000 0000 | | .BLANK 0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac 6805 |h | Jump_Zero 0x3b2
03ad e5fd | | Load 0x2,-0x3
03ae e5fe | | Load 0x2,-0x2
03af e5ff | | Load 0x2,-0x1
03b0 8214 | | Call 0x1,0x14
03b1 8226 | & | Call 0x1,0x26
03b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03b3 0000 0000 | | .BLANK 0000[0x5]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c3 | | .CONST 0x03c3 ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e24d | M | Load 0x1,0x4d
03bc 0322 | " | Declare_Variable Record
03bd e016 | | Load 0x0,0x16
03be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03bf e251 | Q | Load 0x1,0x51
03c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03c1 00d9 | | Load_Top At_Offset_1
03c2 017d | } | Execute Record,Structure_Write
03c3 BODY_03b8:
03c3 4800 |H | Short_Literal 0x0
03c4 e5ff | | Load 0x2,-0x1
03c5 8247 | G | Call 0x1,0x47
03c6 7020 |p | Jump_Nonzero 0x3e7
03c7 00d8 | | Load_Top At_Offset_0
03c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c9 6804 |h | Jump_Zero 0x3ce
03ca e007 | | Load 0x0,0x7
03cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
03cc e5ff | | Load 0x2,-0x1
03cd 822f | / | Call 0x1,0x2f
03ce 00d8 | | Load_Top At_Offset_0
03cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d0 6804 |h | Jump_Zero 0x3d5
03d1 4803 |H | Short_Literal 0x3
03d2 e5ff | | Load 0x2,-0x1
03d3 8219 | | Call 0x1,0x19
03d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03d5 e016 | | Load 0x0,0x16
03d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03d7 e251 | Q | Load 0x1,0x51
03d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03d9 00d9 | | Load_Top At_Offset_1
03da 017d | } | Execute Record,Structure_Write
03db 00db | | Load_Top At_Offset_3
03dc 00d9 | | Load_Top At_Offset_1
03dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03de 4800 |H | Short_Literal 0x0
03df 00d9 | | Load_Top At_Offset_1
03e0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03e1 4800 |H | Short_Literal 0x0
03e2 e016 | | Load 0x0,0x16
03e3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03e4 00da | | Load_Top At_Offset_2
03e5 e251 | Q | Load 0x1,0x51
03e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec e24c | L | Load 0x1,0x4c
03ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 00db | | Load_Top At_Offset_3
03f4 00d8 | | Load_Top At_Offset_0
03f5 00e4 | | Load_Encached Positive_Cache
03f6 0260 | ` | Execute Discrete,In_Type
03f7 7001 |p | Jump_Nonzero 0x3f9
03f8 0801 | | Execute_Immediate Raise,0x1
03f9 00db | | Load_Top At_Offset_3
03fa e24c | L | Load 0x1,0x4c
03fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fc 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03fd e008 | | Load 0x0,0x8
03fe 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
03ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; 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 e24c | L | Load 0x1,0x4c
0405 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0406 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0407 e008 | | Load 0x0,0x8
0408 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0409 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040a 0000 0000 | | .BLANK 0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0425 | % | .CONST 0x0425 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e24a | J | Load 0x1,0x4a
0414 0322 | " | Declare_Variable Record
0415 00db | | Load_Top At_Offset_3
0416 00d9 | | Load_Top At_Offset_1
0417 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0418 4800 |H | Short_Literal 0x0
0419 00d9 | | Load_Top At_Offset_1
041a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
041b 4800 |H | Short_Literal 0x0
041c 00d9 | | Load_Top At_Offset_1
041d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
041e 4800 |H | Short_Literal 0x0
041f 00d9 | | Load_Top At_Offset_1
0420 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0421 e008 | | Load 0x0,0x8
0422 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0423 00d9 | | Load_Top At_Offset_1
0424 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0425 BODY_0410:
0425 00d8 | | Load_Top At_Offset_0
0426 e24b | K | Load 0x1,0x4b
0427 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0428 e258 | X | Load 0x1,0x58
0429 e259 | Y | Load 0x1,0x59
042a 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
042b e008 | | Load 0x0,0x8
042c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
042d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
042e 0000 0000 | | .XXX[0x2]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 e258 | X | Load 0x1,0x58
0435 e259 | Y | Load 0x1,0x59
0436 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a
0437 e008 | | Load 0x0,0x8
0438 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0439 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043a 0000 0000 | | .BLANK 0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 e25d | ] | Load 0x1,0x5d
0445 e25e | ^ | Load 0x1,0x5e
0446 e25f | _ | Load 0x1,0x5f
0447 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
0448 e008 | | Load 0x0,0x8
0449 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
044a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044b 0000 0000 | | .BLANK 0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 00da | | Load_Top At_Offset_2
0454 8263 | c | Call 0x1,0x63
0455 e00e | | Load 0x0,0xe
0456 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0457 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0462 | b | .CONST 0x0462 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0002 | | .CONST 0x0002 ; Number of locals
045b INIT_0458:
045b e24a | J | Load 0x1,0x4a
045c 0322 | " | Declare_Variable Record
045d 00db | | Load_Top At_Offset_3
045e e24c | L | Load 0x1,0x4c
045f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0460 00d9 | | Load_Top At_Offset_1
0461 017d | } | Execute Record,Structure_Write
0462 BODY_0458:
0462 4800 |H | Short_Literal 0x0
0463 4801 |H | Short_Literal 0x1
0464 00da | | Load_Top At_Offset_2
0465 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0466 8265 | e | Call 0x1,0x65
0467 00da | | Load_Top At_Offset_2
0468 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0469 8263 | c | Call 0x1,0x63
046a e00e | | Load 0x0,0xe
046b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
046c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 047a | z | .CONST 0x047a ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0002 | | .CONST 0x0002 ; Number of locals
0473 INIT_0470:
0473 e24a | J | Load 0x1,0x4a
0474 0322 | " | Declare_Variable Record
0475 00db | | Load_Top At_Offset_3
0476 e24c | L | Load 0x1,0x4c
0477 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0478 00d9 | | Load_Top At_Offset_1
0479 017d | } | Execute Record,Structure_Write
047a BODY_0470:
047a 00d8 | | Load_Top At_Offset_0
047b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
047c 6805 |h | Jump_Zero 0x482
047d e5fe | | Load 0x2,-0x2
047e e5ff | | Load 0x2,-0x1
047f 8264 | d | Call 0x1,0x64
0480 e5ff | | Load 0x2,-0x1
0481 8230 | 0 | Call 0x1,0x30
0482 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0483 0000 0000 | | .BLANK 0000[0x5]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 0492 | | .CONST 0x0492 ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0002 | | .CONST 0x0002 ; Number of locals
048b INIT_0488:
048b e24a | J | Load 0x1,0x4a
048c 0322 | " | Declare_Variable Record
048d 00db | | Load_Top At_Offset_3
048e e24c | L | Load 0x1,0x4c
048f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0490 00d9 | | Load_Top At_Offset_1
0491 017d | } | Execute Record,Structure_Write
0492 BODY_0488:
0492 00d8 | | Load_Top At_Offset_0
0493 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0494 682b |h+ | Jump_Zero 0x4c0
0495 e5fd | | Load 0x2,-0x3
0496 e5fe | | Load 0x2,-0x2
0497 e007 | | Load 0x0,0x7
0498 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0499 680c |h | Jump_Zero 0x4a6
049a e5fd | | Load 0x2,-0x3
049b 4800 |H | Short_Literal 0x0
049c 4801 |H | Short_Literal 0x1
049d 00db | | Load_Top At_Offset_3
049e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
049f 8265 | e | Call 0x1,0x65
04a0 00db | | Load_Top At_Offset_3
04a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a2 e5fe | | Load 0x2,-0x2
04a3 8263 | c | Call 0x1,0x63
04a4 e00e | | Load 0x0,0xe
04a5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04a6 e5fe | | Load 0x2,-0x2
04a7 e007 | | Load 0x0,0x7
04a8 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
04a9 01d7 | | Execute Vector,Field_Read
04aa 6815 |h | Jump_Zero 0x4c0
04ab e5fd | | Load 0x2,-0x3
04ac e007 | | Load 0x0,0x7
04ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04ae 4603 |F | Jump_Case 0x4
04af 7809 |x | Jump 0x4b9 ; case 0x0
04b0 780c |x | Jump 0x4bd ; case 0x1
04b1 7801 |x | Jump 0x4b3 ; case 0x2
04b2 7800 |x | Jump 0x4b3 ; case 0x3
04b3 4801 |H | Short_Literal 0x1
04b4 8233 | 3 | Call 0x1,0x33
04b5 4801 |H | Short_Literal 0x1
04b6 e5fe | | Load 0x2,-0x2
04b7 8243 | C | Call 0x1,0x43
04b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04b9 4801 |H | Short_Literal 0x1
04ba e5ff | | Load 0x2,-0x1
04bb 8219 | | Call 0x1,0x19
04bc 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04bd 4802 |H | Short_Literal 0x2
04be e5ff | | Load 0x2,-0x1
04bf 8219 | | Call 0x1,0x19
04c0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04c1 0000 0000 | | .BLANK 0000[0x7]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 6806 |h | Jump_Zero 0x4d3
04cd e5fd | | Load 0x2,-0x3
04ce e5fe | | Load 0x2,-0x2
04cf e5ff | | Load 0x2,-0x1
04d0 822d | - | Call 0x1,0x2d
04d1 e5ff | | Load 0x2,-0x1
04d2 8232 | 2 | Call 0x1,0x32
04d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04d4 0000 0000 | | .BLANK 0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 00da | | Load_Top At_Offset_2
04dc 6835 |h5 | Jump_Zero 0x512
04dd e5fc | | Load 0x2,-0x4
04de e5fe | | Load 0x2,-0x2
04df e007 | | Load 0x0,0x7
04e0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04e1 6810 |h | Jump_Zero 0x4f2
04e2 e5fc | | Load 0x2,-0x4
04e3 4800 |H | Short_Literal 0x0
04e4 e5fd | | Load 0x2,-0x3
04e5 01dd | | Execute Vector,First
04e6 00d8 | | Load_Top At_Offset_0
04e7 e248 | H | Load 0x1,0x48
04e8 0260 | ` | Execute Discrete,In_Type
04e9 7001 |p | Jump_Nonzero 0x4eb
04ea 0801 | | Execute_Immediate Raise,0x1
04eb e5fd | | Load 0x2,-0x3
04ec 8266 | f | Call 0x1,0x66
04ed e5ff | | Load 0x2,-0x1
04ee e5fe | | Load 0x2,-0x2
04ef 8263 | c | Call 0x1,0x63
04f0 e00e | | Load 0x0,0xe
04f1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04f2 00db | | Load_Top At_Offset_3
04f3 e007 | | Load 0x0,0x7
04f4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
04f5 01d7 | | Execute Vector,Field_Read
04f6 681b |h | Jump_Zero 0x512
04f7 e5fc | | Load 0x2,-0x4
04f8 e007 | | Load 0x0,0x7
04f9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04fa 4603 |F | Jump_Case 0x4
04fb 7809 |x | Jump 0x505 ; case 0x0
04fc 780f |x | Jump 0x50c ; case 0x1
04fd 7801 |x | Jump 0x4ff ; case 0x2
04fe 7800 |x | Jump 0x4ff ; case 0x3
04ff 4801 |H | Short_Literal 0x1
0500 8233 | 3 | Call 0x1,0x33
0501 4801 |H | Short_Literal 0x1
0502 e5fe | | Load 0x2,-0x2
0503 8243 | C | Call 0x1,0x43
0504 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0505 4801 |H | Short_Literal 0x1
0506 e5fd | | Load 0x2,-0x3
0507 e5fe | | Load 0x2,-0x2
0508 e5ff | | Load 0x2,-0x1
0509 8214 | | Call 0x1,0x14
050a 8219 | | Call 0x1,0x19
050b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
050c 4802 |H | Short_Literal 0x2
050d e5fd | | Load 0x2,-0x3
050e e5fe | | Load 0x2,-0x2
050f e5ff | | Load 0x2,-0x1
0510 8214 | | Call 0x1,0x14
0511 8219 | | Call 0x1,0x19
0512 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0513 0000 0000 | | .BLANK 0000[0x5]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 00da | | Load_Top At_Offset_2
051c 6806 |h | Jump_Zero 0x523
051d e5fd | | Load 0x2,-0x3
051e e5fe | | Load 0x2,-0x2
051f e5ff | | Load 0x2,-0x1
0520 822d | - | Call 0x1,0x2d
0521 e5ff | | Load 0x2,-0x1
0522 8242 | B | Call 0x1,0x42
0523 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0524 0000 0000 | | .BLANK 0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c 6843 |hC | Jump_Zero 0x570
052d e5fc | | Load 0x2,-0x4
052e e5fe | | Load 0x2,-0x2
052f e007 | | Load 0x0,0x7
0530 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0531 6808 |h | Jump_Zero 0x53a
0532 e5fc | | Load 0x2,-0x4
0533 4800 |H | Short_Literal 0x0
0534 e5fd | | Load 0x2,-0x3
0535 e5ff | | Load 0x2,-0x1
0536 e5fe | | Load 0x2,-0x2
0537 8263 | c | Call 0x1,0x63
0538 e00e | | Load 0x0,0xe
0539 1820 | | Execute Package,Field_Execute,Field_Number 0x20
053a 00db | | Load_Top At_Offset_3
053b e007 | | Load 0x0,0x7
053c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
053d 01d7 | | Execute Vector,Field_Read
053e 6831 |h1 | Jump_Zero 0x570
053f e5fc | | Load 0x2,-0x4
0540 e007 | | Load 0x0,0x7
0541 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0542 4603 |F | Jump_Case 0x4
0543 7809 |x | Jump 0x54d ; case 0x0
0544 781a |x | Jump 0x55f ; case 0x1
0545 7801 |x | Jump 0x547 ; case 0x2
0546 7800 |x | Jump 0x547 ; case 0x3
0547 4801 |H | Short_Literal 0x1
0548 8233 | 3 | Call 0x1,0x33
0549 4801 |H | Short_Literal 0x1
054a e5fe | | Load 0x2,-0x2
054b 8243 | C | Call 0x1,0x43
054c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
054d 4801 |H | Short_Literal 0x1
054e 4801 |H | Short_Literal 0x1
054f 4801 |H | Short_Literal 0x1
0550 e008 | | Load 0x0,0x8
0551 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0552 035b | [ | Declare_Type Array,Constrained
0553 0337 | 7 | Declare_Variable Array
0554 e5fd | | Load 0x2,-0x3
0555 e008 | | Load 0x0,0x8
0556 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0557 4801 |H | Short_Literal 0x1
0558 00da | | Load_Top At_Offset_2
0559 01d6 | | Execute Vector,Field_Write
055a e5fe | | Load 0x2,-0x2
055b e5ff | | Load 0x2,-0x1
055c 8214 | | Call 0x1,0x14
055d 8219 | | Call 0x1,0x19
055e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
055f 4802 |H | Short_Literal 0x2
0560 4801 |H | Short_Literal 0x1
0561 4801 |H | Short_Literal 0x1
0562 e008 | | Load 0x0,0x8
0563 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0564 035b | [ | Declare_Type Array,Constrained
0565 0337 | 7 | Declare_Variable Array
0566 e5fd | | Load 0x2,-0x3
0567 e008 | | Load 0x0,0x8
0568 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0569 4801 |H | Short_Literal 0x1
056a 00da | | Load_Top At_Offset_2
056b 01d6 | | Execute Vector,Field_Write
056c e5fe | | Load 0x2,-0x2
056d e5ff | | Load 0x2,-0x1
056e 8214 | | Call 0x1,0x14
056f 8219 | | Call 0x1,0x19
0570 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0571 0000 0000 | | .BLANK 0000[0x7]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0583 | | .CONST 0x0583 ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0002 | | .CONST 0x0002 ; Number of locals
057b INIT_0578:
057b e24d | M | Load 0x1,0x4d
057c 0322 | " | Declare_Variable Record
057d e016 | | Load 0x0,0x16
057e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
057f e251 | Q | Load 0x1,0x51
0580 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0581 00d9 | | Load_Top At_Offset_1
0582 017d | } | Execute Record,Structure_Write
0583 BODY_0578:
0583 00db | | Load_Top At_Offset_3
0584 0c01 | | Execute_Immediate Greater_Equal,0x1
0585 6807 |h | Jump_Zero 0x58d
0586 00d8 | | Load_Top At_Offset_0
0587 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0588 e5ff | | Load 0x2,-0x1
0589 0273 | s | Execute Discrete,Plus
058a 00d9 | | Load_Top At_Offset_1
058b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
058c 7812 |x | Jump 0x59f
058d 00db | | Load_Top At_Offset_3
058e 0274 | t | Execute Discrete,Absolute_Value
058f 00d9 | | Load_Top At_Offset_1
0590 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0591 00db | | Load_Top At_Offset_3
0592 700c |p | Jump_Nonzero 0x59f
0593 4800 |H | Short_Literal 0x0
0594 00d9 | | Load_Top At_Offset_1
0595 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0596 4800 |H | Short_Literal 0x0
0597 00d9 | | Load_Top At_Offset_1
0598 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0599 4800 |H | Short_Literal 0x0
059a 00d9 | | Load_Top At_Offset_1
059b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
059c 4800 |H | Short_Literal 0x0
059d 00d9 | | Load_Top At_Offset_1
059e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
059f 4800 |H | Short_Literal 0x0
05a0 e016 | | Load 0x0,0x16
05a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a2 00da | | Load_Top At_Offset_2
05a3 e251 | Q | Load 0x1,0x51
05a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05a6 0000 0000 | | .XXX[0x2]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b3 | | .CONST 0x05b3 ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0002 | | .CONST 0x0002 ; Number of locals
05ab INIT_05a8:
05ab e24d | M | Load 0x1,0x4d
05ac 0322 | " | Declare_Variable Record
05ad e016 | | Load 0x0,0x16
05ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05af e251 | Q | Load 0x1,0x51
05b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05b1 00d9 | | Load_Top At_Offset_1
05b2 017d | } | Execute Record,Structure_Write
05b3 BODY_05a8:
05b3 00d8 | | Load_Top At_Offset_0
05b4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05b5 00ca | | Action Exit_Nullary_Function
05b6 0000 0000 | | .XXX[0x2]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05c3 | | .CONST 0x05c3 ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0002 | | .CONST 0x0002 ; Number of locals
05bb INIT_05b8:
05bb e24d | M | Load 0x1,0x4d
05bc 0322 | " | Declare_Variable Record
05bd e016 | | Load 0x0,0x16
05be 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05bf e251 | Q | Load 0x1,0x51
05c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05c1 00d9 | | Load_Top At_Offset_1
05c2 017d | } | Execute Record,Structure_Write
05c3 BODY_05b8:
05c3 00db | | Load_Top At_Offset_3
05c4 460b |F | Jump_Case 0xc
05c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
05c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1
05c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x2
05c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x3
05c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x4
05ca 7806 |x | Jump 0x5d1 ; case 0x5
05cb 7814 |x | Jump 0x5e0 ; case 0x6
05cc 7822 |x" | Jump 0x5ef ; case 0x7
05cd 7830 |x0 | Jump 0x5fe ; case 0x8
05ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x9
05cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xa
05d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xb
05d1 e5fe | | Load 0x2,-0x2
05d2 0c01 | | Execute_Immediate Greater_Equal,0x1
05d3 6807 |h | Jump_Zero 0x5db
05d4 00d8 | | Load_Top At_Offset_0
05d5 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05d6 e5fe | | Load 0x2,-0x2
05d7 0273 | s | Execute Discrete,Plus
05d8 00d9 | | Load_Top At_Offset_1
05d9 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05da 7831 |x1 | Jump 0x60c
05db e5fe | | Load 0x2,-0x2
05dc 0274 | t | Execute Discrete,Absolute_Value
05dd 00d9 | | Load_Top At_Offset_1
05de 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05df 782c |x, | Jump 0x60c
05e0 e5fe | | Load 0x2,-0x2
05e1 0c01 | | Execute_Immediate Greater_Equal,0x1
05e2 6807 |h | Jump_Zero 0x5ea
05e3 00d8 | | Load_Top At_Offset_0
05e4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05e5 e5fe | | Load 0x2,-0x2
05e6 0273 | s | Execute Discrete,Plus
05e7 00d9 | | Load_Top At_Offset_1
05e8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05e9 7822 |x" | Jump 0x60c
05ea e5fe | | Load 0x2,-0x2
05eb 0274 | t | Execute Discrete,Absolute_Value
05ec 00d9 | | Load_Top At_Offset_1
05ed 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05ee 781d |x | Jump 0x60c
05ef e5fe | | Load 0x2,-0x2
05f0 0c01 | | Execute_Immediate Greater_Equal,0x1
05f1 6807 |h | Jump_Zero 0x5f9
05f2 00d8 | | Load_Top At_Offset_0
05f3 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05f4 e5fe | | Load 0x2,-0x2
05f5 0273 | s | Execute Discrete,Plus
05f6 00d9 | | Load_Top At_Offset_1
05f7 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05f8 7813 |x | Jump 0x60c
05f9 e5fe | | Load 0x2,-0x2
05fa 0274 | t | Execute Discrete,Absolute_Value
05fb 00d9 | | Load_Top At_Offset_1
05fc 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05fd 780e |x | Jump 0x60c
05fe e5fe | | Load 0x2,-0x2
05ff 0c01 | | Execute_Immediate Greater_Equal,0x1
0600 6807 |h | Jump_Zero 0x608
0601 00d8 | | Load_Top At_Offset_0
0602 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0603 e5fe | | Load 0x2,-0x2
0604 0273 | s | Execute Discrete,Plus
0605 00d9 | | Load_Top At_Offset_1
0606 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0607 7804 |x | Jump 0x60c
0608 e5fe | | Load 0x2,-0x2
0609 0274 | t | Execute Discrete,Absolute_Value
060a 00d9 | | Load_Top At_Offset_1
060b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
060c 4800 |H | Short_Literal 0x0
060d e016 | | Load 0x0,0x16
060e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
060f 00da | | Load_Top At_Offset_2
0610 e251 | Q | Load 0x1,0x51
0611 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0612 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0613 0000 0000 | | .BLANK 0000[0x5]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0623 | # | .CONST 0x0623 ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0002 | | .CONST 0x0002 ; Number of locals
061b INIT_0618:
061b e24d | M | Load 0x1,0x4d
061c 0322 | " | Declare_Variable Record
061d e016 | | Load 0x0,0x16
061e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
061f e251 | Q | Load 0x1,0x51
0620 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0621 00d9 | | Load_Top At_Offset_1
0622 017d | } | Execute Record,Structure_Write
0623 BODY_0618:
0623 00db | | Load_Top At_Offset_3
0624 460b |F | Jump_Case 0xc
0625 780b |x | Jump 0x631 ; case 0x0
0626 780a |x | Jump 0x631 ; case 0x1
0627 7809 |x | Jump 0x631 ; case 0x2
0628 7808 |x | Jump 0x631 ; case 0x3
0629 7807 |x | Jump 0x631 ; case 0x4
062a 7808 |x | Jump 0x633 ; case 0x5
062b 780a |x | Jump 0x636 ; case 0x6
062c 780c |x | Jump 0x639 ; case 0x7
062d 780e |x | Jump 0x63c ; case 0x8
062e 7802 |x | Jump 0x631 ; case 0x9
062f 7801 |x | Jump 0x631 ; case 0xa
0630 7800 |x | Jump 0x631 ; case 0xb
0631 4800 |H | Short_Literal 0x0
0632 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0633 00d8 | | Load_Top At_Offset_0
0634 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0635 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0636 00d8 | | Load_Top At_Offset_0
0637 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0638 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0639 00d8 | | Load_Top At_Offset_0
063a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
063b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
063c 00d8 | | Load_Top At_Offset_0
063d 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
063e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
063f 0000 | | .XXX[0x1]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 00db | | Load_Top At_Offset_3
0644 00db | | Load_Top At_Offset_3
0645 8224 | $ | Call 0x1,0x24
0646 4800 |H | Short_Literal 0x0
0647 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 00db | | Load_Top At_Offset_3
064c 00db | | Load_Top At_Offset_3
064d 8224 | $ | Call 0x1,0x24
064e e236 | 6 | Load 0x1,0x36
064f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 00db | | Load_Top At_Offset_3
0654 00db | | Load_Top At_Offset_3
0655 8224 | $ | Call 0x1,0x24
0656 4fff |O | Short_Literal -0x1
0657 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00db | | Load_Top At_Offset_3
065c 00db | | Load_Top At_Offset_3
065d 8224 | $ | Call 0x1,0x24
065e e235 | 5 | Load 0x1,0x35
065f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 00da | | Load_Top At_Offset_2
0664 6809 |h | Jump_Zero 0x66e
0665 00da | | Load_Top At_Offset_2
0666 e008 | | Load 0x0,0x8
0667 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0668 e5fd | | Load 0x2,-0x3
0669 01cb | | Execute Vector,Append
066a e5fe | | Load 0x2,-0x2
066b 8224 | $ | Call 0x1,0x24
066c e23d | = | Load 0x1,0x3d
066d 0257 | W | Execute Discrete,Raise
066e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
066f 0000 | | .XXX[0x1]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 00da | | Load_Top At_Offset_2
0674 6819 |h | Jump_Zero 0x68e
0675 4801 |H | Short_Literal 0x1
0676 0092 0785 | | Action Push_String_Extended,0x785 ; "<EMPTY>"
0678 e5fd | | Load 0x2,-0x3
0679 e017 | | Load 0x0,0x17
067a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
067b 6808 |h | Jump_Zero 0x684
067c 00da | | Load_Top At_Offset_2
067d e008 | | Load 0x0,0x8
067e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
067f e5fc | | Load 0x2,-0x4
0680 01cb | | Execute Vector,Append
0681 e5fe | | Load 0x2,-0x2
0682 8224 | $ | Call 0x1,0x24
0683 7808 |x | Jump 0x68c
0684 e5fd | | Load 0x2,-0x3
0685 00db | | Load_Top At_Offset_3
0686 e008 | | Load 0x0,0x8
0687 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0688 e5fc | | Load 0x2,-0x4
0689 01cb | | Execute Vector,Append
068a e5fe | | Load 0x2,-0x2
068b 8224 | $ | Call 0x1,0x24
068c e23e | > | Load 0x1,0x3e
068d 0257 | W | Execute Discrete,Raise
068e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
068f 0000 | | .XXX[0x1]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693 | | .CONST 0x0693 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0001 | | .CONST 0x0001 ; Number of locals
0693 BODY_0690:
0693 INIT_0690:
0693 e24e | N | Load 0x1,0x4e
0694 00db | | Load_Top At_Offset_3
0695 017d | } | Execute Record,Structure_Write
0696 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0697 0000 | | .XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b 00da | | Load_Top At_Offset_2
069c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
069d e00e | | Load 0x0,0xe
069e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
069f 6804 |h | Jump_Zero 0x6a4
06a0 00da | | Load_Top At_Offset_2
06a1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06a2 e00e | | Load 0x0,0xe
06a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06a5 0000 0000 | | .XXX[0x3]
06a7 0000 | |
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06b2 | | .CONST 0x06b2 ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0002 | | .CONST 0x0002 ; Number of locals
06ab INIT_06a8:
06ab e24a | J | Load 0x1,0x4a
06ac 0322 | " | Declare_Variable Record
06ad 00db | | Load_Top At_Offset_3
06ae e24c | L | Load 0x1,0x4c
06af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06b0 00d9 | | Load_Top At_Offset_1
06b1 017d | } | Execute Record,Structure_Write
06b2 BODY_06a8:
06b2 00db | | Load_Top At_Offset_3
06b3 6004 |` | Indirect_Literal Discrete,0x6b8,{0x80000000, 0x00000000}
06b4 027f | | Execute Discrete,Equal
06b5 6801 |h | Jump_Zero 0x6b7
06b6 08e0 | | Execute_Immediate Raise,0xe0
06b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06b8 8000 0000 | | .LITERAL {0x80000000, 0x00000000}
06bc 0000 0000 | | .BLANK 0000[0x4]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 00da | | Load_Top At_Offset_2
06c4 0f00 | | Execute_Immediate Equal,0x0
06c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c6 0000 0000 | | .XXX[0x2]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb 00da | | Load_Top At_Offset_2
06cc 0f00 | | Execute_Immediate Equal,0x0
06cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ce 0000 0000 | | .XXX[0x2]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 e018 | | Load 0x0,0x18
06d4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
06d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06d6 0000 0000 | | .XXX[0x2]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db 00da | | Load_Top At_Offset_2
06dc 00d8 | | Load_Top At_Offset_0
06dd e018 | | Load 0x0,0x18
06de 1b17 | | Execute Package,Field_Read,Field_Number 0x17
06df 0260 | ` | Execute Discrete,In_Type
06e0 7001 |p | Jump_Nonzero 0x6e2
06e1 0801 | | Execute_Immediate Raise,0x1
06e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e3 0000 0000 | | .BLANK 0000[0x5]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb INIT_06e8:
06eb 00db | | Load_Top At_Offset_3
06ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06ed 0000 0000 | | .XXX[0x3]
06ef 0000 | |
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06fb | | .CONST 0x06fb ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0002 | | .CONST 0x0002 ; Number of locals
06f3 INIT_06f0:
06f3 e24d | M | Load 0x1,0x4d
06f4 0322 | " | Declare_Variable Record
06f5 e016 | | Load 0x0,0x16
06f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06f7 e251 | Q | Load 0x1,0x51
06f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06f9 00d9 | | Load_Top At_Offset_1
06fa 017d | } | Execute Record,Structure_Write
06fb BODY_06f0:
06fb 00d8 | | Load_Top At_Offset_0
06fc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06fd e00e | | Load 0x0,0xe
06fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06ff 7012 |p | Jump_Nonzero 0x712
0700 e00e | | Load 0x0,0xe
0701 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0702 e019 | | Load 0x0,0x19
0703 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0704 4807 |H | Short_Literal 0x7
0705 4802 |H | Short_Literal 0x2
0706 e019 | | Load 0x0,0x19
0707 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0708 e00e | | Load 0x0,0xe
0709 1812 | | Execute Package,Field_Execute,Field_Number 0x12
070a 00d9 | | Load_Top At_Offset_1
070b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
070c 4800 |H | Short_Literal 0x0
070d e016 | | Load 0x0,0x16
070e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
070f 00da | | Load_Top At_Offset_2
0710 e251 | Q | Load 0x1,0x51
0711 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0712 00d8 | | Load_Top At_Offset_0
0713 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0714 00ca | | Action Exit_Nullary_Function
0715 0000 0000 | | .XXX[0x3]
0717 0000 | |
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 0722 | " | .CONST 0x0722 ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0002 | | .CONST 0x0002 ; Number of locals
071b INIT_0718:
071b e24a | J | Load 0x1,0x4a
071c 0322 | " | Declare_Variable Record
071d 00db | | Load_Top At_Offset_3
071e e24c | L | Load 0x1,0x4c
071f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0720 00d9 | | Load_Top At_Offset_1
0721 017d | } | Execute Record,Structure_Write
0722 BODY_0718:
0722 00d8 | | Load_Top At_Offset_0
0723 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0724 6803 |h | Jump_Zero 0x728
0725 00d8 | | Load_Top At_Offset_0
0726 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0727 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0728 00d8 | | Load_Top At_Offset_0
0729 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
072a 8263 | c | Call 0x1,0x63
072b e00e | | Load 0x0,0xe
072c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
072d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072e 0000 0000 | | .XXX[0x2]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 00db | | Load_Top At_Offset_3
0734 00db | | Load_Top At_Offset_3
0735 e008 | | Load 0x0,0x8
0736 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0737 027d | } | Execute Discrete,Greater
0738 6802 |h | Jump_Zero 0x73b
0739 00ea | | Load_Encached Null_String_Cache
073a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
073b 480a |H | Short_Literal 0xa
073c e5fe | | Load 0x2,-0x2
073d 00d8 | | Load_Top At_Offset_0
073e 00e4 | | Load_Encached Positive_Cache
073f 0260 | ` | Execute Discrete,In_Type
0740 7001 |p | Jump_Nonzero 0x742
0741 0801 | | Execute_Immediate Raise,0x1
0742 e5ff | | Load 0x2,-0x1
0743 e008 | | Load 0x0,0x8
0744 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0745 e008 | | Load 0x0,0x8
0746 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0747 01cb | | Execute Vector,Append
0748 e5fe | | Load 0x2,-0x2
0749 0a01 | | Execute_Immediate Plus,0x1
074a 00d8 | | Load_Top At_Offset_0
074b e248 | H | Load 0x1,0x48
074c 0260 | ` | Execute Discrete,In_Type
074d 7001 |p | Jump_Nonzero 0x74f
074e 0801 | | Execute_Immediate Raise,0x1
074f e5ff | | Load 0x2,-0x1
0750 8265 | e | Call 0x1,0x65
0751 01cc | | Execute Vector,Catenate
0752 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0753 0000 0000 | | .BLANK 0000[0x5]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b 00db | | Load_Top At_Offset_3
075c 00db | | Load_Top At_Offset_3
075d 01dc | | Execute Vector,Last
075e 027d | } | Execute Discrete,Greater
075f 6802 |h | Jump_Zero 0x762
0760 00ea | | Load_Encached Null_String_Cache
0761 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0762 00db | | Load_Top At_Offset_3
0763 00db | | Load_Top At_Offset_3
0764 01dc | | Execute Vector,Last
0765 027f | | Execute Discrete,Equal
0766 6806 |h | Jump_Zero 0x76d
0767 00db | | Load_Top At_Offset_3
0768 00db | | Load_Top At_Offset_3
0769 01d7 | | Execute Vector,Field_Read
076a e008 | | Load 0x0,0x8
076b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
076c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
076d 480a |H | Short_Literal 0xa
076e e5fe | | Load 0x2,-0x2
076f e5ff | | Load 0x2,-0x1
0770 01d7 | | Execute Vector,Field_Read
0771 e008 | | Load 0x0,0x8
0772 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0773 01cb | | Execute Vector,Append
0774 e5fe | | Load 0x2,-0x2
0775 0a01 | | Execute_Immediate Plus,0x1
0776 00d8 | | Load_Top At_Offset_0
0777 e248 | H | Load 0x1,0x48
0778 0260 | ` | Execute Discrete,In_Type
0779 7001 |p | Jump_Nonzero 0x77b
077a 0801 | | Execute_Immediate Raise,0x1
077b e5ff | | Load 0x2,-0x1
077c 8266 | f | Call 0x1,0x66
077d 01cc | | Execute Vector,Catenate
077e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
077f ; --------------------------------------------------------------------------------------
077f ; STRING TABLE
077f ; --------------------------------------------------------------------------------------
077f 0010 | | .STRTAB 0x0010->0x0787 ; "NIL"
0780 0011 | | .STRTAB 0x0011->0x0788 ; "QUIT"
0781 0013 | | .STRTAB 0x0013->0x078a ; "PROPAGATE"
0782 001a | | .STRTAB 0x001a->0x078f ; "ERROR_CONDITION"
0783 0027 | ' | .STRTAB 0x0027->0x0796 ; "<ERROR>"
0784 002c | , | .STRTAB 0x002c->0x079a ; "TBU Error State"
0785 0039 | 9 | .STRTAB 0x0039->0x07a1 ; "<EMPTY>"
0786 003e | > | .STREND 0x003e->0x07a5
0787 4e49 4c51 |NILQ| .STRTAB_STRINGS
07a5 0000 0000 | | .XXX[0x3]
07a7 0000 | |
07a8 ; --------------------------------------------------------------------------------------
07a8 ; Debug Table
07a8 ; --------------------------------------------------------------------------------------
07a8 0004 000d | | .DEBUG4 0x0004,0x000d,0xd8ef,0x0000,0x0001,0x0000
07ae 0000 0000 | | .XXX[0x3]
07b0 0a00 | |
07b1 0000 0000 | | .BLANK 0000[0x6]
07b7 7c41 5a00 ||AZ | .XXX[0x2]
07b9 0000 0000 | | .BLANK 0000[0x5]
07be 0300 0364 | d| .XXX[0x42]
07c0 7c00 0000 || |
07c2 0262 8522 | b "|
07c4 1600 0001 | |
07c6 0080 0f04 | |
07c8 0680 0000 | |
07ca 0000 0000 | |
07cc 0018 a148 | H|
07ce 8580 0000 | |
07d0 4008 3637 |@ 67|
07d2 c576 cb18 | v |
07d4 0078 00f0 | x |
07d6 0008 0000 | |
07d8 1da3 1429 | )|
07da 10b0 0026 | &|
07dc 020f f000 | |
07de 0000 0000 | |
07e0 faf4 10b6 | |
07e2 bfc0 0000 | |
07e4 2c60 0000 |,` |
07e6 0480 0000 | |
07e8 56c0 0000 |V |
07ea 1400 0001 | |
07ec 7400 0000 |t |
07ee 4204 8000 |B |
07f0 0000 000c | |
07f2 50a4 42c0 |P B |
07f4 0007 2740 | '@|
07f6 0000 0000 | |
07f8 0f86 28c0 | ( |
07fa 0f88 4b9c | K |
07fc 76f3 1fc3 |v |
07fe 50fb 9d80 |P |