|
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: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 08a0 | | .CONST 0x08a0 ; 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 0104 | | .CONST 0x0104 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0047 | G | .CONST 0x0047 ; Number of locals
000b INIT_0008:
000b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
000d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
000f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0011 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0013 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0015 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0017 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0019 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
001b 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
001d 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
001f 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0021 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0023 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0025 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0027 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0029 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
002b 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
002d 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
002f 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
0031 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
0033 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0035 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
0037 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
0039 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
003b 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
003d 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
003f 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
0041 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0043 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0045 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0047 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0049 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
004b 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
004d 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
004f 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
0051 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated
0053 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
0055 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
0057 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated
0059 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated
005b 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated
005d 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
005f 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated
0061 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated
0063 0093 0000 | | push_full_address 0x0
0065 60d6 |` | Indirect_Literal Discrete,0x13c,{0x80000000, 0x00010000}
0066 0273 | s | Execute Discrete,Plus
0067 0129 | ) | Execute Any,Make_Visible
0068 4800 |H | Short_Literal 0x0
0069 4818 |H | Short_Literal 0x18
006a 00e3 | | Load_Encached Natural_Cache
006b 03f9 | | Declare_Type Discrete,Constrained,Visible
006c e002 | | Load 0x0,0x2
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e e002 | | Load 0x0,0x2
006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0070 e003 | | Load 0x0,0x3
0071 e002 | | Load 0x0,0x2
0072 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0073 00e3 | | Load_Encached Natural_Cache
0074 e002 | | Load 0x0,0x2
0075 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0076 e004 | | Load 0x0,0x4
0077 e005 | | Load 0x0,0x5
0078 e006 | | Load 0x0,0x6
0079 e007 | | Load 0x0,0x7
007a e008 | | Load 0x0,0x8
007b e009 | | Load 0x0,0x9
007c e00a | | Load 0x0,0xa
007d 4806 |H | Short_Literal 0x6
007e 00e1 | | Load_Encached Boolean_Cache
007f 00e3 | | Load_Encached Natural_Cache
0080 00e3 | | Load_Encached Natural_Cache
0081 e002 | | Load 0x0,0x2
0082 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0083 e002 | | Load 0x0,0x2
0084 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0085 00e1 | | Load_Encached Boolean_Cache
0086 4802 |H | Short_Literal 0x2
0087 e00b | | Load 0x0,0xb
0088 e23a | : | Load 0x1,0x3a
0089 029f 082b | +| Declare_Subprogram INIT_0828,For_Call
008b 4808 |H | Short_Literal 0x8
008c 480c |H | Short_Literal 0xc
008d 4802 |H | Short_Literal 0x2
008e 4800 |H | Short_Literal 0x0
008f 4801 |H | Short_Literal 0x1
0090 031e | | Declare_Type Variant_Record,Defined,Visible
0091 00d8 | | Load_Top At_Offset_0
0092 029f 088b | | Declare_Subprogram INIT_0888,For_Call
0094 4801 |H | Short_Literal 0x1
0095 032e | . | Declare_Type Record,Defined,Visible
0096 00bf | | Action Accept_Activation
0097 800c | | Call 0x0,0xc
0098 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0099 00c7 | | Action Elaborate_Subprogram
009a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
009b 00c7 | | Action Elaborate_Subprogram
009c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
009d 00c7 | | Action Elaborate_Subprogram
009e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00d7 00c7 | | Action Elaborate_Subprogram
00d8 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
00da 029d 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call
00dc 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
00de 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00e3 00c7 | | Action Elaborate_Subprogram
00e4 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
00e6 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call
00e8 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00eb 00c7 | | Action Elaborate_Subprogram
00ec 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00ed 00c7 | | Action Elaborate_Subprogram
00ee 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00f5 00c7 | | Action Elaborate_Subprogram
00f6 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call
00f8 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call
00fa 029d 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call
00fc 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call
00fe 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call
0100 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0101 00c7 | | Action Elaborate_Subprogram
0102 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0103 00c7 | | Action Elaborate_Subprogram
0104 BODY_0008:
0104 00bc | | Action Signal_Activated
0105 00bb | | Action Signal_Completion
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e23c | < | Load 0x1,0x3c
010c 0322 | " | Declare_Variable Record
010d 4802 |H | Short_Literal 0x2
010e e23b | ; | Load 0x1,0x3b
010f 1c08 | | Execute_Immediate Run_Utility,0x8
0110 00d8 | | Load_Top At_Offset_0
0111 1c01 | | Execute_Immediate Run_Utility,0x1
0112 4809 |H | Short_Literal 0x9
0113 00d9 | | Load_Top At_Offset_1
0114 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0115 800d | | Call 0x0,0xd
0116 00d9 | | Load_Top At_Offset_1
0117 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0118 4800 |H | Short_Literal 0x0
0119 00d9 | | Load_Top At_Offset_1
011a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
011b 4805 |H | Short_Literal 0x5
011c 00d9 | | Load_Top At_Offset_1
011d 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
011e e00e | | Load 0x0,0xe
011f 00d9 | | Load_Top At_Offset_1
0120 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0121 e00f | | Load 0x0,0xf
0122 00d9 | | Load_Top At_Offset_1
0123 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
0124 e010 | | Load 0x0,0x10
0125 00d9 | | Load_Top At_Offset_1
0126 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
0127 e011 | | Load 0x0,0x11
0128 00d9 | | Load_Top At_Offset_1
0129 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
012a 4800 |H | Short_Literal 0x0
012b 00d9 | | Load_Top At_Offset_1
012c 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
012d e23d | = | Load 0x1,0x3d
012e 00d9 | | Load_Top At_Offset_1
012f 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0130 8012 | | Call 0x0,0x12
0131 00d9 | | Load_Top At_Offset_1
0132 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
0133 4800 |H | Short_Literal 0x0
0134 00d9 | | Load_Top At_Offset_1
0135 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0136 00d9 | | Load_Top At_Offset_1
0137 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0138 00ca | | Action Exit_Nullary_Function
0139 0000 0000 | | .XXX[0x3]
013b 0000 | |
013c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 480d |H | Short_Literal 0xd
0144 00ca | | Action Exit_Nullary_Function
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e23c | < | Load 0x1,0x3c
014c 0322 | " | Declare_Variable Record
014d 4802 |H | Short_Literal 0x2
014e e23b | ; | Load 0x1,0x3b
014f 1c08 | | Execute_Immediate Run_Utility,0x8
0150 00d8 | | Load_Top At_Offset_0
0151 1c01 | | Execute_Immediate Run_Utility,0x1
0152 4800 |H | Short_Literal 0x0
0153 00d9 | | Load_Top At_Offset_1
0154 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0155 800d | | Call 0x0,0xd
0156 00d9 | | Load_Top At_Offset_1
0157 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0158 4801 |H | Short_Literal 0x1
0159 00d9 | | Load_Top At_Offset_1
015a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
015b 4802 |H | Short_Literal 0x2
015c 00d9 | | Load_Top At_Offset_1
015d 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
015e e00e | | Load 0x0,0xe
015f 00d9 | | Load_Top At_Offset_1
0160 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0161 e00f | | Load 0x0,0xf
0162 00d9 | | Load_Top At_Offset_1
0163 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
0164 e010 | | Load 0x0,0x10
0165 00d9 | | Load_Top At_Offset_1
0166 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
0167 e011 | | Load 0x0,0x11
0168 00d9 | | Load_Top At_Offset_1
0169 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
016a 4800 |H | Short_Literal 0x0
016b 00d9 | | Load_Top At_Offset_1
016c 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
016d e23d | = | Load 0x1,0x3d
016e 00d9 | | Load_Top At_Offset_1
016f 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0170 8012 | | Call 0x0,0x12
0171 00d9 | | Load_Top At_Offset_1
0172 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
0173 4800 |H | Short_Literal 0x0
0174 00d9 | | Load_Top At_Offset_1
0175 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0176 00d9 | | Load_Top At_Offset_1
0177 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0178 00ca | | Action Exit_Nullary_Function
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 e23c | < | Load 0x1,0x3c
0184 0322 | " | Declare_Variable Record
0185 4802 |H | Short_Literal 0x2
0186 e23b | ; | Load 0x1,0x3b
0187 1c08 | | Execute_Immediate Run_Utility,0x8
0188 00d8 | | Load_Top At_Offset_0
0189 1c01 | | Execute_Immediate Run_Utility,0x1
018a 4801 |H | Short_Literal 0x1
018b 00d9 | | Load_Top At_Offset_1
018c 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
018d 800d | | Call 0x0,0xd
018e 00d9 | | Load_Top At_Offset_1
018f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0190 4802 |H | Short_Literal 0x2
0191 00d9 | | Load_Top At_Offset_1
0192 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0193 4802 |H | Short_Literal 0x2
0194 00d9 | | Load_Top At_Offset_1
0195 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0196 e00e | | Load 0x0,0xe
0197 00d9 | | Load_Top At_Offset_1
0198 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0199 e00f | | Load 0x0,0xf
019a 00d9 | | Load_Top At_Offset_1
019b 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
019c e010 | | Load 0x0,0x10
019d 00d9 | | Load_Top At_Offset_1
019e 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
019f e011 | | Load 0x0,0x11
01a0 00d9 | | Load_Top At_Offset_1
01a1 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
01a2 4800 |H | Short_Literal 0x0
01a3 00d9 | | Load_Top At_Offset_1
01a4 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
01a5 e23d | = | Load 0x1,0x3d
01a6 00d9 | | Load_Top At_Offset_1
01a7 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
01a8 8012 | | Call 0x0,0x12
01a9 00d9 | | Load_Top At_Offset_1
01aa 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
01ab 4800 |H | Short_Literal 0x0
01ac 00d9 | | Load_Top At_Offset_1
01ad 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
01ae 00d9 | | Load_Top At_Offset_1
01af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01b0 00ca | | Action Exit_Nullary_Function
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e23c | < | Load 0x1,0x3c
01bc 0322 | " | Declare_Variable Record
01bd 4802 |H | Short_Literal 0x2
01be e23b | ; | Load 0x1,0x3b
01bf 1c08 | | Execute_Immediate Run_Utility,0x8
01c0 00d8 | | Load_Top At_Offset_0
01c1 1c01 | | Execute_Immediate Run_Utility,0x1
01c2 4802 |H | Short_Literal 0x2
01c3 00d9 | | Load_Top At_Offset_1
01c4 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
01c5 800d | | Call 0x0,0xd
01c6 00d9 | | Load_Top At_Offset_1
01c7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01c8 4803 |H | Short_Literal 0x3
01c9 00d9 | | Load_Top At_Offset_1
01ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01cb 4802 |H | Short_Literal 0x2
01cc 00d9 | | Load_Top At_Offset_1
01cd 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
01ce e00e | | Load 0x0,0xe
01cf 00d9 | | Load_Top At_Offset_1
01d0 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
01d1 e00f | | Load 0x0,0xf
01d2 00d9 | | Load_Top At_Offset_1
01d3 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
01d4 e010 | | Load 0x0,0x10
01d5 00d9 | | Load_Top At_Offset_1
01d6 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
01d7 e011 | | Load 0x0,0x11
01d8 00d9 | | Load_Top At_Offset_1
01d9 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
01da 4800 |H | Short_Literal 0x0
01db 00d9 | | Load_Top At_Offset_1
01dc 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
01dd e23d | = | Load 0x1,0x3d
01de 00d9 | | Load_Top At_Offset_1
01df 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
01e0 8012 | | Call 0x0,0x12
01e1 00d9 | | Load_Top At_Offset_1
01e2 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
01e3 4800 |H | Short_Literal 0x0
01e4 00d9 | | Load_Top At_Offset_1
01e5 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
01e6 00d9 | | Load_Top At_Offset_1
01e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e8 00ca | | Action Exit_Nullary_Function
01e9 0000 0000 | | .BLANK 0000[0x7]
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 e23c | < | Load 0x1,0x3c
01f4 0322 | " | Declare_Variable Record
01f5 4802 |H | Short_Literal 0x2
01f6 e23b | ; | Load 0x1,0x3b
01f7 1c08 | | Execute_Immediate Run_Utility,0x8
01f8 00d8 | | Load_Top At_Offset_0
01f9 1c01 | | Execute_Immediate Run_Utility,0x1
01fa 4803 |H | Short_Literal 0x3
01fb 00d9 | | Load_Top At_Offset_1
01fc 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
01fd 800d | | Call 0x0,0xd
01fe 00d9 | | Load_Top At_Offset_1
01ff 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0200 4804 |H | Short_Literal 0x4
0201 00d9 | | Load_Top At_Offset_1
0202 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0203 4804 |H | Short_Literal 0x4
0204 00d9 | | Load_Top At_Offset_1
0205 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0206 e00e | | Load 0x0,0xe
0207 00d9 | | Load_Top At_Offset_1
0208 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0209 e00f | | Load 0x0,0xf
020a 00d9 | | Load_Top At_Offset_1
020b 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
020c e010 | | Load 0x0,0x10
020d 00d9 | | Load_Top At_Offset_1
020e 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
020f e011 | | Load 0x0,0x11
0210 00d9 | | Load_Top At_Offset_1
0211 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
0212 4800 |H | Short_Literal 0x0
0213 00d9 | | Load_Top At_Offset_1
0214 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0215 e23d | = | Load 0x1,0x3d
0216 00d9 | | Load_Top At_Offset_1
0217 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0218 8012 | | Call 0x0,0x12
0219 00d9 | | Load_Top At_Offset_1
021a 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
021b 4800 |H | Short_Literal 0x0
021c 00d9 | | Load_Top At_Offset_1
021d 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
021e 00d9 | | Load_Top At_Offset_1
021f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0220 00ca | | Action Exit_Nullary_Function
0221 0000 0000 | | .BLANK 0000[0x7]
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 e23c | < | Load 0x1,0x3c
022c 0322 | " | Declare_Variable Record
022d 4802 |H | Short_Literal 0x2
022e e23b | ; | Load 0x1,0x3b
022f 1c08 | | Execute_Immediate Run_Utility,0x8
0230 00d8 | | Load_Top At_Offset_0
0231 1c01 | | Execute_Immediate Run_Utility,0x1
0232 4804 |H | Short_Literal 0x4
0233 00d9 | | Load_Top At_Offset_1
0234 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0235 800d | | Call 0x0,0xd
0236 00d9 | | Load_Top At_Offset_1
0237 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0238 4805 |H | Short_Literal 0x5
0239 00d9 | | Load_Top At_Offset_1
023a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
023b 4802 |H | Short_Literal 0x2
023c 00d9 | | Load_Top At_Offset_1
023d 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
023e e00e | | Load 0x0,0xe
023f 00d9 | | Load_Top At_Offset_1
0240 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0241 e00f | | Load 0x0,0xf
0242 00d9 | | Load_Top At_Offset_1
0243 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
0244 e010 | | Load 0x0,0x10
0245 00d9 | | Load_Top At_Offset_1
0246 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
0247 e011 | | Load 0x0,0x11
0248 00d9 | | Load_Top At_Offset_1
0249 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
024a 4800 |H | Short_Literal 0x0
024b 00d9 | | Load_Top At_Offset_1
024c 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
024d e23d | = | Load 0x1,0x3d
024e 00d9 | | Load_Top At_Offset_1
024f 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0250 8012 | | Call 0x0,0x12
0251 00d9 | | Load_Top At_Offset_1
0252 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
0253 4800 |H | Short_Literal 0x0
0254 00d9 | | Load_Top At_Offset_1
0255 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0256 00d9 | | Load_Top At_Offset_1
0257 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0258 00ca | | Action Exit_Nullary_Function
0259 0000 0000 | | .BLANK 0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 e23c | < | Load 0x1,0x3c
0264 0322 | " | Declare_Variable Record
0265 4800 |H | Short_Literal 0x0
0266 e23b | ; | Load 0x1,0x3b
0267 1c08 | | Execute_Immediate Run_Utility,0x8
0268 00d8 | | Load_Top At_Offset_0
0269 1c01 | | Execute_Immediate Run_Utility,0x1
026a 4806 |H | Short_Literal 0x6
026b 00d9 | | Load_Top At_Offset_1
026c 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
026d 800d | | Call 0x0,0xd
026e 00d9 | | Load_Top At_Offset_1
026f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0270 4807 |H | Short_Literal 0x7
0271 00d9 | | Load_Top At_Offset_1
0272 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0273 4804 |H | Short_Literal 0x4
0274 00d9 | | Load_Top At_Offset_1
0275 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0276 4801 |H | Short_Literal 0x1
0277 00d9 | | Load_Top At_Offset_1
0278 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
0279 4801 |H | Short_Literal 0x1
027a 00d9 | | Load_Top At_Offset_1
027b 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
027c 4801 |H | Short_Literal 0x1
027d 00d9 | | Load_Top At_Offset_1
027e 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
027f 4802 |H | Short_Literal 0x2
0280 00d9 | | Load_Top At_Offset_1
0281 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
0282 4800 |H | Short_Literal 0x0
0283 00d9 | | Load_Top At_Offset_1
0284 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
0285 4801 |H | Short_Literal 0x1
0286 00d9 | | Load_Top At_Offset_1
0287 2a13 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x13
0288 e00e | | Load 0x0,0xe
0289 00d9 | | Load_Top At_Offset_1
028a 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
028b e00f | | Load 0x0,0xf
028c 00d9 | | Load_Top At_Offset_1
028d 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
028e e010 | | Load 0x0,0x10
028f 00d9 | | Load_Top At_Offset_1
0290 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
0291 e011 | | Load 0x0,0x11
0292 00d9 | | Load_Top At_Offset_1
0293 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
0294 4800 |H | Short_Literal 0x0
0295 00d9 | | Load_Top At_Offset_1
0296 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0297 e23d | = | Load 0x1,0x3d
0298 00d9 | | Load_Top At_Offset_1
0299 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
029a 8012 | | Call 0x0,0x12
029b 00d9 | | Load_Top At_Offset_1
029c 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
029d 4800 |H | Short_Literal 0x0
029e 00d9 | | Load_Top At_Offset_1
029f 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
02a0 00d9 | | Load_Top At_Offset_1
02a1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a2 00ca | | Action Exit_Nullary_Function
02a3 0000 0000 | | .BLANK 0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab e23c | < | Load 0x1,0x3c
02ac 0322 | " | Declare_Variable Record
02ad 4802 |H | Short_Literal 0x2
02ae e23b | ; | Load 0x1,0x3b
02af 1c08 | | Execute_Immediate Run_Utility,0x8
02b0 00d8 | | Load_Top At_Offset_0
02b1 1c01 | | Execute_Immediate Run_Utility,0x1
02b2 4807 |H | Short_Literal 0x7
02b3 00d9 | | Load_Top At_Offset_1
02b4 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
02b5 800d | | Call 0x0,0xd
02b6 00d9 | | Load_Top At_Offset_1
02b7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02b8 4808 |H | Short_Literal 0x8
02b9 00d9 | | Load_Top At_Offset_1
02ba 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02bb 4804 |H | Short_Literal 0x4
02bc 00d9 | | Load_Top At_Offset_1
02bd 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
02be e00e | | Load 0x0,0xe
02bf 00d9 | | Load_Top At_Offset_1
02c0 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
02c1 e00f | | Load 0x0,0xf
02c2 00d9 | | Load_Top At_Offset_1
02c3 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
02c4 e010 | | Load 0x0,0x10
02c5 00d9 | | Load_Top At_Offset_1
02c6 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
02c7 e011 | | Load 0x0,0x11
02c8 00d9 | | Load_Top At_Offset_1
02c9 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
02ca 4800 |H | Short_Literal 0x0
02cb 00d9 | | Load_Top At_Offset_1
02cc 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
02cd e23d | = | Load 0x1,0x3d
02ce 00d9 | | Load_Top At_Offset_1
02cf 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
02d0 8012 | | Call 0x0,0x12
02d1 00d9 | | Load_Top At_Offset_1
02d2 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
02d3 4800 |H | Short_Literal 0x0
02d4 00d9 | | Load_Top At_Offset_1
02d5 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
02d6 00d9 | | Load_Top At_Offset_1
02d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02d8 00ca | | Action Exit_Nullary_Function
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 e23c | < | Load 0x1,0x3c
02e4 0322 | " | Declare_Variable Record
02e5 4802 |H | Short_Literal 0x2
02e6 e23b | ; | Load 0x1,0x3b
02e7 1c08 | | Execute_Immediate Run_Utility,0x8
02e8 00d8 | | Load_Top At_Offset_0
02e9 1c01 | | Execute_Immediate Run_Utility,0x1
02ea 4808 |H | Short_Literal 0x8
02eb 00d9 | | Load_Top At_Offset_1
02ec 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
02ed 800d | | Call 0x0,0xd
02ee 00d9 | | Load_Top At_Offset_1
02ef 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02f0 4809 |H | Short_Literal 0x9
02f1 00d9 | | Load_Top At_Offset_1
02f2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02f3 4804 |H | Short_Literal 0x4
02f4 00d9 | | Load_Top At_Offset_1
02f5 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
02f6 e00e | | Load 0x0,0xe
02f7 00d9 | | Load_Top At_Offset_1
02f8 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
02f9 e00f | | Load 0x0,0xf
02fa 00d9 | | Load_Top At_Offset_1
02fb 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
02fc e010 | | Load 0x0,0x10
02fd 00d9 | | Load_Top At_Offset_1
02fe 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
02ff e011 | | Load 0x0,0x11
0300 00d9 | | Load_Top At_Offset_1
0301 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
0302 4800 |H | Short_Literal 0x0
0303 00d9 | | Load_Top At_Offset_1
0304 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0305 e23d | = | Load 0x1,0x3d
0306 00d9 | | Load_Top At_Offset_1
0307 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0308 8012 | | Call 0x0,0x12
0309 00d9 | | Load_Top At_Offset_1
030a 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
030b 4800 |H | Short_Literal 0x0
030c 00d9 | | Load_Top At_Offset_1
030d 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
030e 00d9 | | Load_Top At_Offset_1
030f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0310 00ca | | Action Exit_Nullary_Function
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
031d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
0324 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0325 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0326 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0327 0000 | | .XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
032d 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
032e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032f 0000 | | .XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0335 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
033d 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
033e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033f 0000 | | .XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0345 2e13 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x13
0346 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0347 0000 | | .XXX[0x1]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
034d 2407 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
034e 0320 | | Declare_Variable Record,Duplicate
034f 00cd | | Action Spare6_Action
0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
035d 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
035e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
0364 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0365 2408 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x8
0366 0320 | | Declare_Variable Record,Duplicate
0367 00cd | | Action Spare6_Action
0368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0369 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
0374 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0375 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
0376 0320 | | Declare_Variable Record,Duplicate
0377 00cd | | Action Spare6_Action
0378 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0379 0000 0000 | | .BLANK 0000[0x7]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0385 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0386 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0387 0000 | | .XXX[0x1]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00da | | Load_Top At_Offset_2
038c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
038d 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd
038e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038f 0000 | | .XXX[0x1]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0395 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0396 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0397 0000 | | .XXX[0x1]
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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
039d 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
039e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
039f 0000 | | .XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a5 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
03a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03a7 0000 | | .XXX[0x1]
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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03ad 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03af 0000 | | .XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03b5 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12
03b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b7 0000 | | .XXX[0x1]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb 00da | | Load_Top At_Offset_2
03bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03bd 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
03be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03c5 2e14 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x14
03c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c7 0000 | | .XXX[0x1]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03cd 2e14 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x14
03ce 8013 | | Call 0x0,0x13
03cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d5 2e15 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x15
03d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d7 0000 | | .XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03dd 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
03de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03df 0000 | | .XXX[0x1]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e9 | | .CONST 0x03e9 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0003 | | .CONST 0x0003 ; Number of locals
03e3 INIT_03e0:
03e3 e005 | | Load 0x0,0x5
03e4 0322 | " | Declare_Variable Record
03e5 00d8 | | Load_Top At_Offset_0
03e6 1c00 | | Execute_Immediate Run_Utility,0x0
03e7 e007 | | Load 0x0,0x7
03e8 0322 | " | Declare_Variable Record
03e9 BODY_03e0:
03e9 00d9 | | Load_Top At_Offset_1
03ea e5fe | | Load 0x2,-0x2
03eb 823f | ? | Call 0x1,0x3f
03ec 00d1 | | Pop_Control Pop_Count_1
03ed e5fd | | Load 0x2,-0x3
03ee 8240 | @ | Call 0x1,0x40
03ef 00d9 | | Load_Top At_Offset_1
03f0 017d | } | Execute Record,Structure_Write
03f1 e23c | < | Load 0x1,0x3c
03f2 0322 | " | Declare_Variable Record
03f3 4800 |H | Short_Literal 0x0
03f4 e23b | ; | Load 0x1,0x3b
03f5 1c08 | | Execute_Immediate Run_Utility,0x8
03f6 00d8 | | Load_Top At_Offset_0
03f7 1c01 | | Execute_Immediate Run_Utility,0x1
03f8 e5ff | | Load 0x2,-0x1
03f9 00d9 | | Load_Top At_Offset_1
03fa 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
03fb e5f4 | | Load 0x2,-0xc
03fc 00d9 | | Load_Top At_Offset_1
03fd 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03fe e5f6 | | Load 0x2,-0xa
03ff 00d9 | | Load_Top At_Offset_1
0400 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0401 4800 |H | Short_Literal 0x0
0402 00d9 | | Load_Top At_Offset_1
0403 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0404 e5fe | | Load 0x2,-0x2
0405 00d9 | | Load_Top At_Offset_1
0406 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
0407 00db | | Load_Top At_Offset_3
0408 00d9 | | Load_Top At_Offset_1
0409 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
040a e5fd | | Load 0x2,-0x3
040b 00d9 | | Load_Top At_Offset_1
040c 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
040d 00da | | Load_Top At_Offset_2
040e 00d9 | | Load_Top At_Offset_1
040f 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
0410 e5fc | | Load 0x2,-0x4
0411 00d9 | | Load_Top At_Offset_1
0412 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0413 e5fa | | Load 0x2,-0x6
0414 00d9 | | Load_Top At_Offset_1
0415 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
0416 e5f9 | | Load 0x2,-0x7
0417 00d9 | | Load_Top At_Offset_1
0418 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
0419 e5f9 | | Load 0x2,-0x7
041a 00d9 | | Load_Top At_Offset_1
041b 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
041c e5f8 | | Load 0x2,-0x8
041d 00d9 | | Load_Top At_Offset_1
041e 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
041f e5f7 | | Load 0x2,-0x9
0420 00d9 | | Load_Top At_Offset_1
0421 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
0422 e5f5 | | Load 0x2,-0xb
0423 00d9 | | Load_Top At_Offset_1
0424 2a13 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x13
0425 4808 |H | Short_Literal 0x8
0426 00d9 | | Load_Top At_Offset_1
0427 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
0428 e5fd | | Load 0x2,-0x3
0429 823e | > | Call 0x1,0x3e
042a 00d9 | | Load_Top At_Offset_1
042b 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
042c e5fb | | Load 0x2,-0x5
042d 00d9 | | Load_Top At_Offset_1
042e 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
042f 00d9 | | Load_Top At_Offset_1
0430 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0431 e5f3 | | Load 0x2,-0xd
0432 017d | } | Execute Record,Structure_Write
0433 e5f4 | | Load 0x2,-0xc
0434 0a01 | | Execute_Immediate Plus,0x1
0435 c5f4 | | Store 0x2,-0xc
0436 450c |E | Exit_Suprogram New_Top_Offset 0xc
0437 0000 | | .XXX[0x1]
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 e5f4 | | Load 0x2,-0xc
043c e5f5 | | Load 0x2,-0xb
043d 4800 |H | Short_Literal 0x0
043e e5f6 | | Load 0x2,-0xa
043f e5f7 | | Load 0x2,-0x9
0440 e5f8 | | Load 0x2,-0x8
0441 e5f9 | | Load 0x2,-0x7
0442 e5fa | | Load 0x2,-0x6
0443 e5fb | | Load 0x2,-0x5
0444 e5fc | | Load 0x2,-0x4
0445 e5fd | | Load 0x2,-0x3
0446 e5fe | | Load 0x2,-0x2
0447 e5ff | | Load 0x2,-0x1
0448 822d | - | Call 0x1,0x2d
0449 c5f5 | | Store 0x2,-0xb
044a 450b |E | Exit_Suprogram New_Top_Offset 0xb
044b 0000 0000 | | .BLANK 0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0459 | Y | .CONST 0x0459 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0003 | | .CONST 0x0003 ; Number of locals
0453 INIT_0450:
0453 e005 | | Load 0x0,0x5
0454 0322 | " | Declare_Variable Record
0455 00d8 | | Load_Top At_Offset_0
0456 1c00 | | Execute_Immediate Run_Utility,0x0
0457 e007 | | Load 0x0,0x7
0458 0322 | " | Declare_Variable Record
0459 BODY_0450:
0459 00d9 | | Load_Top At_Offset_1
045a e5fb | | Load 0x2,-0x5
045b 823f | ? | Call 0x1,0x3f
045c 00d1 | | Pop_Control Pop_Count_1
045d e5fa | | Load 0x2,-0x6
045e 8240 | @ | Call 0x1,0x40
045f 00d9 | | Load_Top At_Offset_1
0460 017d | } | Execute Record,Structure_Write
0461 e23c | < | Load 0x1,0x3c
0462 0322 | " | Declare_Variable Record
0463 4801 |H | Short_Literal 0x1
0464 e23b | ; | Load 0x1,0x3b
0465 1c08 | | Execute_Immediate Run_Utility,0x8
0466 00d8 | | Load_Top At_Offset_0
0467 1c01 | | Execute_Immediate Run_Utility,0x1
0468 e5ff | | Load 0x2,-0x1
0469 00d9 | | Load_Top At_Offset_1
046a 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
046b e5f8 | | Load 0x2,-0x8
046c 00d9 | | Load_Top At_Offset_1
046d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
046e e5fc | | Load 0x2,-0x4
046f 00d9 | | Load_Top At_Offset_1
0470 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0471 e5fd | | Load 0x2,-0x3
0472 00d9 | | Load_Top At_Offset_1
0473 2a15 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x15
0474 4800 |H | Short_Literal 0x0
0475 00d9 | | Load_Top At_Offset_1
0476 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
0477 e5fe | | Load 0x2,-0x2
0478 00d9 | | Load_Top At_Offset_1
0479 2a14 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x14
047a e5fb | | Load 0x2,-0x5
047b 00d9 | | Load_Top At_Offset_1
047c 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7
047d e5fa | | Load 0x2,-0x6
047e 00d9 | | Load_Top At_Offset_1
047f 2809 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x9
0480 00db | | Load_Top At_Offset_3
0481 00d9 | | Load_Top At_Offset_1
0482 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
0483 00da | | Load_Top At_Offset_2
0484 00d9 | | Load_Top At_Offset_1
0485 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
0486 e5f9 | | Load 0x2,-0x7
0487 00d9 | | Load_Top At_Offset_1
0488 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
0489 4808 |H | Short_Literal 0x8
048a 00d9 | | Load_Top At_Offset_1
048b 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
048c e5fa | | Load 0x2,-0x6
048d 823e | > | Call 0x1,0x3e
048e 00d9 | | Load_Top At_Offset_1
048f 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
0490 8012 | | Call 0x0,0x12
0491 00d9 | | Load_Top At_Offset_1
0492 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
0493 00d9 | | Load_Top At_Offset_1
0494 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0495 e5f7 | | Load 0x2,-0x9
0496 017d | } | Execute Record,Structure_Write
0497 e5f8 | | Load 0x2,-0x8
0498 0a01 | | Execute_Immediate Plus,0x1
0499 c5f8 | | Store 0x2,-0x8
049a 4508 |E | Exit_Suprogram New_Top_Offset 0x8
049b 0000 0000 | | .BLANK 0000[0x5]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 e5fb | | Load 0x2,-0x5
04a4 e5fc | | Load 0x2,-0x4
04a5 e5fd | | Load 0x2,-0x3
04a6 e5fe | | Load 0x2,-0x2
04a7 e5ff | | Load 0x2,-0x1
04a8 8242 | B | Call 0x1,0x42
04a9 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
04aa 0000 0000 | | .BLANK 0000[0x6]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 e5fb | | Load 0x2,-0x5
04b4 e5fc | | Load 0x2,-0x4
04b5 e5fd | | Load 0x2,-0x3
04b6 e5fe | | Load 0x2,-0x2
04b7 e5ff | | Load 0x2,-0x1
04b8 8242 | B | Call 0x1,0x42
04b9 680d |h | Jump_Zero 0x4c7
04ba 00da | | Load_Top At_Offset_2
04bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04bc 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd
04bd 8014 | | Call 0x0,0x14
04be 7006 |p | Jump_Nonzero 0x4c5
04bf e5fa | | Load 0x2,-0x6
04c0 00db | | Load_Top At_Offset_3
04c1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04c2 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd
04c3 027f | | Execute Discrete,Equal
04c4 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04c5 4801 |H | Short_Literal 0x1
04c6 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04c7 4800 |H | Short_Literal 0x0
04c8 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04c9 0000 0000 | | .BLANK 0000[0x7]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 00da | | Load_Top At_Offset_2
04d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04d5 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
04d6 0d02 | | Execute_Immediate Less,0x2
04d7 6807 |h | Jump_Zero 0x4df
04d8 00da | | Load_Top At_Offset_2
04d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04da 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
04db 00db | | Load_Top At_Offset_3
04dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04dd 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
04de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04df 00da | | Load_Top At_Offset_2
04e0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04e1 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
04e2 0aff | | Execute_Immediate Plus,-0x1
04e3 00db | | Load_Top At_Offset_3
04e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04e5 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
04e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e7 0000 | | .XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 00da | | Load_Top At_Offset_2
04ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04ed 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
04ee 00db | | Load_Top At_Offset_3
04ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04f0 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
04f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04f2 0000 0000 | | .BLANK 0000[0x6]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0501 | | .CONST 0x0501 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0002 | | .CONST 0x0002 ; Number of locals
04fb INIT_04f8:
04fb 8238 | 8 | Call 0x1,0x38
04fc e015 | | Load 0x0,0x15
04fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04fe 1c08 | | Execute_Immediate Run_Utility,0x8
04ff 00d8 | | Load_Top At_Offset_0
0500 1c00 | | Execute_Immediate Run_Utility,0x0
0501 BODY_04f8:
0501 00d8 | | Load_Top At_Offset_0
0502 00ea | | Load_Encached Null_String_Cache
0503 e015 | | Load 0x0,0x15
0504 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0505 00d1 | | Pop_Control Pop_Count_1
0506 00d8 | | Load_Top At_Offset_0
0507 4820 |H | Short_Literal 0x20
0508 4800 |H | Short_Literal 0x0
0509 4810 |H | Short_Literal 0x10
050a e5ff | | Load 0x2,-0x1
050b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
050c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
050d 8243 | C | Call 0x1,0x43
050e e016 | | Load 0x0,0x16
050f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0510 e015 | | Load 0x0,0x15
0511 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0512 00d1 | | Pop_Control Pop_Count_1
0513 00d8 | | Load_Top At_Offset_0
0514 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0516 e015 | | Load 0x0,0x15
0517 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0518 00d1 | | Pop_Control Pop_Count_1
0519 00d8 | | Load_Top At_Offset_0
051a 4820 |H | Short_Literal 0x20
051b 4800 |H | Short_Literal 0x0
051c 4810 |H | Short_Literal 0x10
051d e5ff | | Load 0x2,-0x1
051e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
051f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0520 e016 | | Load 0x0,0x16
0521 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0522 e015 | | Load 0x0,0x15
0523 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0524 00d1 | | Pop_Control Pop_Count_1
0525 00d8 | | Load_Top At_Offset_0
0526 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0528 e015 | | Load 0x0,0x15
0529 1818 | | Execute Package,Field_Execute,Field_Number 0x18
052a 00d1 | | Pop_Control Pop_Count_1
052b 00d8 | | Load_Top At_Offset_0
052c e5ff | | Load 0x2,-0x1
052d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
052e 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
052f 8017 | | Call 0x0,0x17
0530 e015 | | Load 0x0,0x15
0531 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0532 00d1 | | Pop_Control Pop_Count_1
0533 00d8 | | Load_Top At_Offset_0
0534 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0536 e015 | | Load 0x0,0x15
0537 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0538 00d1 | | Pop_Control Pop_Count_1
0539 00d8 | | Load_Top At_Offset_0
053a 4820 |H | Short_Literal 0x20
053b 4800 |H | Short_Literal 0x0
053c 4810 |H | Short_Literal 0x10
053d e5ff | | Load 0x2,-0x1
053e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
053f 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0540 8246 | F | Call 0x1,0x46
0541 e016 | | Load 0x0,0x16
0542 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0543 e015 | | Load 0x0,0x15
0544 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0545 00d1 | | Pop_Control Pop_Count_1
0546 00d8 | | Load_Top At_Offset_0
0547 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0549 e015 | | Load 0x0,0x15
054a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
054b 00d1 | | Pop_Control Pop_Count_1
054c 00d8 | | Load_Top At_Offset_0
054d 4820 |H | Short_Literal 0x20
054e 4800 |H | Short_Literal 0x0
054f 4810 |H | Short_Literal 0x10
0550 e5ff | | Load 0x2,-0x1
0551 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0552 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0553 e016 | | Load 0x0,0x16
0554 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0555 e015 | | Load 0x0,0x15
0556 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0557 00d1 | | Pop_Control Pop_Count_1
0558 00d8 | | Load_Top At_Offset_0
0559 0092 0892 | | Action Push_String_Extended,0x892 ; " "
055b e015 | | Load 0x0,0x15
055c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
055d 00d1 | | Pop_Control Pop_Count_1
055e 00d8 | | Load_Top At_Offset_0
055f 4820 |H | Short_Literal 0x20
0560 4800 |H | Short_Literal 0x0
0561 4810 |H | Short_Literal 0x10
0562 e5ff | | Load 0x2,-0x1
0563 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0564 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0565 8247 | G | Call 0x1,0x47
0566 e016 | | Load 0x0,0x16
0567 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0568 e015 | | Load 0x0,0x15
0569 1818 | | Execute Package,Field_Execute,Field_Number 0x18
056a 00d1 | | Pop_Control Pop_Count_1
056b 00d8 | | Load_Top At_Offset_0
056c 0092 0892 | | Action Push_String_Extended,0x892 ; " "
056e e015 | | Load 0x0,0x15
056f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0570 00d1 | | Pop_Control Pop_Count_1
0571 00d8 | | Load_Top At_Offset_0
0572 e5ff | | Load 0x2,-0x1
0573 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0574 2408 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x8
0575 8018 | | Call 0x0,0x18
0576 e015 | | Load 0x0,0x15
0577 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0578 00d1 | | Pop_Control Pop_Count_1
0579 00d8 | | Load_Top At_Offset_0
057a 0092 0892 | | Action Push_String_Extended,0x892 ; " "
057c e015 | | Load 0x0,0x15
057d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
057e 00d1 | | Pop_Control Pop_Count_1
057f 00d8 | | Load_Top At_Offset_0
0580 e5ff | | Load 0x2,-0x1
0581 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0582 240a |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0xa
0583 8019 | | Call 0x0,0x19
0584 e015 | | Load 0x0,0x15
0585 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0586 00d1 | | Pop_Control Pop_Count_1
0587 00d8 | | Load_Top At_Offset_0
0588 0092 0892 | | Action Push_String_Extended,0x892 ; " "
058a e015 | | Load 0x0,0x15
058b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
058c 00d1 | | Pop_Control Pop_Count_1
058d 00d8 | | Load_Top At_Offset_0
058e e5ff | | Load 0x2,-0x1
058f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0590 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
0591 801a | | Call 0x0,0x1a
0592 e015 | | Load 0x0,0x15
0593 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0594 00d1 | | Pop_Control Pop_Count_1
0595 00d8 | | Load_Top At_Offset_0
0596 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0598 e015 | | Load 0x0,0x15
0599 1818 | | Execute Package,Field_Execute,Field_Number 0x18
059a 00d1 | | Pop_Control Pop_Count_1
059b 00d8 | | Load_Top At_Offset_0
059c e5ff | | Load 0x2,-0x1
059d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
059e 2c0c |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xc
059f 801b | | Call 0x0,0x1b
05a0 e015 | | Load 0x0,0x15
05a1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05a2 00d1 | | Pop_Control Pop_Count_1
05a3 00d8 | | Load_Top At_Offset_0
05a4 0092 0892 | | Action Push_String_Extended,0x892 ; " "
05a6 e015 | | Load 0x0,0x15
05a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05a8 00d1 | | Pop_Control Pop_Count_1
05a9 00db | | Load_Top At_Offset_3
05aa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ab 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
05ac 4602 |F | Jump_Case 0x3
05ad 781e |x | Jump 0x5cc ; case 0x0
05ae 7802 |x | Jump 0x5b1 ; case 0x1
05af 788e |x | Jump 0x63e ; case 0x2
05b0 788d |x | .XXX[0x1]
05b1 00d8 | | Load_Top At_Offset_0
05b2 e5ff | | Load 0x2,-0x1
05b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05b4 2e14 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x14
05b5 801c | | Call 0x0,0x1c
05b6 e015 | | Load 0x0,0x15
05b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05b8 00d1 | | Pop_Control Pop_Count_1
05b9 00d8 | | Load_Top At_Offset_0
05ba 0092 0892 | | Action Push_String_Extended,0x892 ; " "
05bc e015 | | Load 0x0,0x15
05bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05be 00d1 | | Pop_Control Pop_Count_1
05bf 00d8 | | Load_Top At_Offset_0
05c0 4820 |H | Short_Literal 0x20
05c1 4800 |H | Short_Literal 0x0
05c2 4810 |H | Short_Literal 0x10
05c3 e5ff | | Load 0x2,-0x1
05c4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05c5 2e15 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x15
05c6 e016 | | Load 0x0,0x16
05c7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05c8 e015 | | Load 0x0,0x15
05c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05ca 00d1 | | Pop_Control Pop_Count_1
05cb 7872 |xr | Jump 0x63e
05cc 00db | | Load_Top At_Offset_3
05cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05ce 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
05cf 6807 |h | Jump_Zero 0x5d7
05d0 00d8 | | Load_Top At_Offset_0
05d1 0092 0893 | | Action Push_String_Extended,0x893 ; "P"
05d3 e015 | | Load 0x0,0x15
05d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05d5 00d1 | | Pop_Control Pop_Count_1
05d6 7806 |x | Jump 0x5dd
05d7 00d8 | | Load_Top At_Offset_0
05d8 0092 0894 | | Action Push_String_Extended,0x894 ; "T"
05da e015 | | Load 0x0,0x15
05db 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05dc 00d1 | | Pop_Control Pop_Count_1
05dd 00d8 | | Load_Top At_Offset_0
05de 0092 0892 | | Action Push_String_Extended,0x892 ; " "
05e0 e015 | | Load 0x0,0x15
05e1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05e2 00d1 | | Pop_Control Pop_Count_1
05e3 00d8 | | Load_Top At_Offset_0
05e4 4820 |H | Short_Literal 0x20
05e5 4800 |H | Short_Literal 0x0
05e6 4810 |H | Short_Literal 0x10
05e7 e5ff | | Load 0x2,-0x1
05e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05e9 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
05ea e016 | | Load 0x0,0x16
05eb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05ec e015 | | Load 0x0,0x15
05ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05ee 00d1 | | Pop_Control Pop_Count_1
05ef 00d8 | | Load_Top At_Offset_0
05f0 0092 0892 | | Action Push_String_Extended,0x892 ; " "
05f2 e015 | | Load 0x0,0x15
05f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05f4 00d1 | | Pop_Control Pop_Count_1
05f5 00d8 | | Load_Top At_Offset_0
05f6 4820 |H | Short_Literal 0x20
05f7 4800 |H | Short_Literal 0x0
05f8 4810 |H | Short_Literal 0x10
05f9 e5ff | | Load 0x2,-0x1
05fa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05fb 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
05fc e016 | | Load 0x0,0x16
05fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05fe e015 | | Load 0x0,0x15
05ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0600 00d1 | | Pop_Control Pop_Count_1
0601 00d8 | | Load_Top At_Offset_0
0602 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0604 e015 | | Load 0x0,0x15
0605 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0606 00d1 | | Pop_Control Pop_Count_1
0607 00d8 | | Load_Top At_Offset_0
0608 4820 |H | Short_Literal 0x20
0609 4800 |H | Short_Literal 0x0
060a 4810 |H | Short_Literal 0x10
060b e5ff | | Load 0x2,-0x1
060c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
060d 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
060e 8244 | D | Call 0x1,0x44
060f e016 | | Load 0x0,0x16
0610 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0611 e015 | | Load 0x0,0x15
0612 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0613 00d1 | | Pop_Control Pop_Count_1
0614 00d8 | | Load_Top At_Offset_0
0615 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0617 e015 | | Load 0x0,0x15
0618 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0619 00d1 | | Pop_Control Pop_Count_1
061a 00d8 | | Load_Top At_Offset_0
061b 4820 |H | Short_Literal 0x20
061c 4800 |H | Short_Literal 0x0
061d 4810 |H | Short_Literal 0x10
061e e5ff | | Load 0x2,-0x1
061f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0620 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12
0621 8245 | E | Call 0x1,0x45
0622 e016 | | Load 0x0,0x16
0623 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0624 e015 | | Load 0x0,0x15
0625 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0626 00d1 | | Pop_Control Pop_Count_1
0627 00d8 | | Load_Top At_Offset_0
0628 0092 0892 | | Action Push_String_Extended,0x892 ; " "
062a e015 | | Load 0x0,0x15
062b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
062c 00d1 | | Pop_Control Pop_Count_1
062d 00db | | Load_Top At_Offset_3
062e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
062f 2e13 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x13
0630 6807 |h | Jump_Zero 0x638
0631 00d8 | | Load_Top At_Offset_0
0632 0092 0895 | | Action Push_String_Extended,0x895 ; "S"
0634 e015 | | Load 0x0,0x15
0635 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0636 00d1 | | Pop_Control Pop_Count_1
0637 7806 |x | Jump 0x63e
0638 00d8 | | Load_Top At_Offset_0
0639 0092 0896 | | Action Push_String_Extended,0x896 ; "G"
063b e015 | | Load 0x0,0x15
063c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
063d 00d1 | | Pop_Control Pop_Count_1
063e 00d8 | | Load_Top At_Offset_0
063f 0092 0892 | | Action Push_String_Extended,0x892 ; " "
0641 e015 | | Load 0x0,0x15
0642 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0643 00d1 | | Pop_Control Pop_Count_1
0644 00d8 | | Load_Top At_Offset_0
0645 e015 | | Load 0x0,0x15
0646 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0647 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 0659 | Y | .CONST 0x0659 ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0006 | | .CONST 0x0006 ; Number of locals
064b INIT_0648:
064b e002 | | Load 0x0,0x2
064c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
064d 8238 | 8 | Call 0x1,0x38
064e e01d | | Load 0x0,0x1d
064f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0650 1c08 | | Execute_Immediate Run_Utility,0x8
0651 00d8 | | Load_Top At_Offset_0
0652 1c00 | | Execute_Immediate Run_Utility,0x0
0653 029f 076b | k| Declare_Subprogram INIT_0768,For_Call
0655 029f 0783 | | Declare_Subprogram INIT_0780,For_Call
0657 029f 079b | | Declare_Subprogram INIT_0798,For_Call
0659 BODY_0648:
0659 00db | | Load_Top At_Offset_3
065a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
065b e5ff | | Load 0x2,-0x1
065c e015 | | Load 0x0,0x15
065d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
065e 00d1 | | Pop_Control Pop_Count_1
065f 4801 |H | Short_Literal 0x1
0660 e403 | | Load 0x2,0x3
0661 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0662 8405 | | Call 0x2,0x5
0663 8404 | | Call 0x2,0x4
0664 00d8 | | Load_Top At_Offset_0
0665 e002 | | Load 0x0,0x2
0666 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0667 0260 | ` | Execute Discrete,In_Type
0668 7001 |p | Jump_Nonzero 0x66a
0669 0801 | | Execute_Immediate Raise,0x1
066a a402 | | Store_Unchecked 0x2,0x2
066b 8406 | | Call 0x2,0x6
066c 0831 | 1 | Execute_Immediate Raise,0x31
066d 0000 0000 | | .XXX[0x3]
066f 0000 | |
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0675 | u | .CONST 0x0675 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0003 | | .CONST 0x0003 ; Number of locals
0673 INIT_0670:
0673 00e1 | | Load_Encached Boolean_Cache
0674 00e2 | | Load_Encached Integer_Cache
0675 BODY_0670:
0675 00e1 | | Load_Encached Boolean_Cache
0676 00e2 | | Load_Encached Integer_Cache
0677 4810 |H | Short_Literal 0x10
0678 e5ff | | Load 0x2,-0x1
0679 e016 | | Load 0x0,0x16
067a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
067b 005a | Z | Store_Top Discrete,At_Offset_2
067c 005a | Z | Store_Top Discrete,At_Offset_2
067d 00d9 | | Load_Top At_Offset_1
067e 6802 |h | Jump_Zero 0x681
067f 00d8 | | Load_Top At_Offset_0
0680 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0681 e239 | 9 | Load 0x1,0x39
0682 0257 | W | Execute Discrete,Raise
0683 0000 0000 | | .BLANK 0000[0x5]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b 4820 |H | Short_Literal 0x20
068c 4800 |H | Short_Literal 0x0
068d 4810 |H | Short_Literal 0x10
068e e5ff | | Load 0x2,-0x1
068f e016 | | Load 0x0,0x16
0690 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0691 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0692 0000 0000 | | .BLANK 0000[0x6]
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 4965 |Ie | Short_Literal 0x165
069c 00ca | | Action Exit_Nullary_Function
069d 0000 0000 | | .XXX[0x3]
069f 0000 | |
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a4 | | .CONST 0x06a4 ; Address of begin
06a1 06b1 | | .CONST 0x06b1 ; Address of exception handler
06a2 0002 | | .CONST 0x0002 ; Number of locals
06a3 INIT_06a0:
06a3 00ec | | Load_Encached Diana_Tree_Cache
06a4 BODY_06a0:
06a4 e00f | | Load 0x0,0xf
06a5 e5ff | | Load 0x2,-0x1
06a6 801e | | Call 0x0,0x1e
06a7 6802 |h | Jump_Zero 0x6aa
06a8 e23d | = | Load 0x1,0x3d
06a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06aa 00db | | Load_Top At_Offset_3
06ab 801f | | Call 0x0,0x1f
06ac 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06ad 00d8 | | Load_Top At_Offset_0
06ae 8020 | | Call 0x0,0x20
06af 8021 | ! | Call 0x0,0x21
06b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06b1 TRAP_06a0:
06b1 0007 | | Action Break_Optional
06b2 e022 | " | Load 0x0,0x22
06b3 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06b4 0257 | W | Execute Discrete,Raise
06b5 0000 0000 | | .XXX[0x3]
06b7 0000 | |
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 06bf | | .CONST 0x06bf ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb 00db | | Load_Top At_Offset_3
06bc 00db | | Load_Top At_Offset_3
06bd 8023 | # | Call 0x0,0x23
06be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06bf TRAP_06b8:
06bf 0007 | | Action Break_Optional
06c0 e022 | " | Load 0x0,0x22
06c1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06c2 0257 | W | Execute Discrete,Raise
06c3 0000 0000 | | .BLANK 0000[0x5]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 06ce | | .CONST 0x06ce ; 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 8024 | $ | Call 0x0,0x24
06cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ce TRAP_06c8:
06ce 0007 | | Action Break_Optional
06cf e022 | " | Load 0x0,0x22
06d0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06d1 0257 | W | Execute Discrete,Raise
06d2 0000 0000 | | .BLANK 0000[0x6]
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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06dd 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06de 8025 | % | Call 0x0,0x25
06df 7006 |p | Jump_Nonzero 0x6e6
06e0 00da | | Load_Top At_Offset_2
06e1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06e2 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
06e3 e5fe | | Load 0x2,-0x2
06e4 027f | | Execute Discrete,Equal
06e5 6818 |h | Jump_Zero 0x6fe
06e6 00da | | Load_Top At_Offset_2
06e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06e8 2407 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
06e9 8026 | & | Call 0x0,0x26
06ea 7006 |p | Jump_Nonzero 0x6f1
06eb e5fd | | Load 0x2,-0x3
06ec 00db | | Load_Top At_Offset_3
06ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06ee 2407 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
06ef 8027 | ' | Call 0x0,0x27
06f0 680d |h | Jump_Zero 0x6fe
06f1 00da | | Load_Top At_Offset_2
06f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06f3 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
06f4 8028 | ( | Call 0x0,0x28
06f5 7006 |p | Jump_Nonzero 0x6fc
06f6 e5fc | | Load 0x2,-0x4
06f7 00db | | Load_Top At_Offset_3
06f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06f9 2c0b |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xb
06fa 8029 | ) | Call 0x0,0x29
06fb 6802 |h | Jump_Zero 0x6fe
06fc 4801 |H | Short_Literal 0x1
06fd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
06fe 4800 |H | Short_Literal 0x0
06ff 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 0703 | | .CONST 0x0703 ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0001 | | .CONST 0x0001 ; Number of locals
0703 BODY_0700:
0703 INIT_0700:
0703 e5fb | | Load 0x2,-0x5
0704 e5fd | | Load 0x2,-0x3
0705 e5fe | | Load 0x2,-0x2
0706 e5ff | | Load 0x2,-0x1
0707 8241 | A | Call 0x1,0x41
0708 680d |h | Jump_Zero 0x716
0709 00da | | Load_Top At_Offset_2
070a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
070b 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
070c 802a | * | Call 0x0,0x2a
070d 7006 |p | Jump_Nonzero 0x714
070e e5fc | | Load 0x2,-0x4
070f 00db | | Load_Top At_Offset_3
0710 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0711 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
0712 801e | | Call 0x0,0x1e
0713 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0714 4801 |H | Short_Literal 0x1
0715 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0716 4800 |H | Short_Literal 0x0
0717 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
071b BODY_0718:
071b INIT_0718:
071b 00da | | Load_Top At_Offset_2
071c 00d8 | | Load_Top At_Offset_0
071d 00e2 | | Load_Encached Integer_Cache
071e 0260 | ` | Execute Discrete,In_Type
071f 7001 |p | Jump_Nonzero 0x721
0720 0801 | | Execute_Immediate Raise,0x1
0721 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0722 0000 0000 | | .BLANK 0000[0x6]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b 00da | | Load_Top At_Offset_2
072c 00d8 | | Load_Top At_Offset_0
072d 00e2 | | Load_Encached Integer_Cache
072e 0260 | ` | Execute Discrete,In_Type
072f 7001 |p | Jump_Nonzero 0x731
0730 0801 | | Execute_Immediate Raise,0x1
0731 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0732 0000 0000 | | .BLANK 0000[0x6]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b 00da | | Load_Top At_Offset_2
073c 00d8 | | Load_Top At_Offset_0
073d 00e2 | | Load_Encached Integer_Cache
073e 0260 | ` | Execute Discrete,In_Type
073f 7001 |p | Jump_Nonzero 0x741
0740 0801 | | Execute_Immediate Raise,0x1
0741 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0742 0000 0000 | | .BLANK 0000[0x6]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b | K | .CONST 0x074b ; Address of begin
0749 0004 | | .CONST 0x0004 ; Address of exception handler
074a 0001 | | .CONST 0x0001 ; Number of locals
074b BODY_0748:
074b INIT_0748:
074b 00da | | Load_Top At_Offset_2
074c 00d8 | | Load_Top At_Offset_0
074d 00e2 | | Load_Encached Integer_Cache
074e 0260 | ` | Execute Discrete,In_Type
074f 7001 |p | Jump_Nonzero 0x751
0750 0801 | | Execute_Immediate Raise,0x1
0751 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0752 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
075c 00d8 | | Load_Top At_Offset_0
075d 00e2 | | Load_Encached Integer_Cache
075e 0260 | ` | Execute Discrete,In_Type
075f 7001 |p | Jump_Nonzero 0x761
0760 0801 | | Execute_Immediate Raise,0x1
0761 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0762 0000 0000 | | .BLANK 0000[0x6]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076d | m | .CONST 0x076d ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0003 | | .CONST 0x0003 ; Number of locals
076b INIT_0768:
076b 00e2 | | Load_Encached Integer_Cache
076c 00e1 | | Load_Encached Boolean_Cache
076d BODY_0768:
076d 00e1 | | Load_Encached Boolean_Cache
076e 00e2 | | Load_Encached Integer_Cache
076f 4810 |H | Short_Literal 0x10
0770 e7ff | | Load 0x3,-0x1
0771 e016 | | Load 0x0,0x16
0772 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0773 005b | [ | Store_Top Discrete,At_Offset_3
0774 0059 | Y | Store_Top Discrete,At_Offset_1
0775 00d8 | | Load_Top At_Offset_0
0776 6802 |h | Jump_Zero 0x779
0777 00d9 | | Load_Top At_Offset_1
0778 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0779 e239 | 9 | Load 0x1,0x39
077a 0257 | W | Execute Discrete,Raise
077b 0000 0000 | | .BLANK 0000[0x5]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0789 | | .CONST 0x0789 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0002 | | .CONST 0x0002 ; Number of locals
0783 INIT_0780:
0783 802b | + | Call 0x0,0x2b
0784 e015 | | Load 0x0,0x15
0785 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0786 1c08 | | Execute_Immediate Run_Utility,0x8
0787 00d8 | | Load_Top At_Offset_0
0788 1c00 | | Execute_Immediate Run_Utility,0x0
0789 BODY_0780:
0789 00d8 | | Load_Top At_Offset_0
078a e403 | | Load 0x2,0x3
078b e01d | | Load 0x0,0x1d
078c 180f | | Execute Package,Field_Execute,Field_Number 0xf
078d 00d2 | | Pop_Control Pop_Count_2
078e 00d8 | | Load_Top At_Offset_0
078f e015 | | Load 0x0,0x15
0790 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0791 7002 |p | Jump_Nonzero 0x794
0792 00ea | | Load_Encached Null_String_Cache
0793 00ca | | Action Exit_Nullary_Function
0794 00d8 | | Load_Top At_Offset_0
0795 e015 | | Load 0x0,0x15
0796 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0797 00ca | | Action Exit_Nullary_Function
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07a4 | | .CONST 0x07a4 ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0003 | | .CONST 0x0003 ; Number of locals
079b INIT_0798:
079b e402 | | Load 0x2,0x2
079c e23b | ; | Load 0x1,0x3b
079d 1c08 | | Execute_Immediate Run_Utility,0x8
079e 00d8 | | Load_Top At_Offset_0
079f 1c00 | | Execute_Immediate Run_Utility,0x0
07a0 e23c | < | Load 0x1,0x3c
07a1 0322 | " | Declare_Variable Record
07a2 00d8 | | Load_Top At_Offset_0
07a3 1c00 | | Execute_Immediate Run_Utility,0x0
07a4 BODY_0798:
07a4 8405 | | Call 0x2,0x5
07a5 8404 | | Call 0x2,0x4
07a6 00da | | Load_Top At_Offset_2
07a7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07a8 8405 | | Call 0x2,0x5
07a9 802c | , | Call 0x0,0x2c
07aa 00da | | Load_Top At_Offset_2
07ab 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
07ac 8405 | | Call 0x2,0x5
07ad 8404 | | Call 0x2,0x4
07ae 00d8 | | Load_Top At_Offset_0
07af e002 | | Load 0x0,0x2
07b0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07b1 0260 | ` | Execute Discrete,In_Type
07b2 7001 |p | Jump_Nonzero 0x7b4
07b3 0801 | | Execute_Immediate Raise,0x1
07b4 00da | | Load_Top At_Offset_2
07b5 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
07b6 8405 | | Call 0x2,0x5
07b7 8404 | | Call 0x2,0x4
07b8 00d8 | | Load_Top At_Offset_0
07b9 00e3 | | Load_Encached Natural_Cache
07ba 0260 | ` | Execute Discrete,In_Type
07bb 7001 |p | Jump_Nonzero 0x7bd
07bc 0801 | | Execute_Immediate Raise,0x1
07bd 00da | | Load_Top At_Offset_2
07be 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5
07bf 8405 | | Call 0x2,0x5
07c0 8404 | | Call 0x2,0x4
07c1 00d8 | | Load_Top At_Offset_0
07c2 e002 | | Load 0x0,0x2
07c3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
07c4 0260 | ` | Execute Discrete,In_Type
07c5 7001 |p | Jump_Nonzero 0x7c7
07c6 0801 | | Execute_Immediate Raise,0x1
07c7 00da | | Load_Top At_Offset_2
07c8 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6
07c9 8405 | | Call 0x2,0x5
07ca 802d | - | Call 0x0,0x2d
07cb 00da | | Load_Top At_Offset_2
07cc 2808 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x8
07cd 8405 | | Call 0x2,0x5
07ce 802e | . | Call 0x0,0x2e
07cf 00da | | Load_Top At_Offset_2
07d0 280a |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xa
07d1 8405 | | Call 0x2,0x5
07d2 802f | / | Call 0x0,0x2f
07d3 00da | | Load_Top At_Offset_2
07d4 280b |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xb
07d5 8405 | | Call 0x2,0x5
07d6 8030 | 0 | Call 0x0,0x30
07d7 00da | | Load_Top At_Offset_2
07d8 280c |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xc
07d9 e402 | | Load 0x2,0x2
07da 4602 |F | Jump_Case 0x3
07db 7811 |x | Jump 0x7ed ; case 0x0
07dc 7802 |x | Jump 0x7df ; case 0x1
07dd 7841 |xA | Jump 0x81f ; case 0x2
07de 7840 |x@ | .XXX[0x1]
07df 8405 | | Call 0x2,0x5
07e0 8031 | 1 | Call 0x0,0x31
07e1 00da | | Load_Top At_Offset_2
07e2 2a14 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x14
07e3 8405 | | Call 0x2,0x5
07e4 8404 | | Call 0x2,0x4
07e5 00d8 | | Load_Top At_Offset_0
07e6 e23a | : | Load 0x1,0x3a
07e7 0260 | ` | Execute Discrete,In_Type
07e8 7001 |p | Jump_Nonzero 0x7ea
07e9 0801 | | Execute_Immediate Raise,0x1
07ea 00da | | Load_Top At_Offset_2
07eb 2a15 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x15
07ec 7832 |x2 | Jump 0x81f
07ed 8405 | | Call 0x2,0x5
07ee 0092 0893 | | Action Push_String_Extended,0x893 ; "P"
07f0 01df | | Execute Vector,Equal
07f1 00da | | Load_Top At_Offset_2
07f2 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
07f3 8405 | | Call 0x2,0x5
07f4 8404 | | Call 0x2,0x4
07f5 00d8 | | Load_Top At_Offset_0
07f6 00e3 | | Load_Encached Natural_Cache
07f7 0260 | ` | Execute Discrete,In_Type
07f8 7001 |p | Jump_Nonzero 0x7fa
07f9 0801 | | Execute_Immediate Raise,0x1
07fa 00da | | Load_Top At_Offset_2
07fb 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
07fc 8405 | | Call 0x2,0x5
07fd 8404 | | Call 0x2,0x4
07fe 00d8 | | Load_Top At_Offset_0
07ff 00e3 | | Load_Encached Natural_Cache
0800 0260 | ` | Execute Discrete,In_Type
0801 7001 |p | Jump_Nonzero 0x803
0802 0801 | | Execute_Immediate Raise,0x1
0803 00da | | Load_Top At_Offset_2
0804 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
0805 8405 | | Call 0x2,0x5
0806 8404 | | Call 0x2,0x4
0807 00d8 | | Load_Top At_Offset_0
0808 e002 | | Load 0x0,0x2
0809 1b0f | | Execute Package,Field_Read,Field_Number 0xf
080a 0260 | ` | Execute Discrete,In_Type
080b 7001 |p | Jump_Nonzero 0x80d
080c 0801 | | Execute_Immediate Raise,0x1
080d 00da | | Load_Top At_Offset_2
080e 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
080f 8405 | | Call 0x2,0x5
0810 8404 | | Call 0x2,0x4
0811 00d8 | | Load_Top At_Offset_0
0812 e002 | | Load 0x0,0x2
0813 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0814 0260 | ` | Execute Discrete,In_Type
0815 7001 |p | Jump_Nonzero 0x817
0816 0801 | | Execute_Immediate Raise,0x1
0817 00da | | Load_Top At_Offset_2
0818 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
0819 8405 | | Call 0x2,0x5
081a 0092 0895 | | Action Push_String_Extended,0x895 ; "S"
081c 01df | | Execute Vector,Equal
081d 00da | | Load_Top At_Offset_2
081e 2a13 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x13
081f e23c | < | Load 0x1,0x3c
0820 0322 | " | Declare_Variable Record
0821 00da | | Load_Top At_Offset_2
0822 00d9 | | Load_Top At_Offset_1
0823 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0824 00cb | | Action Pop_Block_With_Result
0825 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0826 0000 0000 | | .XXX[0x2]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b | + | .CONST 0x082b ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0001 | | .CONST 0x0001 ; Number of locals
082b BODY_0828:
082b INIT_0828:
082b 4609 |F | Jump_Case 0xa
082c 7809 |x | Jump 0x836 ; case 0x0
082d 7821 |x! | Jump 0x84f ; case 0x1
082e 7829 |x) | Jump 0x858 ; case 0x2
082f 782c |x, | Jump 0x85c ; case 0x3
0830 7855 |xU | Jump 0x886 ; case 0x4
0831 7854 |xT | Jump 0x886 ; case 0x5
0832 782f |x/ | Jump 0x862 ; case 0x6
0833 7839 |x9 | Jump 0x86d ; case 0x7
0834 7846 |xF | Jump 0x87b ; case 0x8
0835 784c |xL | Jump 0x882 ; case 0x9
0836 00da | | Load_Top At_Offset_2
0837 016c | l | Execute Variant_Record,Is_Constrained
0838 7009 |p | Jump_Nonzero 0x842
0839 00cf | | Action Mark_Auxiliary
083a 4800 |H | Short_Literal 0x0
083b e5ff | | Load 0x2,-0x1
083c 1c08 | | Execute_Immediate Run_Utility,0x8
083d 00d8 | | Load_Top At_Offset_0
083e 1c00 | | Execute_Immediate Run_Utility,0x0
083f c5ff | | Store 0x2,-0x1
0840 00ce | | Action Pop_Auxiliary
0841 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0842 00da | | Load_Top At_Offset_2
0843 2407 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
0844 1c00 | | Execute_Immediate Run_Utility,0x0
0845 00da | | Load_Top At_Offset_2
0846 2408 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x8
0847 1c00 | | Execute_Immediate Run_Utility,0x0
0848 00da | | Load_Top At_Offset_2
0849 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
084a 4602 |F | Jump_Case 0x3
084b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
084c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
084d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
084e 4302 |C | .XXX[0x1]
084f 00da | | Load_Top At_Offset_2
0850 2407 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7
0851 1c01 | | Execute_Immediate Run_Utility,0x1
0852 00da | | Load_Top At_Offset_2
0853 2408 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x8
0854 1c01 | | Execute_Immediate Run_Utility,0x1
0855 00da | | Load_Top At_Offset_2
0856 016b | k | Execute Variant_Record,Read_Variant
0857 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0858 4801 |H | Short_Literal 0x1
0859 4815 |H | Short_Literal 0x15
085a 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
085b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
085c e5fd | | Load 0x2,-0x3
085d 00db | | Load_Top At_Offset_3
085e 1c07 | | Execute_Immediate Run_Utility,0x7
085f e5fe | | Load 0x2,-0x2
0860 0306 | | Complete_Type Variant_Record,By_Renaming
0861 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0862 00db | | Load_Top At_Offset_3
0863 4602 |F | Jump_Case 0x3
0864 7804 |x | Jump 0x869 ; case 0x0
0865 7805 |x | Jump 0x86b ; case 0x1
0866 7800 |x | Jump 0x867 ; case 0x2
0867 48ff |H | Short_Literal 0xff
0868 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0869 4801 |H | Short_Literal 0x1
086a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
086b 4802 |H | Short_Literal 0x2
086c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
086d 00db | | Load_Top At_Offset_3
086e e5fe | | Load 0x2,-0x2
086f 4602 |F | Jump_Case 0x3
0870 7804 |x | Jump 0x875 ; case 0x0
0871 7805 |x | Jump 0x877 ; case 0x1
0872 7800 |x | Jump 0x873 ; case 0x2
0873 48ff |H | Short_Literal 0xff
0874 7803 |x | Jump 0x878
0875 4801 |H | Short_Literal 0x1
0876 7801 |x | Jump 0x878
0877 4802 |H | Short_Literal 0x2
0878 e5ff | | Load 0x2,-0x1
0879 031b | | Declare_Type Variant_Record,Constrained
087a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
087b 00db | | Load_Top At_Offset_3
087c e5fe | | Load 0x2,-0x2
087d e5ff | | Load 0x2,-0x1
087e 1c06 | | Execute_Immediate Run_Utility,0x6
087f e5ff | | Load 0x2,-0x1
0880 02fc | | Declare_Variable Variant_Record,With_Constraint
0881 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0882 4800 |H | Short_Literal 0x0
0883 00db | | Load_Top At_Offset_3
0884 1c07 | | Execute_Immediate Run_Utility,0x7
0885 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0886 0869 | i | Execute_Immediate Raise,0x69
0887 0000 | | .XXX[0x1]
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088b | | .CONST 0x088b ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0001 | | .CONST 0x0001 ; Number of locals
088b BODY_0888:
088b INIT_0888:
088b 4601 |F | Jump_Case 0x2
088c 7801 |x | Jump 0x88e ; case 0x0
088d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
088e 00da | | Load_Top At_Offset_2
088f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0890 1c00 | | Execute_Immediate Run_Utility,0x0
0891 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0892 ; --------------------------------------------------------------------------------------
0892 ; STRING TABLE
0892 ; --------------------------------------------------------------------------------------
0892 000c | | .STRTAB 0x000c->0x0898 ; " "
0893 000b | | .STRTAB 0x000b->0x0898 ; "P"
0894 000a | | .STRTAB 0x000a->0x0899 ; "T"
0895 0009 | | .STRTAB 0x0009->0x0899 ; "S"
0896 0008 | | .STRTAB 0x0008->0x089a ; "G"
0897 0007 | | .STREND 0x0007->0x089a
0898 2050 5453 | PTS| .STRTAB_STRINGS
089b 0000 0000 | | .BLANK 0000[0x5]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; Debug Table
08a0 ; --------------------------------------------------------------------------------------
08a0 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a4b,0x0000,0x0001,0x0000
08a6 0000 0000 | | .XXX[0x6]
08a8 0001 0804 | |
08aa 8800 05ec | |
08ac 0000 0000 | | .BLANK 0000[0x4]
08b0 000d 60fe | ` | .XXX[0xcc]
08b2 0000 0036 | 6|
08b4 00b9 d014 | |
08b6 0000 0f32 | 2|
08b8 000d 60fe | ` |
08ba 0000 0036 | 6|
08bc 00b9 d014 | |
08be 0000 1032 | 2|
08c0 000d 60fe | ` |
08c2 0000 0036 | 6|
08c4 00b9 d014 | |
08c6 0000 12b2 | |
08c8 000d 60fe | ` |
08ca 0000 0036 | 6|
08cc 00b9 d014 | |
08ce 0000 1432 | 2|
08d0 000d 60fe | ` |
08d2 0000 0036 | 6|
08d4 00b9 d014 | |
08d6 0000 16b2 | |
08d8 000d 60fe | ` |
08da 0000 0036 | 6|
08dc 00b9 d014 | |
08de 0000 17b2 | |
08e0 000d 60fe | ` |
08e2 0000 0036 | 6|
08e4 00b9 d014 | |
08e6 0000 18b2 | |
08e8 000d 60fe | ` |
08ea 0000 0036 | 6|
08ec 00b9 d014 | |
08ee 0000 19b2 | |
08f0 000d 60fe | ` |
08f2 0000 0036 | 6|
08f4 00b9 d014 | |
08f6 0000 1a32 | 2|
08f8 000d 60fe | ` |
08fa 0000 0036 | 6|
08fc 00b9 d014 | |
08fe 0000 1b32 | 2|
0900 000d 60fe | ` |
0902 0000 0036 | 6|
0904 00b9 d014 | |
0906 0000 1c32 | 2|
0908 000d 60fe | ` |
090a 0000 0036 | 6|
090c 00b9 d014 | |
090e 0000 1d32 | 2|
0910 000d 60fe | ` |
0912 0000 0036 | 6|
0914 00b9 d014 | |
0916 0000 1e32 | 2|
0918 000d 60fe | ` |
091a 0000 0036 | 6|
091c 00b9 d014 | |
091e 0000 1f32 | 2|
0920 000d 60fe | ` |
0922 0000 0036 | 6|
0924 00b9 d014 | |
0926 0000 20b2 | |
0928 000d 60fe | ` |
092a 0000 0036 | 6|
092c 00b9 d014 | |
092e 0000 2232 | "2|
0930 000d 60fe | ` |
0932 0000 0036 | 6|
0934 00b9 d014 | |
0936 0000 23b2 | # |
0938 000d 60fe | ` |
093a 0000 0036 | 6|
093c 00b9 d014 | |
093e 0000 2532 | %2|
0940 000d 60fe | ` |
0942 0000 0036 | 6|
0944 00b9 d014 | |
0946 0000 2732 | '2|
0948 000d 60fe | ` |
094a 0000 0036 | 6|
094c 00b9 d014 | |
094e 0000 28b2 | ( |
0950 000d 60fe | ` |
0952 0000 0036 | 6|
0954 00b9 d014 | |
0956 0000 2ab2 | * |
0958 000d 60fe | ` |
095a 0000 0036 | 6|
095c 00b9 d014 | |
095e 0000 2d32 | -2|
0960 000d 60fe | ` |
0962 0000 07d8 | |
0964 000d 68fe | h |
0966 0000 0000 | |
0968 0006 f804 | |
096a 0000 0032 | 2|
096c 0006 f804 | |
096e 0000 0720 | |
0970 0006 f804 | |
0972 0000 0032 | 2|
0974 0006 f804 | |
0976 0000 06a0 | |
0978 0001 0404 | |
097a 0800 0888 | |
097c 0000 0000 | | .BLANK 0000[0xa]
0986 004e e8b5 | N | .XXX[0x2]
0988 0000 0000 | | .BLANK 0000[0x7]
098f 0048 | H | .XXX[0x1]
0990 0000 0000 | | .BLANK 0000[0x8]
0998 000d 60fe | ` | .XXX[0x5]
099a 0800 0480 | |
099c 8000 | |
099d 0000 0000 | | .BLANK 0000[0x9]
09a6 004e e8b5 | N | .XXX[0x2]
09a8 0000 0000 | | .BLANK 0000[0x7]
09af 0054 | T | .XXX[0x1]
09b0 0000 0000 | | .BLANK 0000[0x8]
09b8 000d 60fe | ` | .XXX[0x5]
09ba 0800 0600 | |
09bc 8000 | |
09bd 0000 0000 | | .BLANK 0000[0x9]
09c6 004e e8b5 | N | .XXX[0x2]
09c8 0000 0000 | | .BLANK 0000[0x7]
09cf 0060 | ` | .XXX[0x1]
09d0 0000 0000 | | .BLANK 0000[0x8]
09d8 0001 0404 | | .XXX[0x5]
09da 0000 0280 | |
09dc 8000 | |
09dd 0000 0000 | | .BLANK 0000[0x9]
09e6 004e e8b5 | N | .XXX[0x2]
09e8 0000 0000 | | .BLANK 0000[0x7]
09ef 006c | l | .XXX[0x1]
09f0 0000 0000 | | .BLANK 0000[0x8]
09f8 0001 0404 | | .XXX[0x8]
09fa 0000 0700 | |
09fc 8000 0000 | |
09fe 0000 0000 | |