|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0498 | | .CONST 0x0498 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0172 | r | .CONST 0x0172 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0036 | 6 | .CONST 0x0036 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x050a,0x8000,0x0000,0x0057,0xb515,0x0000,0x0011
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000d e002 | | Load 0x0,0x2
000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000f e002 | | Load 0x0,0x2
0010 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0011 e003 | | Load 0x0,0x3
0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0013 e004 | | Load 0x0,0x4
0014 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0015 e005 | | Load 0x0,0x5
0016 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0017 029f 017b | {| Declare_Subprogram For_Call,INIT_0178
0019 4806 |H | Short_Literal 0x6
001a 032e | . | Declare_Type Record,Defined,Visible
001b 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198 ; Debug Table 0x0.0x1 = 0x1b,0xfffe
001d 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8 ; Debug Table 0x0.0x2 = 0x1d,0xfffd
001f 029a 0303 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0300 ; Debug Table 0x0.0x3 = 0x1f,0xfffc
0021 029a 0393 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0390 ; Debug Table 0x0.0x4 = 0x21,0xfffb
0023 029a 03bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b8 ; Debug Table 0x0.0x5 = 0x23,0xfffa
0025 00bf | | Action Accept_Activation
0026 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0026,0x0518,0x8000,0x0000,0x0057,0xb6a5,0x0000,0x001b
; Debug Table 0x1.0x0 = 0x26,0xffff
0027 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x27,0xfffe
0028 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x28,0xfffd
0029 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x3 = 0x29,0xfffc
002a 0266 | f | Execute Discrete,Bounds
002b e005 | | Load 0x0,0x5
002c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
002d 02a0 | | Declare_Subprogram Null_Subprogram
002e 4801 |H | Short_Literal 0x1
002f 035d | ] | Declare_Type Array,Defined
0030 00d8 | | Load_Top At_Offset_0
0031 0337 | 7 | Declare_Variable Array
0032 00d8 | | Load_Top At_Offset_0
0033 0337 | 7 | Declare_Variable Array
0034 4800 |H | Short_Literal 0x0
0035 4800 |H | Short_Literal 0x0
0036 00da | | Load_Top At_Offset_2
0037 01d6 | | Execute Vector,Field_Write
0038 4802 |H | Short_Literal 0x2
0039 4801 |H | Short_Literal 0x1
003a 00da | | Load_Top At_Offset_2
003b 01d6 | | Execute Vector,Field_Write
003c 00d9 | | Load_Top At_Offset_1
003d 01d4 | | Execute Vector,Structure_Write
003e 0092 0482 | | Action Push_String_Extended,0x482 ; "tHIS iS a dICTIONARY fILE"
; Debug Table 0x1.0x4 = 0x3e,0xfffb
0040 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x40,0xfffa
0041 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x6 = 0x41,0xfff9
0042 01da | | Execute Vector,Bounds
0043 00e9 | | Load_Encached String_Cache
0044 035b | [ | Declare_Type Array,Constrained
0045 00e3 | | Load_Encached Natural_Cache
0046 e006 | | Load 0x0,0x6
0047 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0048 e006 | | Load 0x0,0x6
0049 1b17 | | Execute Package,Field_Read,Field_Number 0x17
004a e006 | | Load 0x0,0x6
004b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
004c e006 | | Load 0x0,0x6
004d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
004e 00e2 | | Load_Encached Integer_Cache
004f 00e2 | | Load_Encached Integer_Cache
0050 029f 03fb | | Declare_Subprogram For_Call,INIT_03f8
0052 4808 |H | Short_Literal 0x8
0053 032d | - | Declare_Type Record,Defined
0054 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x7 = 0x54,0xfff8
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 03ad | | Declare_Type Heap_Access,Defined
0057 0007 | | Action Break_Optional ; Debug Table 0x1.0x8 = 0x57,0xfff7
0058 6333 |c3 | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5} ; Debug Table 0x1.0x9 = 0x58,0xfff6
0059 48b4 |H | Short_Literal 0xb4
005a 00db | | Load_Top At_Offset_3
005b e005 | | Load 0x0,0x5
005c 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
005d 0387 | | Declare_Variable Package
005e 00d8 | | Load_Top At_Offset_0
005f 020f | | Execute Module,Activate
0060 632b |c+ | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5} ; Debug Table 0x1.0xa = 0x60,0xfff5
0061 48bc |H | Short_Literal 0xbc
0062 e216 | | Load 0x1,0x16
0063 e217 | | Load 0x1,0x17
0064 e005 | | Load 0x0,0x5
0065 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0066 0387 | | Declare_Variable Package
0067 00d8 | | Load_Top At_Offset_0
0068 020f | | Execute Module,Activate
0069 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xb = 0x69,0xfff4
006a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
006b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006c 0266 | f | Execute Discrete,Bounds
006d e007 | | Load 0x0,0x7
006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006f 02a0 | | Declare_Subprogram Null_Subprogram
0070 4801 |H | Short_Literal 0x1
0071 035d | ] | Declare_Type Array,Defined
0072 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xc = 0x72,0xfff3
0073 0337 | 7 | Declare_Variable Array
0074 00d9 | | Load_Top At_Offset_1
0075 0337 | 7 | Declare_Variable Array
0076 4800 |H | Short_Literal 0x0
0077 4800 |H | Short_Literal 0x0
0078 00da | | Load_Top At_Offset_2
0079 01d6 | | Execute Vector,Field_Write
007a 4821 |H! | Short_Literal 0x21
007b 4801 |H | Short_Literal 0x1
007c 00da | | Load_Top At_Offset_2
007d 01d6 | | Execute Vector,Field_Write
007e 4822 |H" | Short_Literal 0x22
007f 4802 |H | Short_Literal 0x2
0080 00da | | Load_Top At_Offset_2
0081 01d6 | | Execute Vector,Field_Write
0082 4823 |H# | Short_Literal 0x23
0083 4803 |H | Short_Literal 0x3
0084 00da | | Load_Top At_Offset_2
0085 01d6 | | Execute Vector,Field_Write
0086 4814 |H | Short_Literal 0x14
0087 4804 |H | Short_Literal 0x4
0088 00da | | Load_Top At_Offset_2
0089 01d6 | | Execute Vector,Field_Write
008a 481c |H | Short_Literal 0x1c
008b 4805 |H | Short_Literal 0x5
008c 00da | | Load_Top At_Offset_2
008d 01d6 | | Execute Vector,Field_Write
008e 4824 |H$ | Short_Literal 0x24
008f 4806 |H | Short_Literal 0x6
0090 00da | | Load_Top At_Offset_2
0091 01d6 | | Execute Vector,Field_Write
0092 4825 |H% | Short_Literal 0x25
0093 4807 |H | Short_Literal 0x7
0094 00da | | Load_Top At_Offset_2
0095 01d6 | | Execute Vector,Field_Write
0096 4826 |H& | Short_Literal 0x26
0097 4808 |H | Short_Literal 0x8
0098 00da | | Load_Top At_Offset_2
0099 01d6 | | Execute Vector,Field_Write
009a 4827 |H' | Short_Literal 0x27
009b 4809 |H | Short_Literal 0x9
009c 00da | | Load_Top At_Offset_2
009d 01d6 | | Execute Vector,Field_Write
009e 481f |H | Short_Literal 0x1f
009f 480a |H | Short_Literal 0xa
00a0 00da | | Load_Top At_Offset_2
00a1 01d6 | | Execute Vector,Field_Write
00a2 4828 |H( | Short_Literal 0x28
00a3 480b |H | Short_Literal 0xb
00a4 00da | | Load_Top At_Offset_2
00a5 01d6 | | Execute Vector,Field_Write
00a6 4829 |H) | Short_Literal 0x29
00a7 480c |H | Short_Literal 0xc
00a8 00da | | Load_Top At_Offset_2
00a9 01d6 | | Execute Vector,Field_Write
00aa 482a |H* | Short_Literal 0x2a
00ab 480d |H | Short_Literal 0xd
00ac 00da | | Load_Top At_Offset_2
00ad 01d6 | | Execute Vector,Field_Write
00ae 482b |H+ | Short_Literal 0x2b
00af 480e |H | Short_Literal 0xe
00b0 00da | | Load_Top At_Offset_2
00b1 01d6 | | Execute Vector,Field_Write
00b2 00d9 | | Load_Top At_Offset_1
00b3 01d4 | | Execute Vector,Structure_Write
00b4 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xd = 0xb4,0xfff2
00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b6 0266 | f | Execute Discrete,Bounds
00b7 e007 | | Load 0x0,0x7
00b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b9 02a0 | | Declare_Subprogram Null_Subprogram
00ba 4801 |H | Short_Literal 0x1
00bb 035d | ] | Declare_Type Array,Defined
00bc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xe = 0xbc,0xfff1
00bd 0337 | 7 | Declare_Variable Array
00be 00d9 | | Load_Top At_Offset_1
00bf 0337 | 7 | Declare_Variable Array
00c0 4800 |H | Short_Literal 0x0
00c1 4800 |H | Short_Literal 0x0
00c2 00da | | Load_Top At_Offset_2
00c3 01d6 | | Execute Vector,Field_Write
00c4 4814 |H | Short_Literal 0x14
00c5 4801 |H | Short_Literal 0x1
00c6 00da | | Load_Top At_Offset_2
00c7 01d6 | | Execute Vector,Field_Write
00c8 4815 |H | Short_Literal 0x15
00c9 4802 |H | Short_Literal 0x2
00ca 00da | | Load_Top At_Offset_2
00cb 01d6 | | Execute Vector,Field_Write
00cc 4816 |H | Short_Literal 0x16
00cd 4803 |H | Short_Literal 0x3
00ce 00da | | Load_Top At_Offset_2
00cf 01d6 | | Execute Vector,Field_Write
00d0 4817 |H | Short_Literal 0x17
00d1 4804 |H | Short_Literal 0x4
00d2 00da | | Load_Top At_Offset_2
00d3 01d6 | | Execute Vector,Field_Write
00d4 4818 |H | Short_Literal 0x18
00d5 4805 |H | Short_Literal 0x5
00d6 00da | | Load_Top At_Offset_2
00d7 01d6 | | Execute Vector,Field_Write
00d8 4819 |H | Short_Literal 0x19
00d9 4806 |H | Short_Literal 0x6
00da 00da | | Load_Top At_Offset_2
00db 01d6 | | Execute Vector,Field_Write
00dc 482c |H, | Short_Literal 0x2c
00dd 4807 |H | Short_Literal 0x7
00de 00da | | Load_Top At_Offset_2
00df 01d6 | | Execute Vector,Field_Write
00e0 481a |H | Short_Literal 0x1a
00e1 4808 |H | Short_Literal 0x8
00e2 00da | | Load_Top At_Offset_2
00e3 01d6 | | Execute Vector,Field_Write
00e4 481b |H | Short_Literal 0x1b
00e5 4809 |H | Short_Literal 0x9
00e6 00da | | Load_Top At_Offset_2
00e7 01d6 | | Execute Vector,Field_Write
00e8 481c |H | Short_Literal 0x1c
00e9 480a |H | Short_Literal 0xa
00ea 00da | | Load_Top At_Offset_2
00eb 01d6 | | Execute Vector,Field_Write
00ec 481d |H | Short_Literal 0x1d
00ed 480b |H | Short_Literal 0xb
00ee 00da | | Load_Top At_Offset_2
00ef 01d6 | | Execute Vector,Field_Write
00f0 481e |H | Short_Literal 0x1e
00f1 480c |H | Short_Literal 0xc
00f2 00da | | Load_Top At_Offset_2
00f3 01d6 | | Execute Vector,Field_Write
00f4 481f |H | Short_Literal 0x1f
00f5 480d |H | Short_Literal 0xd
00f6 00da | | Load_Top At_Offset_2
00f7 01d6 | | Execute Vector,Field_Write
00f8 4820 |H | Short_Literal 0x20
00f9 480e |H | Short_Literal 0xe
00fa 00da | | Load_Top At_Offset_2
00fb 01d6 | | Execute Vector,Field_Write
00fc 00d9 | | Load_Top At_Offset_1
00fd 01d4 | | Execute Vector,Structure_Write
00fe 029d 0413 | | Declare_Subprogram For_Outer_Call,INIT_0410 ; Debug Table 0x1.0xf = 0xfe,0xfff0
0100 029d 041b | | Declare_Subprogram For_Outer_Call,INIT_0418 ; Debug Table 0x1.0x10 = 0x100,0xffef
0102 029d 0423 | #| Declare_Subprogram For_Outer_Call,INIT_0420 ; Debug Table 0x1.0x11 = 0x102,0xffee
0104 029d 043b | ;| Declare_Subprogram For_Outer_Call,INIT_0438 ; Debug Table 0x1.0x12 = 0x104,0xffed
0106 6285 |b | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5} ; Debug Table 0x1.0x13 = 0x106,0xffec
0107 4abc |J | Short_Literal 0x2bc
0108 e008 | | Load 0x0,0x8
0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010a e008 | | Load 0x0,0x8
010b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
010d e001 | | Load 0x0,0x1
010e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
010f 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0110 0387 | | Declare_Variable Package
0111 00d8 | | Load_Top At_Offset_0
0112 020f | | Execute Module,Activate
0113 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x14 = 0x113,0xffeb
0114 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0115 e008 | | Load 0x0,0x8
0116 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0117 027f | | Execute Discrete,Equal
0118 7002 |p | Jump_Nonzero 0x11b
0119 4887 |H | Short_Literal 0x87
011a 0257 | W | Execute Discrete,Raise
011b 029d 047b | {| Declare_Subprogram For_Outer_Call,INIT_0478 ; Debug Table 0x1.0x15 = 0x11b,0xffea
011d 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x16 = 0x11d,0xffe9
011e 00c7 | | Action Elaborate_Subprogram
011f 626c |bl | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5} ; Debug Table 0x1.0x17 = 0x11f,0xffe8
0120 4b73 |Ks | Short_Literal 0x373
0121 e216 | | Load 0x1,0x16
0122 e217 | | Load 0x1,0x17
0123 e009 | | Load 0x0,0x9
0124 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0125 0387 | | Declare_Variable Package
0126 00d8 | | Load_Top At_Offset_0
0127 020f | | Execute Module,Activate
0128 6263 |bc | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5} ; Debug Table 0x1.0x18 = 0x128,0xffe7
0129 4b7c |K| | Short_Literal 0x37c
012a e002 | | Load 0x0,0x2
012b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012c e002 | | Load 0x0,0x2
012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012e e009 | | Load 0x0,0x9
012f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0130 0387 | | Declare_Variable Package
0131 00d8 | | Load_Top At_Offset_0
0132 020f | | Execute Module,Activate
0133 6258 |bX | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5} ; Debug Table 0x1.0x19 = 0x133,0xffe6
0134 4b89 |K | Short_Literal 0x389
0135 e003 | | Load 0x0,0x3
0136 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0137 e003 | | Load 0x0,0x3
0138 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0139 e009 | | Load 0x0,0x9
013a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
013b 0387 | | Declare_Variable Package
013c 00d8 | | Load_Top At_Offset_0
013d 020f | | Execute Module,Activate
013e 624d |bM | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5} ; Debug Table 0x1.0x1a = 0x13e,0xffe5
013f 4b96 |K | Short_Literal 0x396
0140 e004 | | Load 0x0,0x4
0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0142 e004 | | Load 0x0,0x4
0143 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0144 e009 | | Load 0x0,0x9
0145 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0146 0387 | | Declare_Variable Package
0147 00d8 | | Load_Top At_Offset_0
0148 020f | | Execute Module,Activate
0149 e009 | | Load 0x0,0x9 ; Debug Table 0x1.0x1b = 0x149,0xffe4
014a 1919 | | Execute Package,Field_Reference,Field_Number 0x19
014b 00c6 | | Action Check_Subprogram_Elaborated
014c e002 | | Load 0x0,0x2
014d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014e e002 | | Load 0x0,0x2
014f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0150 623b |b; | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5}
0151 4ba3 |K | Short_Literal 0x3a3
0152 4800 |H | Short_Literal 0x0
0153 0007 | | Action Break_Optional
0154 e009 | | Load 0x0,0x9 ; Debug Table 0x1.0x1c = 0x154,0xffe3
0155 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0156 00c6 | | Action Check_Subprogram_Elaborated
0157 e003 | | Load 0x0,0x3
0158 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0159 e003 | | Load 0x0,0x3
015a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015b 6230 |b0 | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5}
015c 4bb4 |K | Short_Literal 0x3b4
015d 4800 |H | Short_Literal 0x0
015e 0007 | | Action Break_Optional
015f e009 | | Load 0x0,0x9 ; Debug Table 0x1.0x1d = 0x15f,0xffe2
0160 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0161 00c6 | | Action Check_Subprogram_Elaborated
0162 e004 | | Load 0x0,0x4
0163 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0164 e004 | | Load 0x0,0x4
0165 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0166 6225 |b% | Indirect_Literal Discrete,0x38c,{0x00000000, 0x0057b6a5}
0167 4bc5 |K | Short_Literal 0x3c5
0168 4800 |H | Short_Literal 0x0
0169 0007 | | Action Break_Optional
016a 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1e = 0x16a,0xffe1
016b 00c7 | | Action Elaborate_Subprogram
016c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x1f = 0x16c,0xffe0
016d 00c7 | | Action Elaborate_Subprogram
016e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x20 = 0x16e,0xffdf
016f 00c7 | | Action Elaborate_Subprogram
0170 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x21 = 0x170,0xffde
0171 00c7 | | Action Elaborate_Subprogram
0172 BODY_0008:
0172 00bc | | Action Signal_Activated
0173 00bb | | Action Signal_Completion
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4608 |F | Jump_Case 0x8 ; Debug Table 0x2 = .DEBUG 0x017b,0x055e,0x0005,0x0000,0x0057,0xb515,0x0000,0x0012
017c 7808 |x | Jump 0x185 ; case 0x0
017d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
017e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
017f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0180 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0181 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
0182 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
0183 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
0184 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
0185 00da | | Load_Top At_Offset_2
0186 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0187 0125 | % | Execute Any,Set_Constraint
0188 00da | | Load_Top At_Offset_2
0189 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018a 1c00 | | Execute_Immediate Run_Utility,0x0
018b 00da | | Load_Top At_Offset_2
018c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
018d 0125 | % | Execute Any,Set_Constraint
018e 00da | | Load_Top At_Offset_2
018f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0190 1c00 | | Execute_Immediate Run_Utility,0x0
0191 4302 |C | Exit_Subprogram From_Utility,0x2
0192 0000 0000 | | .BLANK 0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a6 | | .CONST 0x01a6 ; Address of begin
0199 01d7 | | .CONST 0x01d7 ; Address of exception handler
019a 0004 | | .CONST 0x0004 ; Number of locals
019b INIT_0198:
019b e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x019b,0x0560,0x0001,0x0000,0x0057,0xb515,0x0000,0x0040
; Debug Table 0x3.0x0 = 0x19b,0xffff
019c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019d 02c7 | | Declare_Variable Any
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 e007 | | Load 0x0,0x7 ; Debug Table 0x3.0x1 = 0x1a0,0xfffe
01a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a2 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
01a3 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0x1a3,0xfffd
01a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a6 BODY_0198:
01a6 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3.0x3 = 0x1a6,0x1
01a7 a5fd | | Store_Unchecked 0x2,-0x3
01a8 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x4 = 0x1a8,0x2
01a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01aa c5fe | | Store 0x2,-0x2
01ab e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x5 = 0x1ab,0x3
01ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ae 00db | | Load_Top At_Offset_3
01af 0120 | | Execute Any,Is_Value
01b0 6803 |h | Jump_Zero 0x1b4
01b1 e001 | | Load 0x0,0x1
01b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b3 7801 |x | Jump 0x1b5
01b4 00db | | Load_Top At_Offset_3
01b5 61d2 |a | Indirect_Literal Discrete,0x388,{0x00000000, 0x00004000}
01b6 e00a | | Load 0x0,0xa
01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b8 e00b | | Load 0x0,0xb
01b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ba e001 | | Load 0x0,0x1
01bb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01bd e5ff | | Load 0x2,-0x1
01be e001 | | Load 0x0,0x1
01bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c0 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01c1 c402 | | Store 0x2,0x2
01c2 0059 | Y | Store_Top Discrete,At_Offset_1
01c3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0x1c3,0x4
01c4 821e | | Call 0x1,0x1e
01c5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c6 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x7 = 0x1c6,0x5
01c7 00da | | Load_Top At_Offset_2
01c8 e007 | | Load 0x0,0x7
01c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01ca 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x8 = 0x1ca,0x6
01cb 8223 | # | Call 0x1,0x23
01cc 7005 |p | Jump_Nonzero 0x1d2
01cd 4813 |H | Short_Literal 0x13 ; Debug Table 0x3.0x9 = 0x1cd,0x7
01ce 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01cf e007 | | Load 0x0,0x7 ; Debug Table 0x3.0xa = 0x1cf,0x8
01d0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01d1 0257 | W | Execute Discrete,Raise
01d2 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xb = 0x1d2,0x9
01d3 c5fe | | Store 0x2,-0x2
01d4 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xc = 0x1d4,0xa
01d5 a5fd | | Store_Unchecked 0x2,-0x3
01d6 4502 |E | Exit_Subprogram 0x2
01d7 TRAP_0198:
01d7 e007 | | Load 0x0,0x7
01d8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01d9 010f | | Execute Exception,Equal
01da 6803 |h | Jump_Zero 0x1de
01db 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0xd = 0x1db,0xb
01dc a5fd | | Store_Unchecked 0x2,-0x3
01dd 4502 |E | Exit_Subprogram 0x2
01de 487d |H} | Short_Literal 0x7d ; Debug Table 0x3.0xe = 0x1de,0xc
01df a5fd | | Store_Unchecked 0x2,-0x3
01e0 4502 |E | Exit_Subprogram 0x2
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 0208 | | .CONST 0x0208 ; Address of begin
01e9 02ea | | .CONST 0x02ea ; Address of exception handler
01ea 000b | | .CONST 0x000b ; Number of locals
01eb INIT_01e8:
01eb e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x01eb,0x0580,0x0001,0x0000,0x0057,0xb515,0x0000,0x0054
; Debug Table 0x4.0x0 = 0x1eb,0xffff
01ec 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ed 02ff | | Declare_Variable Variant_Record
01ee 00d8 | | Load_Top At_Offset_0
01ef 1c00 | | Execute_Immediate Run_Utility,0x0
01f0 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x1 = 0x1f0,0xfffe
01f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f3 e00c | | Load 0x0,0xc ; Debug Table 0x4.0x2 = 0x1f3,0xfffd
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 02c7 | | Declare_Variable Any
01f6 00d8 | | Load_Top At_Offset_0
01f7 1c00 | | Execute_Immediate Run_Utility,0x0
01f8 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x3 = 0x1f8,0xfffc
01f9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01fa 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01fb 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x4.0x4 = 0x1fb,0xfffb
01fc e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x5 = 0x1fc,0xfffa
01fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fe e007 | | Load 0x0,0x7 ; Debug Table 0x4.0x6 = 0x1fe,0xfff9
01ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0200 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
0201 e216 | | Load 0x1,0x16 ; Debug Table 0x4.0x7 = 0x201,0xfff8
0202 0322 | " | Declare_Variable Record
0203 00d8 | | Load_Top At_Offset_0
0204 1c00 | | Execute_Immediate Run_Utility,0x0
0205 e217 | | Load 0x1,0x17 ; Debug Table 0x4.0x8 = 0x205,0xfff7
0206 0007 | | Action Break_Optional
0207 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x4.0x9 = 0x207,0xfff6
0208 BODY_01e8:
0208 487e |H~ | Short_Literal 0x7e ; Debug Table 0x4.0xa = 0x208,0x1
0209 a5fc | | Store_Unchecked 0x2,-0x4
020a e001 | | Load 0x0,0x1 ; Debug Table 0x4.0xb = 0x20a,0x2
020b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020c 00f1 | | Load_Encached Diana_Temp_Seq
020d e001 | | Load 0x0,0x1
020e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
020f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0210 e404 | | Load 0x2,0x4
0211 0120 | | Execute Any,Is_Value
0212 6803 |h | Jump_Zero 0x216
0213 e00c | | Load 0x0,0xc
0214 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0215 7801 |x | Jump 0x217
0216 e404 | | Load 0x2,0x4
0217 e402 | | Load 0x2,0x2
0218 616f |ao | Indirect_Literal Discrete,0x388,{0x00000000, 0x00004000}
0219 e5fe | | Load 0x2,-0x2
021a 4800 |H | Short_Literal 0x0
021b e001 | | Load 0x0,0x1
021c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
021d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021e e001 | | Load 0x0,0x1
021f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0220 6163 |ac | Indirect_Literal Discrete,0x384,{0x00000000, 0x7fffffff}
0221 4ffc |O | Short_Literal 0x7fc
0222 4ffd |O | Short_Literal 0x7fd
0223 e00b | | Load 0x0,0xb
0224 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0225 e001 | | Load 0x0,0x1
0226 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0227 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0228 e008 | | Load 0x0,0x8
0229 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022a e008 | | Load 0x0,0x8
022b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022c e5ff | | Load 0x2,-0x1
022d e001 | | Load 0x0,0x1
022e 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
022f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0230 00d1 | | Pop_Control Pop_Count_1
0231 c404 | | Store 0x2,0x4
0232 c405 | | Store 0x2,0x5
0233 c406 | | Store 0x2,0x6
0234 c407 | | Store 0x2,0x7
0235 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0xc = 0x235,0x3
0236 821f | | Call 0x1,0x1f
0237 a408 | | Store_Unchecked 0x2,0x8
0238 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0xd = 0x238,0x4
0239 e408 | | Load 0x2,0x8
023a e007 | | Load 0x0,0x7
023b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023c e001 | | Load 0x0,0x1 ; Debug Table 0x4.0xe = 0x23c,0x5
023d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023e e5fd | | Load 0x2,-0x3
023f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0240 0120 | | Execute Any,Is_Value
0241 6803 |h | Jump_Zero 0x245
0242 e001 | | Load 0x0,0x1
0243 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0244 7802 |x | Jump 0x247
0245 e5fd | | Load 0x2,-0x3
0246 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0247 6140 |a@ | Indirect_Literal Discrete,0x388,{0x00000000, 0x00004000}
0248 e00a | | Load 0x0,0xa
0249 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024a e402 | | Load 0x2,0x2
024b e001 | | Load 0x0,0x1
024c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
024d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
024e e5fd | | Load 0x2,-0x3
024f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0250 c407 | | Store 0x2,0x7
0251 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0xf = 0x251,0x6
0252 821f | | Call 0x1,0x1f
0253 a408 | | Store_Unchecked 0x2,0x8
0254 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x10 = 0x254,0x7
0255 e408 | | Load 0x2,0x8
0256 e007 | | Load 0x0,0x7
0257 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0258 e005 | | Load 0x0,0x5 ; Debug Table 0x4.0x11 = 0x258,0x8
0259 1b10 | | Execute Package,Field_Read,Field_Number 0x10
025a e5fd | | Load 0x2,-0x3
025b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
025c 4800 |H | Short_Literal 0x0
025d 612a |a* | Indirect_Literal Discrete,0x388,{0x00000000, 0x00004000}
025e e00a | | Load 0x0,0xa
025f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0260 4800 |H | Short_Literal 0x0
0261 e5fd | | Load 0x2,-0x3
0262 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0263 4801 |H | Short_Literal 0x1
0264 e214 | | Load 0x1,0x14
0265 01d7 | | Execute Vector,Field_Read
0266 e005 | | Load 0x0,0x5
0267 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0268 e5fd | | Load 0x2,-0x3
0269 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
026a c407 | | Store 0x2,0x7
026b e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x12 = 0x26b,0x9
026c 821f | | Call 0x1,0x1f
026d a408 | | Store_Unchecked 0x2,0x8
026e 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x13 = 0x26e,0xa
026f e408 | | Load 0x2,0x8
0270 e007 | | Load 0x0,0x7
0271 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0272 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x14 = 0x272,0xb
0273 e005 | | Load 0x0,0x5
0274 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0275 e5fd | | Load 0x2,-0x3
0276 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0277 e218 | | Load 0x1,0x18
0278 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0279 e005 | | Load 0x0,0x5 ; Debug Table 0x4.0x15 = 0x279,0xc
027a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
027b e5fd | | Load 0x2,-0x3
027c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
027d e219 | | Load 0x1,0x19
027e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
027f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0280 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x16 = 0x280,0xd
0281 e224 | $ | Load 0x1,0x24
0282 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0283 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0284 e215 | | Load 0x1,0x15 ; Debug Table 0x4.0x17 = 0x284,0xe
0285 00da | | Load_Top At_Offset_2
0286 0217 | | Execute Heap_Access,All_Reference
0287 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0288 4805 |H | Short_Literal 0x5 ; Debug Table 0x4.0x18 = 0x288,0xf
0289 00da | | Load_Top At_Offset_2
028a 0217 | | Execute Heap_Access,All_Reference
028b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
028c e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x19 = 0x28c,0x10
028d 180f | | Execute Package,Field_Execute,Field_Number 0xf
028e e002 | | Load 0x0,0x2
028f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0290 00da | | Load_Top At_Offset_2
0291 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0292 e5fd | | Load 0x2,-0x3
0293 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0294 0007 | | Action Break_Optional ; Debug Table 0x4.0x1a = 0x294,0x11
0295 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x1b = 0x295,0x12
0296 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0297 e225 | % | Load 0x1,0x25
0298 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0299 00da | | Load_Top At_Offset_2
029a 0217 | | Execute Heap_Access,All_Reference
029b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
029c e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1c = 0x29c,0x13
029d 180f | | Execute Package,Field_Execute,Field_Number 0xf
029e e002 | | Load 0x0,0x2
029f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a0 00da | | Load_Top At_Offset_2
02a1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02a2 e5fd | | Load 0x2,-0x3
02a3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02a4 0007 | | Action Break_Optional ; Debug Table 0x4.0x1d = 0x2a4,0x14
02a5 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x1e = 0x2a5,0x15
02a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a7 e225 | % | Load 0x1,0x25
02a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02a9 00da | | Load_Top At_Offset_2
02aa 0217 | | Execute Heap_Access,All_Reference
02ab 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02ac e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x1f = 0x2ac,0x16
02ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ae 00d9 | | Load_Top At_Offset_1
02af 039c | | Declare_Variable Heap_Access,By_Allocation
02b0 00d8 | | Load_Top At_Offset_0
02b1 0217 | | Execute Heap_Access,All_Reference
02b2 1c00 | | Execute_Immediate Run_Utility,0x0
02b3 e5fd | | Load 0x2,-0x3
02b4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02b5 0007 | | Action Break_Optional ; Debug Table 0x4.0x20 = 0x2b5,0x17
02b6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x21 = 0x2b6,0x18
02b7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02b8 e226 | & | Load 0x1,0x26
02b9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02ba 00da | | Load_Top At_Offset_2
02bb 0217 | | Execute Heap_Access,All_Reference
02bc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02bd e004 | | Load 0x0,0x4 ; Debug Table 0x4.0x22 = 0x2bd,0x19
02be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bf 00d9 | | Load_Top At_Offset_1
02c0 039c | | Declare_Variable Heap_Access,By_Allocation
02c1 00d8 | | Load_Top At_Offset_0
02c2 0217 | | Execute Heap_Access,All_Reference
02c3 1c00 | | Execute_Immediate Run_Utility,0x0
02c4 e5fd | | Load 0x2,-0x3
02c5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02c6 0007 | | Action Break_Optional ; Debug Table 0x4.0x23 = 0x2c6,0x1a
02c7 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x24 = 0x2c7,0x1b
02c8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02c9 e227 | ' | Load 0x1,0x27
02ca 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02cb 00da | | Load_Top At_Offset_2
02cc 0217 | | Execute Heap_Access,All_Reference
02cd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02ce 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x25 = 0x2ce,0x1c
02cf 00da | | Load_Top At_Offset_2
02d0 0217 | | Execute Heap_Access,All_Reference
02d1 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02d2 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x26 = 0x2d2,0x1d
02d3 00da | | Load_Top At_Offset_2
02d4 0217 | | Execute Heap_Access,All_Reference
02d5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02d6 e005 | | Load 0x0,0x5 ; Debug Table 0x4.0x27 = 0x2d6,0x1e
02d7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d8 e5fd | | Load 0x2,-0x3
02d9 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
02da 4801 |H | Short_Literal 0x1
02db e005 | | Load 0x0,0x5
02dc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02dd e5fd | | Load 0x2,-0x3
02de 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02df c407 | | Store 0x2,0x7
02e0 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x28 = 0x2e0,0x1f
02e1 821f | | Call 0x1,0x1f
02e2 a408 | | Store_Unchecked 0x2,0x8
02e3 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x29 = 0x2e3,0x20
02e4 e408 | | Load 0x2,0x8
02e5 e007 | | Load 0x0,0x7
02e6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02e7 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x2a = 0x2e7,0x21
02e8 a5fc | | Store_Unchecked 0x2,-0x4
02e9 4503 |E | Exit_Subprogram 0x3
02ea TRAP_01e8:
02ea e007 | | Load 0x0,0x7
02eb 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02ec 010f | | Execute Exception,Equal
02ed 6806 |h | Jump_Zero 0x2f4
02ee e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2b = 0x2ee,0x22
02ef e00a | | Load 0x0,0xa
02f0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02f1 e408 | | Load 0x2,0x8 ; Debug Table 0x4.0x2c = 0x2f1,0x23
02f2 a5fc | | Store_Unchecked 0x2,-0x4
02f3 4503 |E | Exit_Subprogram 0x3
02f4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2d = 0x2f4,0x24
02f5 e00a | | Load 0x0,0xa
02f6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02f7 487d |H} | Short_Literal 0x7d ; Debug Table 0x4.0x2e = 0x2f7,0x25
02f8 a5fc | | Store_Unchecked 0x2,-0x4
02f9 4503 |E | Exit_Subprogram 0x3
02fa 0000 0000 | | .BLANK 0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 030b | | .CONST 0x030b ; Address of begin
0301 0373 | s | .CONST 0x0373 ; Address of exception handler
0302 0005 | | .CONST 0x0005 ; Number of locals
0303 INIT_0300:
0303 e007 | | Load 0x0,0x7 ; Debug Table 0x5 = .DEBUG 0x0303,0x05e0,0x0001,0x0000,0x0057,0xb515,0x0000,0x006f
; Debug Table 0x5.0x0 = 0x303,0xffff
0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0305 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
0306 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x1 = 0x306,0xfffe
0307 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0308 e217 | | Load 0x1,0x17 ; Debug Table 0x5.0x2 = 0x308,0xfffd
0309 0007 | | Action Break_Optional
030a 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x5.0x3 = 0x30a,0xfffc
030b BODY_0300:
030b 487e |H~ | Short_Literal 0x7e ; Debug Table 0x5.0x4 = 0x30b,0x1
030c a5fb | | Store_Unchecked 0x2,-0x5
030d e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x5 = 0x30d,0x2
030e 8223 | # | Call 0x1,0x23
030f 7005 |p | Jump_Nonzero 0x315
0310 4813 |H | Short_Literal 0x13 ; Debug Table 0x5.0x6 = 0x310,0x3
0311 a402 | | Store_Unchecked 0x2,0x2
0312 e007 | | Load 0x0,0x7 ; Debug Table 0x5.0x7 = 0x312,0x4
0313 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0314 0257 | W | Execute Discrete,Raise
0315 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x8 = 0x315,0x5
0316 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0317 e5fc | | Load 0x2,-0x4
0318 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0319 4800 |H | Short_Literal 0x0
031a 606d |`m | Indirect_Literal Discrete,0x388,{0x00000000, 0x00004000}
031b e5fd | | Load 0x2,-0x3
031c 4800 |H | Short_Literal 0x0
031d e5ff | | Load 0x2,-0x1
031e e5fe | | Load 0x2,-0x2
031f e214 | | Load 0x1,0x14
0320 01d7 | | Execute Vector,Field_Read
0321 e005 | | Load 0x0,0x5
0322 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0323 e5fc | | Load 0x2,-0x4
0324 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0325 005b | [ | Store_Top Discrete,At_Offset_3
0326 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x9 = 0x326,0x6
0327 821f | | Call 0x1,0x1f
0328 a402 | | Store_Unchecked 0x2,0x2
0329 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xa = 0x329,0x7
032a e402 | | Load 0x2,0x2
032b e007 | | Load 0x0,0x7
032c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
032d e005 | | Load 0x0,0x5 ; Debug Table 0x5.0xb = 0x32d,0x8
032e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
032f e5fc | | Load 0x2,-0x4
0330 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0331 e219 | | Load 0x1,0x19
0332 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0333 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0334 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xc = 0x334,0x9
0335 0217 | | Execute Heap_Access,All_Reference
0336 8220 | | Call 0x1,0x20
0337 7005 |p | Jump_Nonzero 0x33d
0338 4813 |H | Short_Literal 0x13 ; Debug Table 0x5.0xd = 0x338,0xa
0339 a402 | | Store_Unchecked 0x2,0x2
033a e007 | | Load 0x0,0x7 ; Debug Table 0x5.0xe = 0x33a,0xb
033b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
033c 0257 | W | Execute Discrete,Raise
033d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xf = 0x33d,0xc
033e e224 | $ | Load 0x1,0x24
033f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0340 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0341 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x10 = 0x341,0xd
0342 e5fc | | Load 0x2,-0x4
0343 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0344 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x11 = 0x344,0xe
0345 0217 | | Execute Heap_Access,All_Reference
0346 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0347 00d9 | | Load_Top At_Offset_1
0348 e228 | ( | Load 0x1,0x28
0349 e229 | ) | Load 0x1,0x29
034a 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
034b e009 | | Load 0x0,0x9
034c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
034d e5fc | | Load 0x2,-0x4
034e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
034f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x12 = 0x34f,0xf
0350 0217 | | Execute Heap_Access,All_Reference
0351 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0352 00d9 | | Load_Top At_Offset_1
0353 e228 | ( | Load 0x1,0x28
0354 e229 | ) | Load 0x1,0x29
0355 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0356 e009 | | Load 0x0,0x9
0357 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0358 e5fc | | Load 0x2,-0x4
0359 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
035a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x13 = 0x35a,0x10
035b 0217 | | Execute Heap_Access,All_Reference
035c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
035d 00d9 | | Load_Top At_Offset_1
035e e22d | - | Load 0x1,0x2d
035f e22e | . | Load 0x1,0x2e
0360 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0361 e009 | | Load 0x0,0x9
0362 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0363 e5fc | | Load 0x2,-0x4
0364 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0365 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x14 = 0x365,0x11
0366 0217 | | Execute Heap_Access,All_Reference
0367 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0368 00d9 | | Load_Top At_Offset_1
0369 e232 | 2 | Load 0x1,0x32
036a e233 | 3 | Load 0x1,0x33
036b 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
036c e009 | | Load 0x0,0x9
036d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
036e e5fc | | Load 0x2,-0x4
036f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0370 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x15 = 0x370,0x12
0371 a5fb | | Store_Unchecked 0x2,-0x5
0372 4504 |E | Exit_Subprogram 0x4
0373 TRAP_0300:
0373 e007 | | Load 0x0,0x7
0374 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0375 010f | | Execute Exception,Equal
0376 6806 |h | Jump_Zero 0x37d
0377 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x16 = 0x377,0x13
0378 e00a | | Load 0x0,0xa
0379 181a | | Execute Package,Field_Execute,Field_Number 0x1a
037a e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x17 = 0x37a,0x14
037b a5fb | | Store_Unchecked 0x2,-0x5
037c 4504 |E | Exit_Subprogram 0x4
037d e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x18 = 0x37d,0x15
037e e00a | | Load 0x0,0xa
037f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0380 487d |H} | Short_Literal 0x7d ; Debug Table 0x5.0x19 = 0x380,0x16
0381 a5fb | | Store_Unchecked 0x2,-0x5
0382 4504 |E | Exit_Subprogram 0x4
0383 0000 | | .XXX[0x1]
0384 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0388 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
038c 0000 0000 | | .LITERAL {0x00000000, 0x0057b6a5}
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0398 | | .CONST 0x0398 ; Address of begin
0391 03ae | | .CONST 0x03ae ; Address of exception handler
0392 0003 | | .CONST 0x0003 ; Number of locals
0393 INIT_0390:
0393 e007 | | Load 0x0,0x7 ; Debug Table 0x6 = .DEBUG 0x0393,0x0616,0x0001,0x0000,0x0057,0xb515,0x0000,0x0090
; Debug Table 0x6.0x0 = 0x393,0xffff
0394 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0395 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
0396 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x1 = 0x396,0xfffe
0397 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0398 BODY_0390:
0398 487e |H~ | Short_Literal 0x7e ; Debug Table 0x6.0x2 = 0x398,0x1
0399 a5fe | | Store_Unchecked 0x2,-0x2
039a e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x3 = 0x39a,0x2
039b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
039c e5ff | | Load 0x2,-0x1
039d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
039e 4801 |H | Short_Literal 0x1
039f e005 | | Load 0x0,0x5
03a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03a1 e5ff | | Load 0x2,-0x1
03a2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03a3 0059 | Y | Store_Top Discrete,At_Offset_1
03a4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0x3a4,0x3
03a5 821f | | Call 0x1,0x1f
03a6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03a7 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x5 = 0x3a7,0x4
03a8 00da | | Load_Top At_Offset_2
03a9 e007 | | Load 0x0,0x7
03aa 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03ab 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x6 = 0x3ab,0x5
03ac a5fe | | Store_Unchecked 0x2,-0x2
03ad 4501 |E | Exit_Subprogram 0x1
03ae TRAP_0390:
03ae e007 | | Load 0x0,0x7
03af 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03b0 010f | | Execute Exception,Equal
03b1 6803 |h | Jump_Zero 0x3b5
03b2 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x7 = 0x3b2,0x6
03b3 a5fe | | Store_Unchecked 0x2,-0x2
03b4 4501 |E | Exit_Subprogram 0x1
03b5 487d |H} | Short_Literal 0x7d ; Debug Table 0x6.0x8 = 0x3b5,0x7
03b6 a5fe | | Store_Unchecked 0x2,-0x2
03b7 4501 |E | Exit_Subprogram 0x1
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c6 | | .CONST 0x03c6 ; Address of begin
03b9 03e9 | | .CONST 0x03e9 ; Address of exception handler
03ba 0004 | | .CONST 0x0004 ; Number of locals
03bb INIT_03b8:
03bb e007 | | Load 0x0,0x7 ; Debug Table 0x7 = .DEBUG 0x03bb,0x062a,0x0001,0x0000,0x0057,0xb515,0x0000,0x009e
; Debug Table 0x7.0x0 = 0x3bb,0xffff
03bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bd 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
03be e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x1 = 0x3be,0xfffe
03bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c0 e00a | | Load 0x0,0xa ; Debug Table 0x7.0x2 = 0x3c0,0xfffd
03c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c2 02c7 | | Declare_Variable Any
03c3 e00a | | Load 0x0,0xa
03c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c5 c404 | | Store 0x2,0x4
03c6 BODY_03b8:
03c6 487e |H~ | Short_Literal 0x7e ; Debug Table 0x7.0x3 = 0x3c6,0x1
03c7 a5fd | | Store_Unchecked 0x2,-0x3
03c8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x4 = 0x3c8,0x2
03c9 6811 |h | Jump_Zero 0x3db
03ca e005 | | Load 0x0,0x5 ; Debug Table 0x7.0x5 = 0x3ca,0x3
03cb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03cc e5fe | | Load 0x2,-0x2
03cd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03ce e005 | | Load 0x0,0x5
03cf 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03d0 e5fe | | Load 0x2,-0x2
03d1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03d2 005a | Z | Store_Top Discrete,At_Offset_2
03d3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0x3d3,0x4
03d4 821f | | Call 0x1,0x1f
03d5 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
03d6 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x7 = 0x3d6,0x5
03d7 00db | | Load_Top At_Offset_3
03d8 e007 | | Load 0x0,0x7
03d9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03da 780b |x | Jump 0x3e6
03db e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x8 = 0x3db,0x6
03dc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03dd e005 | | Load 0x0,0x5
03de 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03df c404 | | Store 0x2,0x4
03e0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x9 = 0x3e0,0x7
03e1 4801 |H | Short_Literal 0x1
03e2 4800 |H | Short_Literal 0x0
03e3 e00a | | Load 0x0,0xa
03e4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03e5 c404 | | Store 0x2,0x4
03e6 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0xa = 0x3e6,0x8
03e7 a5fd | | Store_Unchecked 0x2,-0x3
03e8 4502 |E | Exit_Subprogram 0x2
03e9 TRAP_03b8:
03e9 e007 | | Load 0x0,0x7
03ea 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03eb 010f | | Execute Exception,Equal
03ec 6803 |h | Jump_Zero 0x3f0
03ed 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xb = 0x3ed,0x9
03ee a5fd | | Store_Unchecked 0x2,-0x3
03ef 4502 |E | Exit_Subprogram 0x2
03f0 487d |H} | Short_Literal 0x7d ; Debug Table 0x7.0xc = 0x3f0,0xa
03f1 a5fd | | Store_Unchecked 0x2,-0x3
03f2 4502 |E | Exit_Subprogram 0x2
03f3 0000 0000 | | .BLANK 0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 4608 |F | Jump_Case 0x8 ; Debug Table 0x8 = .DEBUG 0x03fb,0x0646,0x0005,0x0000,0x0057,0xb6a5,0x0000,0x0070
03fc 7808 |x | Jump 0x405 ; case 0x0
03fd 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
03fe 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
03ff 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0400 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0401 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
0402 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
0403 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
0404 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
0405 4800 |H | Short_Literal 0x0
0406 00db | | Load_Top At_Offset_3
0407 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0408 4800 |H | Short_Literal 0x0
0409 00db | | Load_Top At_Offset_3
040a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
040b 4302 |C | Exit_Subprogram From_Utility,0x2
040c 0000 0000 | | .BLANK 0000[0x4]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0413,0x0648,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x01fb
; Debug Table 0x9.0x0 = 0x413,0x1
0414 e21b | | Load 0x1,0x1b
0415 01d7 | | Execute Vector,Field_Read
0416 4401 |D | Exit_Subprogram With_Result,0x1
0417 0000 | | .XXX[0x1]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x041b,0x064c,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x0213
; Debug Table 0xa.0x0 = 0x41b,0x1
041c e21d | | Load 0x1,0x1d
041d 01d7 | | Execute Vector,Field_Read
041e 4401 |D | Exit_Subprogram With_Result,0x1
041f 0000 | | .XXX[0x1]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 042e | . | .CONST 0x042e ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x0423,0x0650,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x0229
; Debug Table 0xb.0x0 = 0x423,0x1
0424 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0425 e215 | | Load 0x1,0x15
0426 01df | | Execute Vector,Equal
0427 6804 |h | Jump_Zero 0x42c
0428 00da | | Load_Top At_Offset_2
0429 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
042a 0f05 | | Execute_Immediate Equal,0x5
042b 4401 |D | Exit_Subprogram With_Result,0x1
042c 4800 |H | Short_Literal 0x0
042d 4401 |D | Exit_Subprogram With_Result,0x1
042e TRAP_0420:
042e 0007 | | Action Break_Optional
042f 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x1 = 0x42f,0x2
0430 4401 |D | Exit_Subprogram With_Result,0x1
0431 0000 0000 | | .BLANK 0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0446 | F | .CONST 0x0446 ; Address of begin
0439 046e | n | .CONST 0x046e ; Address of exception handler
043a 0004 | | .CONST 0x0004 ; Number of locals
043b INIT_0438:
043b e005 | | Load 0x0,0x5 ; Debug Table 0xc = .DEBUG 0x043b,0x0656,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x024d
; Debug Table 0xc.0x0 = 0x43b,0xffff
043c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
043d 02c7 | | Declare_Variable Any
043e 00d8 | | Load_Top At_Offset_0
043f 1c00 | | Execute_Immediate Run_Utility,0x0
0440 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x1 = 0x440,0xfffe
0441 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0442 e216 | | Load 0x1,0x16 ; Debug Table 0xc.0x2 = 0x442,0xfffd
0443 0322 | " | Declare_Variable Record
0444 00d8 | | Load_Top At_Offset_0
0445 1c00 | | Execute_Immediate Run_Utility,0x0
0446 BODY_0438:
0446 00be | | Action Activate_Tasks
0447 e005 | | Load 0x0,0x5 ; Debug Table 0xc.0x3 = 0x447,0x1
0448 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0449 00db | | Load_Top At_Offset_3
044a 4800 |H | Short_Literal 0x0
044b 673c |g< | Indirect_Literal Discrete,0x388,{0x00000000, 0x00004000}
044c e00a | | Load 0x0,0xa
044d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044e 4800 |H | Short_Literal 0x0
044f e5ff | | Load 0x2,-0x1
0450 4803 |H | Short_Literal 0x3
0451 e005 | | Load 0x0,0x5
0452 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0453 c402 | | Store 0x2,0x2
0454 005a | Z | Store_Top Discrete,At_Offset_2
0455 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x4 = 0x455,0x2
0456 6802 |h | Jump_Zero 0x459
0457 4887 |H | Short_Literal 0x87
0458 0257 | W | Execute Discrete,Raise
0459 e005 | | Load 0x0,0x5 ; Debug Table 0xc.0x5 = 0x459,0x3
045a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
045b 00db | | Load_Top At_Offset_3
045c e218 | | Load 0x1,0x18
045d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
045e 00d9 | | Load_Top At_Offset_1
045f 017d | } | Execute Record,Structure_Write
0460 e005 | | Load 0x0,0x5 ; Debug Table 0xc.0x6 = 0x460,0x4
0461 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0462 00db | | Load_Top At_Offset_3
0463 e005 | | Load 0x0,0x5
0464 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0465 c402 | | Store 0x2,0x2
0466 005a | Z | Store_Top Discrete,At_Offset_2
0467 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x7 = 0x467,0x5
0468 6802 |h | Jump_Zero 0x46b
0469 4887 |H | Short_Literal 0x87
046a 0257 | W | Execute Discrete,Raise
046b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x8 = 0x46b,0x6
046c 8220 | | Call 0x1,0x20
046d 4403 |D | Exit_Subprogram With_Result,0x3
046e TRAP_0438:
046e 0007 | | Action Break_Optional
046f e005 | | Load 0x0,0x5 ; Debug Table 0xc.0x9 = 0x46f,0x7
0470 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0471 e402 | | Load 0x2,0x2
0472 e005 | | Load 0x0,0x5
0473 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0474 c402 | | Store 0x2,0x2
0475 005b | [ | Store_Top Discrete,At_Offset_3
0476 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0xa = 0x476,0x8
0477 4403 |D | Exit_Subprogram With_Result,0x3
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x047b,0x066e,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x02d8
; Debug Table 0xd.0x0 = 0x47b,0x1
047c e001 | | Load 0x0,0x1
047d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
047e e008 | | Load 0x0,0x8
047f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0480 027f | | Execute Discrete,Equal
0481 4401 |D | Exit_Subprogram With_Result,0x1
0482 ; --------------------------------------------------------------------------------------
0482 ; STRING TABLE
0482 ; --------------------------------------------------------------------------------------
0482 0004 | | .STRTAB 0x0004->0x0484 ; "tHIS iS a dICTIONARY fILE"
0483 001b | | .STREND 0x001b->0x0490
0484 7448 4953 |tHIS| .STRTAB_STRINGS
0491 0000 0000 | | .BLANK 0000[0x7]
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug Table
0498 ; --------------------------------------------------------------------------------------
0498 0003 000e | | .CONST 0x0003,0x000e
049a 000b 050a | | .DEBUG 0x000b,0x050a,0x8000,0x0000,0x0057,0xb515,0x0000,0x0011
04a2 0026 0518 | & | .DEBUG 0x0026,0x0518,0x8000,0x0000,0x0057,0xb6a5,0x0000,0x001b
04aa 017b 055e | { ^| .DEBUG 0x017b,0x055e,0x0005,0x0000,0x0057,0xb515,0x0000,0x0012
04b2 019b 0560 | `| .DEBUG 0x019b,0x0560,0x0001,0x0000,0x0057,0xb515,0x0000,0x0040
04ba 01eb 0580 | | .DEBUG 0x01eb,0x0580,0x0001,0x0000,0x0057,0xb515,0x0000,0x0054
04c2 0303 05e0 | | .DEBUG 0x0303,0x05e0,0x0001,0x0000,0x0057,0xb515,0x0000,0x006f
04ca 0393 0616 | | .DEBUG 0x0393,0x0616,0x0001,0x0000,0x0057,0xb515,0x0000,0x0090
04d2 03bb 062a | *| .DEBUG 0x03bb,0x062a,0x0001,0x0000,0x0057,0xb515,0x0000,0x009e
04da 03fb 0646 | F| .DEBUG 0x03fb,0x0646,0x0005,0x0000,0x0057,0xb6a5,0x0000,0x0070
04e2 0413 0648 | H| .DEBUG 0x0413,0x0648,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x01fb
04ea 041b 064c | L| .DEBUG 0x041b,0x064c,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x0213
04f2 0423 0650 | # P| .DEBUG 0x0423,0x0650,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x0229
04fa 043b 0656 | ; V| .DEBUG 0x043b,0x0656,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x024d
0502 047b 066e | { n| .DEBUG 0x047b,0x066e,0x0002,0x0000,0x0057,0xb6a5,0x0000,0x02d8
050a ; --------------------------------------------------------------------------------------
050a ; Debug3 Subtable 0x0
050a ; --------------------------------------------------------------------------------------
050a 0006 0000 | | .DBG3TAB 0x0006,0x0000
050c 000b ffff | | .CONST 0x000b,0xffff
050e 001b fffe | | .CONST 0x001b,0xfffe
0510 001d fffd | | .CONST 0x001d,0xfffd
0512 001f fffc | | .CONST 0x001f,0xfffc
0514 0021 fffb | ! | .CONST 0x0021,0xfffb
0516 0023 fffa | # | .CONST 0x0023,0xfffa
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug3 Subtable 0x1
0518 ; --------------------------------------------------------------------------------------
0518 0022 0000 | " | .DBG3TAB 0x0022,0x0000
051a 0026 ffff | & | .CONST 0x0026,0xffff
051c 0027 fffe | ' | .CONST 0x0027,0xfffe
051e 0028 fffd | ( | .CONST 0x0028,0xfffd
0520 0029 fffc | ) | .CONST 0x0029,0xfffc
0522 003e fffb | > | .CONST 0x003e,0xfffb
0524 0040 fffa | @ | .CONST 0x0040,0xfffa
0526 0041 fff9 | A | .CONST 0x0041,0xfff9
0528 0054 fff8 | T | .CONST 0x0054,0xfff8
052a 0057 fff7 | W | .CONST 0x0057,0xfff7
052c 0058 fff6 | X | .CONST 0x0058,0xfff6
052e 0060 fff5 | ` | .CONST 0x0060,0xfff5
0530 0069 fff4 | i | .CONST 0x0069,0xfff4
0532 0072 fff3 | r | .CONST 0x0072,0xfff3
0534 00b4 fff2 | | .CONST 0x00b4,0xfff2
0536 00bc fff1 | | .CONST 0x00bc,0xfff1
0538 00fe fff0 | | .CONST 0x00fe,0xfff0
053a 0100 ffef | | .CONST 0x0100,0xffef
053c 0102 ffee | | .CONST 0x0102,0xffee
053e 0104 ffed | | .CONST 0x0104,0xffed
0540 0106 ffec | | .CONST 0x0106,0xffec
0542 0113 ffeb | | .CONST 0x0113,0xffeb
0544 011b ffea | | .CONST 0x011b,0xffea
0546 011d ffe9 | | .CONST 0x011d,0xffe9
0548 011f ffe8 | | .CONST 0x011f,0xffe8
054a 0128 ffe7 | ( | .CONST 0x0128,0xffe7
054c 0133 ffe6 | 3 | .CONST 0x0133,0xffe6
054e 013e ffe5 | > | .CONST 0x013e,0xffe5
0550 0149 ffe4 | I | .CONST 0x0149,0xffe4
0552 0154 ffe3 | T | .CONST 0x0154,0xffe3
0554 015f ffe2 | _ | .CONST 0x015f,0xffe2
0556 016a ffe1 | j | .CONST 0x016a,0xffe1
0558 016c ffe0 | l | .CONST 0x016c,0xffe0
055a 016e ffdf | n | .CONST 0x016e,0xffdf
055c 0170 ffde | p | .CONST 0x0170,0xffde
055e ; --------------------------------------------------------------------------------------
055e ; Debug3 Subtable 0x2
055e ; --------------------------------------------------------------------------------------
055e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug3 Subtable 0x3
0560 ; --------------------------------------------------------------------------------------
0560 0003 000c | | .DBG3TAB 0x0003,0x000c
0562 019b ffff | | .CONST 0x019b,0xffff
0564 01a0 fffe | | .CONST 0x01a0,0xfffe
0566 01a3 fffd | | .CONST 0x01a3,0xfffd
0568 01a6 0001 | | .CONST 0x01a6,0x0001
056a 01a8 0002 | | .CONST 0x01a8,0x0002
056c 01ab 0003 | | .CONST 0x01ab,0x0003
056e 01c3 0004 | | .CONST 0x01c3,0x0004
0570 01c6 0005 | | .CONST 0x01c6,0x0005
0572 01ca 0006 | | .CONST 0x01ca,0x0006
0574 01cd 0007 | | .CONST 0x01cd,0x0007
0576 01cf 0008 | | .CONST 0x01cf,0x0008
0578 01d2 0009 | | .CONST 0x01d2,0x0009
057a 01d4 000a | | .CONST 0x01d4,0x000a
057c 01db 000b | | .CONST 0x01db,0x000b
057e 01de 000c | | .CONST 0x01de,0x000c
0580 ; --------------------------------------------------------------------------------------
0580 ; Debug3 Subtable 0x4
0580 ; --------------------------------------------------------------------------------------
0580 000a 0025 | %| .DBG3TAB 0x000a,0x0025
0582 01eb ffff | | .CONST 0x01eb,0xffff
0584 01f0 fffe | | .CONST 0x01f0,0xfffe
0586 01f3 fffd | | .CONST 0x01f3,0xfffd
0588 01f8 fffc | | .CONST 0x01f8,0xfffc
058a 01fb fffb | | .CONST 0x01fb,0xfffb
058c 01fc fffa | | .CONST 0x01fc,0xfffa
058e 01fe fff9 | | .CONST 0x01fe,0xfff9
0590 0201 fff8 | | .CONST 0x0201,0xfff8
0592 0205 fff7 | | .CONST 0x0205,0xfff7
0594 0207 fff6 | | .CONST 0x0207,0xfff6
0596 0208 0001 | | .CONST 0x0208,0x0001
0598 020a 0002 | | .CONST 0x020a,0x0002
059a 0235 0003 | 5 | .CONST 0x0235,0x0003
059c 0238 0004 | 8 | .CONST 0x0238,0x0004
059e 023c 0005 | < | .CONST 0x023c,0x0005
05a0 0251 0006 | Q | .CONST 0x0251,0x0006
05a2 0254 0007 | T | .CONST 0x0254,0x0007
05a4 0258 0008 | X | .CONST 0x0258,0x0008
05a6 026b 0009 | k | .CONST 0x026b,0x0009
05a8 026e 000a | n | .CONST 0x026e,0x000a
05aa 0272 000b | r | .CONST 0x0272,0x000b
05ac 0279 000c | y | .CONST 0x0279,0x000c
05ae 0280 000d | | .CONST 0x0280,0x000d
05b0 0284 000e | | .CONST 0x0284,0x000e
05b2 0288 000f | | .CONST 0x0288,0x000f
05b4 028c 0010 | | .CONST 0x028c,0x0010
05b6 0294 0011 | | .CONST 0x0294,0x0011
05b8 0295 0012 | | .CONST 0x0295,0x0012
05ba 029c 0013 | | .CONST 0x029c,0x0013
05bc 02a4 0014 | | .CONST 0x02a4,0x0014
05be 02a5 0015 | | .CONST 0x02a5,0x0015
05c0 02ac 0016 | | .CONST 0x02ac,0x0016
05c2 02b5 0017 | | .CONST 0x02b5,0x0017
05c4 02b6 0018 | | .CONST 0x02b6,0x0018
05c6 02bd 0019 | | .CONST 0x02bd,0x0019
05c8 02c6 001a | | .CONST 0x02c6,0x001a
05ca 02c7 001b | | .CONST 0x02c7,0x001b
05cc 02ce 001c | | .CONST 0x02ce,0x001c
05ce 02d2 001d | | .CONST 0x02d2,0x001d
05d0 02d6 001e | | .CONST 0x02d6,0x001e
05d2 02e0 001f | | .CONST 0x02e0,0x001f
05d4 02e3 0020 | | .CONST 0x02e3,0x0020
05d6 02e7 0021 | !| .CONST 0x02e7,0x0021
05d8 02ee 0022 | "| .CONST 0x02ee,0x0022
05da 02f1 0023 | #| .CONST 0x02f1,0x0023
05dc 02f4 0024 | $| .CONST 0x02f4,0x0024
05de 02f7 0025 | %| .CONST 0x02f7,0x0025
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug3 Subtable 0x5
05e0 ; --------------------------------------------------------------------------------------
05e0 0004 0016 | | .DBG3TAB 0x0004,0x0016
05e2 0303 ffff | | .CONST 0x0303,0xffff
05e4 0306 fffe | | .CONST 0x0306,0xfffe
05e6 0308 fffd | | .CONST 0x0308,0xfffd
05e8 030a fffc | | .CONST 0x030a,0xfffc
05ea 030b 0001 | | .CONST 0x030b,0x0001
05ec 030d 0002 | | .CONST 0x030d,0x0002
05ee 0310 0003 | | .CONST 0x0310,0x0003
05f0 0312 0004 | | .CONST 0x0312,0x0004
05f2 0315 0005 | | .CONST 0x0315,0x0005
05f4 0326 0006 | & | .CONST 0x0326,0x0006
05f6 0329 0007 | ) | .CONST 0x0329,0x0007
05f8 032d 0008 | - | .CONST 0x032d,0x0008
05fa 0334 0009 | 4 | .CONST 0x0334,0x0009
05fc 0338 000a | 8 | .CONST 0x0338,0x000a
05fe 033a 000b | : | .CONST 0x033a,0x000b
0600 033d 000c | = | .CONST 0x033d,0x000c
0602 0341 000d | A | .CONST 0x0341,0x000d
0604 0344 000e | D | .CONST 0x0344,0x000e
0606 034f 000f | O | .CONST 0x034f,0x000f
0608 035a 0010 | Z | .CONST 0x035a,0x0010
060a 0365 0011 | e | .CONST 0x0365,0x0011
060c 0370 0012 | p | .CONST 0x0370,0x0012
060e 0377 0013 | w | .CONST 0x0377,0x0013
0610 037a 0014 | z | .CONST 0x037a,0x0014
0612 037d 0015 | } | .CONST 0x037d,0x0015
0614 0380 0016 | | .CONST 0x0380,0x0016
0616 ; --------------------------------------------------------------------------------------
0616 ; Debug3 Subtable 0x6
0616 ; --------------------------------------------------------------------------------------
0616 0002 0007 | | .DBG3TAB 0x0002,0x0007
0618 0393 ffff | | .CONST 0x0393,0xffff
061a 0396 fffe | | .CONST 0x0396,0xfffe
061c 0398 0001 | | .CONST 0x0398,0x0001
061e 039a 0002 | | .CONST 0x039a,0x0002
0620 03a4 0003 | | .CONST 0x03a4,0x0003
0622 03a7 0004 | | .CONST 0x03a7,0x0004
0624 03ab 0005 | | .CONST 0x03ab,0x0005
0626 03b2 0006 | | .CONST 0x03b2,0x0006
0628 03b5 0007 | | .CONST 0x03b5,0x0007
062a ; --------------------------------------------------------------------------------------
062a ; Debug3 Subtable 0x7
062a ; --------------------------------------------------------------------------------------
062a 0003 000a | | .DBG3TAB 0x0003,0x000a
062c 03bb ffff | | .CONST 0x03bb,0xffff
062e 03be fffe | | .CONST 0x03be,0xfffe
0630 03c0 fffd | | .CONST 0x03c0,0xfffd
0632 03c6 0001 | | .CONST 0x03c6,0x0001
0634 03c8 0002 | | .CONST 0x03c8,0x0002
0636 03ca 0003 | | .CONST 0x03ca,0x0003
0638 03d3 0004 | | .CONST 0x03d3,0x0004
063a 03d6 0005 | | .CONST 0x03d6,0x0005
063c 03db 0006 | | .CONST 0x03db,0x0006
063e 03e0 0007 | | .CONST 0x03e0,0x0007
0640 03e6 0008 | | .CONST 0x03e6,0x0008
0642 03ed 0009 | | .CONST 0x03ed,0x0009
0644 03f0 000a | | .CONST 0x03f0,0x000a
0646 ; --------------------------------------------------------------------------------------
0646 ; Debug3 Subtable 0x8
0646 ; --------------------------------------------------------------------------------------
0646 0000 0000 | | .DBG3TAB 0x0000,0x0000
0648 ; --------------------------------------------------------------------------------------
0648 ; Debug3 Subtable 0x9
0648 ; --------------------------------------------------------------------------------------
0648 0000 0001 | | .DBG3TAB 0x0000,0x0001
064a 0413 0001 | | .CONST 0x0413,0x0001
064c ; --------------------------------------------------------------------------------------
064c ; Debug3 Subtable 0xa
064c ; --------------------------------------------------------------------------------------
064c 0000 0001 | | .DBG3TAB 0x0000,0x0001
064e 041b 0001 | | .CONST 0x041b,0x0001
0650 ; --------------------------------------------------------------------------------------
0650 ; Debug3 Subtable 0xb
0650 ; --------------------------------------------------------------------------------------
0650 0000 0002 | | .DBG3TAB 0x0000,0x0002
0652 0423 0001 | # | .CONST 0x0423,0x0001
0654 042f 0002 | / | .CONST 0x042f,0x0002
0656 ; --------------------------------------------------------------------------------------
0656 ; Debug3 Subtable 0xc
0656 ; --------------------------------------------------------------------------------------
0656 0003 0008 | | .DBG3TAB 0x0003,0x0008
0658 043b ffff | ; | .CONST 0x043b,0xffff
065a 0440 fffe | @ | .CONST 0x0440,0xfffe
065c 0442 fffd | B | .CONST 0x0442,0xfffd
065e 0447 0001 | G | .CONST 0x0447,0x0001
0660 0455 0002 | U | .CONST 0x0455,0x0002
0662 0459 0003 | Y | .CONST 0x0459,0x0003
0664 0460 0004 | ` | .CONST 0x0460,0x0004
0666 0467 0005 | g | .CONST 0x0467,0x0005
0668 046b 0006 | k | .CONST 0x046b,0x0006
066a 046f 0007 | o | .CONST 0x046f,0x0007
066c 0476 0008 | v | .CONST 0x0476,0x0008
066e ; --------------------------------------------------------------------------------------
066e ; Debug3 Subtable 0xd
066e ; --------------------------------------------------------------------------------------
066e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0670 047b 0001 | { | .CONST 0x047b,0x0001
0672 0000 0000 | | .BLANK 0000[0x18e]