|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 9216 (0x2400)
Types: SEG
Notes: 5811_R1K_CODE
Names: »1440787.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1440787.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1440787.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1440787.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1040 | @ | .CONST 0x1040 ; 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 0108 | | .CONST 0x0108 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0165 | e | .CONST 0x0165 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003c | < | .CONST 0x003c ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x10d2,0x8000,0x0000,0x0037,0x6ee4,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 4812 |H | Short_Literal 0x12
000d 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x10,0xfffb
0011 48be |H | Short_Literal 0xbe
0012 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x15,0xfffa
0016 4804 |H | Short_Literal 0x4
0017 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x6 = 0x1a,0xfff9
001b 00e1 | | Load_Encached Boolean_Cache
001c 00e1 | | Load_Encached Boolean_Cache
001d 00e1 | | Load_Encached Boolean_Cache
001e 00e1 | | Load_Encached Boolean_Cache
001f 00e1 | | Load_Encached Boolean_Cache
0020 00e1 | | Load_Encached Boolean_Cache
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4807 |H | Short_Literal 0x7
0023 032e | . | Declare_Type Record,Defined,Visible
0024 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x7 = 0x24,0xfff8
0025 4805 |H | Short_Literal 0x5
0026 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
0028 03fe | | Declare_Type Discrete,Defined,Visible
0029 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x8 = 0x29,0xfff7
002a 00e1 | | Load_Encached Boolean_Cache
002b 00e1 | | Load_Encached Boolean_Cache
002c 00e1 | | Load_Encached Boolean_Cache
002d 00e1 | | Load_Encached Boolean_Cache
002e 00e1 | | Load_Encached Boolean_Cache
002f 00e1 | | Load_Encached Boolean_Cache
0030 00e1 | | Load_Encached Boolean_Cache
0031 00e1 | | Load_Encached Boolean_Cache
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 4809 |H | Short_Literal 0x9
0034 032e | . | Declare_Type Record,Defined,Visible
0035 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x35,0xfff6
0036 4803 |H | Short_Literal 0x3
0037 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0039 03fe | | Declare_Type Discrete,Defined,Visible
003a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0xa = 0x3a,0xfff5
003b 00e1 | | Load_Encached Boolean_Cache
003c 00e1 | | Load_Encached Boolean_Cache
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 4803 |H | Short_Literal 0x3
003f 032e | . | Declare_Type Record,Defined,Visible
0040 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0xb = 0x40,0xfff4
0041 00e1 | | Load_Encached Boolean_Cache
0042 02a0 | | Declare_Subprogram Null_Subprogram
0043 4802 |H | Short_Literal 0x2
0044 032e | . | Declare_Type Record,Defined,Visible
0045 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xc = 0x45,0xfff3
; Debug Table 0x0.0xd = 0x45,0xfff2
0046 48ff |H | Short_Literal 0xff
0047 00e2 | | Load_Encached Integer_Cache
0048 03f9 | | Declare_Type Discrete,Constrained,Visible
0049 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0xe = 0x49,0xfff1
004a 48ff |H | Short_Literal 0xff
004b 00da | | Load_Top At_Offset_2
004c 03f9 | | Declare_Type Discrete,Constrained,Visible
004d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x10 = 0x4d,0xffef
; Debug Table 0x0.0xf = 0x4d,0xfff0
004e 4801 |H | Short_Literal 0x1
004f 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0051 03fe | | Declare_Type Discrete,Defined,Visible
0052 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x11 = 0x52,0xffee
0053 4801 |H | Short_Literal 0x1
0054 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0056 03fe | | Declare_Type Discrete,Defined,Visible
0057 4879 |Hy | Short_Literal 0x79 ; Debug Table 0x0.0x12 = 0x57,0xffed
0058 4889 |H | Short_Literal 0x89
0059 e20e | | Load 0x1,0xe
005a 03f9 | | Declare_Type Discrete,Constrained,Visible
005b 4879 |Hy | Short_Literal 0x79 ; Debug Table 0x0.0x13 = 0x5b,0xffec
005c 487c |H| | Short_Literal 0x7c
005d 00da | | Load_Top At_Offset_2
005e 03f9 | | Declare_Type Discrete,Constrained,Visible
005f e20e | | Load 0x1,0xe ; Debug Table 0x0.0x14 = 0x5f,0xffeb
0060 4802 |H | Short_Literal 0x2
0061 e218 | | Load 0x1,0x18
0062 e219 | | Load 0x1,0x19
0063 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0065 4802 |H | Short_Literal 0x2
0066 4800 |H | Short_Literal 0x0
0067 4801 |H | Short_Literal 0x1
0068 4800 |H | Short_Literal 0x0
0069 4801 |H | Short_Literal 0x1
006a 031e | | Declare_Type Variant_Record,Defined,Visible
006b e20d | | Load 0x1,0xd ; Debug Table 0x0.0x15 = 0x6b,0xffea
006c e20e | | Load 0x1,0xe
006d 4801 |H | Short_Literal 0x1
006e 4801 |H | Short_Literal 0x1
006f e216 | | Load 0x1,0x16
0070 4801 |H | Short_Literal 0x1
0071 4801 |H | Short_Literal 0x1
0072 e216 | | Load 0x1,0x16
0073 4802 |H | Short_Literal 0x2
0074 4801 |H | Short_Literal 0x1
0075 e216 | | Load 0x1,0x16
0076 e21c | | Load 0x1,0x1c
0077 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
0079 4804 |H | Short_Literal 0x4
007a 4800 |H | Short_Literal 0x0
007b 4800 |H | Short_Literal 0x0
007c 4803 |H | Short_Literal 0x3
007d 4801 |H | Short_Literal 0x1
007e 4802 |H | Short_Literal 0x2
007f 031e | | Declare_Type Variant_Record,Defined,Visible
0080 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x16 = 0x80,0xffe9
0081 e20e | | Load 0x1,0xe
0082 4801 |H | Short_Literal 0x1
0083 4800 |H | Short_Literal 0x0
0084 e21d | | Load 0x1,0x1d
0085 029f 030b | | Declare_Subprogram INIT_0308,For_Call
0087 4801 |H | Short_Literal 0x1
0088 4800 |H | Short_Literal 0x0
0089 4800 |H | Short_Literal 0x0
008a 4801 |H | Short_Literal 0x1
008b 4801 |H | Short_Literal 0x1
008c 4802 |H | Short_Literal 0x2
008d 031e | | Declare_Type Variant_Record,Defined,Visible
008e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x17 = 0x8e,0xffe8
008f 480f |H | Short_Literal 0xf
0090 00e2 | | Load_Encached Integer_Cache
0091 03f9 | | Declare_Type Discrete,Constrained,Visible
0092 4f00 |O | Short_Literal -0x100 ; Debug Table 0x0.0x18 = 0x92,0xffe7
0093 49ff |I | Short_Literal 0x1ff
0094 00e2 | | Load_Encached Integer_Cache
0095 03f9 | | Declare_Type Discrete,Constrained,Visible
0096 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x19 = 0x96,0xffe6
0097 49ff |I | Short_Literal 0x1ff
0098 00da | | Load_Top At_Offset_2
0099 03f9 | | Declare_Type Discrete,Constrained,Visible
009a 4f00 |O | Short_Literal -0x100 ; Debug Table 0x0.0x1a = 0x9a,0xffe5
009b 48ff |H | Short_Literal 0xff
009c 00db | | Load_Top At_Offset_3
009d 03f9 | | Declare_Type Discrete,Constrained,Visible
009e 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x1b = 0x9e,0xffe4
009f 00db | | Load_Top At_Offset_3
00a0 02a0 | | Declare_Subprogram Null_Subprogram
00a1 4802 |H | Short_Literal 0x2
00a2 032e | . | Declare_Type Record,Defined,Visible
00a3 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1c = 0xa3,0xffe3
00a4 48ff |H | Short_Literal 0xff
00a5 00e2 | | Load_Encached Integer_Cache
00a6 03f9 | | Declare_Type Discrete,Constrained,Visible
00a7 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1d = 0xa7,0xffe2
00a8 48ff |H | Short_Literal 0xff
00a9 00e2 | | Load_Encached Integer_Cache
00aa 03f9 | | Declare_Type Discrete,Constrained,Visible
00ab 4c00 |L | Short_Literal -0x400 ; Debug Table 0x0.0x1e = 0xab,0xffe1
00ac 4bff |K | Short_Literal 0x3ff
00ad 00e2 | | Load_Encached Integer_Cache
00ae 03f9 | | Declare_Type Discrete,Constrained,Visible
00af 4e00 |N | Short_Literal -0x200 ; Debug Table 0x0.0x1f = 0xaf,0xffe0
00b0 4fff |O | Short_Literal -0x1
00b1 00da | | Load_Top At_Offset_2
00b2 03f9 | | Declare_Type Discrete,Constrained,Visible
00b3 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x20 = 0xb3,0xffdf
00b4 49ff |I | Short_Literal 0x1ff
00b5 00e2 | | Load_Encached Integer_Cache
00b6 03f9 | | Declare_Type Discrete,Constrained,Visible
00b7 4ffa |O | Short_Literal -0x6 ; Debug Table 0x0.0x21 = 0xb7,0xffde
00b8 4800 |H | Short_Literal 0x0
00b9 00e2 | | Load_Encached Integer_Cache
00ba 03f9 | | Declare_Type Discrete,Constrained,Visible
00bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x22 = 0xbb,0xffdd
00bc 4807 |H | Short_Literal 0x7
00bd 00e2 | | Load_Encached Integer_Cache
00be 03f9 | | Declare_Type Discrete,Constrained,Visible
00bf 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x23 = 0xbf,0xffdc
00c0 481f |H | Short_Literal 0x1f
00c1 00e2 | | Load_Encached Integer_Cache
00c2 03f9 | | Declare_Type Discrete,Constrained,Visible
00c3 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x0.0x24 = 0xc3,0xffdb
00c4 0129 | ) | Execute Any,Make_Visible
00c5 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x25 = 0xc5,0xffda
00c6 4807 |H | Short_Literal 0x7
00c7 00e2 | | Load_Encached Integer_Cache
00c8 03f9 | | Declare_Type Discrete,Constrained,Visible
00c9 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x26 = 0xc9,0xffd9
00ca 6239 |b9 | Indirect_Literal Discrete,0x304,{0x00000000, 0x00000fff}
00cb 00e2 | | Load_Encached Integer_Cache
00cc 03f9 | | Declare_Type Discrete,Constrained,Visible
00cd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x27 = 0xcd,0xffd8
00ce 00da | | Load_Top At_Offset_2
00cf 02a0 | | Declare_Subprogram Null_Subprogram
00d0 4802 |H | Short_Literal 0x2
00d1 032e | . | Declare_Type Record,Defined,Visible
00d2 4c00 |L | Short_Literal -0x400 ; Debug Table 0x0.0x28 = 0xd2,0xffd7
00d3 4bff |K | Short_Literal 0x3ff
00d4 00e2 | | Load_Encached Integer_Cache
00d5 03f9 | | Declare_Type Discrete,Constrained,Visible
00d6 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x29 = 0xd6,0xffd6
00d7 4802 |H | Short_Literal 0x2
00d8 4820 |H | Short_Literal 0x20
00d9 026d | m | Execute Discrete,Exponentiate
00da 0aff | | Execute_Immediate Plus,-0x1
00db 00e5 | | Load_Encached Long_Integer_Cache
00dc 03f9 | | Declare_Type Discrete,Constrained,Visible
00dd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x2a = 0xdd,0xffd5
00de 00d9 | | Load_Top At_Offset_1
00df 02a0 | | Declare_Subprogram Null_Subprogram
00e0 4802 |H | Short_Literal 0x2
00e1 032e | . | Declare_Type Record,Defined,Visible
00e2 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x2b = 0xe2,0xffd4
00e3 4801 |H | Short_Literal 0x1
00e4 00e5 | | Load_Encached Long_Integer_Cache
00e5 4801 |H | Short_Literal 0x1
00e6 00e6 | | Load_Encached Float_Cache
00e7 4801 |H | Short_Literal 0x1
00e8 e232 | 2 | Load 0x1,0x32
00e9 029f 037b | {| Declare_Subprogram INIT_0378,For_Call
00eb 4803 |H | Short_Literal 0x3
00ec 4800 |H | Short_Literal 0x0
00ed 4803 |H | Short_Literal 0x3
00ee 4800 |H | Short_Literal 0x0
00ef 4801 |H | Short_Literal 0x1
00f0 031e | | Declare_Type Variant_Record,Defined,Visible
00f1 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2c = 0xf1,0xffd3
00f2 48ff |H | Short_Literal 0xff
00f3 00e2 | | Load_Encached Integer_Cache
00f4 03f9 | | Declare_Type Discrete,Constrained,Visible
00f5 4f80 |O | Short_Literal -0x80 ; Debug Table 0x0.0x2d = 0xf5,0xffd2
00f6 487f |H | Short_Literal 0x7f
00f7 00e2 | | Load_Encached Integer_Cache
00f8 03f9 | | Declare_Type Discrete,Constrained,Visible
00f9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x2e = 0xf9,0xffd1
00fa 4801 |H | Short_Literal 0x1
00fb 00da | | Load_Top At_Offset_2
00fc 4801 |H | Short_Literal 0x1
00fd e234 | 4 | Load 0x1,0x34
00fe 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
0100 4802 |H | Short_Literal 0x2
0101 4800 |H | Short_Literal 0x0
0102 4802 |H | Short_Literal 0x2
0103 4800 |H | Short_Literal 0x0
0104 4801 |H | Short_Literal 0x1
0105 031e | | Declare_Type Variant_Record,Defined,Visible
0106 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2f = 0x106,0xffd0
0107 61f8 |a | Indirect_Literal Discrete,0x300,{0x00000000, 0x0000ffff}
0108 00e2 | | Load_Encached Integer_Cache
0109 03f9 | | Declare_Type Discrete,Constrained,Visible
010a 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x30 = 0x10a,0xffcf
010b 4801 |H | Short_Literal 0x1
010c 029f 040b | | Declare_Subprogram INIT_0408,For_Call
010e 03fe | | Declare_Type Discrete,Defined,Visible
010f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x31 = 0x10f,0xffce
0110 4801 |H | Short_Literal 0x1
0111 00db | | Load_Top At_Offset_3
0112 4801 |H | Short_Literal 0x1
0113 e22f | / | Load 0x1,0x2f
0114 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
0116 4802 |H | Short_Literal 0x2
0117 4800 |H | Short_Literal 0x0
0118 4802 |H | Short_Literal 0x2
0119 4800 |H | Short_Literal 0x0
011a 4801 |H | Short_Literal 0x1
011b 031e | | Declare_Type Variant_Record,Defined,Visible
011c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x32 = 0x11c,0xffcd
011d 483c |H< | Short_Literal 0x3c
011e 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
0120 03fe | | Declare_Type Discrete,Defined,Visible
0121 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x33 = 0x121,0xffcc
0122 481f |H | Short_Literal 0x1f
0123 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call
0125 03fe | | Declare_Type Discrete,Defined,Visible
0126 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x34 = 0x126,0xffcb
0127 4803 |H | Short_Literal 0x3
0128 e20d | | Load 0x1,0xd
0129 e20f | | Load 0x1,0xf
012a e210 | | Load 0x1,0x10
012b 4802 |H | Short_Literal 0x2
012c e20d | | Load 0x1,0xd
012d e211 | | Load 0x1,0x11
012e 4802 |H | Short_Literal 0x2
012f e20d | | Load 0x1,0xd
0130 e212 | | Load 0x1,0x12
0131 4802 |H | Short_Literal 0x2
0132 e213 | | Load 0x1,0x13
0133 e214 | | Load 0x1,0x14
0134 4801 |H | Short_Literal 0x1
0135 e223 | # | Load 0x1,0x23
0136 4802 |H | Short_Literal 0x2
0137 e224 | $ | Load 0x1,0x24
0138 e215 | | Load 0x1,0x15
0139 4801 |H | Short_Literal 0x1
013a e225 | % | Load 0x1,0x25
013b 4801 |H | Short_Literal 0x1
013c e21e | | Load 0x1,0x1e
013d 4801 |H | Short_Literal 0x1
013e e23a | : | Load 0x1,0x3a
013f 4802 |H | Short_Literal 0x2
0140 e20e | | Load 0x1,0xe
0141 e236 | 6 | Load 0x1,0x36
0142 4801 |H | Short_Literal 0x1
0143 e226 | & | Load 0x1,0x26
0144 4801 |H | Short_Literal 0x1
0145 e228 | ( | Load 0x1,0x28
0146 4801 |H | Short_Literal 0x1
0147 e22a | * | Load 0x1,0x2a
0148 4801 |H | Short_Literal 0x1
0149 e229 | ) | Load 0x1,0x29
014a 4802 |H | Short_Literal 0x2
014b e20d | | Load 0x1,0xd
014c e229 | ) | Load 0x1,0x29
014d 4801 |H | Short_Literal 0x1
014e e22b | + | Load 0x1,0x2b
014f 4801 |H | Short_Literal 0x1
0150 e230 | 0 | Load 0x1,0x30
0151 4802 |H | Short_Literal 0x2
0152 e20d | | Load 0x1,0xd
0153 e226 | & | Load 0x1,0x26
0154 4801 |H | Short_Literal 0x1
0155 e233 | 3 | Load 0x1,0x33
0156 4801 |H | Short_Literal 0x1
0157 e239 | 9 | Load 0x1,0x39
0158 4801 |H | Short_Literal 0x1
0159 e22f | / | Load 0x1,0x2f
015a 4801 |H | Short_Literal 0x1
015b e237 | 7 | Load 0x1,0x37
015c 029f 048b | | Declare_Subprogram INIT_0488,For_Call
015e 481f |H | Short_Literal 0x1f
015f 4800 |H | Short_Literal 0x0
0160 4816 |H | Short_Literal 0x16
0161 4800 |H | Short_Literal 0x0
0162 4801 |H | Short_Literal 0x1
0163 031e | | Declare_Type Variant_Record,Defined,Visible
0164 00bf | | Action Accept_Activation ; Debug Table 0x0.0x35 = 0x164,0xffca
; Debug Table 0x0.0x36 = 0x164,0xffc9
; Debug Table 0x0.0x37 = 0x164,0xffc8
; Debug Table 0x0.0x38 = 0x164,0xffc7
; Debug Table 0x0.0x39 = 0x164,0xffc6
; Debug Table 0x0.0x3a = 0x164,0xffc5
; Debug Table 0x0.0x3b = 0x164,0xffc4
; Debug Table 0x0.0x3c = 0x164,0xffc3
; Debug Table 0x0.0x3d = 0x164,0xffc2
; Debug Table 0x0.0x3e = 0x164,0xffc1
; Debug Table 0x0.0x3f = 0x164,0xffc0
; Debug Table 0x0.0x40 = 0x164,0xffbf
; Debug Table 0x0.0x41 = 0x164,0xffbe
; Debug Table 0x0.0x42 = 0x164,0xffbd
; Debug Table 0x0.0x43 = 0x164,0xffbc
; Debug Table 0x0.0x44 = 0x164,0xffbb
; Debug Table 0x0.0x45 = 0x164,0xffba
; Debug Table 0x0.0x46 = 0x164,0xffb9
; Debug Table 0x0.0x47 = 0x164,0xffb8
; Debug Table 0x0.0x48 = 0x164,0xffb7
; Debug Table 0x0.0x49 = 0x164,0xffb6
; Debug Table 0x0.0x4a = 0x164,0xffb5
; Debug Table 0x0.0x4b = 0x164,0xffb4
; Debug Table 0x0.0x4c = 0x164,0xffb3
; Debug Table 0x0.0x4d = 0x164,0xffb2
; Debug Table 0x0.0x4e = 0x164,0xffb1
; Debug Table 0x0.0x4f = 0x164,0xffb0
; Debug Table 0x0.0x50 = 0x164,0xffaf
; Debug Table 0x0.0x51 = 0x164,0xffae
; Debug Table 0x0.0x52 = 0x164,0xffad
; Debug Table 0x0.0x53 = 0x164,0xffac
; Debug Table 0x0.0x54 = 0x164,0xffab
0165 BODY_0008:
0165 00bc | | Action Signal_Activated
0166 00bb | | Action Signal_Completion
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x016b,0x117e,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0017
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
016d 7802 |x | Jump 0x170 ; case 0x1
016e 7805 |x | Jump 0x174 ; case 0x2
016f 7809 |x | Jump 0x179 ; case 0x3
0170 00da | | Load_Top At_Offset_2
0171 0091 057a | z| Action Push_String_Extended_Indexed,0x57a ; "DISCRETE_CLASS"
0173 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0174 00db | | Load_Top At_Offset_3
0175 00db | | Load_Top At_Offset_3
0176 00e0 | | Load_Encached Standard_Cache
0177 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0179 00da | | Load_Top At_Offset_2
017a 00e0 | | Load_Encached Standard_Cache
017b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
017c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0183,0x1180,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x002e
0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0185 7802 |x | Jump 0x188 ; case 0x1
0186 7805 |x | Jump 0x18c ; case 0x2
0187 7809 |x | Jump 0x191 ; case 0x3
0188 00da | | Load_Top At_Offset_2
0189 0091 058d | | Action Push_String_Extended_Indexed,0x58d ; "EQUAL_OP"
018b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
018c 00db | | Load_Top At_Offset_3
018d 00db | | Load_Top At_Offset_3
018e 00e0 | | Load_Encached Standard_Cache
018f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0190 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0191 00da | | Load_Top At_Offset_2
0192 00e0 | | Load_Encached Standard_Cache
0193 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0194 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x019b,0x1182,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x00f1
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
019d 7802 |x | Jump 0x1a0 ; case 0x1
019e 7805 |x | Jump 0x1a4 ; case 0x2
019f 7809 |x | Jump 0x1a9 ; case 0x3
01a0 00da | | Load_Top At_Offset_2
01a1 0091 064c | L| Action Push_String_Extended_Indexed,0x64c ; "DEFINED"
01a3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a4 00db | | Load_Top At_Offset_3
01a5 00db | | Load_Top At_Offset_3
01a6 00e0 | | Load_Encached Standard_Cache
01a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a9 00da | | Load_Top At_Offset_2
01aa 00e0 | | Load_Encached Standard_Cache
01ab 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ac 4201 |B | Exit_Subprogram From_Utility,With_Result,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 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x01b3,0x1184,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0121
01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01b5 7802 |x | Jump 0x1b8 ; case 0x1
01b6 7805 |x | Jump 0x1bc ; case 0x2
01b7 7809 |x | Jump 0x1c1 ; case 0x3
01b8 00da | | Load_Top At_Offset_2
01b9 0091 0651 | Q| Action Push_String_Extended_Indexed,0x651 ; "BY_DEFINING"
01bb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01bc 00db | | Load_Top At_Offset_3
01bd 00db | | Load_Top At_Offset_3
01be 00e0 | | Load_Encached Standard_Cache
01bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c1 00da | | Load_Top At_Offset_2
01c2 00e0 | | Load_Encached Standard_Cache
01c3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x5 = .DEBUG 0x01cb,0x1186,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x015c
01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01cd 7802 |x | Jump 0x1d0 ; case 0x1
01ce 7805 |x | Jump 0x1d4 ; case 0x2
01cf 7809 |x | Jump 0x1d9 ; case 0x3
01d0 00da | | Load_Top At_Offset_2
01d1 0091 0657 | W| Action Push_String_Extended_Indexed,0x657 ; "FOR_CALL"
01d3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01d4 00db | | Load_Top At_Offset_3
01d5 00db | | Load_Top At_Offset_3
01d6 00e0 | | Load_Encached Standard_Cache
01d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d9 00da | | Load_Top At_Offset_2
01da 00e0 | | Load_Encached Standard_Cache
01db 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01dc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4603 |F | Jump_Case 0x4 ; Debug Table 0x6 = .DEBUG 0x01e3,0x1188,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01ad
01e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01e5 7802 |x | Jump 0x1e8 ; case 0x1
01e6 7805 |x | Jump 0x1ec ; case 0x2
01e7 7809 |x | Jump 0x1f1 ; case 0x3
01e8 00da | | Load_Top At_Offset_2
01e9 0091 065b | [| Action Push_String_Extended_Indexed,0x65b ; "FIXED"
01eb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ec 00db | | Load_Top At_Offset_3
01ed 00db | | Load_Top At_Offset_3
01ee 00e0 | | Load_Encached Standard_Cache
01ef 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f1 00da | | Load_Top At_Offset_2
01f2 00e0 | | Load_Encached Standard_Cache
01f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01f4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4603 |F | Jump_Case 0x4 ; Debug Table 0x7 = .DEBUG 0x01fb,0x118a,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01b3
01fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01fd 7802 |x | Jump 0x200 ; case 0x1
01fe 7805 |x | Jump 0x204 ; case 0x2
01ff 7809 |x | Jump 0x209 ; case 0x3
0200 00da | | Load_Top At_Offset_2
0201 0091 065d | ]| Action Push_String_Extended_Indexed,0x65d ; "DIRECT"
0203 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0204 00db | | Load_Top At_Offset_3
0205 00db | | Load_Top At_Offset_3
0206 00e0 | | Load_Encached Standard_Cache
0207 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0208 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0209 00da | | Load_Top At_Offset_2
020a 00e0 | | Load_Encached Standard_Cache
020b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
020c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x0213,0x118c,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01c7
0214 7808 |x | Jump 0x21d ; case 0x0
0215 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0216 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0217 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0218 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
021a 7817 |x | Jump 0x232 ; case 0x6
021b 7822 |x" | Jump 0x23e ; case 0x7
021c 7830 |x0 | Jump 0x24d ; case 0x8
021d 00da | | Load_Top At_Offset_2
021e 016c | l | Execute Variant_Record,Is_Constrained
021f 7009 |p | Jump_Nonzero 0x229
0220 00cf | | Action Mark_Auxiliary
0221 4800 |H | Short_Literal 0x0
0222 e5ff | | Load 0x2,-0x1
0223 1c08 | | Execute_Immediate Run_Utility,0x8
0224 00d8 | | Load_Top At_Offset_0
0225 1c00 | | Execute_Immediate Run_Utility,0x0
0226 c5ff | | Store 0x2,-0x1
0227 00ce | | Action Pop_Auxiliary
0228 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0229 00da | | Load_Top At_Offset_2
022a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
022b 00d8 | | Load_Top At_Offset_0
022c 4879 |Hy | Short_Literal 0x79
022d 487c |H| | Short_Literal 0x7c
022e 0262 | b | Execute Discrete,In_Range
022f 7000 |p | Jump_Nonzero 0x230
0230 00d1 | | Pop_Control Pop_Count_1
0231 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0232 00db | | Load_Top At_Offset_3
0233 00d8 | | Load_Top At_Offset_0
0234 4879 |Hy | Short_Literal 0x79
0235 487c |H| | Short_Literal 0x7c
0236 0262 | b | Execute Discrete,In_Range
0237 7002 |p | Jump_Nonzero 0x23a
0238 48ff |H | Short_Literal 0xff
0239 7801 |x | Jump 0x23b
023a 4801 |H | Short_Literal 0x1
023b 00d0 | | Action Swap_Control
023c 00d1 | | Pop_Control Pop_Count_1
023d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023e 00db | | Load_Top At_Offset_3
023f e5fe | | Load 0x2,-0x2
0240 00d8 | | Load_Top At_Offset_0
0241 4879 |Hy | Short_Literal 0x79
0242 487c |H| | Short_Literal 0x7c
0243 0262 | b | Execute Discrete,In_Range
0244 7003 |p | Jump_Nonzero 0x248
0245 00d1 | | Pop_Control Pop_Count_1
0246 48ff |H | Short_Literal 0xff
0247 7802 |x | Jump 0x24a
0248 00d1 | | Pop_Control Pop_Count_1
0249 4801 |H | Short_Literal 0x1
024a e5ff | | Load 0x2,-0x1
024b 031b | | Declare_Type Variant_Record,Constrained
024c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024d 00db | | Load_Top At_Offset_3
024e e5fe | | Load 0x2,-0x2
024f e5ff | | Load 0x2,-0x1
0250 1c06 | | Execute_Immediate Run_Utility,0x6
0251 e5ff | | Load 0x2,-0x1
0252 02fc | | Declare_Variable Variant_Record,With_Constraint
0253 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 4608 |F | Jump_Case 0x9 ; Debug Table 0x9 = .DEBUG 0x025b,0x118e,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01e6
025c 7808 |x | Jump 0x265 ; case 0x0
025d 7830 |x0 | Jump 0x28e ; case 0x1
025e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
025f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0260 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0261 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0262 7833 |x3 | Jump 0x296 ; case 0x6
0263 784f |xO | Jump 0x2b3 ; case 0x7
0264 7876 |xv | Jump 0x2db ; case 0x8
0265 00da | | Load_Top At_Offset_2
0266 016c | l | Execute Variant_Record,Is_Constrained
0267 700a |p | Jump_Nonzero 0x272
0268 00cf | | Action Mark_Auxiliary
0269 4800 |H | Short_Literal 0x0
026a 4800 |H | Short_Literal 0x0
026b e5ff | | Load 0x2,-0x1
026c 1c08 | | Execute_Immediate Run_Utility,0x8
026d 00d8 | | Load_Top At_Offset_0
026e 1c00 | | Execute_Immediate Run_Utility,0x0
026f c5ff | | Store 0x2,-0x1
0270 00ce | | Action Pop_Auxiliary
0271 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0272 00da | | Load_Top At_Offset_2
0273 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0274 4612 |F | Jump_Case 0x13
0275 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0276 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0277 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0278 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0279 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
027a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
027b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
027c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
027d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
027e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9
027f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa
0280 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xb
0281 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc
0282 7805 |x | Jump 0x288 ; case 0xd
0283 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xe
0284 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf
0285 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x10
0286 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x11
0287 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x12
0288 00da | | Load_Top At_Offset_2
0289 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6
028a 00da | | Load_Top At_Offset_2
028b 2706 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x6
028c 1c00 | | Execute_Immediate Run_Utility,0x0
028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
028e 00da | | Load_Top At_Offset_2
028f 016b | k | Execute Variant_Record,Read_Variant
0290 00d8 | | Load_Top At_Offset_0
0291 0f03 | | Execute_Immediate Equal,0x3
0292 6802 |h | Jump_Zero 0x295
0293 00db | | Load_Top At_Offset_3
0294 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6
0295 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0296 e5fd | | Load 0x2,-0x3
0297 4612 |F | Jump_Case 0x13
0298 7818 |x | Jump 0x2b1 ; case 0x0
0299 7817 |x | Jump 0x2b1 ; case 0x1
029a 7816 |x | Jump 0x2b1 ; case 0x2
029b 7815 |x | Jump 0x2b1 ; case 0x3
029c 780e |x | Jump 0x2ab ; case 0x4
029d 780d |x | Jump 0x2ab ; case 0x5
029e 7812 |x | Jump 0x2b1 ; case 0x6
029f 7811 |x | Jump 0x2b1 ; case 0x7
02a0 7810 |x | Jump 0x2b1 ; case 0x8
02a1 780f |x | Jump 0x2b1 ; case 0x9
02a2 780e |x | Jump 0x2b1 ; case 0xa
02a3 780d |x | Jump 0x2b1 ; case 0xb
02a4 7808 |x | Jump 0x2ad ; case 0xc
02a5 7809 |x | Jump 0x2af ; case 0xd
02a6 7806 |x | Jump 0x2ad ; case 0xe
02a7 7809 |x | Jump 0x2b1 ; case 0xf
02a8 7808 |x | Jump 0x2b1 ; case 0x10
02a9 7807 |x | Jump 0x2b1 ; case 0x11
02aa 7806 |x | Jump 0x2b1 ; case 0x12
02ab 4801 |H | Short_Literal 0x1
02ac 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
02ad 4802 |H | Short_Literal 0x2
02ae 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
02af 4803 |H | Short_Literal 0x3
02b0 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
02b1 48ff |H | Short_Literal 0xff
02b2 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
02b3 e5fd | | Load 0x2,-0x3
02b4 e5fe | | Load 0x2,-0x2
02b5 e5fd | | Load 0x2,-0x3
02b6 4612 |F | Jump_Case 0x13
02b7 781e |x | Jump 0x2d6 ; case 0x0
02b8 781d |x | Jump 0x2d6 ; case 0x1
02b9 781c |x | Jump 0x2d6 ; case 0x2
02ba 781b |x | Jump 0x2d6 ; case 0x3
02bb 780e |x | Jump 0x2ca ; case 0x4
02bc 780d |x | Jump 0x2ca ; case 0x5
02bd 7818 |x | Jump 0x2d6 ; case 0x6
02be 7817 |x | Jump 0x2d6 ; case 0x7
02bf 7816 |x | Jump 0x2d6 ; case 0x8
02c0 7815 |x | Jump 0x2d6 ; case 0x9
02c1 7814 |x | Jump 0x2d6 ; case 0xa
02c2 7813 |x | Jump 0x2d6 ; case 0xb
02c3 7809 |x | Jump 0x2cd ; case 0xc
02c4 780b |x | Jump 0x2d0 ; case 0xd
02c5 7807 |x | Jump 0x2cd ; case 0xe
02c6 780f |x | Jump 0x2d6 ; case 0xf
02c7 780e |x | Jump 0x2d6 ; case 0x10
02c8 780d |x | Jump 0x2d6 ; case 0x11
02c9 780c |x | Jump 0x2d6 ; case 0x12
02ca 4800 |H | Short_Literal 0x0
02cb 4801 |H | Short_Literal 0x1
02cc 780b |x | Jump 0x2d8
02cd 4800 |H | Short_Literal 0x0
02ce 4802 |H | Short_Literal 0x2
02cf 7808 |x | Jump 0x2d8
02d0 e5fe | | Load 0x2,-0x2
02d1 e21c | | Load 0x1,0x1c
02d2 1c07 | | Execute_Immediate Run_Utility,0x7
02d3 4801 |H | Short_Literal 0x1
02d4 4803 |H | Short_Literal 0x3
02d5 7802 |x | Jump 0x2d8
02d6 4800 |H | Short_Literal 0x0
02d7 48ff |H | Short_Literal 0xff
02d8 e5ff | | Load 0x2,-0x1
02d9 031b | | Declare_Type Variant_Record,Constrained
02da 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
02db e5fd | | Load 0x2,-0x3
02dc e5fe | | Load 0x2,-0x2
02dd e5fd | | Load 0x2,-0x3
02de e5fe | | Load 0x2,-0x2
02df e5ff | | Load 0x2,-0x1
02e0 1c06 | | Execute_Immediate Run_Utility,0x6
02e1 e5ff | | Load 0x2,-0x1
02e2 02fc | | Declare_Variable Variant_Record,With_Constraint
02e3 e5fd | | Load 0x2,-0x3
02e4 4612 |F | Jump_Case 0x13
02e5 7816 |x | Jump 0x2fc ; case 0x0
02e6 7815 |x | Jump 0x2fc ; case 0x1
02e7 7814 |x | Jump 0x2fc ; case 0x2
02e8 7813 |x | Jump 0x2fc ; case 0x3
02e9 7812 |x | Jump 0x2fc ; case 0x4
02ea 7811 |x | Jump 0x2fc ; case 0x5
02eb 7810 |x | Jump 0x2fc ; case 0x6
02ec 780f |x | Jump 0x2fc ; case 0x7
02ed 780e |x | Jump 0x2fc ; case 0x8
02ee 780d |x | Jump 0x2fc ; case 0x9
02ef 780c |x | Jump 0x2fc ; case 0xa
02f0 780b |x | Jump 0x2fc ; case 0xb
02f1 780a |x | Jump 0x2fc ; case 0xc
02f2 7805 |x | Jump 0x2f8 ; case 0xd
02f3 7808 |x | Jump 0x2fc ; case 0xe
02f4 7807 |x | Jump 0x2fc ; case 0xf
02f5 7806 |x | Jump 0x2fc ; case 0x10
02f6 7805 |x | Jump 0x2fc ; case 0x11
02f7 7804 |x | Jump 0x2fc ; case 0x12
02f8 e5fe | | Load 0x2,-0x2
02f9 e21c | | Load 0x1,0x1c
02fa 1c08 | | Execute_Immediate Run_Utility,0x8
02fb 2f06 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x6
02fc 016a | j | QQ_execute Variant_Record,XXX
02fd 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
02fe 0000 0000 | | .XXX[0x2]
0300 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0304 0000 0000 | | .LITERAL {0x00000000, 0x00000fff}
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 4608 |F | Jump_Case 0x9 ; Debug Table 0xa = .DEBUG 0x030b,0x1190,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0220
030c 7808 |x | Jump 0x315 ; case 0x0
030d 7823 |x# | Jump 0x331 ; case 0x1
030e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
030f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0310 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0311 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0312 7829 |x) | Jump 0x33c ; case 0x6
0313 7834 |x4 | Jump 0x348 ; case 0x7
0314 7849 |xI | Jump 0x35e ; case 0x8
0315 00da | | Load_Top At_Offset_2
0316 016c | l | Execute Variant_Record,Is_Constrained
0317 700a |p | Jump_Nonzero 0x322
0318 00cf | | Action Mark_Auxiliary
0319 4800 |H | Short_Literal 0x0
031a 4800 |H | Short_Literal 0x0
031b e5ff | | Load 0x2,-0x1
031c 1c08 | | Execute_Immediate Run_Utility,0x8
031d 00d8 | | Load_Top At_Offset_0
031e 1c00 | | Execute_Immediate Run_Utility,0x0
031f c5ff | | Store 0x2,-0x1
0320 00ce | | Action Pop_Auxiliary
0321 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0322 00da | | Load_Top At_Offset_2
0323 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0324 00d8 | | Load_Top At_Offset_0
0325 4879 |Hy | Short_Literal 0x79
0326 4889 |H | Short_Literal 0x89
0327 0262 | b | Execute Discrete,In_Range
0328 7001 |p | Jump_Nonzero 0x32a
0329 7805 |x | Jump 0x32f
032a 00db | | Load_Top At_Offset_3
032b 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
032c 00db | | Load_Top At_Offset_3
032d 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
032e 1c00 | | Execute_Immediate Run_Utility,0x0
032f 00d1 | | Pop_Control Pop_Count_1
0330 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0331 00da | | Load_Top At_Offset_2
0332 016b | k | Execute Variant_Record,Read_Variant
0333 00d8 | | Load_Top At_Offset_0
0334 0f01 | | Execute_Immediate Equal,0x1
0335 6805 |h | Jump_Zero 0x33b
0336 00db | | Load_Top At_Offset_3
0337 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
0338 00db | | Load_Top At_Offset_3
0339 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
033a 1c01 | | Execute_Immediate Run_Utility,0x1
033b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
033c 00db | | Load_Top At_Offset_3
033d 00d8 | | Load_Top At_Offset_0
033e 4879 |Hy | Short_Literal 0x79
033f 4889 |H | Short_Literal 0x89
0340 0262 | b | Execute Discrete,In_Range
0341 7002 |p | Jump_Nonzero 0x344
0342 48ff |H | Short_Literal 0xff
0343 7801 |x | Jump 0x345
0344 4801 |H | Short_Literal 0x1
0345 00d0 | | Action Swap_Control
0346 00d1 | | Pop_Control Pop_Count_1
0347 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0348 e5fd | | Load 0x2,-0x3
0349 e5fe | | Load 0x2,-0x2
034a e5fe | | Load 0x2,-0x2
034b 00d8 | | Load_Top At_Offset_0
034c 4879 |Hy | Short_Literal 0x79
034d 4889 |H | Short_Literal 0x89
034e 0262 | b | Execute Discrete,In_Range
034f 7004 |p | Jump_Nonzero 0x354
0350 00d1 | | Pop_Control Pop_Count_1
0351 4800 |H | Short_Literal 0x0
0352 48ff |H | Short_Literal 0xff
0353 7807 |x | Jump 0x35b
0354 00d1 | | Pop_Control Pop_Count_1
0355 e5fd | | Load 0x2,-0x3
0356 e5fe | | Load 0x2,-0x2
0357 e21d | | Load 0x1,0x1d
0358 1c07 | | Execute_Immediate Run_Utility,0x7
0359 4801 |H | Short_Literal 0x1
035a 4801 |H | Short_Literal 0x1
035b e5ff | | Load 0x2,-0x1
035c 031b | | Declare_Type Variant_Record,Constrained
035d 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
035e e5fd | | Load 0x2,-0x3
035f e5fe | | Load 0x2,-0x2
0360 e5fd | | Load 0x2,-0x3
0361 e5fe | | Load 0x2,-0x2
0362 e5ff | | Load 0x2,-0x1
0363 1c06 | | Execute_Immediate Run_Utility,0x6
0364 e5ff | | Load 0x2,-0x1
0365 02fc | | Declare_Variable Variant_Record,With_Constraint
0366 e5fe | | Load 0x2,-0x2
0367 00d8 | | Load_Top At_Offset_0
0368 4879 |Hy | Short_Literal 0x79
0369 4889 |H | Short_Literal 0x89
036a 0262 | b | Execute Discrete,In_Range
036b 7002 |p | Jump_Nonzero 0x36e
036c 00d1 | | Pop_Control Pop_Count_1
036d 7806 |x | Jump 0x374
036e 00d1 | | Pop_Control Pop_Count_1
036f e5fd | | Load 0x2,-0x3
0370 e5fe | | Load 0x2,-0x2
0371 e21d | | Load 0x1,0x1d
0372 1c08 | | Execute_Immediate Run_Utility,0x8
0373 2f03 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3
0374 016a | j | QQ_execute Variant_Record,XXX
0375 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 4608 |F | Jump_Case 0x9 ; Debug Table 0xb = .DEBUG 0x037b,0x1192,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x035d
037c 7808 |x | Jump 0x385 ; case 0x0
037d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
037e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
037f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0380 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0381 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0382 7818 |x | Jump 0x39b ; case 0x6
0383 7828 |x( | Jump 0x3ac ; case 0x7
0384 783d |x= | Jump 0x3c2 ; case 0x8
0385 00da | | Load_Top At_Offset_2
0386 016c | l | Execute Variant_Record,Is_Constrained
0387 7009 |p | Jump_Nonzero 0x391
0388 00cf | | Action Mark_Auxiliary
0389 4800 |H | Short_Literal 0x0
038a e5ff | | Load 0x2,-0x1
038b 1c08 | | Execute_Immediate Run_Utility,0x8
038c 00d8 | | Load_Top At_Offset_0
038d 1c00 | | Execute_Immediate Run_Utility,0x0
038e c5ff | | Store 0x2,-0x1
038f 00ce | | Action Pop_Auxiliary
0390 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0391 00da | | Load_Top At_Offset_2
0392 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0393 0b00 | | Execute_Immediate Case_Compare,0x0
0394 7004 |p | Jump_Nonzero 0x399
0395 0b01 | | Execute_Immediate Case_Compare,0x1
0396 7002 |p | Jump_Nonzero 0x399
0397 0b12 | | Execute_Immediate Case_Compare,0x12
0398 7000 |p | Jump_Nonzero 0x399
0399 00d1 | | Pop_Control Pop_Count_1
039a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
039b 00db | | Load_Top At_Offset_3
039c 0b00 | | Execute_Immediate Case_Compare,0x0
039d 7006 |p | Jump_Nonzero 0x3a4
039e 0b01 | | Execute_Immediate Case_Compare,0x1
039f 7006 |p | Jump_Nonzero 0x3a6
03a0 0b12 | | Execute_Immediate Case_Compare,0x12
03a1 7006 |p | Jump_Nonzero 0x3a8
03a2 48ff |H | Short_Literal 0xff
03a3 7805 |x | Jump 0x3a9
03a4 4801 |H | Short_Literal 0x1
03a5 7803 |x | Jump 0x3a9
03a6 4802 |H | Short_Literal 0x2
03a7 7801 |x | Jump 0x3a9
03a8 4803 |H | Short_Literal 0x3
03a9 00d0 | | Action Swap_Control
03aa 00d1 | | Pop_Control Pop_Count_1
03ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ac 00db | | Load_Top At_Offset_3
03ad e5fe | | Load 0x2,-0x2
03ae 0b00 | | Execute_Immediate Case_Compare,0x0
03af 7007 |p | Jump_Nonzero 0x3b7
03b0 0b01 | | Execute_Immediate Case_Compare,0x1
03b1 7008 |p | Jump_Nonzero 0x3ba
03b2 0b12 | | Execute_Immediate Case_Compare,0x12
03b3 7009 |p | Jump_Nonzero 0x3bd
03b4 00d1 | | Pop_Control Pop_Count_1
03b5 48ff |H | Short_Literal 0xff
03b6 7808 |x | Jump 0x3bf
03b7 00d1 | | Pop_Control Pop_Count_1
03b8 4801 |H | Short_Literal 0x1
03b9 7805 |x | Jump 0x3bf
03ba 00d1 | | Pop_Control Pop_Count_1
03bb 4802 |H | Short_Literal 0x2
03bc 7802 |x | Jump 0x3bf
03bd 00d1 | | Pop_Control Pop_Count_1
03be 4803 |H | Short_Literal 0x3
03bf e5ff | | Load 0x2,-0x1
03c0 031b | | Declare_Type Variant_Record,Constrained
03c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03c2 00db | | Load_Top At_Offset_3
03c3 e5fe | | Load 0x2,-0x2
03c4 e5ff | | Load 0x2,-0x1
03c5 1c06 | | Execute_Immediate Run_Utility,0x6
03c6 e5ff | | Load 0x2,-0x1
03c7 02fc | | Declare_Variable Variant_Record,With_Constraint
03c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03c9 0000 0000 | | .BLANK 0000[0x7]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0xc = .DEBUG 0x03d3,0x1194,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x039e
03d4 7808 |x | Jump 0x3dd ; case 0x0
03d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
03d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
03d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
03d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
03da 7813 |x | Jump 0x3ee ; case 0x6
03db 781a |x | Jump 0x3f6 ; case 0x7
03dc 7824 |x$ | Jump 0x401 ; case 0x8
03dd 00da | | Load_Top At_Offset_2
03de 016c | l | Execute Variant_Record,Is_Constrained
03df 7009 |p | Jump_Nonzero 0x3e9
03e0 00cf | | Action Mark_Auxiliary
03e1 4801 |H | Short_Literal 0x1
03e2 e5ff | | Load 0x2,-0x1
03e3 1c08 | | Execute_Immediate Run_Utility,0x8
03e4 00d8 | | Load_Top At_Offset_0
03e5 1c00 | | Execute_Immediate Run_Utility,0x0
03e6 c5ff | | Store 0x2,-0x1
03e7 00ce | | Action Pop_Auxiliary
03e8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03e9 00da | | Load_Top At_Offset_2
03ea 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03eb 4601 |F | Jump_Case 0x2
03ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03ee 00db | | Load_Top At_Offset_3
03ef 4601 |F | Jump_Case 0x2
03f0 7803 |x | Jump 0x3f4 ; case 0x0
03f1 7800 |x | Jump 0x3f2 ; case 0x1
03f2 4801 |H | Short_Literal 0x1
03f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03f4 4802 |H | Short_Literal 0x2
03f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03f6 00db | | Load_Top At_Offset_3
03f7 e5fe | | Load 0x2,-0x2
03f8 4601 |F | Jump_Case 0x2
03f9 7803 |x | Jump 0x3fd ; case 0x0
03fa 7800 |x | Jump 0x3fb ; case 0x1
03fb 4801 |H | Short_Literal 0x1
03fc 7801 |x | Jump 0x3fe
03fd 4802 |H | Short_Literal 0x2
03fe e5ff | | Load 0x2,-0x1
03ff 031b | | Declare_Type Variant_Record,Constrained
0400 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0401 00db | | Load_Top At_Offset_3
0402 e5fe | | Load 0x2,-0x2
0403 e5ff | | Load 0x2,-0x1
0404 1c06 | | Execute_Immediate Run_Utility,0x6
0405 e5ff | | Load 0x2,-0x1
0406 02fc | | Declare_Variable Variant_Record,With_Constraint
0407 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 4603 |F | Jump_Case 0x4 ; Debug Table 0xd = .DEBUG 0x040b,0x1196,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x03cd
040c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
040d 7802 |x | Jump 0x410 ; case 0x1
040e 7805 |x | Jump 0x414 ; case 0x2
040f 7809 |x | Jump 0x419 ; case 0x3
0410 00da | | Load_Top At_Offset_2
0411 0091 065f | _| Action Push_String_Extended_Indexed,0x65f ; "IS_LITERAL"
0413 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0414 00db | | Load_Top At_Offset_3
0415 00db | | Load_Top At_Offset_3
0416 00e0 | | Load_Encached Standard_Cache
0417 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0418 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0419 00da | | Load_Top At_Offset_2
041a 00e0 | | Load_Encached Standard_Cache
041b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
041c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
041d 0000 0000 | | .XXX[0x3]
041f 0000 | |
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 4608 |F | Jump_Case 0x9 ; Debug Table 0xe = .DEBUG 0x0423,0x1198,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x03d3
0424 7808 |x | Jump 0x42d ; case 0x0
0425 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0426 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0427 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0428 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0429 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
042a 7813 |x | Jump 0x43e ; case 0x6
042b 781a |x | Jump 0x446 ; case 0x7
042c 7824 |x$ | Jump 0x451 ; case 0x8
042d 00da | | Load_Top At_Offset_2
042e 016c | l | Execute Variant_Record,Is_Constrained
042f 7009 |p | Jump_Nonzero 0x439
0430 00cf | | Action Mark_Auxiliary
0431 4800 |H | Short_Literal 0x0
0432 e5ff | | Load 0x2,-0x1
0433 1c08 | | Execute_Immediate Run_Utility,0x8
0434 00d8 | | Load_Top At_Offset_0
0435 1c00 | | Execute_Immediate Run_Utility,0x0
0436 c5ff | | Store 0x2,-0x1
0437 00ce | | Action Pop_Auxiliary
0438 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0439 00da | | Load_Top At_Offset_2
043a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
043b 4601 |F | Jump_Case 0x2
043c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
043d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
043e 00db | | Load_Top At_Offset_3
043f 4601 |F | Jump_Case 0x2
0440 7801 |x | Jump 0x442 ; case 0x0
0441 7802 |x | Jump 0x444 ; case 0x1
0442 4801 |H | Short_Literal 0x1
0443 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0444 4802 |H | Short_Literal 0x2
0445 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0446 00db | | Load_Top At_Offset_3
0447 e5fe | | Load 0x2,-0x2
0448 4601 |F | Jump_Case 0x2
0449 7801 |x | Jump 0x44b ; case 0x0
044a 7802 |x | Jump 0x44d ; case 0x1
044b 4801 |H | Short_Literal 0x1
044c 7801 |x | Jump 0x44e
044d 4802 |H | Short_Literal 0x2
044e e5ff | | Load 0x2,-0x1
044f 031b | | Declare_Type Variant_Record,Constrained
0450 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0451 00db | | Load_Top At_Offset_3
0452 e5fe | | Load 0x2,-0x2
0453 e5ff | | Load 0x2,-0x1
0454 1c06 | | Execute_Immediate Run_Utility,0x6
0455 e5ff | | Load 0x2,-0x1
0456 02fc | | Declare_Variable Variant_Record,With_Constraint
0457 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 4603 |F | Jump_Case 0x4 ; Debug Table 0xf = .DEBUG 0x045b,0x119a,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x03f1
045c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
045d 7802 |x | Jump 0x460 ; case 0x1
045e 7805 |x | Jump 0x464 ; case 0x2
045f 7809 |x | Jump 0x469 ; case 0x3
0460 00da | | Load_Top At_Offset_2
0461 0091 0661 | a| Action Push_String_Extended_Indexed,0x661 ; "ILLEGAL"
0463 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0464 00db | | Load_Top At_Offset_3
0465 00db | | Load_Top At_Offset_3
0466 00e0 | | Load_Encached Standard_Cache
0467 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0468 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0469 00da | | Load_Top At_Offset_2
046a 00e0 | | Load_Encached Standard_Cache
046b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
046c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 4603 |F | Jump_Case 0x4 ; Debug Table 0x10 = .DEBUG 0x0473,0x119c,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0432
0474 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0475 7802 |x | Jump 0x478 ; case 0x1
0476 7805 |x | Jump 0x47c ; case 0x2
0477 7809 |x | Jump 0x481 ; case 0x3
0478 00da | | Load_Top At_Offset_2
0479 0091 069e | | Action Push_String_Extended_Indexed,0x69e ; "DECLARE_TYPE"
047b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
047c 00db | | Load_Top At_Offset_3
047d 00db | | Load_Top At_Offset_3
047e 00e0 | | Load_Encached Standard_Cache
047f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0480 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0481 00da | | Load_Top At_Offset_2
0482 00e0 | | Load_Encached Standard_Cache
0483 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0484 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 4608 |F | Jump_Case 0x9 ; Debug Table 0x11 = .DEBUG 0x048b,0x119e,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0456
048c 7808 |x | Jump 0x495 ; case 0x0
048d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
048e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
048f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0490 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0491 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0492 7841 |xA | Jump 0x4d4 ; case 0x6
0493 788e |x | Jump 0x522 ; case 0x7
0494 78de |x | Jump 0x573 ; case 0x8
0495 00da | | Load_Top At_Offset_2
0496 016c | l | Execute Variant_Record,Is_Constrained
0497 7009 |p | Jump_Nonzero 0x4a1
0498 00cf | | Action Mark_Auxiliary
0499 480c |H | Short_Literal 0xc
049a e5ff | | Load 0x2,-0x1
049b 1c08 | | Execute_Immediate Run_Utility,0x8
049c 00d8 | | Load_Top At_Offset_0
049d 1c00 | | Execute_Immediate Run_Utility,0x0
049e c5ff | | Store 0x2,-0x1
049f 00ce | | Action Pop_Auxiliary
04a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04a1 00da | | Load_Top At_Offset_2
04a2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
04a3 461f |F | Jump_Case 0x20
04a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04a6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
04a7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
04a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
04a9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
04aa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
04ab 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
04ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
04ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9
04ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xa
04af 7814 |x | Jump 0x4c4 ; case 0xb
04b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc
04b1 7816 |x | Jump 0x4c8 ; case 0xd
04b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xe
04b3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf
04b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x10
04b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x11
04b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x12
04b7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x13
04b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x14
04b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x15
04ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x16
04bb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x17
04bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x18
04bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x19
04be 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1a
04bf 7810 |x | Jump 0x4d0 ; case 0x1b
04c0 780b |x | Jump 0x4cc ; case 0x1c
04c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1d
04c2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1e
04c3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1f
04c4 00da | | Load_Top At_Offset_2
04c5 260f |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xf
04c6 1c00 | | Execute_Immediate Run_Utility,0x0
04c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04c8 00da | | Load_Top At_Offset_2
04c9 2612 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x12
04ca 1c00 | | Execute_Immediate Run_Utility,0x0
04cb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04cc 00da | | Load_Top At_Offset_2
04cd 261d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1d
04ce 1c00 | | Execute_Immediate Run_Utility,0x0
04cf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04d0 00da | | Load_Top At_Offset_2
04d1 261e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x1e
04d2 1c00 | | Execute_Immediate Run_Utility,0x0
04d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04d4 00db | | Load_Top At_Offset_3
04d5 461f |F | Jump_Case 0x20
04d6 781f |x | Jump 0x4f6 ; case 0x0
04d7 7820 |x | Jump 0x4f8 ; case 0x1
04d8 7821 |x! | Jump 0x4fa ; case 0x2
04d9 7822 |x" | Jump 0x4fc ; case 0x3
04da 7823 |x# | Jump 0x4fe ; case 0x4
04db 7822 |x" | Jump 0x4fe ; case 0x5
04dc 7821 |x! | Jump 0x4fe ; case 0x6
04dd 7820 |x | Jump 0x4fe ; case 0x7
04de 781f |x | Jump 0x4fe ; case 0x8
04df 7820 |x | Jump 0x500 ; case 0x9
04e0 7821 |x! | Jump 0x502 ; case 0xa
04e1 7822 |x" | Jump 0x504 ; case 0xb
04e2 7823 |x# | Jump 0x506 ; case 0xc
04e3 7824 |x$ | Jump 0x508 ; case 0xd
04e4 7825 |x% | Jump 0x50a ; case 0xe
04e5 7824 |x$ | Jump 0x50a ; case 0xf
04e6 7823 |x# | Jump 0x50a ; case 0x10
04e7 7824 |x$ | Jump 0x50c ; case 0x11
04e8 7821 |x! | Jump 0x50a ; case 0x12
04e9 7820 |x | Jump 0x50a ; case 0x13
04ea 782b |x+ | Jump 0x516 ; case 0x14
04eb 782c |x, | Jump 0x518 ; case 0x15
04ec 7821 |x! | Jump 0x50e ; case 0x16
04ed 7822 |x" | Jump 0x510 ; case 0x17
04ee 7823 |x# | Jump 0x512 ; case 0x18
04ef 7822 |x" | Jump 0x512 ; case 0x19
04f0 7823 |x# | Jump 0x514 ; case 0x1a
04f1 782a |x* | Jump 0x51c ; case 0x1b
04f2 7827 |x' | Jump 0x51a ; case 0x1c
04f3 782a |x* | Jump 0x51e ; case 0x1d
04f4 7829 |x) | Jump 0x51e ; case 0x1e
04f5 782a |x* | Jump 0x520 ; case 0x1f
04f6 4801 |H | Short_Literal 0x1
04f7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04f8 4802 |H | Short_Literal 0x2
04f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fa 4803 |H | Short_Literal 0x3
04fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fc 4804 |H | Short_Literal 0x4
04fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
04fe 4805 |H | Short_Literal 0x5
04ff 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0500 4806 |H | Short_Literal 0x6
0501 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0502 4807 |H | Short_Literal 0x7
0503 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0504 4808 |H | Short_Literal 0x8
0505 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0506 4809 |H | Short_Literal 0x9
0507 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0508 480a |H | Short_Literal 0xa
0509 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050a 480b |H | Short_Literal 0xb
050b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050c 480c |H | Short_Literal 0xc
050d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050e 480d |H | Short_Literal 0xd
050f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0510 480e |H | Short_Literal 0xe
0511 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0512 480f |H | Short_Literal 0xf
0513 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0514 4810 |H | Short_Literal 0x10
0515 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0516 4811 |H | Short_Literal 0x11
0517 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0518 4812 |H | Short_Literal 0x12
0519 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
051a 4813 |H | Short_Literal 0x13
051b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
051c 4814 |H | Short_Literal 0x14
051d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
051e 4815 |H | Short_Literal 0x15
051f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0520 4816 |H | Short_Literal 0x16
0521 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0522 00db | | Load_Top At_Offset_3
0523 e5fe | | Load 0x2,-0x2
0524 461f |F | Jump_Case 0x20
0525 781f |x | Jump 0x545 ; case 0x0
0526 7820 |x | Jump 0x547 ; case 0x1
0527 7821 |x! | Jump 0x549 ; case 0x2
0528 7822 |x" | Jump 0x54b ; case 0x3
0529 7823 |x# | Jump 0x54d ; case 0x4
052a 7822 |x" | Jump 0x54d ; case 0x5
052b 7821 |x! | Jump 0x54d ; case 0x6
052c 7820 |x | Jump 0x54d ; case 0x7
052d 781f |x | Jump 0x54d ; case 0x8
052e 7820 |x | Jump 0x54f ; case 0x9
052f 7821 |x! | Jump 0x551 ; case 0xa
0530 7822 |x" | Jump 0x553 ; case 0xb
0531 7823 |x# | Jump 0x555 ; case 0xc
0532 7824 |x$ | Jump 0x557 ; case 0xd
0533 7825 |x% | Jump 0x559 ; case 0xe
0534 7824 |x$ | Jump 0x559 ; case 0xf
0535 7823 |x# | Jump 0x559 ; case 0x10
0536 7824 |x$ | Jump 0x55b ; case 0x11
0537 7821 |x! | Jump 0x559 ; case 0x12
0538 7820 |x | Jump 0x559 ; case 0x13
0539 782b |x+ | Jump 0x565 ; case 0x14
053a 782c |x, | Jump 0x567 ; case 0x15
053b 7821 |x! | Jump 0x55d ; case 0x16
053c 7822 |x" | Jump 0x55f ; case 0x17
053d 7823 |x# | Jump 0x561 ; case 0x18
053e 7822 |x" | Jump 0x561 ; case 0x19
053f 7823 |x# | Jump 0x563 ; case 0x1a
0540 782a |x* | Jump 0x56b ; case 0x1b
0541 7827 |x' | Jump 0x569 ; case 0x1c
0542 782a |x* | Jump 0x56d ; case 0x1d
0543 7829 |x) | Jump 0x56d ; case 0x1e
0544 782a |x* | Jump 0x56f ; case 0x1f
0545 4801 |H | Short_Literal 0x1
0546 7829 |x) | Jump 0x570
0547 4802 |H | Short_Literal 0x2
0548 7827 |x' | Jump 0x570
0549 4803 |H | Short_Literal 0x3
054a 7825 |x% | Jump 0x570
054b 4804 |H | Short_Literal 0x4
054c 7823 |x# | Jump 0x570
054d 4805 |H | Short_Literal 0x5
054e 7821 |x! | Jump 0x570
054f 4806 |H | Short_Literal 0x6
0550 781f |x | Jump 0x570
0551 4807 |H | Short_Literal 0x7
0552 781d |x | Jump 0x570
0553 4808 |H | Short_Literal 0x8
0554 781b |x | Jump 0x570
0555 4809 |H | Short_Literal 0x9
0556 7819 |x | Jump 0x570
0557 480a |H | Short_Literal 0xa
0558 7817 |x | Jump 0x570
0559 480b |H | Short_Literal 0xb
055a 7815 |x | Jump 0x570
055b 480c |H | Short_Literal 0xc
055c 7813 |x | Jump 0x570
055d 480d |H | Short_Literal 0xd
055e 7811 |x | Jump 0x570
055f 480e |H | Short_Literal 0xe
0560 780f |x | Jump 0x570
0561 480f |H | Short_Literal 0xf
0562 780d |x | Jump 0x570
0563 4810 |H | Short_Literal 0x10
0564 780b |x | Jump 0x570
0565 4811 |H | Short_Literal 0x11
0566 7809 |x | Jump 0x570
0567 4812 |H | Short_Literal 0x12
0568 7807 |x | Jump 0x570
0569 4813 |H | Short_Literal 0x13
056a 7805 |x | Jump 0x570
056b 4814 |H | Short_Literal 0x14
056c 7803 |x | Jump 0x570
056d 4815 |H | Short_Literal 0x15
056e 7801 |x | Jump 0x570
056f 4816 |H | Short_Literal 0x16
0570 e5ff | | Load 0x2,-0x1
0571 031b | | Declare_Type Variant_Record,Constrained
0572 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0573 00db | | Load_Top At_Offset_3
0574 e5fe | | Load 0x2,-0x2
0575 e5ff | | Load 0x2,-0x1
0576 1c06 | | Execute_Immediate Run_Utility,0x6
0577 e5ff | | Load 0x2,-0x1
0578 02fc | | Declare_Variable Variant_Record,With_Constraint
0579 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
057a ; --------------------------------------------------------------------------------------
057a ; STRING TABLE
057a ; --------------------------------------------------------------------------------------
057a 028a | | .STRTAB 0x028a->0x06bf ; "DISCRETE_CLASS"
057b 0296 | | .STRTAB 0x0296->0x06c6 ; "FLOAT_CLASS"
057c 029f | | .STRTAB 0x029f->0x06cb ; "ACCESS_CLASS"
057d 02a9 | | .STRTAB 0x02a9->0x06d1 ; "HEAP_ACCESS_CLASS"
057e 02b8 | | .STRTAB 0x02b8->0x06da ; "PACKAGE_CLASS"
057f 02c3 | | .STRTAB 0x02c3->0x06e0 ; "TASK_CLASS"
0580 02cb | | .STRTAB 0x02cb->0x06e5 ; "MODULE_CLASS"
0581 02d5 | | .STRTAB 0x02d5->0x06eb ; "ARRAY_CLASS"
0582 02de | | .STRTAB 0x02de->0x06f1 ; "VECTOR_CLASS"
0583 02e8 | | .STRTAB 0x02e8->0x06f7 ; "MATRIX_CLASS"
0584 02f2 | | .STRTAB 0x02f2->0x06fd ; "SUBARRAY_CLASS"
0585 02fe | | .STRTAB 0x02fe->0x0704 ; "SUBVECTOR_CLASS"
0586 030b | | .STRTAB 0x030b->0x070b ; "RECORD_CLASS"
0587 0315 | | .STRTAB 0x0315->0x0711 ; "VARIANT_RECORD_CLASS"
0588 0327 | ' | .STRTAB 0x0327->0x071b ; "SELECT_CLASS"
0589 0331 | 1 | .STRTAB 0x0331->0x0721 ; "ENTRY_CLASS"
058a 033a | : | .STRTAB 0x033a->0x0727 ; "FAMILY_CLASS"
058b 0344 | D | .STRTAB 0x0344->0x072d ; "EXCEPTION_CLASS"
058c 0351 | Q | .STRTAB 0x0351->0x0734 ; "ANY_CLASS"
058d 0358 | X | .STRTAB 0x0358->0x0739 ; "EQUAL_OP"
058e 035e | ^ | .STRTAB 0x035e->0x073d ; "NOT_EQUAL_OP"
058f 0368 | h | .STRTAB 0x0368->0x0743 ; "GREATER_OP"
0590 0370 | p | .STRTAB 0x0370->0x0748 ; "LESS_OP"
0591 0375 | u | .STRTAB 0x0375->0x074b ; "GREATER_EQUAL_OP"
0592 0383 | | .STRTAB 0x0383->0x0753 ; "LESS_EQUAL_OP"
0593 038e | | .STRTAB 0x038e->0x075a ; "CASE_COMPARE_OP"
0594 039b | | .STRTAB 0x039b->0x0761 ; "BELOW_BOUND_OP"
0595 03a7 | | .STRTAB 0x03a7->0x0768 ; "ABOVE_BOUND_OP"
0596 03b3 | | .STRTAB 0x03b3->0x076f ; "IN_RANGE_OP"
0597 03bc | | .STRTAB 0x03bc->0x0775 ; "NOT_IN_RANGE_OP"
0598 03c9 | | .STRTAB 0x03c9->0x077c ; "CASE_IN_RANGE_OP"
0599 03d7 | | .STRTAB 0x03d7->0x0784 ; "BOUNDS_CHECK_OP"
059a 03e4 | | .STRTAB 0x03e4->0x078c ; "REVERSE_BOUNDS_CHECK_OP"
059b 03f9 | | .STRTAB 0x03f9->0x0797 ; "BOUNDS_OP"
059c 0400 | | .STRTAB 0x0400->0x079c ; "REVERSE_BOUNDS_OP"
059d 040f | | .STRTAB 0x040f->0x07a4 ; "FIRST_OP"
059e 0415 | | .STRTAB 0x0415->0x07a8 ; "LAST_OP"
059f 041a | | .STRTAB 0x041a->0x07ac ; "SET_VALUE_OP"
05a0 0424 | $ | .STRTAB 0x0424->0x07b2 ; "SET_VALUE_UNCHECKED_OP"
05a1 0438 | 8 | .STRTAB 0x0438->0x07bd ; "SET_VALUE_VISIBLE_OP"
05a2 044a | J | .STRTAB 0x044a->0x07c7 ; "SET_VALUE_VISIBLE_UNCHECKED_OP"
05a3 0466 | f | .STRTAB 0x0466->0x07d6 ; "TEST_AND_SET_PREVIOUS_OP"
05a4 047c | | | .STRTAB 0x047c->0x07e2 ; "TEST_AND_SET_NEXT_OP"
05a5 048e | | .STRTAB 0x048e->0x07ec ; "SUCCESSOR_OP"
05a6 0498 | | .STRTAB 0x0498->0x07f2 ; "PREDECESSOR_OP"
05a7 04a4 | | .STRTAB 0x04a4->0x07f9 ; "AND_OP"
05a8 04a8 | | .STRTAB 0x04a8->0x07fc ; "OR_OP"
05a9 04ab | | .STRTAB 0x04ab->0x07fe ; "XOR_OP"
05aa 04af | | .STRTAB 0x04af->0x0801 ; "COMPLEMENT_OP"
05ab 04ba | | .STRTAB 0x04ba->0x0808 ; "UNARY_MINUS_OP"
05ac 04c6 | | .STRTAB 0x04c6->0x080f ; "ABSOLUTE_VALUE_OP"
05ad 04d5 | | .STRTAB 0x04d5->0x0817 ; "PLUS_OP"
05ae 04da | | .STRTAB 0x04da->0x081b ; "MINUS_OP"
05af 04e0 | | .STRTAB 0x04e0->0x081f ; "TIMES_OP"
05b0 04e6 | | .STRTAB 0x04e6->0x0823 ; "DIVIDE_OP"
05b1 04ed | | .STRTAB 0x04ed->0x0827 ; "MODULO_OP"
05b2 04f4 | | .STRTAB 0x04f4->0x082c ; "REMAINDER_OP"
05b3 04fe | | .STRTAB 0x04fe->0x0832 ; "MINIMUM_OP"
05b4 0506 | | .STRTAB 0x0506->0x0837 ; "MAXIMUM_OP"
05b5 050e | | .STRTAB 0x050e->0x083c ; "EXPONENTIATE_OP"
05b6 051b | | .STRTAB 0x051b->0x0843 ; "BINARY_SCALE_OP"
05b7 0528 | ( | .STRTAB 0x0528->0x084b ; "MULTIPLY_AND_SCALE_OP"
05b8 053b | ; | .STRTAB 0x053b->0x0855 ; "DIVIDE_AND_SCALE_OP"
05b9 054c | L | .STRTAB 0x054c->0x085f ; "PARTIAL_PLUS_OP"
05ba 0559 | Y | .STRTAB 0x0559->0x0866 ; "PARTIAL_MINUS_OP"
05bb 0567 | g | .STRTAB 0x0567->0x086e ; "ARITHMETIC_SHIFT_OP"
05bc 0578 | x | .STRTAB 0x0578->0x0878 ; "LOGICAL_SHIFT_OP"
05bd 0586 | | .STRTAB 0x0586->0x0880 ; "ROTATE_OP"
05be 058d | | .STRTAB 0x058d->0x0884 ; "INSERT_BITS_OP"
05bf 0599 | | .STRTAB 0x0599->0x088b ; "EXTRACT_BITS_OP"
05c0 05a6 | | .STRTAB 0x05a6->0x0893 ; "IS_UNSIGNED_OP"
05c1 05b2 | | .STRTAB 0x05b2->0x089a ; "COUNT_NONZERO_BITS_OP"
05c2 05c5 | | .STRTAB 0x05c5->0x08a4 ; "COUNT_LEADING_ZEROS_OP"
05c3 05d9 | | .STRTAB 0x05d9->0x08af ; "COUNT_TRAILING_ZEROS_OP"
05c4 05ee | | .STRTAB 0x05ee->0x08bb ; "ROUND_TO_DISCRETE_OP"
05c5 0600 | | .STRTAB 0x0600->0x08c5 ; "TRUNCATE_TO_DISCRETE_OP"
05c6 0615 | | .STRTAB 0x0615->0x08d0 ; "CONVERT_FROM_DISCRETE_OP"
05c7 062b | + | .STRTAB 0x062b->0x08dc ; "EQUAL_ZERO_OP"
05c8 0636 | 6 | .STRTAB 0x0636->0x08e3 ; "NOT_EQUAL_ZERO_OP"
05c9 0645 | E | .STRTAB 0x0645->0x08eb ; "GREATER_ZERO_OP"
05ca 0652 | R | .STRTAB 0x0652->0x08f3 ; "LESS_ZERO_OP"
05cb 065c | \ | .STRTAB 0x065c->0x08f9 ; "GREATER_EQUAL_ZERO_OP"
05cc 066f | o | .STRTAB 0x066f->0x0903 ; "LESS_EQUAL_ZERO_OP"
05cd 067f | | .STRTAB 0x067f->0x090c ; "IS_NULL_OP"
05ce 0687 | | .STRTAB 0x0687->0x0911 ; "NOT_NULL_OP"
05cf 0690 | | .STRTAB 0x0690->0x0917 ; "SET_NULL_OP"
05d0 0699 | | .STRTAB 0x0699->0x091c ; "ELEMENT_TYPE_OP"
05d1 06a6 | | .STRTAB 0x06a6->0x0924 ; "ALL_READ_OP"
05d2 06af | | .STRTAB 0x06af->0x0929 ; "ALL_WRITE_OP"
05d3 06b9 | | .STRTAB 0x06b9->0x092f ; "ALL_REFERENCE_OP"
05d4 06c7 | | .STRTAB 0x06c7->0x0937 ; "CONVERT_REFERENCE_OP"
05d5 06d9 | | .STRTAB 0x06d9->0x0941 ; "ALLOW_DEALLOCATE_OP"
05d6 06ea | | .STRTAB 0x06ea->0x094b ; "DEALLOCATE_OP"
05d7 06f5 | | .STRTAB 0x06f5->0x0951 ; "HASH_OP"
05d8 06fa | | .STRTAB 0x06fa->0x0955 ; "CONSTRUCT_SEGMENT_OP"
05d9 070c | | .STRTAB 0x070c->0x095f ; "GET_SEGMENT_OP"
05da 0718 | | .STRTAB 0x0718->0x0966 ; "GET_OFFSET_OP"
05db 0723 | # | .STRTAB 0x0723->0x096c ; "DIANA_TREE_KIND_OP"
05dc 0733 | 3 | .STRTAB 0x0733->0x0975 ; "DIANA_MAP_KIND_TO_VCI_OP"
05dd 0749 | I | .STRTAB 0x0749->0x0981 ; "DIANA_ARITY_FOR_KIND_OP"
05de 075e | ^ | .STRTAB 0x075e->0x098d ; "DIANA_ALLOCATE_TREE_NODE_OP"
05df 0777 | w | .STRTAB 0x0777->0x099a ; "DIANA_PUT_NODE_ON_SEQ_TYPE_OP"
05e0 0792 | | .STRTAB 0x0792->0x09a9 ; "DIANA_SEQ_TYPE_GET_HEAD_OP"
05e1 07aa | | .STRTAB 0x07aa->0x09b6 ; "DIANA_FIND_PERMANENT_ATTRIBUTE_OP"
05e2 07c9 | | .STRTAB 0x07c9->0x09c6 ; "DIANA_SPARE0_OP"
05e3 07d6 | | .STRTAB 0x07d6->0x09ce ; "DIANA_SPARE1_OP"
05e4 07e3 | | .STRTAB 0x07e3->0x09d5 ; "DIANA_SPARE2_OP"
05e5 07f0 | | .STRTAB 0x07f0->0x09dd ; "ADAPTIVE_BALANCED_TREE_LOOKUP_OP"
05e6 080e | | .STRTAB 0x080e->0x09ed ; "ELABORATE_OP"
05e7 0818 | | .STRTAB 0x0818->0x09f3 ; "CHECK_ELABORATED_OP"
05e8 0829 | ) | .STRTAB 0x0829->0x09fc ; "AUGMENT_IMPORTS_OP"
05e9 0839 | 9 | .STRTAB 0x0839->0x0a05 ; "ACTIVATE_OP"
05ea 0842 | B | .STRTAB 0x0842->0x0a0b ; "ABORT_OP"
05eb 0848 | H | .STRTAB 0x0848->0x0a0f ; "ABORT_MULTIPLE_OP"
05ec 0857 | W | .STRTAB 0x0857->0x0a17 ; "RENDEZVOUS_OP"
05ed 0862 | b | .STRTAB 0x0862->0x0a1e ; "COUNT_OP"
05ee 0868 | h | .STRTAB 0x0868->0x0a22 ; "IS_CALLABLE_OP"
05ef 0874 | t | .STRTAB 0x0874->0x0a29 ; "IS_TERMINATED_OP"
05f0 0882 | | .STRTAB 0x0882->0x0a31 ; "TIMED_DURATION_WRITE_OP"
05f1 0897 | | .STRTAB 0x0897->0x0a3c ; "TERMINATE_GUARD_WRITE_OP"
05f2 08ad | | .STRTAB 0x08ad->0x0a48 ; "TIMED_GUARD_WRITE_OP"
05f3 08bf | | .STRTAB 0x08bf->0x0a52 ; "LENGTH_OP"
05f4 08c6 | | .STRTAB 0x08c6->0x0a57 ; "STRUCTURE_WRITE_OP"
05f5 08d6 | | .STRTAB 0x08d6->0x0a60 ; "STRUCTURE_CLEAR_OP"
05f6 08e6 | | .STRTAB 0x08e6->0x0a69 ; "SLICE_READ_OP"
05f7 08f1 | | .STRTAB 0x08f1->0x0a6f ; "SLICE_WRITE_OP"
05f8 08fd | | .STRTAB 0x08fd->0x0a76 ; "SLICE_REFERENCE_OP"
05f9 090d | | .STRTAB 0x090d->0x0a7f ; "CATENATE_OP"
05fa 0916 | | .STRTAB 0x0916->0x0a85 ; "APPEND_OP"
05fb 091d | | .STRTAB 0x091d->0x0a89 ; "PREPEND_OP"
05fc 0925 | % | .STRTAB 0x0925->0x0a8e ; "SUBARRAY_OP"
05fd 092e | . | .STRTAB 0x092e->0x0a94 ; "COMPONENT_OFFSET_OP"
05fe 093f | ? | .STRTAB 0x093f->0x0a9d ; "IS_CONSTRAINED_OP"
05ff 094e | N | .STRTAB 0x094e->0x0aa6 ; "IS_CONSTRAINED_OBJECT_OP"
0600 0964 | d | .STRTAB 0x0964->0x0ab2 ; "MAKE_CONSTRAINED_OP"
0601 0975 | u | .STRTAB 0x0975->0x0abb ; "INDIRECTS_APPENDED_OP"
0602 0988 | | .STRTAB 0x0988->0x0ac6 ; "STRUCTURE_QUERY_OP"
0603 0998 | | .STRTAB 0x0998->0x0acf ; "REFERENCE_MAKES_COPY_OP"
0604 09ad | | .STRTAB 0x09ad->0x0ada ; "READ_VARIANT_OP"
0605 09ba | | .STRTAB 0x09ba->0x0ae2 ; "READ_DISCRIMINANT_CONSTRAINT_OP"
0606 09d7 | | .STRTAB 0x09d7->0x0af1 ; "FIELD_READ_OP"
0607 09e2 | | .STRTAB 0x09e2->0x0af8 ; "FIELD_WRITE_OP"
0608 09ee | | .STRTAB 0x09ee->0x0aff ; "FIELD_REFERENCE_OP"
0609 09fe | | .STRTAB 0x09fe->0x0b08 ; "FIELD_APPEND_OP"
060a 0a0b | | .STRTAB 0x0a0b->0x0b0f ; "FIELD_TYPE_OP"
060b 0a16 | | .STRTAB 0x0a16->0x0b16 ; "FIELD_CONSTRAIN_OP"
060c 0a26 | & | .STRTAB 0x0a26->0x0b1f ; "SET_BOUNDS_OP"
060d 0a31 | 1 | .STRTAB 0x0a31->0x0b25 ; "SET_VARIANT_OP"
060e 0a3d | = | .STRTAB 0x0a3d->0x0b2c ; "FIELD_EXECUTE_OP"
060f 0a4b | K | .STRTAB 0x0a4b->0x0b34 ; "ENTRY_CALL_OP"
0610 0a56 | V | .STRTAB 0x0a56->0x0b3b ; "CONDITIONAL_CALL_OP"
0611 0a67 | g | .STRTAB 0x0a67->0x0b44 ; "TIMED_CALL_OP"
0612 0a72 | r | .STRTAB 0x0a72->0x0b4b ; "FAMILY_CALL_OP"
0613 0a7e | ~ | .STRTAB 0x0a7e->0x0b52 ; "FAMILY_TIMED_OP"
0614 0a8b | | .STRTAB 0x0a8b->0x0b59 ; "FAMILY_CONDITIONAL_OP"
0615 0a9e | | .STRTAB 0x0a9e->0x0b64 ; "GUARD_WRITE_OP"
0616 0aaa | | .STRTAB 0x0aaa->0x0b6b ; "MEMBER_WRITE_OP"
0617 0ab7 | | .STRTAB 0x0ab7->0x0b72 ; "WRITE_UNCHECKED_OP"
0618 0ac7 | | .STRTAB 0x0ac7->0x0b7b ; "FIELD_READ_DYNAMIC_OP"
0619 0ada | | .STRTAB 0x0ada->0x0b86 ; "FIELD_WRITE_DYNAMIC_OP"
061a 0aee | | .STRTAB 0x0aee->0x0b91 ; "FIELD_TYPE_DYNAMIC_OP"
061b 0b01 | | .STRTAB 0x0b01->0x0b9b ; "FIELD_EXECUTE_DYNAMIC_OP"
061c 0b17 | | .STRTAB 0x0b17->0x0ba7 ; "FIELD_REFERENCE_DYNAMIC_OP"
061d 0b2f | / | .STRTAB 0x0b2f->0x0bb4 ; "REFERENCE_LEX_1_OP"
061e 0b3f | ? | .STRTAB 0x0b3f->0x0bbd ; "CONVERT_OP"
061f 0b47 | G | .STRTAB 0x0b47->0x0bc2 ; "CONVERT_UNCHECKED_OP"
0620 0b59 | Y | .STRTAB 0x0b59->0x0bcc ; "CONVERT_TO_FORMAL_OP"
0621 0b6b | k | .STRTAB 0x0b6b->0x0bd6 ; "CHECK_IN_TYPE_OP"
0622 0b79 | y | .STRTAB 0x0b79->0x0bde ; "CHECK_IN_FORMAL_TYPE_OP"
0623 0b8e | | .STRTAB 0x0b8e->0x0bea ; "CHECK_IN_INTEGER_OP"
0624 0b9f | | .STRTAB 0x0b9f->0x0bf3 ; "IN_TYPE_OP"
0625 0ba7 | | .STRTAB 0x0ba7->0x0bf8 ; "NOT_IN_TYPE_OP"
0626 0bb3 | | .STRTAB 0x0bb3->0x0bff ; "ADDRESS_OP"
0627 0bbb | | .STRTAB 0x0bbb->0x0c04 ; "SIZE_OP"
0628 0bc0 | | .STRTAB 0x0bc0->0x0c08 ; "ADDRESS_OF_TYPE_OP"
0629 0bd0 | | .STRTAB 0x0bd0->0x0c11 ; "MAKE_ROOT_TYPE_OP"
062a 0bdf | | .STRTAB 0x0bdf->0x0c19 ; "SET_CONSTRAINT_OP"
062b 0bee | | .STRTAB 0x0bee->0x0c22 ; "IS_VALUE_OP"
062c 0bf7 | | .STRTAB 0x0bf7->0x0c27 ; "IS_SCALAR_OP"
062d 0c01 | | .STRTAB 0x0c01->0x0c2d ; "IS_DEFAULT_OP"
062e 0c0c | | .STRTAB 0x0c0c->0x0c34 ; "MAKE_VISIBLE_OP"
062f 0c19 | | .STRTAB 0x0c19->0x0c3b ; "MAKE_ALIGNED_OP"
0630 0c26 | & | .STRTAB 0x0c26->0x0c43 ; "RUN_UTILITY_OP"
0631 0c32 | 2 | .STRTAB 0x0c32->0x0c4a ; "CHANGE_UTILITY_OP"
0632 0c41 | A | .STRTAB 0x0c41->0x0c52 ; "RUN_INITIALIZATION_UTILITY_OP"
0633 0c5c | \ | .STRTAB 0x0c5c->0x0c61 ; "HAS_DEFAULT_INITIALIZATION_OP"
0634 0c77 | w | .STRTAB 0x0c77->0x0c6f ; "HAS_REPEATED_INITIALIZATION_OP"
0635 0c93 | | .STRTAB 0x0c93->0x0c7e ; "IS_INITIALIZATION_REPEATED_OP"
0636 0cae | | .STRTAB 0x0cae->0x0c8d ; "RAISE_OP"
0637 0cb4 | | .STRTAB 0x0cb4->0x0c91 ; "RERAISE_OP"
0638 0cbc | | .STRTAB 0x0cbc->0x0c96 ; "GET_NAME_OP"
0639 0cc5 | | .STRTAB 0x0cc5->0x0c9b ; "IS_CONSTRAINT_ERROR_OP"
063a 0cd9 | | .STRTAB 0x0cd9->0x0ca6 ; "IS_NUMERIC_ERROR_OP"
063b 0cea | | .STRTAB 0x0cea->0x0cb0 ; "IS_PROGRAM_ERROR_OP"
063c 0cfb | | .STRTAB 0x0cfb->0x0cb9 ; "IS_TASKING_ERROR_OP"
063d 0d0c | | .STRTAB 0x0d0c->0x0cc3 ; "IS_STORAGE_ERROR_OP"
063e 0d1d | | .STRTAB 0x0d1d->0x0ccc ; "IS_INSTRUCTION_ERROR_OP"
063f 0d32 | 2 | .STRTAB 0x0d32->0x0cd8 ; "INSTRUCTION_READ_OP"
0640 0d43 | C | .STRTAB 0x0d43->0x0ce1 ; "SPARE14_OP"
0641 0d4b | K | .STRTAB 0x0d4b->0x0ce6 ; "SPARE15_OP"
0642 0d53 | S | .STRTAB 0x0d53->0x0ceb ; "SPARE16_OP"
0643 0d5b | [ | .STRTAB 0x0d5b->0x0cf0 ; "SPARE17_OP"
0644 0d63 | c | .STRTAB 0x0d63->0x0cf5 ; "SPARE18_OP"
0645 0d6b | k | .STRTAB 0x0d6b->0x0cfa ; "SPARE19_OP"
0646 0d73 | s | .STRTAB 0x0d73->0x0cff ; "SPARE20_OP"
0647 0d7b | { | .STRTAB 0x0d7b->0x0d04 ; "SPARE21_OP"
0648 0d83 | | .STRTAB 0x0d83->0x0d09 ; "SPARE22_OP"
0649 0d8b | | .STRTAB 0x0d8b->0x0d0e ; "SPARE23_OP"
064a 0d93 | | .STRTAB 0x0d93->0x0d13 ; "SPARE24_OP"
064b 0d9b | | .STRTAB 0x0d9b->0x0d18 ; "SPARE25_OP"
064c 0da3 | | .STRTAB 0x0da3->0x0d1d ; "DEFINED"
064d 0da8 | | .STRTAB 0x0da8->0x0d21 ; "CONSTRAINED"
064e 0db1 | | .STRTAB 0x0db1->0x0d26 ; "INCOMPLETE"
064f 0db9 | | .STRTAB 0x0db9->0x0d2b ; "DEFINED_INCOMPLETE"
0650 0dc9 | | .STRTAB 0x0dc9->0x0d34 ; "CONSTRAINED_INCOMPLETE"
0651 0ddd | | .STRTAB 0x0ddd->0x0d3f ; "BY_DEFINING"
0652 0de6 | | .STRTAB 0x0de6->0x0d45 ; "BY_RENAMING"
0653 0def | | .STRTAB 0x0def->0x0d4a ; "BY_CONSTRAINING"
0654 0dfc | | .STRTAB 0x0dfc->0x0d52 ; "BY_CONSTRAINING_INCOMPLETE"
0655 0e14 | | .STRTAB 0x0e14->0x0d5f ; "BY_COMPLETING_CONSTRAINT"
0656 0e2a | * | .STRTAB 0x0e2a->0x0d6b ; "BY_COMPONENT_COMPLETION"
0657 0e3f | ? | .STRTAB 0x0e3f->0x0d76 ; "FOR_CALL"
0658 0e45 | E | .STRTAB 0x0e45->0x0d7a ; "FOR_OUTER_CALL"
0659 0e51 | Q | .STRTAB 0x0e51->0x0d81 ; "FOR_ACCEPT"
065a 0e59 | Y | .STRTAB 0x0e59->0x0d86 ; "NULL_SUBPROGRAM"
065b 0e66 | f | .STRTAB 0x0e66->0x0d8e ; "FIXED"
065c 0e69 | i | .STRTAB 0x0e69->0x0d90 ; "VARIANT"
065d 0e6e | n | .STRTAB 0x0e6e->0x0d94 ; "DIRECT"
065e 0e72 | r | .STRTAB 0x0e72->0x0d97 ; "INDIRECT"
065f 0e78 | x | .STRTAB 0x0e78->0x0d9b ; "IS_LITERAL"
0660 0e80 | | .STRTAB 0x0e80->0x0da0 ; "IS_LOCATION"
0661 0e89 | | .STRTAB 0x0e89->0x0da5 ; "ILLEGAL"
0662 0e8e | | .STRTAB 0x0e8e->0x0da9 ; "IDLE"
0663 0e90 | | .STRTAB 0x0e90->0x0dab ; "ELABORATE_SUBPROGRAM"
0664 0ea2 | | .STRTAB 0x0ea2->0x0db5 ; "CHECK_SUBPROGRAM_ELABORATED"
0665 0ebb | | .STRTAB 0x0ebb->0x0dc2 ; "ACCEPT_ACTIVATION"
0666 0eca | | .STRTAB 0x0eca->0x0dcb ; "ACTIVATE_TASKS"
0667 0ed6 | | .STRTAB 0x0ed6->0x0dd2 ; "ACTIVATE_HEAP_TASKS"
0668 0ee7 | | .STRTAB 0x0ee7->0x0ddb ; "SIGNAL_ACTIVATED"
0669 0ef5 | | .STRTAB 0x0ef5->0x0de3 ; "SIGNAL_COMPLETION"
066a 0f04 | | .STRTAB 0x0f04->0x0dec ; "PROPAGATE_ABORT"
066b 0f11 | | .STRTAB 0x0f11->0x0df3 ; "SET_PRIORITY"
066c 0f1b | | .STRTAB 0x0f1b->0x0df9 ; "INCREASE_PRIORITY"
066d 0f2a | * | .STRTAB 0x0f2a->0x0e02 ; "GET_PRIORITY"
066e 0f34 | 4 | .STRTAB 0x0f34->0x0e08 ; "INITIATE_DELAY"
066f 0f40 | @ | .STRTAB 0x0f40->0x0e0f ; "EXIT_NULLARY_FUNCTION"
0670 0f53 | S | .STRTAB 0x0f53->0x0e19 ; "SET_BLOCK_START"
0671 0f60 | ` | .STRTAB 0x0f60->0x0e21 ; "MAKE_DEFAULT"
0672 0f6a | j | .STRTAB 0x0f6a->0x0e27 ; "MAKE_SELF"
0673 0f71 | q | .STRTAB 0x0f71->0x0e2b ; "MAKE_SCOPE"
0674 0f79 | y | .STRTAB 0x0f79->0x0e30 ; "MAKE_PARENT"
0675 0f82 | | .STRTAB 0x0f82->0x0e36 ; "NAME_PARTNER"
0676 0f8c | | .STRTAB 0x0f8c->0x0e3c ; "SWAP_CONTROL"
0677 0f96 | | .STRTAB 0x0f96->0x0e42 ; "MARK_AUXILIARY"
0678 0fa2 | | .STRTAB 0x0fa2->0x0e49 ; "POP_AUXILIARY"
0679 0fad | | .STRTAB 0x0fad->0x0e4f ; "POP_AUXILIARY_LOOP"
067a 0fbd | | .STRTAB 0x0fbd->0x0e58 ; "POP_AUXILIARY_RANGE"
067b 0fce | | .STRTAB 0x0fce->0x0e62 ; "POP_BLOCK"
067c 0fd5 | | .STRTAB 0x0fd5->0x0e66 ; "POP_BLOCK_WITH_RESULT"
067d 0fe8 | | .STRTAB 0x0fe8->0x0e71 ; "BREAK_UNCONDITIONAL"
067e 0ff9 | | .STRTAB 0x0ff9->0x0e7a ; "BREAK_OPTIONAL"
067f 1005 | | .STRTAB 0x1005->0x0e81 ; "EXIT_BREAK"
0680 100d | | .STRTAB 0x100d->0x0e86 ; "QUERY_BREAK_CAUSE"
0681 101c | | .STRTAB 0x101c->0x0e8f ; "QUERY_BREAK_ADDRESS"
0682 102d | - | .STRTAB 0x102d->0x0e98 ; "QUERY_BREAK_MASK"
0683 103b | ; | .STRTAB 0x103b->0x0ea0 ; "ALTER_BREAK_MASK"
0684 1049 | I | .STRTAB 0x1049->0x0ea8 ; "QUERY_FRAME"
0685 1052 | R | .STRTAB 0x1052->0x0eae ; "ESTABLISH_FRAME"
0686 105f | _ | .STRTAB 0x105f->0x0eb5 ; "LOOP_INCREASING_EXTENDED"
0687 1075 | u | .STRTAB 0x1075->0x0ec1 ; "LOOP_DECREASING_EXTENDED"
0688 108b | | .STRTAB 0x108b->0x0ecd ; "PUSH_DISCRETE_EXTENDED"
0689 109f | | .STRTAB 0x109f->0x0ed8 ; "PUSH_FLOAT_EXTENDED"
068a 10b0 | | .STRTAB 0x10b0->0x0ee2 ; "PUSH_STRUCTURE_EXTENDED"
068b 10c5 | | .STRTAB 0x10c5->0x0eed ; "PUSH_STRING_EXTENDED"
068c 10d7 | | .STRTAB 0x10d7->0x0ef7 ; "PUSH_STRING_EXTENDED_INDEXED"
068d 10f1 | | .STRTAB 0x10f1->0x0f05 ; "STORE_STRING_EXTENDED"
068e 1104 | | .STRTAB 0x1104->0x0f10 ; "JUMP_EXTENDED"
068f 110f | | .STRTAB 0x110f->0x0f16 ; "JUMP_ZERO_EXTENDED"
0690 111f | | .STRTAB 0x111f->0x0f1f ; "JUMP_NONZERO_EXTENDED"
0691 1132 | 2 | .STRTAB 0x1132->0x0f2a ; "JUMP_DYNAMIC"
0692 113c | < | .STRTAB 0x113c->0x0f30 ; "JUMP_ZERO_DYNAMIC"
0693 114b | K | .STRTAB 0x114b->0x0f38 ; "JUMP_NONZERO_DYNAMIC"
0694 115d | ] | .STRTAB 0x115d->0x0f42 ; "LOAD_DYNAMIC"
0695 1167 | g | .STRTAB 0x1167->0x0f48 ; "STORE_DYNAMIC"
0696 1172 | r | .STRTAB 0x1172->0x0f4f ; "CALL_DYNAMIC"
0697 117c | | | .STRTAB 0x117c->0x0f55 ; "REFERENCE_DYNAMIC"
0698 118b | | .STRTAB 0x118b->0x0f5d ; "SPARE6_ACTION"
0699 1196 | | .STRTAB 0x1196->0x0f64 ; "SPARE7_ACTION"
069a 11a1 | | .STRTAB 0x11a1->0x0f6a ; "SPARE8_ACTION"
069b 11ac | | .STRTAB 0x11ac->0x0f71 ; "SPARE9_ACTION"
069c 11b7 | | .STRTAB 0x11b7->0x0f77 ; "SPARE10_ACTION"
069d 11c3 | | .STRTAB 0x11c3->0x0f7e ; "SPARE11_ACTION"
069e 11cf | | .STRTAB 0x11cf->0x0f85 ; "DECLARE_TYPE"
069f 11d9 | | .STRTAB 0x11d9->0x0f8b ; "COMPLETE_TYPE"
06a0 11e4 | | .STRTAB 0x11e4->0x0f92 ; "DECLARE_VARIABLE"
06a1 11f2 | | .STRTAB 0x11f2->0x0f9a ; "DECLARE_SUBPROGRAM"
06a2 1202 | | .STRTAB 0x1202->0x0fa3 ; "LOAD"
06a3 1204 | | .STRTAB 0x1204->0x0fa5 ; "STORE"
06a4 1207 | | .STRTAB 0x1207->0x0fa7 ; "STORE_UNCHECKED"
06a5 1214 | | .STRTAB 0x1214->0x0faf ; "REFERENCE"
06a6 121b | | .STRTAB 0x121b->0x0fb3 ; "CALL"
06a7 121d | | .STRTAB 0x121d->0x0fb5 ; "EXIT_SUBPROGRAM"
06a8 122a | * | .STRTAB 0x122a->0x0fbd ; "END_RENDEZVOUS"
06a9 1236 | 6 | .STRTAB 0x1236->0x0fc4 ; "EXECUTE"
06aa 123b | ; | .STRTAB 0x123b->0x0fc7 ; "ACTION"
06ab 123f | ? | .STRTAB 0x123f->0x0fca ; "EXECUTE_IMMEDIATE"
06ac 124e | N | .STRTAB 0x124e->0x0fd3 ; "JUMP"
06ad 1250 | P | .STRTAB 0x1250->0x0fd5 ; "JUMP_ZERO"
06ae 1257 | W | .STRTAB 0x1257->0x0fd9 ; "JUMP_NONZERO"
06af 1261 | a | .STRTAB 0x1261->0x0fdf ; "JUMP_CASE"
06b0 1268 | h | .STRTAB 0x1268->0x0fe4 ; "LOOP_INCREASING"
06b1 1275 | u | .STRTAB 0x1275->0x0feb ; "LOOP_DECREASING"
06b2 1282 | | .STRTAB 0x1282->0x0ff3 ; "SHORT_LITERAL"
06b3 128d | | .STRTAB 0x128d->0x0ff9 ; "INDIRECT_LITERAL"
06b4 129b | | .STRTAB 0x129b->0x1001 ; "POP_CONTROL"
06b5 12a4 | | .STRTAB 0x12a4->0x1007 ; "LOAD_TOP"
06b6 12aa | | .STRTAB 0x12aa->0x100b ; "STORE_TOP"
06b7 12b1 | | .STRTAB 0x12b1->0x100f ; "STORE_TOP_UNCHECKED"
06b8 12c2 | | .STRTAB 0x12c2->0x1019 ; "LOAD_ENCACHED"
06b9 12cd | | .STRTAB 0x12cd->0x101f ; "EXTENSION"
06ba 12d4 | | .STRTAB 0x12d4->0x1024 ; "LITERAL_VALUE"
06bb 12df | | .STRTAB 0x12df->0x102a ; "BLOCK_BEGIN"
06bc 12e8 | | .STRTAB 0x12e8->0x1030 ; "BLOCK_HANDLER"
06bd 12f3 | | .STRTAB 0x12f3->0x1036 ; "END_LOCALS"
06be 12fb | | .STREND 0x12fb->0x103b
06bf 4449 5343 |DISC| .STRTAB_STRINGS
103c 0000 0000 | | .BLANK 0000[0x4]
1040 ; --------------------------------------------------------------------------------------
1040 ; Debug Table
1040 ; --------------------------------------------------------------------------------------
1040 0003 0012 | | .CONST 0x0003,0x0012
1042 000b 10d2 | | .DEBUG 0x000b,0x10d2,0x8000,0x0000,0x0037,0x6ee4,0x0000,0x0005
104a 016b 117e | k ~| .DEBUG 0x016b,0x117e,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0017
1052 0183 1180 | | .DEBUG 0x0183,0x1180,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x002e
105a 019b 1182 | | .DEBUG 0x019b,0x1182,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x00f1
1062 01b3 1184 | | .DEBUG 0x01b3,0x1184,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0121
106a 01cb 1186 | | .DEBUG 0x01cb,0x1186,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x015c
1072 01e3 1188 | | .DEBUG 0x01e3,0x1188,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01ad
107a 01fb 118a | | .DEBUG 0x01fb,0x118a,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01b3
1082 0213 118c | | .DEBUG 0x0213,0x118c,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01c7
108a 025b 118e | [ | .DEBUG 0x025b,0x118e,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x01e6
1092 030b 1190 | | .DEBUG 0x030b,0x1190,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0220
109a 037b 1192 | { | .DEBUG 0x037b,0x1192,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x035d
10a2 03d3 1194 | | .DEBUG 0x03d3,0x1194,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x039e
10aa 040b 1196 | | .DEBUG 0x040b,0x1196,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x03cd
10b2 0423 1198 | # | .DEBUG 0x0423,0x1198,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x03d3
10ba 045b 119a | [ | .DEBUG 0x045b,0x119a,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x03f1
10c2 0473 119c | s | .DEBUG 0x0473,0x119c,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0432
10ca 048b 119e | | .DEBUG 0x048b,0x119e,0x0005,0x0000,0x0037,0x6ee4,0x0000,0x0456
10d2 ; --------------------------------------------------------------------------------------
10d2 ; Debug3 Subtable 0x0
10d2 ; --------------------------------------------------------------------------------------
10d2 0055 0000 | U | .DBG3TAB 0x0055,0x0000
10d4 000b ffff | | .CONST 0x000b,0xffff
10d6 000b fffe | | .CONST 0x000b,0xfffe
10d8 000b fffd | | .CONST 0x000b,0xfffd
10da 000b fffc | | .CONST 0x000b,0xfffc
10dc 0010 fffb | | .CONST 0x0010,0xfffb
10de 0015 fffa | | .CONST 0x0015,0xfffa
10e0 001a fff9 | | .CONST 0x001a,0xfff9
10e2 0024 fff8 | $ | .CONST 0x0024,0xfff8
10e4 0029 fff7 | ) | .CONST 0x0029,0xfff7
10e6 0035 fff6 | 5 | .CONST 0x0035,0xfff6
10e8 003a fff5 | : | .CONST 0x003a,0xfff5
10ea 0040 fff4 | @ | .CONST 0x0040,0xfff4
10ec 0045 fff3 | E | .CONST 0x0045,0xfff3
10ee 0045 fff2 | E | .CONST 0x0045,0xfff2
10f0 0049 fff1 | I | .CONST 0x0049,0xfff1
10f2 004d fff0 | M | .CONST 0x004d,0xfff0
10f4 004d ffef | M | .CONST 0x004d,0xffef
10f6 0052 ffee | R | .CONST 0x0052,0xffee
10f8 0057 ffed | W | .CONST 0x0057,0xffed
10fa 005b ffec | [ | .CONST 0x005b,0xffec
10fc 005f ffeb | _ | .CONST 0x005f,0xffeb
10fe 006b ffea | k | .CONST 0x006b,0xffea
1100 0080 ffe9 | | .CONST 0x0080,0xffe9
1102 008e ffe8 | | .CONST 0x008e,0xffe8
1104 0092 ffe7 | | .CONST 0x0092,0xffe7
1106 0096 ffe6 | | .CONST 0x0096,0xffe6
1108 009a ffe5 | | .CONST 0x009a,0xffe5
110a 009e ffe4 | | .CONST 0x009e,0xffe4
110c 00a3 ffe3 | | .CONST 0x00a3,0xffe3
110e 00a7 ffe2 | | .CONST 0x00a7,0xffe2
1110 00ab ffe1 | | .CONST 0x00ab,0xffe1
1112 00af ffe0 | | .CONST 0x00af,0xffe0
1114 00b3 ffdf | | .CONST 0x00b3,0xffdf
1116 00b7 ffde | | .CONST 0x00b7,0xffde
1118 00bb ffdd | | .CONST 0x00bb,0xffdd
111a 00bf ffdc | | .CONST 0x00bf,0xffdc
111c 00c3 ffdb | | .CONST 0x00c3,0xffdb
111e 00c5 ffda | | .CONST 0x00c5,0xffda
1120 00c9 ffd9 | | .CONST 0x00c9,0xffd9
1122 00cd ffd8 | | .CONST 0x00cd,0xffd8
1124 00d2 ffd7 | | .CONST 0x00d2,0xffd7
1126 00d6 ffd6 | | .CONST 0x00d6,0xffd6
1128 00dd ffd5 | | .CONST 0x00dd,0xffd5
112a 00e2 ffd4 | | .CONST 0x00e2,0xffd4
112c 00f1 ffd3 | | .CONST 0x00f1,0xffd3
112e 00f5 ffd2 | | .CONST 0x00f5,0xffd2
1130 00f9 ffd1 | | .CONST 0x00f9,0xffd1
1132 0106 ffd0 | | .CONST 0x0106,0xffd0
1134 010a ffcf | | .CONST 0x010a,0xffcf
1136 010f ffce | | .CONST 0x010f,0xffce
1138 011c ffcd | | .CONST 0x011c,0xffcd
113a 0121 ffcc | ! | .CONST 0x0121,0xffcc
113c 0126 ffcb | & | .CONST 0x0126,0xffcb
113e 0164 ffca | d | .CONST 0x0164,0xffca
1140 0164 ffc9 | d | .CONST 0x0164,0xffc9
1142 0164 ffc8 | d | .CONST 0x0164,0xffc8
1144 0164 ffc7 | d | .CONST 0x0164,0xffc7
1146 0164 ffc6 | d | .CONST 0x0164,0xffc6
1148 0164 ffc5 | d | .CONST 0x0164,0xffc5
114a 0164 ffc4 | d | .CONST 0x0164,0xffc4
114c 0164 ffc3 | d | .CONST 0x0164,0xffc3
114e 0164 ffc2 | d | .CONST 0x0164,0xffc2
1150 0164 ffc1 | d | .CONST 0x0164,0xffc1
1152 0164 ffc0 | d | .CONST 0x0164,0xffc0
1154 0164 ffbf | d | .CONST 0x0164,0xffbf
1156 0164 ffbe | d | .CONST 0x0164,0xffbe
1158 0164 ffbd | d | .CONST 0x0164,0xffbd
115a 0164 ffbc | d | .CONST 0x0164,0xffbc
115c 0164 ffbb | d | .CONST 0x0164,0xffbb
115e 0164 ffba | d | .CONST 0x0164,0xffba
1160 0164 ffb9 | d | .CONST 0x0164,0xffb9
1162 0164 ffb8 | d | .CONST 0x0164,0xffb8
1164 0164 ffb7 | d | .CONST 0x0164,0xffb7
1166 0164 ffb6 | d | .CONST 0x0164,0xffb6
1168 0164 ffb5 | d | .CONST 0x0164,0xffb5
116a 0164 ffb4 | d | .CONST 0x0164,0xffb4
116c 0164 ffb3 | d | .CONST 0x0164,0xffb3
116e 0164 ffb2 | d | .CONST 0x0164,0xffb2
1170 0164 ffb1 | d | .CONST 0x0164,0xffb1
1172 0164 ffb0 | d | .CONST 0x0164,0xffb0
1174 0164 ffaf | d | .CONST 0x0164,0xffaf
1176 0164 ffae | d | .CONST 0x0164,0xffae
1178 0164 ffad | d | .CONST 0x0164,0xffad
117a 0164 ffac | d | .CONST 0x0164,0xffac
117c 0164 ffab | d | .CONST 0x0164,0xffab
117e ; --------------------------------------------------------------------------------------
117e ; Debug3 Subtable 0x1
117e ; --------------------------------------------------------------------------------------
117e 0000 0000 | | .DBG3TAB 0x0000,0x0000
1180 ; --------------------------------------------------------------------------------------
1180 ; Debug3 Subtable 0x2
1180 ; --------------------------------------------------------------------------------------
1180 0000 0000 | | .DBG3TAB 0x0000,0x0000
1182 ; --------------------------------------------------------------------------------------
1182 ; Debug3 Subtable 0x3
1182 ; --------------------------------------------------------------------------------------
1182 0000 0000 | | .DBG3TAB 0x0000,0x0000
1184 ; --------------------------------------------------------------------------------------
1184 ; Debug3 Subtable 0x4
1184 ; --------------------------------------------------------------------------------------
1184 0000 0000 | | .DBG3TAB 0x0000,0x0000
1186 ; --------------------------------------------------------------------------------------
1186 ; Debug3 Subtable 0x5
1186 ; --------------------------------------------------------------------------------------
1186 0000 0000 | | .DBG3TAB 0x0000,0x0000
1188 ; --------------------------------------------------------------------------------------
1188 ; Debug3 Subtable 0x6
1188 ; --------------------------------------------------------------------------------------
1188 0000 0000 | | .DBG3TAB 0x0000,0x0000
118a ; --------------------------------------------------------------------------------------
118a ; Debug3 Subtable 0x7
118a ; --------------------------------------------------------------------------------------
118a 0000 0000 | | .DBG3TAB 0x0000,0x0000
118c ; --------------------------------------------------------------------------------------
118c ; Debug3 Subtable 0x8
118c ; --------------------------------------------------------------------------------------
118c 0000 0000 | | .DBG3TAB 0x0000,0x0000
118e ; --------------------------------------------------------------------------------------
118e ; Debug3 Subtable 0x9
118e ; --------------------------------------------------------------------------------------
118e 0000 0000 | | .DBG3TAB 0x0000,0x0000
1190 ; --------------------------------------------------------------------------------------
1190 ; Debug3 Subtable 0xa
1190 ; --------------------------------------------------------------------------------------
1190 0000 0000 | | .DBG3TAB 0x0000,0x0000
1192 ; --------------------------------------------------------------------------------------
1192 ; Debug3 Subtable 0xb
1192 ; --------------------------------------------------------------------------------------
1192 0000 0000 | | .DBG3TAB 0x0000,0x0000
1194 ; --------------------------------------------------------------------------------------
1194 ; Debug3 Subtable 0xc
1194 ; --------------------------------------------------------------------------------------
1194 0000 0000 | | .DBG3TAB 0x0000,0x0000
1196 ; --------------------------------------------------------------------------------------
1196 ; Debug3 Subtable 0xd
1196 ; --------------------------------------------------------------------------------------
1196 0000 0000 | | .DBG3TAB 0x0000,0x0000
1198 ; --------------------------------------------------------------------------------------
1198 ; Debug3 Subtable 0xe
1198 ; --------------------------------------------------------------------------------------
1198 0000 0000 | | .DBG3TAB 0x0000,0x0000
119a ; --------------------------------------------------------------------------------------
119a ; Debug3 Subtable 0xf
119a ; --------------------------------------------------------------------------------------
119a 0000 0000 | | .DBG3TAB 0x0000,0x0000
119c ; --------------------------------------------------------------------------------------
119c ; Debug3 Subtable 0x10
119c ; --------------------------------------------------------------------------------------
119c 0000 0000 | | .DBG3TAB 0x0000,0x0000
119e ; --------------------------------------------------------------------------------------
119e ; Debug3 Subtable 0x11
119e ; --------------------------------------------------------------------------------------
119e 0000 0000 | | .DBG3TAB 0x0000,0x0000
11a0 0000 0000 | | .BLANK 0000[0x60]