|
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 - metrics - download
Length: 3072 (0xc00)
Types: SEG
Notes: 5811_R1K_CODE
Names: »1036307.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »1036307.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »1036307.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »1036307.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »1036307.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »1036307.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 0358 | X | .CONST 0x0358 ; 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 0102 | | .CONST 0x0102 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00e7 | | .CONST 0x00e7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x03d2,0x8000,0x0000,0x0037,0x0964,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118 ; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 00bf | | Action Accept_Activation
0012 4801 |H | Short_Literal 0x1 ; Debug Table 0x1 = .DEBUG 0x0012,0x03dc,0x8000,0x0000,0x0037,0x0974,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x12,0xffff
0013 4804 |H | Short_Literal 0x4
0014 e001 | | Load 0x0,0x1
0015 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0016 03f8 | | Declare_Type Discrete,Constrained
0017 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x1 = 0x17,0xfffe
0018 62b7 |b | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x00200000}
0019 00e3 | | Load_Encached Natural_Cache
001a 03f8 | | Declare_Type Discrete,Constrained
001b 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x2 = 0x1b,0xfffd
001c 4803 |H | Short_Literal 0x3
001d 00e3 | | Load_Encached Natural_Cache
001e 03f8 | | Declare_Type Discrete,Constrained
001f 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x3 = 0x1f,0xfffc
0020 4804 |H | Short_Literal 0x4
0021 00db | | Load_Top At_Offset_3
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4801 |H | Short_Literal 0x1
0024 035d | ] | Declare_Type Array,Defined
0025 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x4 = 0x25,0xfffb
0026 0337 | 7 | Declare_Variable Array
0027 00d9 | | Load_Top At_Offset_1
0028 0337 | 7 | Declare_Variable Array
0029 4804 |H | Short_Literal 0x4
002a 4801 |H | Short_Literal 0x1
002b 00da | | Load_Top At_Offset_2
002c 01d6 | | Execute Vector,Field_Write
002d 4802 |H | Short_Literal 0x2
002e 4802 |H | Short_Literal 0x2
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 4801 |H | Short_Literal 0x1
0032 4803 |H | Short_Literal 0x3
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 e002 | | Load 0x0,0x2
0036 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0037 0af9 | | Execute_Immediate Plus,-0x7
0038 4804 |H | Short_Literal 0x4
0039 00da | | Load_Top At_Offset_2
003a 01d6 | | Execute Vector,Field_Write
003b 00d9 | | Load_Top At_Offset_1
003c 01d4 | | Execute Vector,Structure_Write
003d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0x5 = 0x3d,0xfffa
003e 0337 | 7 | Declare_Variable Array
003f 00da | | Load_Top At_Offset_2
0040 0337 | 7 | Declare_Variable Array
0041 480f |H | Short_Literal 0xf
0042 4801 |H | Short_Literal 0x1
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 480f |H | Short_Literal 0xf
0046 4802 |H | Short_Literal 0x2
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 4805 |H | Short_Literal 0x5
004a 4803 |H | Short_Literal 0x3
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d e002 | | Load 0x0,0x2
004e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
004f 0add | | Execute_Immediate Plus,-0x23
0050 4804 |H | Short_Literal 0x4
0051 00da | | Load_Top At_Offset_2
0052 01d6 | | Execute Vector,Field_Write
0053 00d9 | | Load_Top At_Offset_1
0054 01d4 | | Execute Vector,Structure_Write
0055 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x6 = 0x55,0xfff9
0056 6275 |bu | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00080000}
0057 00e3 | | Load_Encached Natural_Cache
0058 03f8 | | Declare_Type Discrete,Constrained
0059 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x7 = 0x59,0xfff8
005a 4804 |H | Short_Literal 0x4
005b 00da | | Load_Top At_Offset_2
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 4801 |H | Short_Literal 0x1
005e 035d | ] | Declare_Type Array,Defined
005f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x8 = 0x5f,0xfff7
0060 0337 | 7 | Declare_Variable Array
0061 00d9 | | Load_Top At_Offset_1
0062 0337 | 7 | Declare_Variable Array
0063 6264 |bd | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00004000}
0064 4801 |H | Short_Literal 0x1
0065 00da | | Load_Top At_Offset_2
0066 01d6 | | Execute Vector,Field_Write
0067 6260 |b` | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00004000}
0068 4802 |H | Short_Literal 0x2
0069 00da | | Load_Top At_Offset_2
006a 01d6 | | Execute Vector,Field_Write
006b 625c |b\ | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00004000}
006c 4803 |H | Short_Literal 0x3
006d 00da | | Load_Top At_Offset_2
006e 01d6 | | Execute Vector,Field_Write
006f 625c |b\ | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00080000}
0070 4804 |H | Short_Literal 0x4
0071 00da | | Load_Top At_Offset_2
0072 01d6 | | Execute Vector,Field_Write
0073 00d9 | | Load_Top At_Offset_1
0074 01d4 | | Execute Vector,Structure_Write
0075 029d 0173 | s| Declare_Subprogram For_Outer_Call,INIT_0170 ; Debug Table 0x1.0x9 = 0x75,0xfff6
0077 e212 | | Load 0x1,0x12 ; Debug Table 0x1.0xa = 0x77,0xfff5
0078 0337 | 7 | Declare_Variable Array
0079 8218 | | Call 0x1,0x18
007a 00d9 | | Load_Top At_Offset_1
007b 01d4 | | Execute Vector,Structure_Write
007c 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0xb = 0x7c,0xfff4
007d 4803 |H | Short_Literal 0x3
007e e212 | | Load 0x1,0x12
007f 02a0 | | Declare_Subprogram Null_Subprogram
0080 4801 |H | Short_Literal 0x1
0081 035d | ] | Declare_Type Array,Defined
0082 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xc = 0x82,0xfff3
0083 0337 | 7 | Declare_Variable Array
0084 00d9 | | Load_Top At_Offset_1
0085 0337 | 7 | Declare_Variable Array
0086 e213 | | Load 0x1,0x13
0087 e212 | | Load 0x1,0x12
0088 0119 | | Execute Any,Check_In_Formal_Type
0089 4801 |H | Short_Literal 0x1
008a 00da | | Load_Top At_Offset_2
008b 01d6 | | Execute Vector,Field_Write
008c e214 | | Load 0x1,0x14
008d e212 | | Load 0x1,0x12
008e 0119 | | Execute Any,Check_In_Formal_Type
008f 4802 |H | Short_Literal 0x2
0090 00da | | Load_Top At_Offset_2
0091 01d6 | | Execute Vector,Field_Write
0092 00db | | Load_Top At_Offset_3
0093 e212 | | Load 0x1,0x12
0094 0119 | | Execute Any,Check_In_Formal_Type
0095 4803 |H | Short_Literal 0x3
0096 00da | | Load_Top At_Offset_2
0097 01d6 | | Execute Vector,Field_Write
0098 00d9 | | Load_Top At_Offset_1
0099 01d4 | | Execute Vector,Structure_Write
009a 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0xd = 0x9a,0xfff2
009b 6234 |b4 | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x00200000}
009c 00e3 | | Load_Encached Natural_Cache
009d 03f8 | | Declare_Type Discrete,Constrained
009e 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0xe = 0x9e,0xfff1
009f 4804 |H | Short_Literal 0x4
00a0 00da | | Load_Top At_Offset_2
00a1 02a0 | | Declare_Subprogram Null_Subprogram
00a2 4801 |H | Short_Literal 0x1
00a3 035d | ] | Declare_Type Array,Defined
00a4 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0xf = 0xa4,0xfff0
00a5 4803 |H | Short_Literal 0x3
00a6 00da | | Load_Top At_Offset_2
00a7 02a0 | | Declare_Subprogram Null_Subprogram
00a8 4801 |H | Short_Literal 0x1
00a9 035d | ] | Declare_Type Array,Defined
00aa 029d 019b | | Declare_Subprogram For_Outer_Call,INIT_0198 ; Debug Table 0x1.0x10 = 0xaa,0xffef
00ac 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0x11 = 0xac,0xffee
00ad 0337 | 7 | Declare_Variable Array
00ae 821f | | Call 0x1,0x1f
00af 00d9 | | Load_Top At_Offset_1
00b0 01d4 | | Execute Vector,Structure_Write
00b1 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x12 = 0xb1,0xffed
00b2 6219 |b | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00080000}
00b3 00e3 | | Load_Encached Natural_Cache
00b4 03f8 | | Declare_Type Discrete,Constrained
00b5 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x13 = 0xb5,0xffec
00b6 4804 |H | Short_Literal 0x4
00b7 00da | | Load_Top At_Offset_2
00b8 02a0 | | Declare_Subprogram Null_Subprogram
00b9 4801 |H | Short_Literal 0x1
00ba 035d | ] | Declare_Type Array,Defined
00bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x14 = 0xbb,0xffeb
00bc 4803 |H | Short_Literal 0x3
00bd 00da | | Load_Top At_Offset_2
00be 02a0 | | Declare_Subprogram Null_Subprogram
00bf 4801 |H | Short_Literal 0x1
00c0 035d | ] | Declare_Type Array,Defined
00c1 029d 01c3 | | Declare_Subprogram For_Outer_Call,INIT_01c0 ; Debug Table 0x1.0x15 = 0xc1,0xffea
00c3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0x16 = 0xc3,0xffe9
00c4 0337 | 7 | Declare_Variable Array
00c5 8224 | $ | Call 0x1,0x24
00c6 00d9 | | Load_Top At_Offset_1
00c7 01d4 | | Execute Vector,Structure_Write
00c8 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x17 = 0xc8,0xffe8
00c9 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x18 = 0xc9,0xffe7
00ca 4804 |H | Short_Literal 0x4
00cb 00da | | Load_Top At_Offset_2
00cc 02a0 | | Declare_Subprogram Null_Subprogram
00cd 4801 |H | Short_Literal 0x1
00ce 035d | ] | Declare_Type Array,Defined
00cf 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x19 = 0xcf,0xffe6
00d0 4803 |H | Short_Literal 0x3
00d1 00da | | Load_Top At_Offset_2
00d2 02a0 | | Declare_Subprogram Null_Subprogram
00d3 4801 |H | Short_Literal 0x1
00d4 035d | ] | Declare_Type Array,Defined
00d5 029d 01eb | | Declare_Subprogram For_Outer_Call,INIT_01e8 ; Debug Table 0x1.0x1a = 0xd5,0xffe5
00d7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0x1b = 0xd7,0xffe4
00d8 0337 | 7 | Declare_Variable Array
00d9 8229 | ) | Call 0x1,0x29
00da 00d9 | | Load_Top At_Offset_1
00db 01d4 | | Execute Vector,Structure_Write
00dc 029d 0213 | | Declare_Subprogram For_Outer_Call,INIT_0210 ; Debug Table 0x1.0x1c = 0xdc,0xffe3
00de 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1d = 0xde,0xffe2
00df 00c7 | | Action Elaborate_Subprogram
00e0 029d 0253 | S| Declare_Subprogram For_Outer_Call,INIT_0250 ; Debug Table 0x1.0x1e = 0xe0,0xffe1
00e2 0007 | | Action Break_Optional ; Debug Table 0x1.0x1f = 0xe2,0xffe0
00e3 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x20 = 0xe3,0xffdf
00e4 00c7 | | Action Elaborate_Subprogram
00e5 029d 027b | {| Declare_Subprogram For_Outer_Call,INIT_0278 ; Debug Table 0x1.0x21 = 0xe5,0xffde
00e7 BODY_0008:
00e7 0007 | | Action Break_Optional ; Debug Table 0x1.0x22 = 0xe7,0x1
00e8 0007 | | Action Break_Optional ; Debug Table 0x1.0x23 = 0xe8,0x2
00e9 822d | - | Call 0x1,0x2d ; Debug Table 0x1.0x24 = 0xe9,0x3
00ea 7002 |p | Jump_Nonzero 0xed
00eb 4887 |H | Short_Literal 0x87
00ec 0257 | W | Execute Discrete,Raise
00ed 00bc | | Action Signal_Activated ; Debug Table 0x1.0x25 = 0xed,0x4
00ee 00bb | | Action Signal_Completion
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x00f3,0x042a,0x0002,0x0000,0x0037,0x0964,0x0000,0x0012
; Debug Table 0x2.0x0 = 0xf3,0x1
00f4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f5 4607 |F | Jump_Case 0x7
00f6 7819 |x | Jump 0x110 ; case 0x0
00f7 7806 |x | Jump 0xfe ; case 0x1
00f8 7805 |x | Jump 0xfe ; case 0x2
00f9 7804 |x | Jump 0xfe ; case 0x3
00fa 7806 |x | Jump 0x101 ; case 0x4
00fb 7811 |x | Jump 0x10d ; case 0x5
00fc 7810 |x | Jump 0x10d ; case 0x6
00fd 7812 |x | Jump 0x110 ; case 0x7
00fe 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x1 = 0xfe,0x2
00ff 822b | + | Call 0x1,0x2b
0100 4401 |D | Exit_Subprogram With_Result,0x1
0101 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x2 = 0x101,0x3
0102 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0103 e001 | | Load 0x0,0x1
0104 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0105 0260 | ` | Execute Discrete,In_Type
0106 6803 |h | Jump_Zero 0x10a
0107 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x3 = 0x107,0x4
0108 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0109 4401 |D | Exit_Subprogram With_Result,0x1
010a 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x4 = 0x10a,0x5
010b 822b | + | Call 0x1,0x2b
010c 4401 |D | Exit_Subprogram With_Result,0x1
010d 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x5 = 0x10d,0x6
010e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
010f 4401 |D | Exit_Subprogram With_Result,0x1
0110 4887 |H | Short_Literal 0x87 ; Debug Table 0x2.0x6 = 0x110,0x7
0111 0257 | W | Execute Discrete,Raise
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x011b,0x043a,0x0002,0x0000,0x0037,0x0964,0x0000,0x001f
; Debug Table 0x3.0x0 = 0x11b,0x1
011c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011d 4602 |F | Jump_Case 0x2
011e 7802 |x | Jump 0x121 ; case 0x0
011f 7816 |x | Jump 0x136 ; case 0x1
0120 782a |x* | Jump 0x14b ; case 0x2
0121 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x1 = 0x121,0x2
0122 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0123 0322 | " | Declare_Variable Record
0124 00db | | Load_Top At_Offset_3
0125 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0126 00d9 | | Load_Top At_Offset_1
0127 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0128 00db | | Load_Top At_Offset_3
0129 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012a 00d9 | | Load_Top At_Offset_1
012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012c e5fe | | Load 0x2,-0x2
012d e001 | | Load 0x0,0x1
012e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
012f 025b | [ | Execute Discrete,Check_In_Type
0130 00d9 | | Load_Top At_Offset_1
0131 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0132 4806 |H | Short_Literal 0x6
0133 00d9 | | Load_Top At_Offset_1
0134 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0135 4402 |D | Exit_Subprogram With_Result,0x2
0136 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0x136,0x3
0137 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0138 0322 | " | Declare_Variable Record
0139 00db | | Load_Top At_Offset_3
013a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
013b 00d9 | | Load_Top At_Offset_1
013c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013d 00db | | Load_Top At_Offset_3
013e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013f 00d9 | | Load_Top At_Offset_1
0140 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0141 e5fe | | Load 0x2,-0x2
0142 e001 | | Load 0x0,0x1
0143 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0144 025b | [ | Execute Discrete,Check_In_Type
0145 00d9 | | Load_Top At_Offset_1
0146 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0147 4805 |H | Short_Literal 0x5
0148 00d9 | | Load_Top At_Offset_1
0149 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
014a 4402 |D | Exit_Subprogram With_Result,0x2
014b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0x14b,0x4
014c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014d e001 | | Load 0x0,0x1
014e 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
014f 0260 | ` | Execute Discrete,In_Type
0150 6815 |h | Jump_Zero 0x166
0151 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x4 = 0x151,0x5
0152 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0153 0322 | " | Declare_Variable Record
0154 00db | | Load_Top At_Offset_3
0155 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0156 00d9 | | Load_Top At_Offset_1
0157 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0158 00db | | Load_Top At_Offset_3
0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015a 00d9 | | Load_Top At_Offset_1
015b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
015c e5fe | | Load 0x2,-0x2
015d e001 | | Load 0x0,0x1
015e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015f 025b | [ | Execute Discrete,Check_In_Type
0160 00d9 | | Load_Top At_Offset_1
0161 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0162 4804 |H | Short_Literal 0x4
0163 00d9 | | Load_Top At_Offset_1
0164 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0165 4402 |D | Exit_Subprogram With_Result,0x2
0166 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x5 = 0x166,0x6
0167 00db | | Load_Top At_Offset_3
0168 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0169 e5ff | | Load 0x2,-0x1
016a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016b 822c | , | Call 0x1,0x2c
016c 4402 |D | Exit_Subprogram With_Result,0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175 | u | .CONST 0x0175 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e212 | | Load 0x1,0x12 ; Debug Table 0x4 = .DEBUG 0x0173,0x0448,0x0002,0x0000,0x0037,0x0974,0x0000,0x0096
; Debug Table 0x4.0x0 = 0x173,0xffff
0174 0337 | 7 | Declare_Variable Array
0175 BODY_0170:
0175 00cf | | Action Mark_Auxiliary
0176 4804 |H | Short_Literal 0x4 ; Debug Table 0x4.0x1 = 0x176,0x1
0177 4801 |H | Short_Literal 0x1
0178 0007 | | Action Break_Optional
0179 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0x179,0x2
017a e217 | | Load 0x1,0x17
017b 01d7 | | Execute Vector,Field_Read
017c 00d9 | | Load_Top At_Offset_1
017d e213 | | Load 0x1,0x13
017e 01d7 | | Execute Vector,Field_Read
017f 0272 | r | Execute Discrete,Minus
0180 0248 | H | Execute Discrete,Check_In_Integer
0181 00d9 | | Load_Top At_Offset_1
0182 e214 | | Load 0x1,0x14
0183 01d7 | | Execute Vector,Field_Read
0184 0272 | r | Execute Discrete,Minus
0185 00d9 | | Load_Top At_Offset_1
0186 e402 | | Load 0x2,0x2
0187 01d6 | | Execute Vector,Field_Write
0188 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x3 = 0x188,0x3
0189 e402 | | Load 0x2,0x2
018a 01d7 | | Execute Vector,Field_Read
018b 0c00 | | Execute_Immediate Greater_Equal,0x0
018c 7002 |p | Jump_Nonzero 0x18f
018d 4887 |H | Short_Literal 0x87
018e 0257 | W | Execute Discrete,Raise
018f 00c8 | | Action Pop_Auxiliary_Range
0190 3fe8 |? | Loop_Increasing 0x179
0191 00ce | | Action Pop_Auxiliary
0192 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x4 = 0x192,0x4
0193 00ca | | Action Exit_Nullary_Function
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f | | .CONST 0x019f ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b e21c | | Load 0x1,0x1c ; Debug Table 0x5 = .DEBUG 0x019b,0x0454,0x0002,0x0000,0x0037,0x0974,0x0000,0x0101
; Debug Table 0x5.0x0 = 0x19b,0xffff
019c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
019d e21e | | Load 0x1,0x1e ; Debug Table 0x5.0x1 = 0x19d,0xfffe
019e 0337 | 7 | Declare_Variable Array
019f BODY_0198:
019f 00cf | | Action Mark_Auxiliary
01a0 4803 |H | Short_Literal 0x3 ; Debug Table 0x5.0x2 = 0x1a0,0x1
01a1 4801 |H | Short_Literal 0x1
01a2 00cf | | Action Mark_Auxiliary
01a3 4804 |H | Short_Literal 0x4 ; Debug Table 0x5.0x3 = 0x1a3,0x2
01a4 4801 |H | Short_Literal 0x1
01a5 0007 | | Action Break_Optional
01a6 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x4 = 0x1a6,0x3
01a7 00d9 | | Load_Top At_Offset_1
01a8 e406 | | Load 0x2,0x6
01a9 e403 | | Load 0x2,0x3
01aa 01d5 | | Execute Vector,Field_Reference
01ab 01d6 | | Execute Vector,Field_Write
01ac e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x5 = 0x1ac,0x4
01ad 00d9 | | Load_Top At_Offset_1
01ae e406 | | Load 0x2,0x6
01af e21b | | Load 0x1,0x1b
01b0 01d5 | | Execute Vector,Field_Reference
01b1 01d7 | | Execute Vector,Field_Read
01b2 0273 | s | Execute Discrete,Plus
01b3 c402 | | Store 0x2,0x2
01b4 00c8 | | Action Pop_Auxiliary_Range
01b5 3ff0 |? | Loop_Increasing 0x1a6
01b6 00ce | | Action Pop_Auxiliary
01b7 00c8 | | Action Pop_Auxiliary_Range
01b8 3fe9 |? | Loop_Increasing 0x1a2
01b9 00ce | | Action Pop_Auxiliary
01ba 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x6 = 0x1ba,0x5
01bb 00ca | | Action Exit_Nullary_Function
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c6 | | .CONST 0x01c6 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 e223 | # | Load 0x1,0x23 ; Debug Table 0x6 = .DEBUG 0x01c3,0x0464,0x0002,0x0000,0x0037,0x0974,0x0000,0x015a
; Debug Table 0x6.0x0 = 0x1c3,0xffff
01c4 0337 | 7 | Declare_Variable Array
01c5 e221 | ! | Load 0x1,0x21 ; Debug Table 0x6.0x1 = 0x1c5,0xfffe
01c6 BODY_01c0:
01c6 00cf | | Action Mark_Auxiliary
01c7 4804 |H | Short_Literal 0x4 ; Debug Table 0x6.0x2 = 0x1c7,0x1
01c8 4801 |H | Short_Literal 0x1
01c9 0007 | | Action Break_Optional
01ca 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x3 = 0x1ca,0x2
01cb a403 | | Store_Unchecked 0x2,0x3
01cc 00cf | | Action Mark_Auxiliary
01cd 4803 |H | Short_Literal 0x3 ; Debug Table 0x6.0x4 = 0x1cd,0x3
01ce 4801 |H | Short_Literal 0x1
01cf 0007 | | Action Break_Optional
01d0 e403 | | Load 0x2,0x3 ; Debug Table 0x6.0x5 = 0x1d0,0x4
01d1 e406 | | Load 0x2,0x6
01d2 00da | | Load_Top At_Offset_2
01d3 e402 | | Load 0x2,0x2
01d4 01d5 | | Execute Vector,Field_Reference
01d5 01d6 | | Execute Vector,Field_Write
01d6 e403 | | Load 0x2,0x3 ; Debug Table 0x6.0x6 = 0x1d6,0x5
01d7 e406 | | Load 0x2,0x6
01d8 00da | | Load_Top At_Offset_2
01d9 e21b | | Load 0x1,0x1b
01da 01d5 | | Execute Vector,Field_Reference
01db 01d7 | | Execute Vector,Field_Read
01dc 0273 | s | Execute Discrete,Plus
01dd c403 | | Store 0x2,0x3
01de 00c8 | | Action Pop_Auxiliary_Range
01df 3ff0 |? | Loop_Increasing 0x1d0
01e0 00ce | | Action Pop_Auxiliary
01e1 00c8 | | Action Pop_Auxiliary_Range
01e2 3fe7 |? | Loop_Increasing 0x1ca
01e3 00ce | | Action Pop_Auxiliary
01e4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x7 = 0x1e4,0x6
01e5 00ca | | Action Exit_Nullary_Function
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed | | .CONST 0x01ed ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb e228 | ( | Load 0x1,0x28 ; Debug Table 0x7 = .DEBUG 0x01eb,0x0476,0x0002,0x0000,0x0037,0x0974,0x0000,0x01b0
; Debug Table 0x7.0x0 = 0x1eb,0xffff
01ec 0337 | 7 | Declare_Variable Array
01ed BODY_01e8:
01ed 00cf | | Action Mark_Auxiliary
01ee 4803 |H | Short_Literal 0x3 ; Debug Table 0x7.0x1 = 0x1ee,0x1
01ef 4801 |H | Short_Literal 0x1
01f0 00cf | | Action Mark_Auxiliary
01f1 4804 |H | Short_Literal 0x4 ; Debug Table 0x7.0x2 = 0x1f1,0x2
01f2 4801 |H | Short_Literal 0x1
01f3 0007 | | Action Break_Optional
01f4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x1f4,0x3
01f5 e405 | | Load 0x2,0x5
01f6 e220 | | Load 0x1,0x20
01f7 01d5 | | Execute Vector,Field_Reference
01f8 01d7 | | Execute Vector,Field_Read
01f9 00d9 | | Load_Top At_Offset_1
01fa e405 | | Load 0x2,0x5
01fb e225 | % | Load 0x1,0x25
01fc 01d5 | | Execute Vector,Field_Reference
01fd 01d7 | | Execute Vector,Field_Read
01fe 0272 | r | Execute Discrete,Minus
01ff 00d9 | | Load_Top At_Offset_1
0200 e405 | | Load 0x2,0x5
0201 e402 | | Load 0x2,0x2
0202 01d5 | | Execute Vector,Field_Reference
0203 01d6 | | Execute Vector,Field_Write
0204 00c8 | | Action Pop_Auxiliary_Range
0205 3fee |? | Loop_Increasing 0x1f4
0206 00ce | | Action Pop_Auxiliary
0207 00c8 | | Action Pop_Auxiliary_Range
0208 3fe7 |? | Loop_Increasing 0x1f0
0209 00ce | | Action Pop_Auxiliary
020a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0x20a,0x4
020b 00ca | | Action Exit_Nullary_Function
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021a | | .CONST 0x021a ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0003 | | .CONST 0x0003 ; Number of locals
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x0213,0x0482,0x0002,0x0000,0x0037,0x0974,0x0000,0x01eb
; Debug Table 0x8.0x0 = 0x213,0xffff
0214 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0215 00e3 | | Load_Encached Natural_Cache
0216 03f1 | | Declare_Variable Discrete,With_Value
0217 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x1 = 0x217,0xfffe
0218 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0219 0007 | | Action Break_Optional
021a BODY_0210:
021a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x2 = 0x21a,0x1
021b 00d9 | | Load_Top At_Offset_1
021c 4802 |H | Short_Literal 0x2
021d e225 | % | Load 0x1,0x25
021e 01d5 | | Execute Vector,Field_Reference
021f 01d7 | | Execute Vector,Field_Read
0220 027c | | | Execute Discrete,Less
0221 680b |h | Jump_Zero 0x22d
0222 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x3 = 0x222,0x2
0223 00d9 | | Load_Top At_Offset_1
0224 4801 |H | Short_Literal 0x1
0225 e22a | * | Load 0x1,0x2a
0226 01d5 | | Execute Vector,Field_Reference
0227 01d7 | | Execute Vector,Field_Read
0228 0273 | s | Execute Discrete,Plus
0229 e003 | | Load 0x0,0x3
022a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
022b 025b | [ | Execute Discrete,Check_In_Type
022c 4401 |D | Exit_Subprogram With_Result,0x1
022d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x4 = 0x22d,0x3
022e 00d9 | | Load_Top At_Offset_1
022f 4803 |H | Short_Literal 0x3
0230 e225 | % | Load 0x1,0x25
0231 01d5 | | Execute Vector,Field_Reference
0232 01d7 | | Execute Vector,Field_Read
0233 027c | | | Execute Discrete,Less
0234 680b |h | Jump_Zero 0x240
0235 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x5 = 0x235,0x4
0236 00d9 | | Load_Top At_Offset_1
0237 4802 |H | Short_Literal 0x2
0238 e22a | * | Load 0x1,0x2a
0239 01d5 | | Execute Vector,Field_Reference
023a 01d7 | | Execute Vector,Field_Read
023b 0273 | s | Execute Discrete,Plus
023c e003 | | Load 0x0,0x3
023d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
023e 025b | [ | Execute Discrete,Check_In_Type
023f 4401 |D | Exit_Subprogram With_Result,0x1
0240 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x6 = 0x240,0x5
0241 00d9 | | Load_Top At_Offset_1
0242 4803 |H | Short_Literal 0x3
0243 e22a | * | Load 0x1,0x2a
0244 01d5 | | Execute Vector,Field_Reference
0245 01d7 | | Execute Vector,Field_Read
0246 0273 | s | Execute Discrete,Plus
0247 e003 | | Load 0x0,0x3
0248 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0249 025b | [ | Execute Discrete,Check_In_Type
024a 4401 |D | Exit_Subprogram With_Result,0x1
024b 0000 0000 | | .BLANK 0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259 | Y | .CONST 0x0259 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9 = .DEBUG 0x0253,0x0492,0x0002,0x0000,0x0037,0x0974,0x0000,0x02ba
; Debug Table 0x9.0x0 = 0x253,0xffff
0254 00e3 | | Load_Encached Natural_Cache
0255 03f1 | | Declare_Variable Discrete,With_Value
0256 029f 029b | | Declare_Subprogram For_Call,INIT_0298 ; Debug Table 0x9.0x1 = 0x256,0xfffe
0258 0007 | | Action Break_Optional ; Debug Table 0x9.0x2 = 0x258,0xfffd
0259 BODY_0250:
0259 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x3 = 0x259,0x1
025a 4801 |H | Short_Literal 0x1
025b 4802 |H | Short_Literal 0x2
025c e220 | | Load 0x1,0x20
025d 01d5 | | Execute Vector,Field_Reference
025e 01d7 | | Execute Vector,Field_Read
025f 027c | | | Execute Discrete,Less
0260 6803 |h | Jump_Zero 0x264
0261 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x4 = 0x261,0x2
0262 8403 | | Call 0x2,0x3
0263 4403 |D | Exit_Subprogram With_Result,0x3
0264 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x5 = 0x264,0x3
0265 4801 |H | Short_Literal 0x1
0266 4803 |H | Short_Literal 0x3
0267 e220 | | Load 0x1,0x20
0268 01d5 | | Execute Vector,Field_Reference
0269 01d7 | | Execute Vector,Field_Read
026a 027c | | | Execute Discrete,Less
026b 6803 |h | Jump_Zero 0x26f
026c 4802 |H | Short_Literal 0x2 ; Debug Table 0x9.0x6 = 0x26c,0x4
026d 8403 | | Call 0x2,0x3
026e 4403 |D | Exit_Subprogram With_Result,0x3
026f 4803 |H | Short_Literal 0x3 ; Debug Table 0x9.0x7 = 0x26f,0x5
0270 8403 | | Call 0x2,0x3
0271 4403 |D | Exit_Subprogram With_Result,0x3
0272 0000 0000 | | .BLANK 0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027f | | .CONST 0x027f ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 029f 02db | | Declare_Subprogram For_Call,INIT_02d8 ; Debug Table 0xa = .DEBUG 0x027b,0x04a4,0x0002,0x0000,0x0037,0x0974,0x0000,0x0441
027d 029f 030b | | Declare_Subprogram For_Call,INIT_0308
027f BODY_0278:
027f 00cf | | Action Mark_Auxiliary
0280 4806 |H | Short_Literal 0x6 ; Debug Table 0xa.0x0 = 0x280,0x1
0281 4801 |H | Short_Literal 0x1
0282 00cf | | Action Mark_Auxiliary
0283 6040 |`@ | Indirect_Literal Discrete,0x2c4,{0x00000000, 0x00002710} ; Debug Table 0xa.0x1 = 0x283,0x2
0284 4801 |H | Short_Literal 0x1
0285 0007 | | Action Break_Optional
0286 8402 | | Call 0x2,0x2 ; Debug Table 0xa.0x2 = 0x286,0x3
0287 00c8 | | Action Pop_Auxiliary_Range
0288 3ffd |? | Loop_Increasing 0x286
0289 00ce | | Action Pop_Auxiliary
028a 00c8 | | Action Pop_Auxiliary_Range
028b 3ff6 |? | Loop_Increasing 0x282
028c 00c9 | | Action Pop_Auxiliary_Loop
028d 6036 |`6 | Indirect_Literal Discrete,0x2c4,{0x00000000, 0x00002710} ; Debug Table 0xa.0x3 = 0x28d,0x4
028e 4801 |H | Short_Literal 0x1
028f 0007 | | Action Break_Optional
0290 8403 | | Call 0x2,0x3 ; Debug Table 0xa.0x4 = 0x290,0x5
0291 00c8 | | Action Pop_Auxiliary_Range
0292 3ffd |? | Loop_Increasing 0x290
0293 00ce | | Action Pop_Auxiliary
0294 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x5 = 0x294,0x6
0295 00ca | | Action Exit_Nullary_Function
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029e | | .CONST 0x029e ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b 029f 033b | ;| Declare_Subprogram For_Call,INIT_0338 ; Debug Table 0xb = .DEBUG 0x029b,0x04b2,0x0002,0x0000,0x0037,0x0974,0x0000,0x02db
; Debug Table 0xb.0x0 = 0x29b,0xffff
029d 0007 | | Action Break_Optional ; Debug Table 0xb.0x1 = 0x29d,0xfffe
029e BODY_0298:
029e e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x2 = 0x29e,0x1
029f 4803 |H | Short_Literal 0x3
02a0 e7ff | | Load 0x3,-0x1
02a1 e220 | | Load 0x1,0x20
02a2 01d5 | | Execute Vector,Field_Reference
02a3 01d7 | | Execute Vector,Field_Read
02a4 027c | | | Execute Discrete,Less
02a5 680e |h | Jump_Zero 0x2b4
02a6 e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x3 = 0x2a6,0x2
02a7 4802 |H | Short_Literal 0x2
02a8 e7ff | | Load 0x3,-0x1
02a9 e220 | | Load 0x1,0x20
02aa 01d5 | | Execute Vector,Field_Reference
02ab 01d7 | | Execute Vector,Field_Read
02ac 027c | | | Execute Discrete,Less
02ad 6803 |h | Jump_Zero 0x2b1
02ae 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x4 = 0x2ae,0x3
02af 8602 | | Call 0x3,0x2
02b0 4401 |D | Exit_Subprogram With_Result,0x1
02b1 4802 |H | Short_Literal 0x2 ; Debug Table 0xb.0x5 = 0x2b1,0x4
02b2 8602 | | Call 0x3,0x2
02b3 4401 |D | Exit_Subprogram With_Result,0x1
02b4 e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x6 = 0x2b4,0x5
02b5 4804 |H | Short_Literal 0x4
02b6 e7ff | | Load 0x3,-0x1
02b7 e220 | | Load 0x1,0x20
02b8 01d5 | | Execute Vector,Field_Reference
02b9 01d7 | | Execute Vector,Field_Read
02ba 027c | | | Execute Discrete,Less
02bb 6803 |h | Jump_Zero 0x2bf
02bc 4803 |H | Short_Literal 0x3 ; Debug Table 0xb.0x7 = 0x2bc,0x6
02bd 8602 | | Call 0x3,0x2
02be 4401 |D | Exit_Subprogram With_Result,0x1
02bf 4804 |H | Short_Literal 0x4 ; Debug Table 0xb.0x8 = 0x2bf,0x7
02c0 8602 | | Call 0x3,0x2
02c1 4401 |D | Exit_Subprogram With_Result,0x1
02c2 0000 0000 | | .XXX[0x2]
02c4 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
02c8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02cc 0000 0000 | | .LITERAL {0x00000000, 0x00080000}
02d0 0000 0000 | | .LITERAL {0x00000000, 0x00200000}
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02ff | | .CONST 0x02ff ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0005 | | .CONST 0x0005 ; Number of locals
02db INIT_02d8:
02db e001 | | Load 0x0,0x1 ; Debug Table 0xc = .DEBUG 0x02db,0x04c6,0x0004,0x0000,0x0037,0x0974,0x0000,0x049d
; Debug Table 0xc.0x0 = 0x2db,0xffff
02dc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02dd 0322 | " | Declare_Variable Record
02de 480a |H | Short_Literal 0xa
02df 00d9 | | Load_Top At_Offset_1
02e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02e1 4814 |H | Short_Literal 0x14
02e2 00d9 | | Load_Top At_Offset_1
02e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02e4 e409 | | Load 0x2,0x9
02e5 00d9 | | Load_Top At_Offset_1
02e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02e7 e406 | | Load 0x2,0x6
02e8 00d9 | | Load_Top At_Offset_1
02e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02ea e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x1 = 0x2ea,0xfffe
02eb 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02ec 0322 | " | Declare_Variable Record
02ed 00d9 | | Load_Top At_Offset_1
02ee e001 | | Load 0x0,0x1
02ef 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f0 00d9 | | Load_Top At_Offset_1
02f1 017d | } | Execute Record,Structure_Write
02f2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x2 = 0x2f2,0xfffd
02f3 820d | | Call 0x1,0xd
02f4 e003 | | Load 0x0,0x3
02f5 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02f6 03f1 | | Declare_Variable Discrete,With_Value
02f7 e001 | | Load 0x0,0x1 ; Debug Table 0xc.0x3 = 0x2f7,0xfffc
02f8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02f9 0322 | " | Declare_Variable Record
02fa 00d9 | | Load_Top At_Offset_1
02fb 00db | | Load_Top At_Offset_3
02fc 820e | | Call 0x1,0xe
02fd 00d9 | | Load_Top At_Offset_1
02fe 017d | } | Execute Record,Structure_Write
02ff BODY_02d8:
02ff 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x4 = 0x2ff,0x1
0300 00d9 | | Load_Top At_Offset_1
0301 017f | | Execute Record,Equal
0302 7002 |p | Jump_Nonzero 0x305
0303 4887 |H | Short_Literal 0x87
0304 0257 | W | Execute Discrete,Raise
0305 4501 |E | Exit_Subprogram 0x1 ; Debug Table 0xc.0x5 = 0x305,0x2
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 032f | / | .CONST 0x032f ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0005 | | .CONST 0x0005 ; Number of locals
030b INIT_0308:
030b e001 | | Load 0x0,0x1 ; Debug Table 0xd = .DEBUG 0x030b,0x04d4,0x0004,0x0000,0x0037,0x0974,0x0000,0x04f4
; Debug Table 0xd.0x0 = 0x30b,0xffff
030c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
030d 0322 | " | Declare_Variable Record
030e 480a |H | Short_Literal 0xa
030f 00d9 | | Load_Top At_Offset_1
0310 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0311 4900 |I | Short_Literal 0x100
0312 00d9 | | Load_Top At_Offset_1
0313 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0314 e406 | | Load 0x2,0x6
0315 00d9 | | Load_Top At_Offset_1
0316 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0317 4804 |H | Short_Literal 0x4
0318 00d9 | | Load_Top At_Offset_1
0319 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
031a e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x1 = 0x31a,0xfffe
031b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
031c 0322 | " | Declare_Variable Record
031d 00d9 | | Load_Top At_Offset_1
031e e001 | | Load 0x0,0x1
031f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0320 00d9 | | Load_Top At_Offset_1
0321 017d | } | Execute Record,Structure_Write
0322 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x2 = 0x322,0xfffd
0323 820d | | Call 0x1,0xd
0324 e003 | | Load 0x0,0x3
0325 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0326 03f1 | | Declare_Variable Discrete,With_Value
0327 e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x3 = 0x327,0xfffc
0328 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0329 0322 | " | Declare_Variable Record
032a 00d9 | | Load_Top At_Offset_1
032b 00db | | Load_Top At_Offset_3
032c 820e | | Call 0x1,0xe
032d 00d9 | | Load_Top At_Offset_1
032e 017d | } | Execute Record,Structure_Write
032f BODY_0308:
032f 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x4 = 0x32f,0x1
0330 00d9 | | Load_Top At_Offset_1
0331 017f | | Execute Record,Equal
0332 7002 |p | Jump_Nonzero 0x335
0333 4887 |H | Short_Literal 0x87
0334 0257 | W | Execute Discrete,Raise
0335 4501 |E | Exit_Subprogram 0x1 ; Debug Table 0xd.0x5 = 0x335,0x2
0336 0000 0000 | | .XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e001 | | Load 0x0,0x1 ; Debug Table 0xe = .DEBUG 0x033b,0x04e2,0x0002,0x0000,0x0037,0x0974,0x0000,0x02e5
; Debug Table 0xe.0x0 = 0x33b,0x1
033c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
033d 0322 | " | Declare_Variable Record
033e e5fe | | Load 0x2,-0x2
033f 00d9 | | Load_Top At_Offset_1
0340 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0341 e5ff | | Load 0x2,-0x1
0342 00d9 | | Load_Top At_Offset_1
0343 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0344 e402 | | Load 0x2,0x2
0345 e9ff | | Load 0x4,-0x1
0346 e7ff | | Load 0x3,-0x1
0347 e22a | * | Load 0x1,0x2a
0348 01d5 | | Execute Vector,Field_Reference
0349 01d7 | | Execute Vector,Field_Read
034a 0272 | r | Execute Discrete,Minus
034b e001 | | Load 0x0,0x1
034c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
034d 025b | [ | Execute Discrete,Check_In_Type
034e 00d9 | | Load_Top At_Offset_1
034f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0350 00db | | Load_Top At_Offset_3
0351 00d9 | | Load_Top At_Offset_1
0352 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0353 4401 |D | Exit_Subprogram With_Result,0x1
0354 0000 0000 | | .BLANK 0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug Table
0358 ; --------------------------------------------------------------------------------------
0358 0003 000f | | .CONST 0x0003,0x000f
035a 000b 03d2 | | .DEBUG 0x000b,0x03d2,0x8000,0x0000,0x0037,0x0964,0x0000,0x0009
0362 0012 03dc | | .DEBUG 0x0012,0x03dc,0x8000,0x0000,0x0037,0x0974,0x0000,0x0005
036a 00f3 042a | *| .DEBUG 0x00f3,0x042a,0x0002,0x0000,0x0037,0x0964,0x0000,0x0012
0372 011b 043a | :| .DEBUG 0x011b,0x043a,0x0002,0x0000,0x0037,0x0964,0x0000,0x001f
037a 0173 0448 | s H| .DEBUG 0x0173,0x0448,0x0002,0x0000,0x0037,0x0974,0x0000,0x0096
0382 019b 0454 | T| .DEBUG 0x019b,0x0454,0x0002,0x0000,0x0037,0x0974,0x0000,0x0101
038a 01c3 0464 | d| .DEBUG 0x01c3,0x0464,0x0002,0x0000,0x0037,0x0974,0x0000,0x015a
0392 01eb 0476 | v| .DEBUG 0x01eb,0x0476,0x0002,0x0000,0x0037,0x0974,0x0000,0x01b0
039a 0213 0482 | | .DEBUG 0x0213,0x0482,0x0002,0x0000,0x0037,0x0974,0x0000,0x01eb
03a2 0253 0492 | S | .DEBUG 0x0253,0x0492,0x0002,0x0000,0x0037,0x0974,0x0000,0x02ba
03aa 027b 04a4 | { | .DEBUG 0x027b,0x04a4,0x0002,0x0000,0x0037,0x0974,0x0000,0x0441
03b2 029b 04b2 | | .DEBUG 0x029b,0x04b2,0x0002,0x0000,0x0037,0x0974,0x0000,0x02db
03ba 02db 04c6 | | .DEBUG 0x02db,0x04c6,0x0004,0x0000,0x0037,0x0974,0x0000,0x049d
03c2 030b 04d4 | | .DEBUG 0x030b,0x04d4,0x0004,0x0000,0x0037,0x0974,0x0000,0x04f4
03ca 033b 04e2 | ; | .DEBUG 0x033b,0x04e2,0x0002,0x0000,0x0037,0x0974,0x0000,0x02e5
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug3 Subtable 0x0
03d2 ; --------------------------------------------------------------------------------------
03d2 0004 0000 | | .DBG3TAB 0x0004,0x0000
03d4 000b ffff | | .CONST 0x000b,0xffff
03d6 000c fffe | | .CONST 0x000c,0xfffe
03d8 000d fffd | | .CONST 0x000d,0xfffd
03da 000f fffc | | .CONST 0x000f,0xfffc
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug3 Subtable 0x1
03dc ; --------------------------------------------------------------------------------------
03dc 0022 0004 | " | .DBG3TAB 0x0022,0x0004
03de 0012 ffff | | .CONST 0x0012,0xffff
03e0 0017 fffe | | .CONST 0x0017,0xfffe
03e2 001b fffd | | .CONST 0x001b,0xfffd
03e4 001f fffc | | .CONST 0x001f,0xfffc
03e6 0025 fffb | % | .CONST 0x0025,0xfffb
03e8 003d fffa | = | .CONST 0x003d,0xfffa
03ea 0055 fff9 | U | .CONST 0x0055,0xfff9
03ec 0059 fff8 | Y | .CONST 0x0059,0xfff8
03ee 005f fff7 | _ | .CONST 0x005f,0xfff7
03f0 0075 fff6 | u | .CONST 0x0075,0xfff6
03f2 0077 fff5 | w | .CONST 0x0077,0xfff5
03f4 007c fff4 | | | .CONST 0x007c,0xfff4
03f6 0082 fff3 | | .CONST 0x0082,0xfff3
03f8 009a fff2 | | .CONST 0x009a,0xfff2
03fa 009e fff1 | | .CONST 0x009e,0xfff1
03fc 00a4 fff0 | | .CONST 0x00a4,0xfff0
03fe 00aa ffef | | .CONST 0x00aa,0xffef
0400 00ac ffee | | .CONST 0x00ac,0xffee
0402 00b1 ffed | | .CONST 0x00b1,0xffed
0404 00b5 ffec | | .CONST 0x00b5,0xffec
0406 00bb ffeb | | .CONST 0x00bb,0xffeb
0408 00c1 ffea | | .CONST 0x00c1,0xffea
040a 00c3 ffe9 | | .CONST 0x00c3,0xffe9
040c 00c8 ffe8 | | .CONST 0x00c8,0xffe8
040e 00c9 ffe7 | | .CONST 0x00c9,0xffe7
0410 00cf ffe6 | | .CONST 0x00cf,0xffe6
0412 00d5 ffe5 | | .CONST 0x00d5,0xffe5
0414 00d7 ffe4 | | .CONST 0x00d7,0xffe4
0416 00dc ffe3 | | .CONST 0x00dc,0xffe3
0418 00de ffe2 | | .CONST 0x00de,0xffe2
041a 00e0 ffe1 | | .CONST 0x00e0,0xffe1
041c 00e2 ffe0 | | .CONST 0x00e2,0xffe0
041e 00e3 ffdf | | .CONST 0x00e3,0xffdf
0420 00e5 ffde | | .CONST 0x00e5,0xffde
0422 00e7 0001 | | .CONST 0x00e7,0x0001
0424 00e8 0002 | | .CONST 0x00e8,0x0002
0426 00e9 0003 | | .CONST 0x00e9,0x0003
0428 00ed 0004 | | .CONST 0x00ed,0x0004
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x2
042a ; --------------------------------------------------------------------------------------
042a 0000 0007 | | .DBG3TAB 0x0000,0x0007
042c 00f3 0001 | | .CONST 0x00f3,0x0001
042e 00fe 0002 | | .CONST 0x00fe,0x0002
0430 0101 0003 | | .CONST 0x0101,0x0003
0432 0107 0004 | | .CONST 0x0107,0x0004
0434 010a 0005 | | .CONST 0x010a,0x0005
0436 010d 0006 | | .CONST 0x010d,0x0006
0438 0110 0007 | | .CONST 0x0110,0x0007
043a ; --------------------------------------------------------------------------------------
043a ; Debug3 Subtable 0x3
043a ; --------------------------------------------------------------------------------------
043a 0000 0006 | | .DBG3TAB 0x0000,0x0006
043c 011b 0001 | | .CONST 0x011b,0x0001
043e 0121 0002 | ! | .CONST 0x0121,0x0002
0440 0136 0003 | 6 | .CONST 0x0136,0x0003
0442 014b 0004 | K | .CONST 0x014b,0x0004
0444 0151 0005 | Q | .CONST 0x0151,0x0005
0446 0166 0006 | f | .CONST 0x0166,0x0006
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug3 Subtable 0x4
0448 ; --------------------------------------------------------------------------------------
0448 0001 0004 | | .DBG3TAB 0x0001,0x0004
044a 0173 ffff | s | .CONST 0x0173,0xffff
044c 0176 0001 | v | .CONST 0x0176,0x0001
044e 0179 0002 | y | .CONST 0x0179,0x0002
0450 0188 0003 | | .CONST 0x0188,0x0003
0452 0192 0004 | | .CONST 0x0192,0x0004
0454 ; --------------------------------------------------------------------------------------
0454 ; Debug3 Subtable 0x5
0454 ; --------------------------------------------------------------------------------------
0454 0002 0005 | | .DBG3TAB 0x0002,0x0005
0456 019b ffff | | .CONST 0x019b,0xffff
0458 019d fffe | | .CONST 0x019d,0xfffe
045a 01a0 0001 | | .CONST 0x01a0,0x0001
045c 01a3 0002 | | .CONST 0x01a3,0x0002
045e 01a6 0003 | | .CONST 0x01a6,0x0003
0460 01ac 0004 | | .CONST 0x01ac,0x0004
0462 01ba 0005 | | .CONST 0x01ba,0x0005
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug3 Subtable 0x6
0464 ; --------------------------------------------------------------------------------------
0464 0002 0006 | | .DBG3TAB 0x0002,0x0006
0466 01c3 ffff | | .CONST 0x01c3,0xffff
0468 01c5 fffe | | .CONST 0x01c5,0xfffe
046a 01c7 0001 | | .CONST 0x01c7,0x0001
046c 01ca 0002 | | .CONST 0x01ca,0x0002
046e 01cd 0003 | | .CONST 0x01cd,0x0003
0470 01d0 0004 | | .CONST 0x01d0,0x0004
0472 01d6 0005 | | .CONST 0x01d6,0x0005
0474 01e4 0006 | | .CONST 0x01e4,0x0006
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug3 Subtable 0x7
0476 ; --------------------------------------------------------------------------------------
0476 0001 0004 | | .DBG3TAB 0x0001,0x0004
0478 01eb ffff | | .CONST 0x01eb,0xffff
047a 01ee 0001 | | .CONST 0x01ee,0x0001
047c 01f1 0002 | | .CONST 0x01f1,0x0002
047e 01f4 0003 | | .CONST 0x01f4,0x0003
0480 020a 0004 | | .CONST 0x020a,0x0004
0482 ; --------------------------------------------------------------------------------------
0482 ; Debug3 Subtable 0x8
0482 ; --------------------------------------------------------------------------------------
0482 0002 0005 | | .DBG3TAB 0x0002,0x0005
0484 0213 ffff | | .CONST 0x0213,0xffff
0486 0217 fffe | | .CONST 0x0217,0xfffe
0488 021a 0001 | | .CONST 0x021a,0x0001
048a 0222 0002 | " | .CONST 0x0222,0x0002
048c 022d 0003 | - | .CONST 0x022d,0x0003
048e 0235 0004 | 5 | .CONST 0x0235,0x0004
0490 0240 0005 | @ | .CONST 0x0240,0x0005
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug3 Subtable 0x9
0492 ; --------------------------------------------------------------------------------------
0492 0003 0005 | | .DBG3TAB 0x0003,0x0005
0494 0253 ffff | S | .CONST 0x0253,0xffff
0496 0256 fffe | V | .CONST 0x0256,0xfffe
0498 0258 fffd | X | .CONST 0x0258,0xfffd
049a 0259 0001 | Y | .CONST 0x0259,0x0001
049c 0261 0002 | a | .CONST 0x0261,0x0002
049e 0264 0003 | d | .CONST 0x0264,0x0003
04a0 026c 0004 | l | .CONST 0x026c,0x0004
04a2 026f 0005 | o | .CONST 0x026f,0x0005
04a4 ; --------------------------------------------------------------------------------------
04a4 ; Debug3 Subtable 0xa
04a4 ; --------------------------------------------------------------------------------------
04a4 0000 0006 | | .DBG3TAB 0x0000,0x0006
04a6 0280 0001 | | .CONST 0x0280,0x0001
04a8 0283 0002 | | .CONST 0x0283,0x0002
04aa 0286 0003 | | .CONST 0x0286,0x0003
04ac 028d 0004 | | .CONST 0x028d,0x0004
04ae 0290 0005 | | .CONST 0x0290,0x0005
04b0 0294 0006 | | .CONST 0x0294,0x0006
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug3 Subtable 0xb
04b2 ; --------------------------------------------------------------------------------------
04b2 0002 0007 | | .DBG3TAB 0x0002,0x0007
04b4 029b ffff | | .CONST 0x029b,0xffff
04b6 029d fffe | | .CONST 0x029d,0xfffe
04b8 029e 0001 | | .CONST 0x029e,0x0001
04ba 02a6 0002 | | .CONST 0x02a6,0x0002
04bc 02ae 0003 | | .CONST 0x02ae,0x0003
04be 02b1 0004 | | .CONST 0x02b1,0x0004
04c0 02b4 0005 | | .CONST 0x02b4,0x0005
04c2 02bc 0006 | | .CONST 0x02bc,0x0006
04c4 02bf 0007 | | .CONST 0x02bf,0x0007
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug3 Subtable 0xc
04c6 ; --------------------------------------------------------------------------------------
04c6 0004 0002 | | .DBG3TAB 0x0004,0x0002
04c8 02db ffff | | .CONST 0x02db,0xffff
04ca 02ea fffe | | .CONST 0x02ea,0xfffe
04cc 02f2 fffd | | .CONST 0x02f2,0xfffd
04ce 02f7 fffc | | .CONST 0x02f7,0xfffc
04d0 02ff 0001 | | .CONST 0x02ff,0x0001
04d2 0305 0002 | | .CONST 0x0305,0x0002
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug3 Subtable 0xd
04d4 ; --------------------------------------------------------------------------------------
04d4 0004 0002 | | .DBG3TAB 0x0004,0x0002
04d6 030b ffff | | .CONST 0x030b,0xffff
04d8 031a fffe | | .CONST 0x031a,0xfffe
04da 0322 fffd | " | .CONST 0x0322,0xfffd
04dc 0327 fffc | ' | .CONST 0x0327,0xfffc
04de 032f 0001 | / | .CONST 0x032f,0x0001
04e0 0335 0002 | 5 | .CONST 0x0335,0x0002
04e2 ; --------------------------------------------------------------------------------------
04e2 ; Debug3 Subtable 0xe
04e2 ; --------------------------------------------------------------------------------------
04e2 0000 0001 | | .DBG3TAB 0x0000,0x0001
04e4 033b 0001 | ; | .CONST 0x033b,0x0001
04e6 0000 0000 | | .BLANK 0000[0x11a]