|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 0740 | @ | .CONST 0x0740 ; 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 018c | | .CONST 0x018c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0065 | e | .CONST 0x0065 ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
000f 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0011 4800 |H | Short_Literal 0x0
0012 6189 |a | Indirect_Literal Discrete,0x19c,{0x00000000, 0x0000ffff}
0013 00e3 | | Load_Encached Natural_Cache
0014 03f9 | | Declare_Type Discrete,Constrained,Visible
0015 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0017 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0019 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
001b 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
001d e001 | | Load 0x0,0x1
001e 0129 | ) | Execute Any,Make_Visible
001f e002 | | Load 0x0,0x2
0020 0129 | ) | Execute Any,Make_Visible
0021 e003 | | Load 0x0,0x3
0022 0129 | ) | Execute Any,Make_Visible
0023 4800 |H | Short_Literal 0x0
0024 4803 |H | Short_Literal 0x3
0025 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0027 03fe | | Declare_Type Discrete,Defined,Visible
0028 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
002a 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
002c 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
002e 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0030 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
0032 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0034 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0036 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0038 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
003a 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
003c 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
003e 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0040 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0042 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0044 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
0046 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
0048 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
004a 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
004c 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
004e 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
0050 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0052 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
0054 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
0056 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0058 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
005a 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 00c4 | | Action Make_Default
0061 00c4 | | Action Make_Default
0062 00c4 | | Action Make_Default
0063 00c4 | | Action Make_Default
0064 00c4 | | Action Make_Default
0065 00c4 | | Action Make_Default
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 00c4 | | Action Make_Default
0069 00c4 | | Action Make_Default
006a 00c4 | | Action Make_Default
006b 00c4 | | Action Make_Default
006c 00c4 | | Action Make_Default
006d 00c4 | | Action Make_Default
006e 00c4 | | Action Make_Default
006f 00c4 | | Action Make_Default
0070 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated
0072 c241 | A | Store 0x1,0x41
0073 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
0075 c242 | B | Store 0x1,0x42
0076 029a 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call,Visible,Unelaborated
0078 c233 | 3 | Store 0x1,0x33
0079 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated
007b c234 | 4 | Store 0x1,0x34
007c 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
007e c243 | C | Store 0x1,0x43
007f 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated
0081 c244 | D | Store 0x1,0x44
0082 0092 071b | | Action Push_String_Extended,0x71b ; "<ERROR>"
0084 0129 | ) | Execute Any,Make_Visible
0085 c235 | 5 | Store 0x1,0x35
0086 4800 |H | Short_Literal 0x0
0087 481f |H | Short_Literal 0x1f
0088 480c |H | Short_Literal 0xc
0089 610e |a | Indirect_Literal Discrete,0x198,{0x00000000, 0x00000833}
008a e004 | | Load 0x0,0x4
008b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008c e004 | | Load 0x0,0x4
008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008e 011e | | Execute Any,Convert
008f 0129 | ) | Execute Any,Make_Visible
0090 c236 | 6 | Store 0x1,0x36
0091 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated
0093 c237 | 7 | Store 0x1,0x37
0094 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated
0096 c238 | 8 | Store 0x1,0x38
0097 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
0099 c239 | 9 | Store 0x1,0x39
009a 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated
009c c23a | : | Store 0x1,0x3a
009d 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
009f c23b | ; | Store 0x1,0x3b
00a0 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated
00a2 c23c | < | Store 0x1,0x3c
00a3 e005 | | Load 0x0,0x5
00a4 0129 | ) | Execute Any,Make_Visible
00a5 c23d | = | Store 0x1,0x3d
00a6 e006 | | Load 0x0,0x6
00a7 0129 | ) | Execute Any,Make_Visible
00a8 c23e | > | Store 0x1,0x3e
00a9 00bf | | Action Accept_Activation
00aa 4800 |H | Short_Literal 0x0
00ab 48ff |H | Short_Literal 0xff
00ac 00e2 | | Load_Encached Integer_Cache
00ad 03f8 | | Declare_Type Discrete,Constrained
00ae 4800 |H | Short_Literal 0x0
00af 4807 |H | Short_Literal 0x7
00b0 00e2 | | Load_Encached Integer_Cache
00b1 03f8 | | Declare_Type Discrete,Constrained
00b2 e210 | | Load 0x1,0x10
00b3 00e1 | | Load_Encached Boolean_Cache
00b4 e007 | | Load 0x0,0x7
00b5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00b6 00db | | Load_Top At_Offset_3
00b7 e008 | | Load 0x0,0x8
00b8 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00b9 02a0 | | Declare_Subprogram Null_Subprogram
00ba 4805 |H | Short_Literal 0x5
00bb 032d | - | Declare_Type Record,Defined
00bc e009 | | Load 0x0,0x9
00bd e00a | | Load 0x0,0xa
00be 00da | | Load_Top At_Offset_2
00bf e20d | | Load 0x1,0xd
00c0 e00b | | Load 0x0,0xb
00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c2 0387 | | Declare_Variable Package
00c3 00d8 | | Load_Top At_Offset_0
00c4 020f | | Execute Module,Activate
00c5 e00c | | Load 0x0,0xc
00c6 e00d | | Load 0x0,0xd
00c7 e20d | | Load 0x1,0xd
00c8 e249 | I | Load 0x1,0x49
00c9 e00b | | Load 0x0,0xb
00ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cb 0387 | | Declare_Variable Package
00cc 00d8 | | Load_Top At_Offset_0
00cd 020f | | Execute Module,Activate
00ce 00e1 | | Load_Encached Boolean_Cache
00cf 00e1 | | Load_Encached Boolean_Cache
00d0 e20d | | Load 0x1,0xd
00d1 e218 | | Load 0x1,0x18
00d2 e00e | | Load 0x0,0xe
00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d4 00e2 | | Load_Encached Integer_Cache
00d5 00e2 | | Load_Encached Integer_Cache
00d6 00e2 | | Load_Encached Integer_Cache
00d7 00e2 | | Load_Encached Integer_Cache
00d8 00e2 | | Load_Encached Integer_Cache
00d9 02a0 | | Declare_Subprogram Null_Subprogram
00da 480a |H | Short_Literal 0xa
00db 032d | - | Declare_Type Record,Defined
00dc 00d8 | | Load_Top At_Offset_0
00dd 0322 | " | Declare_Variable Record
00de 4800 |H | Short_Literal 0x0
00df 00d9 | | Load_Top At_Offset_1
00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e1 4800 |H | Short_Literal 0x0
00e2 00d9 | | Load_Top At_Offset_1
00e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e4 4800 |H | Short_Literal 0x0
00e5 00d9 | | Load_Top At_Offset_1
00e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00e7 4800 |H | Short_Literal 0x0
00e8 00d9 | | Load_Top At_Offset_1
00e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00ea e00e | | Load 0x0,0xe
00eb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ec 00d9 | | Load_Top At_Offset_1
00ed 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ee 4800 |H | Short_Literal 0x0
00ef 00d9 | | Load_Top At_Offset_1
00f0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00f1 4800 |H | Short_Literal 0x0
00f2 00d9 | | Load_Top At_Offset_1
00f3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00f4 4800 |H | Short_Literal 0x0
00f5 00d9 | | Load_Top At_Offset_1
00f6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
00f7 4800 |H | Short_Literal 0x0
00f8 00d9 | | Load_Top At_Offset_1
00f9 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
00fa 4800 |H | Short_Literal 0x0
00fb 00d9 | | Load_Top At_Offset_1
00fc 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00fd 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
00ff 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
0101 e00f | | Load 0x0,0xf
0102 e010 | | Load 0x0,0x10
0103 e24c | L | Load 0x1,0x4c
0104 e24d | M | Load 0x1,0x4d
0105 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
0106 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
0107 0092 071c | | Action Push_String_Extended,0x71c ; "TBU Error State"
0109 e011 | | Load 0x0,0x11
010a 0387 | | Declare_Variable Package
010b 00d8 | | Load_Top At_Offset_0
010c 020f | | Execute Module,Activate
010d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
010e 00c7 | | Action Elaborate_Subprogram
010f 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call
0111 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0112 00c7 | | Action Elaborate_Subprogram
0113 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0114 00c7 | | Action Elaborate_Subprogram
0115 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0116 00c7 | | Action Elaborate_Subprogram
0117 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0118 00c7 | | Action Elaborate_Subprogram
0119 1d11 | | Execute_Immediate Reference_Lex_1,0x11
011a 00c7 | | Action Elaborate_Subprogram
011b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
011c 00c7 | | Action Elaborate_Subprogram
011d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
011e 00c7 | | Action Elaborate_Subprogram
011f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0120 00c7 | | Action Elaborate_Subprogram
0121 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0122 00c7 | | Action Elaborate_Subprogram
0123 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0124 00c7 | | Action Elaborate_Subprogram
0125 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0126 00c7 | | Action Elaborate_Subprogram
0127 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0128 00c7 | | Action Elaborate_Subprogram
0129 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
012a 00c7 | | Action Elaborate_Subprogram
012b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
012c 00c7 | | Action Elaborate_Subprogram
012d 1d20 | | Execute_Immediate Reference_Lex_1,0x20
012e 00c7 | | Action Elaborate_Subprogram
012f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0130 00c7 | | Action Elaborate_Subprogram
0131 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0132 00c7 | | Action Elaborate_Subprogram
0133 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0134 00c7 | | Action Elaborate_Subprogram
0135 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0136 00c7 | | Action Elaborate_Subprogram
0137 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0138 00c7 | | Action Elaborate_Subprogram
0139 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
013a 00c7 | | Action Elaborate_Subprogram
013b 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
013c 00c7 | | Action Elaborate_Subprogram
013d 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
013e 00c7 | | Action Elaborate_Subprogram
013f 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0140 00c7 | | Action Elaborate_Subprogram
0141 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0142 00c7 | | Action Elaborate_Subprogram
0143 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call
0145 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call
0147 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0148 00c7 | | Action Elaborate_Subprogram
0149 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
014a 00c7 | | Action Elaborate_Subprogram
014b 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
014c 00c7 | | Action Elaborate_Subprogram
014d 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call
014f 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call
0151 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
0153 e008 | | Load 0x0,0x8
0154 193e | > | Execute Package,Field_Reference,Field_Number 0x3e
0155 00c6 | | Action Check_Subprogram_Elaborated
0156 e20d | | Load 0x1,0xd
0157 480e |H | Short_Literal 0xe
0158 e012 | | Load 0x0,0x12
0159 e013 | | Load 0x0,0x13
015a 4800 |H | Short_Literal 0x0
015b 0007 | | Action Break_Optional
015c e008 | | Load 0x0,0x8
015d 193f | ? | Execute Package,Field_Reference,Field_Number 0x3f
015e 00c6 | | Action Check_Subprogram_Elaborated
015f e20d | | Load 0x1,0xd
0160 480e |H | Short_Literal 0xe
0161 4800 |H | Short_Literal 0x0
0162 e014 | | Load 0x0,0x14
0163 e015 | | Load 0x0,0x15
0164 4800 |H | Short_Literal 0x0
0165 0007 | | Action Break_Optional
0166 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0167 00c7 | | Action Elaborate_Subprogram
0168 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0169 00c7 | | Action Elaborate_Subprogram
016a 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
016b 00c7 | | Action Elaborate_Subprogram
016c 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call
016e 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
016f 00c7 | | Action Elaborate_Subprogram
0170 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call
0172 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
0174 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
0176 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0177 00c7 | | Action Elaborate_Subprogram
0178 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0179 00c7 | | Action Elaborate_Subprogram
017a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
017b 00c7 | | Action Elaborate_Subprogram
017c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
017d 00c7 | | Action Elaborate_Subprogram
017e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
017f 00c7 | | Action Elaborate_Subprogram
0180 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
0181 00c7 | | Action Elaborate_Subprogram
0182 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0183 00c7 | | Action Elaborate_Subprogram
0184 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0185 00c7 | | Action Elaborate_Subprogram
0186 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0187 00c7 | | Action Elaborate_Subprogram
0188 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0189 00c7 | | Action Elaborate_Subprogram
018a 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
018b 00c7 | | Action Elaborate_Subprogram
018c BODY_0008:
018c 00bc | | Action Signal_Activated
018d 00bb | | Action Signal_Completion
018e 0000 0000 | | .XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4800 |H | Short_Literal 0x0
0194 00ca | | Action Exit_Nullary_Function
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 0000 0000 | | .LITERAL {0x00000000, 0x00000833}
019c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 6806 |h | Jump_Zero 0x1ab
01a5 00da | | Load_Top At_Offset_2
01a6 e24b | K | Load 0x1,0x4b
01a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a9 0f00 | | Execute_Immediate Equal,0x0
01aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ab 4801 |H | Short_Literal 0x1
01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 00db | | Load_Top At_Offset_3
01b5 01db | | Execute Vector,Length
01b6 027d | } | Execute Discrete,Greater
01b7 6802 |h | Jump_Zero 0x1ba
01b8 4800 |H | Short_Literal 0x0
01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ba 00da | | Load_Top At_Offset_2
01bb 01dd | | Execute Vector,First
01bc e5fe | | Load 0x2,-0x2
01bd 0273 | s | Execute Discrete,Plus
01be 0aff | | Execute_Immediate Plus,-0x1
01bf 00db | | Load_Top At_Offset_3
01c0 01d7 | | Execute Vector,Field_Read
01c1 e008 | | Load 0x0,0x8
01c2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 00d8 | | Load_Top At_Offset_0
01cd 00e4 | | Load_Encached Positive_Cache
01ce 0260 | ` | Execute Discrete,In_Type
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 0801 | | Execute_Immediate Raise,0x1
01d1 00db | | Load_Top At_Offset_3
01d2 e24b | K | Load 0x1,0x4b
01d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01d5 e008 | | Load 0x0,0x8
01d6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd | | .CONST 0x01dd ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e249 | I | Load 0x1,0x49
01dc 0322 | " | Declare_Variable Record
01dd BODY_01d8:
01dd 00db | | Load_Top At_Offset_3
01de 00d9 | | Load_Top At_Offset_1
01df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e0 4800 |H | Short_Literal 0x0
01e1 00d9 | | Load_Top At_Offset_1
01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e3 4800 |H | Short_Literal 0x0
01e4 00d9 | | Load_Top At_Offset_1
01e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e6 e5fe | | Load 0x2,-0x2
01e7 e008 | | Load 0x0,0x8
01e8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01e9 00d9 | | Load_Top At_Offset_1
01ea 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01eb 4800 |H | Short_Literal 0x0
01ec 00d9 | | Load_Top At_Offset_1
01ed 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01ee 00d8 | | Load_Top At_Offset_0
01ef e24a | J | Load 0x1,0x4a
01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fd | | .CONST 0x01fd ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e249 | I | Load 0x1,0x49
01fc 0322 | " | Declare_Variable Record
01fd BODY_01f8:
01fd 00db | | Load_Top At_Offset_3
01fe 00d9 | | Load_Top At_Offset_1
01ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0200 4801 |H | Short_Literal 0x1
0201 00d9 | | Load_Top At_Offset_1
0202 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0203 e5fe | | Load 0x2,-0x2
0204 00d9 | | Load_Top At_Offset_1
0205 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0206 e5fd | | Load 0x2,-0x3
0207 e008 | | Load 0x0,0x8
0208 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0209 00d9 | | Load_Top At_Offset_1
020a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
020b 4800 |H | Short_Literal 0x0
020c 00d9 | | Load_Top At_Offset_1
020d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
020e 00d8 | | Load_Top At_Offset_0
020f e24a | J | Load 0x1,0x4a
0210 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0211 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4607 |F | Jump_Case 0x8
021c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
021d 7806 |x | Jump 0x224 ; case 0x1
021e 7809 |x | Jump 0x228 ; case 0x2
021f 780d |x | Jump 0x22d ; case 0x3
0220 7810 |x | Jump 0x231 ; case 0x4
0221 7811 |x | Jump 0x233 ; case 0x5
0222 7812 |x | Jump 0x235 ; case 0x6
0223 7815 |x | Jump 0x239 ; case 0x7
0224 00da | | Load_Top At_Offset_2
0225 0091 0717 | | Action Push_String_Extended_Indexed,0x717 ; "NIL"
0227 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0228 00db | | Load_Top At_Offset_3
0229 00db | | Load_Top At_Offset_3
022a 00e0 | | Load_Encached Standard_Cache
022b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
022d 00da | | Load_Top At_Offset_2
022e 00e0 | | Load_Encached Standard_Cache
022f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0230 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0231 00db | | Load_Top At_Offset_3
0232 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0233 00db | | Load_Top At_Offset_3
0234 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0235 e218 | | Load 0x1,0x18
0236 00dc | | Load_Top At_Offset_4
0237 0267 | g | Execute Discrete,Predecessor
0238 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0239 e218 | | Load 0x1,0x18
023a 00dc | | Load_Top At_Offset_4
023b 0268 | h | Execute Discrete,Successor
023c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024b | K | .CONST 0x024b ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 e24c | L | Load 0x1,0x4c
0244 0322 | " | Declare_Variable Record
0245 e016 | | Load 0x0,0x16
0246 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0247 e250 | P | Load 0x1,0x50
0248 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0249 00d9 | | Load_Top At_Offset_1
024a 017d | } | Execute Record,Structure_Write
024b BODY_0240:
024b 00db | | Load_Top At_Offset_3
024c 00d9 | | Load_Top At_Offset_1
024d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
024e e5fe | | Load 0x2,-0x2
024f 00d9 | | Load_Top At_Offset_1
0250 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0251 4800 |H | Short_Literal 0x0
0252 e016 | | Load 0x0,0x16
0253 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0254 00da | | Load_Top At_Offset_2
0255 e250 | P | Load 0x1,0x50
0256 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0257 00db | | Load_Top At_Offset_3
0258 820f | | Call 0x1,0xf
0259 700c |p | Jump_Nonzero 0x266
025a e5fe | | Load 0x2,-0x2
025b 4603 |F | Jump_Case 0x4
025c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
025d 7806 |x | Jump 0x264 ; case 0x1
025e 7803 |x | Jump 0x262 ; case 0x2
025f 7800 |x | Jump 0x260 ; case 0x3
0260 e217 | | Load 0x1,0x17
0261 0257 | W | Execute Discrete,Raise
0262 e216 | | Load 0x1,0x16
0263 0257 | W | Execute Discrete,Raise
0264 e215 | | Load 0x1,0x15
0265 0257 | W | Execute Discrete,Raise
0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e016 | | Load 0x0,0x16
026c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
026d e250 | P | Load 0x1,0x50
026e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0270 00ca | | Action Exit_Nullary_Function
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b e016 | | Load 0x0,0x16
027c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
027d e250 | P | Load 0x1,0x50
027e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
027f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0280 00ca | | Action Exit_Nullary_Function
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0297 | | .CONST 0x0297 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b e24c | L | Load 0x1,0x4c
028c 0322 | " | Declare_Variable Record
028d e016 | | Load 0x0,0x16
028e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028f e250 | P | Load 0x1,0x50
0290 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0291 00d9 | | Load_Top At_Offset_1
0292 017d | } | Execute Record,Structure_Write
0293 00d8 | | Load_Top At_Offset_0
0294 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0295 00e1 | | Load_Encached Boolean_Cache
0296 03f1 | | Declare_Variable Discrete,With_Value
0297 BODY_0288:
0297 e5ff | | Load 0x2,-0x1
0298 00da | | Load_Top At_Offset_2
0299 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
029a 4800 |H | Short_Literal 0x0
029b e016 | | Load 0x0,0x16
029c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029d 00db | | Load_Top At_Offset_3
029e e250 | P | Load 0x1,0x50
029f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a0 00d8 | | Load_Top At_Offset_0
02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b3 | | .CONST 0x02b3 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab e24c | L | Load 0x1,0x4c
02ac 0322 | " | Declare_Variable Record
02ad e016 | | Load 0x0,0x16
02ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02af e250 | P | Load 0x1,0x50
02b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02b1 00d9 | | Load_Top At_Offset_1
02b2 017d | } | Execute Record,Structure_Write
02b3 BODY_02a8:
02b3 00db | | Load_Top At_Offset_3
02b4 00d9 | | Load_Top At_Offset_1
02b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02b6 4800 |H | Short_Literal 0x0
02b7 e016 | | Load 0x0,0x16
02b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b9 00da | | Load_Top At_Offset_2
02ba e250 | P | Load 0x1,0x50
02bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 e016 | | Load 0x0,0x16
02c4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c5 e250 | P | Load 0x1,0x50
02c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c8 00ca | | Action Exit_Nullary_Function
02c9 0000 0000 | | .BLANK 0000[0x7]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02df | | .CONST 0x02df ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0003 | | .CONST 0x0003 ; Number of locals
02d3 INIT_02d0:
02d3 e24c | L | Load 0x1,0x4c
02d4 0322 | " | Declare_Variable Record
02d5 e016 | | Load 0x0,0x16
02d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d7 e250 | P | Load 0x1,0x50
02d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d9 00d9 | | Load_Top At_Offset_1
02da 017d | } | Execute Record,Structure_Write
02db 00d8 | | Load_Top At_Offset_0
02dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02dd 00e1 | | Load_Encached Boolean_Cache
02de 03f1 | | Declare_Variable Discrete,With_Value
02df BODY_02d0:
02df e5ff | | Load 0x2,-0x1
02e0 00da | | Load_Top At_Offset_2
02e1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02e2 4800 |H | Short_Literal 0x0
02e3 e016 | | Load 0x0,0x16
02e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e5 00db | | Load_Top At_Offset_3
02e6 e250 | P | Load 0x1,0x50
02e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02e8 00d8 | | Load_Top At_Offset_0
02e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ea 0000 0000 | | .BLANK 0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02fb | | .CONST 0x02fb ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 e24c | L | Load 0x1,0x4c
02f4 0322 | " | Declare_Variable Record
02f5 e016 | | Load 0x0,0x16
02f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f7 e250 | P | Load 0x1,0x50
02f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02f9 00d9 | | Load_Top At_Offset_1
02fa 017d | } | Execute Record,Structure_Write
02fb BODY_02f0:
02fb 00db | | Load_Top At_Offset_3
02fc 00d9 | | Load_Top At_Offset_1
02fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02fe 4800 |H | Short_Literal 0x0
02ff e016 | | Load 0x0,0x16
0300 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0301 00da | | Load_Top At_Offset_2
0302 e250 | P | Load 0x1,0x50
0303 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0304 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0305 0000 0000 | | .XXX[0x3]
0307 0000 | |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b e016 | | Load 0x0,0x16
030c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030d e250 | P | Load 0x1,0x50
030e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
030f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0310 00ca | | Action Exit_Nullary_Function
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 0320 | | .CONST 0x0320 ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b 00db | | Load_Top At_Offset_3
031c 00db | | Load_Top At_Offset_3
031d 8213 | | Call 0x1,0x13
031e e20d | | Load 0x1,0xd
031f 03f1 | | Declare_Variable Discrete,With_Value
0320 BODY_0318:
0320 00d8 | | Load_Top At_Offset_0
0321 a5fd | | Store_Unchecked 0x2,-0x3
0322 00d8 | | Load_Top At_Offset_0
0323 8226 | & | Call 0x1,0x26
0324 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0331 | 1 | .CONST 0x0331 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0002 | | .CONST 0x0002 ; Number of locals
032b INIT_0328:
032b e5fd | | Load 0x2,-0x3
032c e5fe | | Load 0x2,-0x2
032d e5ff | | Load 0x2,-0x1
032e 8214 | | Call 0x1,0x14
032f e20d | | Load 0x1,0xd
0330 03f1 | | Declare_Variable Discrete,With_Value
0331 BODY_0328:
0331 00d8 | | Load_Top At_Offset_0
0332 a5fc | | Store_Unchecked 0x2,-0x4
0333 00d8 | | Load_Top At_Offset_0
0334 8226 | & | Call 0x1,0x26
0335 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0336 0000 0000 | | .XXX[0x2]
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 6804 |h | Jump_Zero 0x341
033d 00db | | Load_Top At_Offset_3
033e 00db | | Load_Top At_Offset_3
033f 8213 | | Call 0x1,0x13
0340 8226 | & | Call 0x1,0x26
0341 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0342 0000 0000 | | .BLANK 0000[0x6]
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 6805 |h | Jump_Zero 0x352
034d e5fd | | Load 0x2,-0x3
034e e5fe | | Load 0x2,-0x2
034f e5ff | | Load 0x2,-0x1
0350 8214 | | Call 0x1,0x14
0351 8226 | & | Call 0x1,0x26
0352 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0353 0000 0000 | | .BLANK 0000[0x5]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0363 | c | .CONST 0x0363 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0002 | | .CONST 0x0002 ; Number of locals
035b INIT_0358:
035b e24c | L | Load 0x1,0x4c
035c 0322 | " | Declare_Variable Record
035d e016 | | Load 0x0,0x16
035e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
035f e250 | P | Load 0x1,0x50
0360 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0361 00d9 | | Load_Top At_Offset_1
0362 017d | } | Execute Record,Structure_Write
0363 BODY_0358:
0363 00db | | Load_Top At_Offset_3
0364 6820 |h | Jump_Zero 0x385
0365 00d8 | | Load_Top At_Offset_0
0366 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0367 6804 |h | Jump_Zero 0x36c
0368 e007 | | Load 0x0,0x7
0369 180e | | Execute Package,Field_Execute,Field_Number 0xe
036a e5ff | | Load 0x2,-0x1
036b 822f | / | Call 0x1,0x2f
036c 00d8 | | Load_Top At_Offset_0
036d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
036e 6804 |h | Jump_Zero 0x373
036f 4803 |H | Short_Literal 0x3
0370 e5ff | | Load 0x2,-0x1
0371 8219 | | Call 0x1,0x19
0372 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0373 e016 | | Load 0x0,0x16
0374 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0375 e250 | P | Load 0x1,0x50
0376 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0377 00d9 | | Load_Top At_Offset_1
0378 017d | } | Execute Record,Structure_Write
0379 00db | | Load_Top At_Offset_3
037a 00d9 | | Load_Top At_Offset_1
037b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
037c 4800 |H | Short_Literal 0x0
037d 00d9 | | Load_Top At_Offset_1
037e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
037f 4800 |H | Short_Literal 0x0
0380 e016 | | Load 0x0,0x16
0381 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0382 00da | | Load_Top At_Offset_2
0383 e250 | P | Load 0x1,0x50
0384 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0385 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0386 0000 0000 | | .XXX[0x2]
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 e24b | K | Load 0x1,0x4b
038d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00db | | Load_Top At_Offset_3
0394 00d8 | | Load_Top At_Offset_0
0395 00e4 | | Load_Encached Positive_Cache
0396 0260 | ` | Execute Discrete,In_Type
0397 7001 |p | Jump_Nonzero 0x399
0398 0801 | | Execute_Immediate Raise,0x1
0399 00db | | Load_Top At_Offset_3
039a e24b | K | Load 0x1,0x4b
039b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
039c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
039d e008 | | Load 0x0,0x8
039e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
039f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 e24b | K | Load 0x1,0x4b
03a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03a6 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03a7 e008 | | Load 0x0,0x8
03a8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03aa 0000 0000 | | .BLANK 0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03c5 | | .CONST 0x03c5 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0002 | | .CONST 0x0002 ; Number of locals
03b3 INIT_03b0:
03b3 e249 | I | Load 0x1,0x49
03b4 0322 | " | Declare_Variable Record
03b5 00db | | Load_Top At_Offset_3
03b6 00d9 | | Load_Top At_Offset_1
03b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03b8 4800 |H | Short_Literal 0x0
03b9 00d9 | | Load_Top At_Offset_1
03ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03bb 4800 |H | Short_Literal 0x0
03bc 00d9 | | Load_Top At_Offset_1
03bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03be 4800 |H | Short_Literal 0x0
03bf 00d9 | | Load_Top At_Offset_1
03c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03c1 e008 | | Load 0x0,0x8
03c2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03c3 00d9 | | Load_Top At_Offset_1
03c4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03c5 BODY_03b0:
03c5 00d8 | | Load_Top At_Offset_0
03c6 e24a | J | Load 0x1,0x4a
03c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03c8 e257 | W | Load 0x1,0x57
03c9 e258 | X | Load 0x1,0x58
03ca 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
03cb e008 | | Load 0x0,0x8
03cc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ce 0000 0000 | | .XXX[0x2]
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 e257 | W | Load 0x1,0x57
03d5 e258 | X | Load 0x1,0x58
03d6 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59
03d7 e008 | | Load 0x0,0x8
03d8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03da 0000 0000 | | .BLANK 0000[0x6]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 e25c | \ | Load 0x1,0x5c
03e5 e25d | ] | Load 0x1,0x5d
03e6 e25e | ^ | Load 0x1,0x5e
03e7 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f
03e8 e008 | | Load 0x0,0x8
03e9 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03eb 0000 0000 | | .BLANK 0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 00da | | Load_Top At_Offset_2
03f4 8262 | b | Call 0x1,0x62
03f5 e00e | | Load 0x0,0xe
03f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0402 | | .CONST 0x0402 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e249 | I | Load 0x1,0x49
03fc 0322 | " | Declare_Variable Record
03fd 00db | | Load_Top At_Offset_3
03fe e24b | K | Load 0x1,0x4b
03ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0400 00d9 | | Load_Top At_Offset_1
0401 017d | } | Execute Record,Structure_Write
0402 BODY_03f8:
0402 4800 |H | Short_Literal 0x0
0403 4801 |H | Short_Literal 0x1
0404 00da | | Load_Top At_Offset_2
0405 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0406 8264 | d | Call 0x1,0x64
0407 00da | | Load_Top At_Offset_2
0408 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0409 8262 | b | Call 0x1,0x62
040a e00e | | Load 0x0,0xe
040b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
040c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041a | | .CONST 0x041a ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e249 | I | Load 0x1,0x49
0414 0322 | " | Declare_Variable Record
0415 00db | | Load_Top At_Offset_3
0416 e24b | K | Load 0x1,0x4b
0417 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0418 00d9 | | Load_Top At_Offset_1
0419 017d | } | Execute Record,Structure_Write
041a BODY_0410:
041a 00d8 | | Load_Top At_Offset_0
041b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
041c 6805 |h | Jump_Zero 0x422
041d e5fe | | Load 0x2,-0x2
041e e5ff | | Load 0x2,-0x1
041f 8263 | c | Call 0x1,0x63
0420 e5ff | | Load 0x2,-0x1
0421 8230 | 0 | Call 0x1,0x30
0422 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0423 0000 0000 | | .BLANK 0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0432 | 2 | .CONST 0x0432 ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b e249 | I | Load 0x1,0x49
042c 0322 | " | Declare_Variable Record
042d 00db | | Load_Top At_Offset_3
042e e24b | K | Load 0x1,0x4b
042f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0430 00d9 | | Load_Top At_Offset_1
0431 017d | } | Execute Record,Structure_Write
0432 BODY_0428:
0432 00d8 | | Load_Top At_Offset_0
0433 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0434 682b |h+ | Jump_Zero 0x460
0435 e5fd | | Load 0x2,-0x3
0436 e5fe | | Load 0x2,-0x2
0437 e007 | | Load 0x0,0x7
0438 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0439 680c |h | Jump_Zero 0x446
043a e5fd | | Load 0x2,-0x3
043b 4800 |H | Short_Literal 0x0
043c 4801 |H | Short_Literal 0x1
043d 00db | | Load_Top At_Offset_3
043e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
043f 8264 | d | Call 0x1,0x64
0440 00db | | Load_Top At_Offset_3
0441 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0442 e5fe | | Load 0x2,-0x2
0443 8262 | b | Call 0x1,0x62
0444 e00e | | Load 0x0,0xe
0445 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0446 e5fe | | Load 0x2,-0x2
0447 e007 | | Load 0x0,0x7
0448 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0449 01d7 | | Execute Vector,Field_Read
044a 6815 |h | Jump_Zero 0x460
044b e5fd | | Load 0x2,-0x3
044c e007 | | Load 0x0,0x7
044d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
044e 4603 |F | Jump_Case 0x4
044f 7809 |x | Jump 0x459 ; case 0x0
0450 780c |x | Jump 0x45d ; case 0x1
0451 7801 |x | Jump 0x453 ; case 0x2
0452 7800 |x | Jump 0x453 ; case 0x3
0453 4801 |H | Short_Literal 0x1
0454 8233 | 3 | Call 0x1,0x33
0455 4801 |H | Short_Literal 0x1
0456 e5fe | | Load 0x2,-0x2
0457 8243 | C | Call 0x1,0x43
0458 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0459 4801 |H | Short_Literal 0x1
045a e5ff | | Load 0x2,-0x1
045b 8219 | | Call 0x1,0x19
045c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
045d 4802 |H | Short_Literal 0x2
045e e5ff | | Load 0x2,-0x1
045f 8219 | | Call 0x1,0x19
0460 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0461 0000 0000 | | .BLANK 0000[0x7]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 00da | | Load_Top At_Offset_2
046c 6806 |h | Jump_Zero 0x473
046d e5fd | | Load 0x2,-0x3
046e e5fe | | Load 0x2,-0x2
046f e5ff | | Load 0x2,-0x1
0470 822d | - | Call 0x1,0x2d
0471 e5ff | | Load 0x2,-0x1
0472 8232 | 2 | Call 0x1,0x32
0473 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0474 0000 0000 | | .BLANK 0000[0x4]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 00da | | Load_Top At_Offset_2
047c 6835 |h5 | Jump_Zero 0x4b2
047d e5fc | | Load 0x2,-0x4
047e e5fe | | Load 0x2,-0x2
047f e007 | | Load 0x0,0x7
0480 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0481 6810 |h | Jump_Zero 0x492
0482 e5fc | | Load 0x2,-0x4
0483 4800 |H | Short_Literal 0x0
0484 e5fd | | Load 0x2,-0x3
0485 01dd | | Execute Vector,First
0486 00d8 | | Load_Top At_Offset_0
0487 e247 | G | Load 0x1,0x47
0488 0260 | ` | Execute Discrete,In_Type
0489 7001 |p | Jump_Nonzero 0x48b
048a 0801 | | Execute_Immediate Raise,0x1
048b e5fd | | Load 0x2,-0x3
048c 8265 | e | Call 0x1,0x65
048d e5ff | | Load 0x2,-0x1
048e e5fe | | Load 0x2,-0x2
048f 8262 | b | Call 0x1,0x62
0490 e00e | | Load 0x0,0xe
0491 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0492 00db | | Load_Top At_Offset_3
0493 e007 | | Load 0x0,0x7
0494 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0495 01d7 | | Execute Vector,Field_Read
0496 681b |h | Jump_Zero 0x4b2
0497 e5fc | | Load 0x2,-0x4
0498 e007 | | Load 0x0,0x7
0499 1817 | | Execute Package,Field_Execute,Field_Number 0x17
049a 4603 |F | Jump_Case 0x4
049b 7809 |x | Jump 0x4a5 ; case 0x0
049c 780f |x | Jump 0x4ac ; case 0x1
049d 7801 |x | Jump 0x49f ; case 0x2
049e 7800 |x | Jump 0x49f ; case 0x3
049f 4801 |H | Short_Literal 0x1
04a0 8233 | 3 | Call 0x1,0x33
04a1 4801 |H | Short_Literal 0x1
04a2 e5fe | | Load 0x2,-0x2
04a3 8243 | C | Call 0x1,0x43
04a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04a5 4801 |H | Short_Literal 0x1
04a6 e5fd | | Load 0x2,-0x3
04a7 e5fe | | Load 0x2,-0x2
04a8 e5ff | | Load 0x2,-0x1
04a9 8214 | | Call 0x1,0x14
04aa 8219 | | Call 0x1,0x19
04ab 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04ac 4802 |H | Short_Literal 0x2
04ad e5fd | | Load 0x2,-0x3
04ae e5fe | | Load 0x2,-0x2
04af e5ff | | Load 0x2,-0x1
04b0 8214 | | Call 0x1,0x14
04b1 8219 | | Call 0x1,0x19
04b2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04b3 0000 0000 | | .BLANK 0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb 00da | | Load_Top At_Offset_2
04bc 6806 |h | Jump_Zero 0x4c3
04bd e5fd | | Load 0x2,-0x3
04be e5fe | | Load 0x2,-0x2
04bf e5ff | | Load 0x2,-0x1
04c0 822d | - | Call 0x1,0x2d
04c1 e5ff | | Load 0x2,-0x1
04c2 8242 | B | Call 0x1,0x42
04c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04c4 0000 0000 | | .BLANK 0000[0x4]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc 6841 |hA | Jump_Zero 0x50e
04cd e5fc | | Load 0x2,-0x4
04ce e5fe | | Load 0x2,-0x2
04cf e007 | | Load 0x0,0x7
04d0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04d1 6808 |h | Jump_Zero 0x4da
04d2 e5fc | | Load 0x2,-0x4
04d3 4800 |H | Short_Literal 0x0
04d4 e5fd | | Load 0x2,-0x3
04d5 e5ff | | Load 0x2,-0x1
04d6 e5fe | | Load 0x2,-0x2
04d7 8262 | b | Call 0x1,0x62
04d8 e00e | | Load 0x0,0xe
04d9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04da 00db | | Load_Top At_Offset_3
04db e007 | | Load 0x0,0x7
04dc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
04dd 01d7 | | Execute Vector,Field_Read
04de 682f |h/ | Jump_Zero 0x50e
04df e5fc | | Load 0x2,-0x4
04e0 e007 | | Load 0x0,0x7
04e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04e2 4603 |F | Jump_Case 0x4
04e3 7809 |x | Jump 0x4ed ; case 0x0
04e4 7819 |x | Jump 0x4fe ; case 0x1
04e5 7801 |x | Jump 0x4e7 ; case 0x2
04e6 7800 |x | Jump 0x4e7 ; case 0x3
04e7 4801 |H | Short_Literal 0x1
04e8 8233 | 3 | Call 0x1,0x33
04e9 4801 |H | Short_Literal 0x1
04ea e5fe | | Load 0x2,-0x2
04eb 8243 | C | Call 0x1,0x43
04ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04ed 4801 |H | Short_Literal 0x1
04ee 4801 |H | Short_Literal 0x1
04ef 4801 |H | Short_Literal 0x1
04f0 e008 | | Load 0x0,0x8
04f1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04f2 0334 | 4 | Declare_Variable Array,With_Constraint
04f3 e5fd | | Load 0x2,-0x3
04f4 e008 | | Load 0x0,0x8
04f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04f6 4801 |H | Short_Literal 0x1
04f7 00da | | Load_Top At_Offset_2
04f8 01d6 | | Execute Vector,Field_Write
04f9 e5fe | | Load 0x2,-0x2
04fa e5ff | | Load 0x2,-0x1
04fb 8214 | | Call 0x1,0x14
04fc 8219 | | Call 0x1,0x19
04fd 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04fe 4802 |H | Short_Literal 0x2
04ff 4801 |H | Short_Literal 0x1
0500 4801 |H | Short_Literal 0x1
0501 e008 | | Load 0x0,0x8
0502 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0503 0334 | 4 | Declare_Variable Array,With_Constraint
0504 e5fd | | Load 0x2,-0x3
0505 e008 | | Load 0x0,0x8
0506 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0507 4801 |H | Short_Literal 0x1
0508 00da | | Load_Top At_Offset_2
0509 01d6 | | Execute Vector,Field_Write
050a e5fe | | Load 0x2,-0x2
050b e5ff | | Load 0x2,-0x1
050c 8214 | | Call 0x1,0x14
050d 8219 | | Call 0x1,0x19
050e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
050f 0000 | | .XXX[0x1]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 051b | | .CONST 0x051b ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0002 | | .CONST 0x0002 ; Number of locals
0513 INIT_0510:
0513 e24c | L | Load 0x1,0x4c
0514 0322 | " | Declare_Variable Record
0515 e016 | | Load 0x0,0x16
0516 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0517 e250 | P | Load 0x1,0x50
0518 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0519 00d9 | | Load_Top At_Offset_1
051a 017d | } | Execute Record,Structure_Write
051b BODY_0510:
051b 00db | | Load_Top At_Offset_3
051c 0c01 | | Execute_Immediate Greater_Equal,0x1
051d 6807 |h | Jump_Zero 0x525
051e 00d8 | | Load_Top At_Offset_0
051f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0520 e5ff | | Load 0x2,-0x1
0521 0273 | s | Execute Discrete,Plus
0522 00d9 | | Load_Top At_Offset_1
0523 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0524 7812 |x | Jump 0x537
0525 00db | | Load_Top At_Offset_3
0526 0274 | t | Execute Discrete,Absolute_Value
0527 00d9 | | Load_Top At_Offset_1
0528 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0529 00db | | Load_Top At_Offset_3
052a 700c |p | Jump_Nonzero 0x537
052b 4800 |H | Short_Literal 0x0
052c 00d9 | | Load_Top At_Offset_1
052d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
052e 4800 |H | Short_Literal 0x0
052f 00d9 | | Load_Top At_Offset_1
0530 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0531 4800 |H | Short_Literal 0x0
0532 00d9 | | Load_Top At_Offset_1
0533 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0534 4800 |H | Short_Literal 0x0
0535 00d9 | | Load_Top At_Offset_1
0536 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0537 4800 |H | Short_Literal 0x0
0538 e016 | | Load 0x0,0x16
0539 1811 | | Execute Package,Field_Execute,Field_Number 0x11
053a 00da | | Load_Top At_Offset_2
053b e250 | P | Load 0x1,0x50
053c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
053d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
053e 0000 0000 | | .XXX[0x2]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 054b | K | .CONST 0x054b ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 e24c | L | Load 0x1,0x4c
0544 0322 | " | Declare_Variable Record
0545 e016 | | Load 0x0,0x16
0546 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0547 e250 | P | Load 0x1,0x50
0548 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0549 00d9 | | Load_Top At_Offset_1
054a 017d | } | Execute Record,Structure_Write
054b BODY_0540:
054b 00d8 | | Load_Top At_Offset_0
054c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
054d 00ca | | Action Exit_Nullary_Function
054e 0000 0000 | | .XXX[0x2]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 055b | [ | .CONST 0x055b ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0002 | | .CONST 0x0002 ; Number of locals
0553 INIT_0550:
0553 e24c | L | Load 0x1,0x4c
0554 0322 | " | Declare_Variable Record
0555 e016 | | Load 0x0,0x16
0556 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0557 e250 | P | Load 0x1,0x50
0558 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0559 00d9 | | Load_Top At_Offset_1
055a 017d | } | Execute Record,Structure_Write
055b BODY_0550:
055b 00db | | Load_Top At_Offset_3
055c 460b |F | Jump_Case 0xc
055d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
055e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1
055f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x2
0560 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x3
0561 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x4
0562 7806 |x | Jump 0x569 ; case 0x5
0563 7814 |x | Jump 0x578 ; case 0x6
0564 7822 |x" | Jump 0x587 ; case 0x7
0565 7830 |x0 | Jump 0x596 ; case 0x8
0566 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x9
0567 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xa
0568 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xb
0569 e5fe | | Load 0x2,-0x2
056a 0c01 | | Execute_Immediate Greater_Equal,0x1
056b 6807 |h | Jump_Zero 0x573
056c 00d8 | | Load_Top At_Offset_0
056d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
056e e5fe | | Load 0x2,-0x2
056f 0273 | s | Execute Discrete,Plus
0570 00d9 | | Load_Top At_Offset_1
0571 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0572 7831 |x1 | Jump 0x5a4
0573 e5fe | | Load 0x2,-0x2
0574 0274 | t | Execute Discrete,Absolute_Value
0575 00d9 | | Load_Top At_Offset_1
0576 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0577 782c |x, | Jump 0x5a4
0578 e5fe | | Load 0x2,-0x2
0579 0c01 | | Execute_Immediate Greater_Equal,0x1
057a 6807 |h | Jump_Zero 0x582
057b 00d8 | | Load_Top At_Offset_0
057c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
057d e5fe | | Load 0x2,-0x2
057e 0273 | s | Execute Discrete,Plus
057f 00d9 | | Load_Top At_Offset_1
0580 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0581 7822 |x" | Jump 0x5a4
0582 e5fe | | Load 0x2,-0x2
0583 0274 | t | Execute Discrete,Absolute_Value
0584 00d9 | | Load_Top At_Offset_1
0585 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0586 781d |x | Jump 0x5a4
0587 e5fe | | Load 0x2,-0x2
0588 0c01 | | Execute_Immediate Greater_Equal,0x1
0589 6807 |h | Jump_Zero 0x591
058a 00d8 | | Load_Top At_Offset_0
058b 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
058c e5fe | | Load 0x2,-0x2
058d 0273 | s | Execute Discrete,Plus
058e 00d9 | | Load_Top At_Offset_1
058f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0590 7813 |x | Jump 0x5a4
0591 e5fe | | Load 0x2,-0x2
0592 0274 | t | Execute Discrete,Absolute_Value
0593 00d9 | | Load_Top At_Offset_1
0594 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0595 780e |x | Jump 0x5a4
0596 e5fe | | Load 0x2,-0x2
0597 0c01 | | Execute_Immediate Greater_Equal,0x1
0598 6807 |h | Jump_Zero 0x5a0
0599 00d8 | | Load_Top At_Offset_0
059a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
059b e5fe | | Load 0x2,-0x2
059c 0273 | s | Execute Discrete,Plus
059d 00d9 | | Load_Top At_Offset_1
059e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
059f 7804 |x | Jump 0x5a4
05a0 e5fe | | Load 0x2,-0x2
05a1 0274 | t | Execute Discrete,Absolute_Value
05a2 00d9 | | Load_Top At_Offset_1
05a3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
05a4 4800 |H | Short_Literal 0x0
05a5 e016 | | Load 0x0,0x16
05a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a7 00da | | Load_Top At_Offset_2
05a8 e250 | P | Load 0x1,0x50
05a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
05aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05ab 0000 0000 | | .BLANK 0000[0x5]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05bb | | .CONST 0x05bb ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 e24c | L | Load 0x1,0x4c
05b4 0322 | " | Declare_Variable Record
05b5 e016 | | Load 0x0,0x16
05b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05b7 e250 | P | Load 0x1,0x50
05b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05b9 00d9 | | Load_Top At_Offset_1
05ba 017d | } | Execute Record,Structure_Write
05bb BODY_05b0:
05bb 00db | | Load_Top At_Offset_3
05bc 460b |F | Jump_Case 0xc
05bd 780b |x | Jump 0x5c9 ; case 0x0
05be 780a |x | Jump 0x5c9 ; case 0x1
05bf 7809 |x | Jump 0x5c9 ; case 0x2
05c0 7808 |x | Jump 0x5c9 ; case 0x3
05c1 7807 |x | Jump 0x5c9 ; case 0x4
05c2 7808 |x | Jump 0x5cb ; case 0x5
05c3 780a |x | Jump 0x5ce ; case 0x6
05c4 780c |x | Jump 0x5d1 ; case 0x7
05c5 780e |x | Jump 0x5d4 ; case 0x8
05c6 7802 |x | Jump 0x5c9 ; case 0x9
05c7 7801 |x | Jump 0x5c9 ; case 0xa
05c8 7800 |x | Jump 0x5c9 ; case 0xb
05c9 4800 |H | Short_Literal 0x0
05ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05cb 00d8 | | Load_Top At_Offset_0
05cc 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05ce 00d8 | | Load_Top At_Offset_0
05cf 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
05d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d1 00d8 | | Load_Top At_Offset_0
05d2 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
05d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d4 00d8 | | Load_Top At_Offset_0
05d5 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
05d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05d7 0000 | | .XXX[0x1]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00db | | Load_Top At_Offset_3
05dc 00db | | Load_Top At_Offset_3
05dd 8224 | $ | Call 0x1,0x24
05de 4800 |H | Short_Literal 0x0
05df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 00db | | Load_Top At_Offset_3
05e4 00db | | Load_Top At_Offset_3
05e5 8224 | $ | Call 0x1,0x24
05e6 e236 | 6 | Load 0x1,0x36
05e7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb 00db | | Load_Top At_Offset_3
05ec 00db | | Load_Top At_Offset_3
05ed 8224 | $ | Call 0x1,0x24
05ee 4fff |O | Short_Literal -0x1
05ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 00db | | Load_Top At_Offset_3
05f4 00db | | Load_Top At_Offset_3
05f5 8224 | $ | Call 0x1,0x24
05f6 e235 | 5 | Load 0x1,0x35
05f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 00da | | Load_Top At_Offset_2
05fc 6809 |h | Jump_Zero 0x606
05fd 00da | | Load_Top At_Offset_2
05fe e008 | | Load 0x0,0x8
05ff 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0600 e5fd | | Load 0x2,-0x3
0601 01cb | | Execute Vector,Append
0602 e5fe | | Load 0x2,-0x2
0603 8224 | $ | Call 0x1,0x24
0604 e23d | = | Load 0x1,0x3d
0605 0257 | W | Execute Discrete,Raise
0606 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0607 0000 | | .XXX[0x1]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c 6819 |h | Jump_Zero 0x626
060d 4801 |H | Short_Literal 0x1
060e 0092 071d | | Action Push_String_Extended,0x71d ; "<EMPTY>"
0610 e5fd | | Load 0x2,-0x3
0611 e017 | | Load 0x0,0x17
0612 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0613 6808 |h | Jump_Zero 0x61c
0614 00da | | Load_Top At_Offset_2
0615 e008 | | Load 0x0,0x8
0616 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0617 e5fc | | Load 0x2,-0x4
0618 01cb | | Execute Vector,Append
0619 e5fe | | Load 0x2,-0x2
061a 8224 | $ | Call 0x1,0x24
061b 7808 |x | Jump 0x624
061c e5fd | | Load 0x2,-0x3
061d 00db | | Load_Top At_Offset_3
061e e008 | | Load 0x0,0x8
061f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0620 e5fc | | Load 0x2,-0x4
0621 01cb | | Execute Vector,Append
0622 e5fe | | Load 0x2,-0x2
0623 8224 | $ | Call 0x1,0x24
0624 e23e | > | Load 0x1,0x3e
0625 0257 | W | Execute Discrete,Raise
0626 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0627 0000 | | .XXX[0x1]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b | + | .CONST 0x062b ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0001 | | .CONST 0x0001 ; Number of locals
062b BODY_0628:
062b INIT_0628:
062b e24d | M | Load 0x1,0x4d
062c 00db | | Load_Top At_Offset_3
062d 017d | } | Execute Record,Structure_Write
062e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
062f 0000 | | .XXX[0x1]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 00da | | Load_Top At_Offset_2
0634 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0635 e00e | | Load 0x0,0xe
0636 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0637 6804 |h | Jump_Zero 0x63c
0638 00da | | Load_Top At_Offset_2
0639 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
063a e00e | | Load 0x0,0xe
063b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
063c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
063d 0000 0000 | | .XXX[0x3]
063f 0000 | |
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 064a | J | .CONST 0x064a ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0002 | | .CONST 0x0002 ; Number of locals
0643 INIT_0640:
0643 e249 | I | Load 0x1,0x49
0644 0322 | " | Declare_Variable Record
0645 00db | | Load_Top At_Offset_3
0646 e24b | K | Load 0x1,0x4b
0647 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0648 00d9 | | Load_Top At_Offset_1
0649 017d | } | Execute Record,Structure_Write
064a BODY_0640:
064a 00db | | Load_Top At_Offset_3
064b 6004 |` | Indirect_Literal Discrete,0x650,{0x80000000, 0x00000000}
064c 027f | | Execute Discrete,Equal
064d 6801 |h | Jump_Zero 0x64f
064e 08e0 | | Execute_Immediate Raise,0xe0
064f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0650 8000 0000 | | .LITERAL {0x80000000, 0x00000000}
0654 0000 0000 | | .BLANK 0000[0x4]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b | [ | .CONST 0x065b ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0001 | | .CONST 0x0001 ; Number of locals
065b BODY_0658:
065b INIT_0658:
065b 00da | | Load_Top At_Offset_2
065c 0f00 | | Execute_Immediate Equal,0x0
065d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
065e 0000 0000 | | .XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 00da | | Load_Top At_Offset_2
0664 0f00 | | Execute_Immediate Equal,0x0
0665 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0666 0000 0000 | | .XXX[0x2]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b e018 | | Load 0x0,0x18
066c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
066d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
066e 0000 0000 | | .XXX[0x2]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 00da | | Load_Top At_Offset_2
0674 00d8 | | Load_Top At_Offset_0
0675 e018 | | Load 0x0,0x18
0676 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0677 0260 | ` | Execute Discrete,In_Type
0678 7001 |p | Jump_Nonzero 0x67a
0679 0801 | | Execute_Immediate Raise,0x1
067a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
067b 0000 0000 | | .BLANK 0000[0x5]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 00db | | Load_Top At_Offset_3
0684 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0685 0000 0000 | | .XXX[0x3]
0687 0000 | |
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0693 | | .CONST 0x0693 ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b e24c | L | Load 0x1,0x4c
068c 0322 | " | Declare_Variable Record
068d e016 | | Load 0x0,0x16
068e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
068f e250 | P | Load 0x1,0x50
0690 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0691 00d9 | | Load_Top At_Offset_1
0692 017d | } | Execute Record,Structure_Write
0693 BODY_0688:
0693 00d8 | | Load_Top At_Offset_0
0694 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0695 e00e | | Load 0x0,0xe
0696 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0697 7012 |p | Jump_Nonzero 0x6aa
0698 e00e | | Load 0x0,0xe
0699 1b0e | | Execute Package,Field_Read,Field_Number 0xe
069a e019 | | Load 0x0,0x19
069b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
069c 4807 |H | Short_Literal 0x7
069d 4802 |H | Short_Literal 0x2
069e e019 | | Load 0x0,0x19
069f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06a0 e00e | | Load 0x0,0xe
06a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06a2 00d9 | | Load_Top At_Offset_1
06a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06a4 4800 |H | Short_Literal 0x0
06a5 e016 | | Load 0x0,0x16
06a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06a7 00da | | Load_Top At_Offset_2
06a8 e250 | P | Load 0x1,0x50
06a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06aa 00d8 | | Load_Top At_Offset_0
06ab 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06ac 00ca | | Action Exit_Nullary_Function
06ad 0000 0000 | | .XXX[0x3]
06af 0000 | |
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06ba | | .CONST 0x06ba ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0002 | | .CONST 0x0002 ; Number of locals
06b3 INIT_06b0:
06b3 e249 | I | Load 0x1,0x49
06b4 0322 | " | Declare_Variable Record
06b5 00db | | Load_Top At_Offset_3
06b6 e24b | K | Load 0x1,0x4b
06b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06b8 00d9 | | Load_Top At_Offset_1
06b9 017d | } | Execute Record,Structure_Write
06ba BODY_06b0:
06ba 00d8 | | Load_Top At_Offset_0
06bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06bc 6803 |h | Jump_Zero 0x6c0
06bd 00d8 | | Load_Top At_Offset_0
06be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c0 00d8 | | Load_Top At_Offset_0
06c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06c2 8262 | b | Call 0x1,0x62
06c3 e00e | | Load 0x0,0xe
06c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06c6 0000 0000 | | .XXX[0x2]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb | | .CONST 0x06cb ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0001 | | .CONST 0x0001 ; Number of locals
06cb BODY_06c8:
06cb INIT_06c8:
06cb 00db | | Load_Top At_Offset_3
06cc 00db | | Load_Top At_Offset_3
06cd e008 | | Load 0x0,0x8
06ce 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
06cf 027d | } | Execute Discrete,Greater
06d0 6802 |h | Jump_Zero 0x6d3
06d1 00ea | | Load_Encached Null_String_Cache
06d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06d3 480a |H | Short_Literal 0xa
06d4 e5fe | | Load 0x2,-0x2
06d5 00d8 | | Load_Top At_Offset_0
06d6 00e4 | | Load_Encached Positive_Cache
06d7 0260 | ` | Execute Discrete,In_Type
06d8 7001 |p | Jump_Nonzero 0x6da
06d9 0801 | | Execute_Immediate Raise,0x1
06da e5ff | | Load 0x2,-0x1
06db e008 | | Load 0x0,0x8
06dc 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
06dd e008 | | Load 0x0,0x8
06de 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
06df 01cb | | Execute Vector,Append
06e0 e5fe | | Load 0x2,-0x2
06e1 0a01 | | Execute_Immediate Plus,0x1
06e2 00d8 | | Load_Top At_Offset_0
06e3 e247 | G | Load 0x1,0x47
06e4 0260 | ` | Execute Discrete,In_Type
06e5 7001 |p | Jump_Nonzero 0x6e7
06e6 0801 | | Execute_Immediate Raise,0x1
06e7 e5ff | | Load 0x2,-0x1
06e8 8264 | d | Call 0x1,0x64
06e9 01cc | | Execute Vector,Catenate
06ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06eb 0000 0000 | | .BLANK 0000[0x5]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 00db | | Load_Top At_Offset_3
06f4 00db | | Load_Top At_Offset_3
06f5 01dc | | Execute Vector,Last
06f6 027d | } | Execute Discrete,Greater
06f7 6802 |h | Jump_Zero 0x6fa
06f8 00ea | | Load_Encached Null_String_Cache
06f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06fa 00db | | Load_Top At_Offset_3
06fb 00db | | Load_Top At_Offset_3
06fc 01dc | | Execute Vector,Last
06fd 027f | | Execute Discrete,Equal
06fe 6806 |h | Jump_Zero 0x705
06ff 00db | | Load_Top At_Offset_3
0700 00db | | Load_Top At_Offset_3
0701 01d7 | | Execute Vector,Field_Read
0702 e008 | | Load 0x0,0x8
0703 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0704 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0705 480a |H | Short_Literal 0xa
0706 e5fe | | Load 0x2,-0x2
0707 e5ff | | Load 0x2,-0x1
0708 01d7 | | Execute Vector,Field_Read
0709 e008 | | Load 0x0,0x8
070a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
070b 01cb | | Execute Vector,Append
070c e5fe | | Load 0x2,-0x2
070d 0a01 | | Execute_Immediate Plus,0x1
070e 00d8 | | Load_Top At_Offset_0
070f e247 | G | Load 0x1,0x47
0710 0260 | ` | Execute Discrete,In_Type
0711 7001 |p | Jump_Nonzero 0x713
0712 0801 | | Execute_Immediate Raise,0x1
0713 e5ff | | Load 0x2,-0x1
0714 8265 | e | Call 0x1,0x65
0715 01cc | | Execute Vector,Catenate
0716 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0717 ; --------------------------------------------------------------------------------------
0717 ; STRING TABLE
0717 ; --------------------------------------------------------------------------------------
0717 0010 | | .STRTAB 0x0010->0x071f ; "NIL"
0718 0011 | | .STRTAB 0x0011->0x0720 ; "QUIT"
0719 0013 | | .STRTAB 0x0013->0x0722 ; "PROPAGATE"
071a 001a | | .STRTAB 0x001a->0x0727 ; "ERROR_CONDITION"
071b 0027 | ' | .STRTAB 0x0027->0x072e ; "<ERROR>"
071c 002c | , | .STRTAB 0x002c->0x0732 ; "TBU Error State"
071d 0039 | 9 | .STRTAB 0x0039->0x0739 ; "<EMPTY>"
071e 003e | > | .STREND 0x003e->0x073d
071f 4e49 4c51 |NILQ| .STRTAB_STRINGS
073d 0000 0000 | | .XXX[0x3]
073f 0000 | |
0740 ; --------------------------------------------------------------------------------------
0740 ; Debug Table
0740 ; --------------------------------------------------------------------------------------
0740 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb1b,0x0000,0x0001,0x0000
0746 0000 0001 | | .XXX[0x1a]
0748 39d5 b589 |9 |
074a 95ca 0000 | |
074c 0018 0000 | |
074e 0100 0000 | |
0750 00e0 0000 | |
0752 0160 0000 | ` |
0754 00d4 0000 | |
0756 0002 0000 | |
0758 000c 9cea | |
075a dac4 cae4 | |
075c 0000 0002 | |
075e 0000 000c | |
0760 0000 0000 | | .BLANK 0000[0x4]
0764 0080 0000 | | .XXX[0x15]
0766 007f ffff | |
0768 ff80 0000 | |
076a 0080 0000 | |
076c 0210 1717 | |
076e 177f ffff | |
0770 8000 0000 | |
0772 0000 0000 | |
0774 0888 8880 | |
0776 aaaa 68aa | h |
0778 4a64 |Jd |
0779 0404 0404 | | .BLANK 0404[0x7e]
07f7 0400 | | .XXX[0x1]
07f8 0202 0202 | | .BLANK 0202[0x8]