|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02c8 | | .CONST 0x02c8 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 010e | | .CONST 0x010e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002f | / | .CONST 0x002f ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x034a,0x8000,0x0000,0x0037,0x5c34,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 480f |H | Short_Literal 0xf
000f 00e3 | | Load_Encached Natural_Cache
0010 03f9 | | Declare_Type Discrete,Constrained,Visible
0011 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x11,0xfffc
0012 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x12,0xfffb
0013 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x13,0xfffa
0014 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x14,0xfff9
0015 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x15,0xfff8
0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x16,0xfff7
0017 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x17,0xfff6
0018 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x18,0xfff5
0019 0007 | | Action Break_Optional ; Debug Table 0x0.0xb = 0x19,0xfff4
001a 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x1a,0xfff3
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x1b,0xfff2
001c 0007 | | Action Break_Optional ; Debug Table 0x0.0xe = 0x1c,0xfff1
001d 0007 | | Action Break_Optional ; Debug Table 0x0.0xf = 0x1d,0xfff0
001e 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x1e,0xffef
001f 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x1f,0xffee
0020 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x20,0xffed
0021 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x21,0xffec
0022 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x22,0xffeb
0023 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x23,0xffea
0024 0007 | | Action Break_Optional ; Debug Table 0x0.0x16 = 0x24,0xffe9
0025 0007 | | Action Break_Optional ; Debug Table 0x0.0x17 = 0x25,0xffe8
0026 0007 | | Action Break_Optional ; Debug Table 0x0.0x18 = 0x26,0xffe7
0027 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x19 = 0x27,0xffe6
0028 4bff |K | Short_Literal 0x3ff
0029 00e5 | | Load_Encached Long_Integer_Cache
002a 03f9 | | Declare_Type Discrete,Constrained,Visible
002b 0007 | | Action Break_Optional ; Debug Table 0x0.0x1a = 0x2b,0xffe5
002c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1b = 0x2c,0xffe4
002d 0007 | | Action Break_Optional ; Debug Table 0x0.0x1c = 0x2d,0xffe3
002e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1d = 0x2e,0xffe2
002f 0007 | | Action Break_Optional ; Debug Table 0x0.0x1e = 0x2f,0xffe1
0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x1f = 0x30,0xffe0
0031 0007 | | Action Break_Optional ; Debug Table 0x0.0x20 = 0x31,0xffdf
0032 0007 | | Action Break_Optional ; Debug Table 0x0.0x21 = 0x32,0xffde
0033 0007 | | Action Break_Optional ; Debug Table 0x0.0x22 = 0x33,0xffdd
0034 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x23 = 0x34,0xffdc
0035 4bff |K | Short_Literal 0x3ff
0036 00e1 | | Load_Encached Boolean_Cache
0037 02a0 | | Declare_Subprogram Null_Subprogram
0038 4801 |H | Short_Literal 0x1
0039 035e | ^ | Declare_Type Array,Defined,Visible
003a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x24 = 0x3a,0xffdb
003b 0336 | 6 | Declare_Variable Array,Visible
003c 00d9 | | Load_Top At_Offset_1
003d 0337 | 7 | Declare_Variable Array
003e 4bff |K | Short_Literal 0x3ff
003f 4800 |H | Short_Literal 0x0
0040 4800 |H | Short_Literal 0x0
0041 00d9 | | Load_Top At_Offset_1
0042 e211 | | Load 0x1,0x11
0043 01d6 | | Execute Vector,Field_Write
0044 3ffb |? | Loop_Increasing 0x40
0045 00da | | Load_Top At_Offset_2
0046 01c3 | | Execute Vector,Check_In_Type
0047 00d9 | | Load_Top At_Offset_1
0048 01d4 | | Execute Vector,Structure_Write
0049 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x25 = 0x49,0xffda
004a 0336 | 6 | Declare_Variable Array,Visible
004b 00da | | Load_Top At_Offset_2
004c 0337 | 7 | Declare_Variable Array
004d 4801 |H | Short_Literal 0x1
004e 4806 |H | Short_Literal 0x6
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 4801 |H | Short_Literal 0x1
0052 4800 |H | Short_Literal 0x0
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 4801 |H | Short_Literal 0x1
0056 4801 |H | Short_Literal 0x1
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4805 |H | Short_Literal 0x5
005a 4802 |H | Short_Literal 0x2
005b 4800 |H | Short_Literal 0x0
005c 00d9 | | Load_Top At_Offset_1
005d e212 | | Load 0x1,0x12
005e 01d6 | | Execute Vector,Field_Write
005f 3ffb |? | Loop_Increasing 0x5b
0060 4bff |K | Short_Literal 0x3ff
0061 4807 |H | Short_Literal 0x7
0062 4800 |H | Short_Literal 0x0
0063 00d9 | | Load_Top At_Offset_1
0064 e212 | | Load 0x1,0x12
0065 01d6 | | Execute Vector,Field_Write
0066 3ffb |? | Loop_Increasing 0x62
0067 00db | | Load_Top At_Offset_3
0068 01c3 | | Execute Vector,Check_In_Type
0069 00d9 | | Load_Top At_Offset_1
006a 01d4 | | Execute Vector,Structure_Write
006b 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x26 = 0x6b,0xffd9
006c e20d | | Load 0x1,0xd
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e 4802 |H | Short_Literal 0x2
006f 032e | . | Declare_Type Record,Defined,Visible
0070 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x27 = 0x70,0xffd8
0071 4806 |H | Short_Literal 0x6
0072 00e2 | | Load_Encached Integer_Cache
0073 03f9 | | Declare_Type Discrete,Constrained,Visible
0074 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x28 = 0x74,0xffd7
0075 4806 |H | Short_Literal 0x6
0076 00db | | Load_Top At_Offset_3
0077 02a0 | | Declare_Subprogram Null_Subprogram
0078 4801 |H | Short_Literal 0x1
0079 035e | ^ | Declare_Type Array,Defined,Visible
007a 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x29 = 0x7a,0xffd6
007b 0322 | " | Declare_Variable Record
007c 4800 |H | Short_Literal 0x0
007d 00d9 | | Load_Top At_Offset_1
007e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
007f 4800 |H | Short_Literal 0x0
0080 00d9 | | Load_Top At_Offset_1
0081 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0082 0129 | ) | Execute Any,Make_Visible
0083 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x2a = 0x83,0xffd5
0084 0336 | 6 | Declare_Variable Array,Visible
0085 00da | | Load_Top At_Offset_2
0086 0337 | 7 | Declare_Variable Array
0087 4806 |H | Short_Literal 0x6
0088 4800 |H | Short_Literal 0x0
0089 e215 | | Load 0x1,0x15
008a 00d9 | | Load_Top At_Offset_1
008b e217 | | Load 0x1,0x17
008c 01d6 | | Execute Vector,Field_Write
008d 3ffb |? | Loop_Increasing 0x89
008e 00d9 | | Load_Top At_Offset_1
008f 01d4 | | Execute Vector,Structure_Write
0090 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x2b = 0x90,0xffd4
0091 0336 | 6 | Declare_Variable Array,Visible
0092 00db | | Load_Top At_Offset_3
0093 0337 | 7 | Declare_Variable Array
0094 e212 | | Load 0x1,0x12
0095 0322 | " | Declare_Variable Record
0096 4800 |H | Short_Literal 0x0
0097 00d9 | | Load_Top At_Offset_1
0098 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0099 480f |H | Short_Literal 0xf
009a 00d9 | | Load_Top At_Offset_1
009b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009c 4800 |H | Short_Literal 0x0
009d 00da | | Load_Top At_Offset_2
009e 01d6 | | Execute Vector,Field_Write
009f 4806 |H | Short_Literal 0x6
00a0 4801 |H | Short_Literal 0x1
00a1 e215 | | Load 0x1,0x15
00a2 00d9 | | Load_Top At_Offset_1
00a3 e218 | | Load 0x1,0x18
00a4 01d6 | | Execute Vector,Field_Write
00a5 3ffb |? | Loop_Increasing 0xa1
00a6 00d9 | | Load_Top At_Offset_1
00a7 01d4 | | Execute Vector,Structure_Write
00a8 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x2c = 0xa8,0xffd3
00a9 0336 | 6 | Declare_Variable Array,Visible
00aa e214 | | Load 0x1,0x14
00ab 0337 | 7 | Declare_Variable Array
00ac e212 | | Load 0x1,0x12
00ad 0322 | " | Declare_Variable Record
00ae 4801 |H | Short_Literal 0x1
00af 00d9 | | Load_Top At_Offset_1
00b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b1 480f |H | Short_Literal 0xf
00b2 00d9 | | Load_Top At_Offset_1
00b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b4 4800 |H | Short_Literal 0x0
00b5 00da | | Load_Top At_Offset_2
00b6 01d6 | | Execute Vector,Field_Write
00b7 4806 |H | Short_Literal 0x6
00b8 4801 |H | Short_Literal 0x1
00b9 e215 | | Load 0x1,0x15
00ba 00d9 | | Load_Top At_Offset_1
00bb e219 | | Load 0x1,0x19
00bc 01d6 | | Execute Vector,Field_Write
00bd 3ffb |? | Loop_Increasing 0xb9
00be 00d9 | | Load_Top At_Offset_1
00bf 01d4 | | Execute Vector,Structure_Write
00c0 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2d = 0xc0,0xffd2
00c2 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2e = 0xc2,0xffd1
00c4 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2f = 0xc4,0xffd0
00c6 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x30 = 0xc6,0xffcf
00c8 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x31 = 0xc8,0xffce
00ca 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x32 = 0xca,0xffcd
00cc 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x33 = 0xcc,0xffcc
00ce 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x34 = 0xce,0xffcb
00d0 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x35 = 0xd0,0xffca
00d2 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x36 = 0xd2,0xffc9
00d4 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x37 = 0xd4,0xffc8
00d6 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x38 = 0xd6,0xffc7
00d8 00bf | | Action Accept_Activation
00d9 e20f | | Load 0x1,0xf ; Debug Table 0x1 = .DEBUG 0x00d9,0x03be,0x8000,0x0000,0x0037,0x5d44,0x0000,0x0005
; Debug Table 0x1.0x0 = 0xd9,0xffff
00da 0337 | 7 | Declare_Variable Array
00db e210 | | Load 0x1,0x10
00dc 00d9 | | Load_Top At_Offset_1
00dd 01d4 | | Execute Vector,Structure_Write
00de 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x1 = 0xde,0xfffe
00df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e0 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1.0x2 = 0xe0,0xfffd
00e1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e2 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1.0x3 = 0xe2,0xfffc
00e3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e4 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1.0x4 = 0xe4,0xfffb
00e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e6 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1.0x5 = 0xe6,0xfffa
00e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x6 = 0xe8,0xfff9
00e9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ea e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x7 = 0xea,0xfff8
00eb 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
00ec 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x8 = 0xec,0xfff7
00ed 4806 |H | Short_Literal 0x6
00ee 00e2 | | Load_Encached Integer_Cache
00ef 03f8 | | Declare_Type Discrete,Constrained
00f0 0007 | | Action Break_Optional ; Debug Table 0x1.0x9 = 0xf0,0xfff6
00f1 0007 | | Action Break_Optional ; Debug Table 0x1.0xa = 0xf1,0xfff5
00f2 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xb = 0xf2,0xfff4
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xc = 0xf4,0xfff3
00f5 00c7 | | Action Elaborate_Subprogram
00f6 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call ; Debug Table 0x1.0xd = 0xf6,0xfff2
00f8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xe = 0xf8,0xfff1
00f9 00c7 | | Action Elaborate_Subprogram
00fa 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call ; Debug Table 0x1.0xf = 0xfa,0xfff0
00fc 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x10 = 0xfc,0xffef
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x11 = 0xfe,0xffee
00ff 00c7 | | Action Elaborate_Subprogram
0100 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x12 = 0x100,0xffed
0101 00c7 | | Action Elaborate_Subprogram
0102 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0x13 = 0x102,0xffec
0103 00c7 | | Action Elaborate_Subprogram
0104 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x14 = 0x104,0xffeb
0105 00c7 | | Action Elaborate_Subprogram
0106 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0x15 = 0x106,0xffea
0107 00c7 | | Action Elaborate_Subprogram
0108 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 ; Debug Table 0x1.0x16 = 0x108,0xffe9
0109 00c7 | | Action Elaborate_Subprogram
010a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 ; Debug Table 0x1.0x17 = 0x10a,0xffe8
010b 00c7 | | Action Elaborate_Subprogram
010c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x18 = 0x10c,0xffe7
010d 00c7 | | Action Elaborate_Subprogram
010e BODY_0008:
010e 00bc | | Action Signal_Activated
010f 00bb | | Action Signal_Completion
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e22a | * | Load 0x1,0x2a ; Debug Table 0x2 = .DEBUG 0x0113,0x03f2,0x0002,0x0000,0x0037,0x5c34,0x0000,0x018a
; Debug Table 0x2.0x0 = 0x113,0x1
0114 0a01 | | Execute_Immediate Plus,0x1
0115 a22a | * | Store_Unchecked 0x1,0x2a
0116 e22b | + | Load 0x1,0x2b ; Debug Table 0x2.0x1 = 0x116,0x2
0117 6828 |h( | Jump_Zero 0x140
0118 e214 | | Load 0x1,0x14 ; Debug Table 0x2.0x2 = 0x118,0x3
0119 01d9 | | Execute Vector,Reverse_Bounds
011a 0007 | | Action Break_Optional
011b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x11b,0x4
011c e5ff | | Load 0x2,-0x1
011d 01d5 | | Execute Vector,Field_Reference
011e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011f 0007 | | Action Break_Optional
0120 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x4 = 0x120,0x401
0121 0007 | | Action Break_Optional
0122 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x122,0x402
0123 0007 | | Action Break_Optional
0124 e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x6 = 0x124,0x403
0125 0007 | | Action Break_Optional
0126 0279 | y | Execute Discrete,And ; Debug Table 0x2.0x7 = 0x126,0x404
0127 0007 | | Action Break_Optional
0128 027f | | Execute Discrete,Equal ; Debug Table 0x2.0x8 = 0x128,0x405
0129 00d0 | | Action Swap_Control
012a 00d1 | | Pop_Control Pop_Count_1
012b 6809 |h | Jump_Zero 0x135 ; Debug Table 0x2.0x9 = 0x12b,0x4
012c 00d8 | | Load_Top At_Offset_0
012d e5ff | | Load 0x2,-0x1
012e 01d5 | | Execute Vector,Field_Reference
012f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0130 e5fe | | Load 0x2,-0x2
0131 027f | | Execute Discrete,Equal
0132 6802 |h | Jump_Zero 0x135
0133 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xa = 0x133,0x5
0134 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0135 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xb = 0x135,0x6
0136 e5ff | | Load 0x2,-0x1
0137 01d5 | | Execute Vector,Field_Reference
0138 e215 | | Load 0x1,0x15
0139 017f | | Execute Record,Equal
013a 6802 |h | Jump_Zero 0x13d
013b 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xc = 0x13b,0x7
013c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
013d 3fdd |? | Loop_Increasing 0x11b
013e 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xd = 0x13e,0x8
013f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0140 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xe = 0x140,0x9
0141 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e22a | * | Load 0x1,0x2a ; Debug Table 0x3 = .DEBUG 0x014b,0x0412,0x0002,0x0000,0x0037,0x5c34,0x0000,0x019b
; Debug Table 0x3.0x0 = 0x14b,0x1
014c 0a01 | | Execute_Immediate Plus,0x1
014d a22a | * | Store_Unchecked 0x1,0x2a
014e e22b | + | Load 0x1,0x2b ; Debug Table 0x3.0x1 = 0x14e,0x2
014f 6828 |h( | Jump_Zero 0x178
0150 e214 | | Load 0x1,0x14 ; Debug Table 0x3.0x2 = 0x150,0x3
0151 01d9 | | Execute Vector,Reverse_Bounds
0152 0007 | | Action Break_Optional
0153 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x153,0x4
0154 e5ff | | Load 0x2,-0x1
0155 01d5 | | Execute Vector,Field_Reference
0156 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0157 0007 | | Action Break_Optional
0158 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x4 = 0x158,0x401
0159 0007 | | Action Break_Optional
015a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x15a,0x402
015b 0007 | | Action Break_Optional
015c e404 | | Load 0x2,0x4 ; Debug Table 0x3.0x6 = 0x15c,0x403
015d 0007 | | Action Break_Optional
015e 0279 | y | Execute Discrete,And ; Debug Table 0x3.0x7 = 0x15e,0x404
015f 0007 | | Action Break_Optional
0160 027f | | Execute Discrete,Equal ; Debug Table 0x3.0x8 = 0x160,0x405
0161 00d0 | | Action Swap_Control
0162 00d1 | | Pop_Control Pop_Count_1
0163 6809 |h | Jump_Zero 0x16d ; Debug Table 0x3.0x9 = 0x163,0x4
0164 00d8 | | Load_Top At_Offset_0
0165 e5ff | | Load 0x2,-0x1
0166 01d5 | | Execute Vector,Field_Reference
0167 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0168 e5fe | | Load 0x2,-0x2
0169 01d7 | | Execute Vector,Field_Read
016a 6802 |h | Jump_Zero 0x16d
016b 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xa = 0x16b,0x5
016c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
016d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xb = 0x16d,0x6
016e e5ff | | Load 0x2,-0x1
016f 01d5 | | Execute Vector,Field_Reference
0170 e215 | | Load 0x1,0x15
0171 017f | | Execute Record,Equal
0172 6802 |h | Jump_Zero 0x175
0173 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xc = 0x173,0x7
0174 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0175 3fdd |? | Loop_Increasing 0x153
0176 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xd = 0x176,0x8
0177 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0178 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xe = 0x178,0x9
0179 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0183,0x0432,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01ac
; Debug Table 0x4.0x0 = 0x183,0x1
0184 a22b | + | Store_Unchecked 0x1,0x2b
0185 e228 | ( | Load 0x1,0x28 ; Debug Table 0x4.0x1 = 0x185,0x2
0186 0a01 | | Execute_Immediate Plus,0x1
0187 a228 | ( | Store_Unchecked 0x1,0x28
0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e22b | + | Load 0x1,0x2b ; Debug Table 0x5 = .DEBUG 0x0193,0x0438,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01b5
; Debug Table 0x5.0x0 = 0x193,0x1
0194 00ca | | Action Exit_Nullary_Function
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4800 |H | Short_Literal 0x0 ; Debug Table 0x6 = .DEBUG 0x019b,0x043c,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01ba
; Debug Table 0x6.0x0 = 0x19b,0x1
019c 00db | | Load_Top At_Offset_3
019d 01d5 | | Execute Vector,Field_Reference
019e 822e | . | Call 0x1,0x2e
019f 4801 |H | Short_Literal 0x1
01a0 e5ff | | Load 0x2,-0x1
01a1 01d5 | | Execute Vector,Field_Reference
01a2 822e | . | Call 0x1,0x2e
01a3 01cc | | Execute Vector,Catenate
01a4 4802 |H | Short_Literal 0x2
01a5 e5ff | | Load 0x2,-0x1
01a6 01d5 | | Execute Vector,Field_Reference
01a7 822e | . | Call 0x1,0x2e
01a8 01cc | | Execute Vector,Catenate
01a9 4803 |H | Short_Literal 0x3
01aa e5ff | | Load 0x2,-0x1
01ab 01d5 | | Execute Vector,Field_Reference
01ac 822e | . | Call 0x1,0x2e
01ad 01cc | | Execute Vector,Catenate
01ae 4804 |H | Short_Literal 0x4
01af e5ff | | Load 0x2,-0x1
01b0 01d5 | | Execute Vector,Field_Reference
01b1 822e | . | Call 0x1,0x2e
01b2 01cc | | Execute Vector,Catenate
01b3 4805 |H | Short_Literal 0x5
01b4 e5ff | | Load 0x2,-0x1
01b5 01d5 | | Execute Vector,Field_Reference
01b6 822e | . | Call 0x1,0x2e
01b7 01cc | | Execute Vector,Catenate
01b8 4806 |H | Short_Literal 0x6
01b9 e5ff | | Load 0x2,-0x1
01ba 01d5 | | Execute Vector,Field_Reference
01bb 822e | . | Call 0x1,0x2e
01bc 01cc | | Execute Vector,Catenate
01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cf | | .CONST 0x01cf ; Address of begin
01c1 020c | | .CONST 0x020c ; Address of exception handler
01c2 0005 | | .CONST 0x0005 ; Number of locals
01c3 INIT_01c0:
01c3 e213 | | Load 0x1,0x13 ; Debug Table 0x7 = .DEBUG 0x01c3,0x0440,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01c3
; Debug Table 0x7.0x0 = 0x1c3,0xffff
01c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01c5 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0x1c5,0xfffe
01c6 01dd | | Execute Vector,First
01c7 00e2 | | Load_Encached Integer_Cache
01c8 03f1 | | Declare_Variable Discrete,With_Value
01c9 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x7.0x2 = 0x1c9,0xfffd
01ca e214 | | Load 0x1,0x14 ; Debug Table 0x7.0x3 = 0x1ca,0xfffc
01cb 0337 | 7 | Declare_Variable Array
01cc e216 | | Load 0x1,0x16
01cd 00d9 | | Load_Top At_Offset_1
01ce 01d4 | | Execute Vector,Structure_Write
01cf BODY_01c0:
01cf 0007 | | Action Break_Optional ; Debug Table 0x7.0x4 = 0x1cf,0x1
01d0 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x7.0x5 = 0x1d0,0x2
01d1 00db | | Load_Top At_Offset_3
01d2 e5ff | | Load 0x2,-0x1
01d3 822f | / | Call 0x1,0x2f
01d4 c403 | | Store 0x2,0x3
01d5 005a | Z | Store_Top Discrete,At_Offset_2
01d6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0x1d6,0x3
01d7 6832 |h2 | Jump_Zero 0x20a
01d8 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x7 = 0x1d8,0x4
01d9 00da | | Load_Top At_Offset_2
01da e5ff | | Load 0x2,-0x1
01db 01cf | | Execute Vector,Slice_Read
01dc e20e | | Load 0x1,0xe
01dd 0122 | " | Execute Any,Make_Root_Type
01de 00e0 | | Load_Encached Standard_Cache
01df 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e0 e402 | | Load 0x2,0x2
01e1 00da | | Load_Top At_Offset_2
01e2 01d5 | | Execute Vector,Field_Reference
01e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x8 = 0x1e4,0x5
01e5 0a01 | | Execute_Immediate Plus,0x1
01e6 0248 | H | Execute Discrete,Check_In_Integer
01e7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01e8 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x7.0x9 = 0x1e8,0x6
01e9 00db | | Load_Top At_Offset_3
01ea e5ff | | Load 0x2,-0x1
01eb 822f | / | Call 0x1,0x2f
01ec c403 | | Store 0x2,0x3
01ed 005a | Z | Store_Top Discrete,At_Offset_2
01ee 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xa = 0x1ee,0x7
01ef 00da | | Load_Top At_Offset_2
01f0 e5ff | | Load 0x2,-0x1
01f1 01cf | | Execute Vector,Slice_Read
01f2 e20d | | Load 0x1,0xd
01f3 0122 | " | Execute Any,Make_Root_Type
01f4 00e0 | | Load_Encached Standard_Cache
01f5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01f6 e402 | | Load 0x2,0x2
01f7 00da | | Load_Top At_Offset_2
01f8 01d5 | | Execute Vector,Field_Reference
01f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01fa 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xb = 0x1fa,0x8
01fb 0a01 | | Execute_Immediate Plus,0x1
01fc 0248 | H | Execute Discrete,Check_In_Integer
01fd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01fe 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xc = 0x1fe,0x9
01ff 0f06 | | Execute_Immediate Equal,0x6
0200 7009 |p | Jump_Nonzero 0x20a
0201 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xd = 0x201,0xa
0202 0a01 | | Execute_Immediate Plus,0x1
0203 c402 | | Store 0x2,0x2
0204 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xe = 0x204,0xb
0205 e5ff | | Load 0x2,-0x1
0206 01dc | | Execute Vector,Last
0207 027d | } | Execute Discrete,Greater
0208 7001 |p | Jump_Nonzero 0x20a
0209 7fc6 | | Jump 0x1d0
020a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0xf = 0x20a,0xc
020b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020c TRAP_01c0:
020c 0007 | | Action Break_Optional
020d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x10 = 0x20d,0xd
020e 0101 | | Execute Exception,Reraise
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x0213,0x0464,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01cc
; Debug Table 0x8.0x0 = 0x213,0x1
0214 e225 | % | Load 0x1,0x25
0215 01d4 | | Execute Vector,Structure_Write
0216 e229 | ) | Load 0x1,0x29 ; Debug Table 0x8.0x1 = 0x216,0x2
0217 0a01 | | Execute_Immediate Plus,0x1
0218 a229 | ) | Store_Unchecked 0x1,0x29
0219 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4801 |H | Short_Literal 0x1 ; Debug Table 0x9 = .DEBUG 0x0223,0x046a,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01d4
; Debug Table 0x9.0x0 = 0x223,0x1
0224 a226 | & | Store_Unchecked 0x1,0x26
0225 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 4800 |H | Short_Literal 0x0 ; Debug Table 0xa = .DEBUG 0x022b,0x046e,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01d8
; Debug Table 0xa.0x0 = 0x22b,0x1
022c a226 | & | Store_Unchecked 0x1,0x26
022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e226 | & | Load 0x1,0x26 ; Debug Table 0xb = .DEBUG 0x0233,0x0472,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01dc
; Debug Table 0xb.0x0 = 0x233,0x1
0234 00ca | | Action Exit_Nullary_Function
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e22d | - | Load 0x1,0x2d ; Debug Table 0xc = .DEBUG 0x023b,0x0476,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01e1
; Debug Table 0xc.0x0 = 0x23b,0xffff
023c 0007 | | Action Break_Optional
023d BODY_0238:
023d e227 | ' | Load 0x1,0x27 ; Debug Table 0xc.0x1 = 0x23d,0x1
023e 0a01 | | Execute_Immediate Plus,0x1
023f a227 | ' | Store_Unchecked 0x1,0x27
0240 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x2 = 0x240,0x2
0241 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0242 0007 | | Action Break_Optional ; Debug Table 0xc.0x3 = 0x242,0x3
0243 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x4 = 0x243,0x4
0244 e5ff | | Load 0x2,-0x1
0245 01d5 | | Execute Vector,Field_Reference
0246 e215 | | Load 0x1,0x15
0247 017f | | Execute Record,Equal
0248 6801 |h | Jump_Zero 0x24a
0249 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xc.0x5 = 0x249,0x5
024a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x6 = 0x24a,0x6
024b e5ff | | Load 0x2,-0x1
024c 01d5 | | Execute Vector,Field_Reference
024d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
024e e225 | % | Load 0x1,0x25
024f 01d7 | | Execute Vector,Field_Read
0250 6812 |h | Jump_Zero 0x263
0251 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x7 = 0x251,0x7
0252 0d06 | | Execute_Immediate Less,0x6
0253 680a |h | Jump_Zero 0x25e
0254 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x8 = 0x254,0x8
0255 0a01 | | Execute_Immediate Plus,0x1
0256 0248 | H | Execute Discrete,Check_In_Integer
0257 4806 |H | Short_Literal 0x6
0258 e5ff | | Load 0x2,-0x1
0259 01cf | | Execute Vector,Slice_Read
025a 00d9 | | Load_Top At_Offset_1
025b 4805 |H | Short_Literal 0x5
025c e5ff | | Load 0x2,-0x1
025d 01ce | | Execute Vector,Slice_Write
025e e215 | | Load 0x1,0x15 ; Debug Table 0xc.0x9 = 0x25e,0x9
025f 4806 |H | Short_Literal 0x6
0260 e5ff | | Load 0x2,-0x1
0261 01d6 | | Execute Vector,Field_Write
0262 7fe0 | | Jump 0x243
0263 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0xa = 0x263,0xa
0264 0f06 | | Execute_Immediate Equal,0x6
0265 6801 |h | Jump_Zero 0x267
0266 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xc.0xb = 0x266,0xb
0267 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0xc = 0x267,0xc
0268 0a01 | | Execute_Immediate Plus,0x1
0269 0059 | Y | Store_Top Discrete,At_Offset_1
026a 7fd8 | | Jump 0x243
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e227 | ' | Load 0x1,0x27 ; Debug Table 0xd = .DEBUG 0x0273,0x0492,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01e9
; Debug Table 0xd.0x0 = 0x273,0x1
0274 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0275 e229 | ) | Load 0x1,0x29 ; Debug Table 0xd.0x1 = 0x275,0x2
0276 a5fe | | Store_Unchecked 0x2,-0x2
0277 e22b | + | Load 0x1,0x2b ; Debug Table 0xd.0x2 = 0x277,0x3
0278 a5fd | | Store_Unchecked 0x2,-0x3
0279 e228 | ( | Load 0x1,0x28 ; Debug Table 0xd.0x3 = 0x279,0x4
027a a5fc | | Store_Unchecked 0x2,-0x4
027b e22a | * | Load 0x1,0x2a ; Debug Table 0xd.0x4 = 0x27b,0x5
027c a5fb | | Store_Unchecked 0x2,-0x5
027d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x0283,0x049e,0x0002,0x0000,0x0037,0x5d44,0x0000,0x0127
; Debug Table 0xe.0x0 = 0x283,0x1
0284 e215 | | Load 0x1,0x15
0285 017f | | Execute Record,Equal
0286 6802 |h | Jump_Zero 0x289
0287 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xe.0x1 = 0x287,0x2
0288 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0289 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x2 = 0x289,0x3
028a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
028b 00e0 | | Load_Encached Standard_Cache
028c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028d 0092 02c5 | | Action Push_String_Extended,0x2c5 ; " "
028f 01cc | | Execute Vector,Catenate
0290 00db | | Load_Top At_Offset_3
0291 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0292 00e0 | | Load_Encached Standard_Cache
0293 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0294 01cc | | Execute Vector,Catenate
0295 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029c | | .CONST 0x029c ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b 00e2 | | Load_Encached Integer_Cache ; Debug Table 0xf = .DEBUG 0x029b,0x04a6,0x0001,0x0000,0x0037,0x5d44,0x0000,0x01a7
; Debug Table 0xf.0x0 = 0x29b,0xffff
029c BODY_0298:
029c 4800 |H | Short_Literal 0x0 ; Debug Table 0xf.0x1 = 0x29c,0x1
029d a5fd | | Store_Unchecked 0x2,-0x3
029e 0007 | | Action Break_Optional ; Debug Table 0xf.0x2 = 0x29e,0x2
029f e5fe | | Load 0x2,-0x2 ; Debug Table 0xf.0x3 = 0x29f,0x3
02a0 e5ff | | Load 0x2,-0x1
02a1 01dc | | Execute Vector,Last
02a2 027d | } | Execute Discrete,Greater
02a3 6801 |h | Jump_Zero 0x2a5
02a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xf.0x4 = 0x2a4,0x4
02a5 e5fe | | Load 0x2,-0x2 ; Debug Table 0xf.0x5 = 0x2a5,0x5
02a6 e5ff | | Load 0x2,-0x1
02a7 01d7 | | Execute Vector,Field_Read
02a8 0e20 | | Execute_Immediate Not_Equal,0x20
02a9 7005 |p | Jump_Nonzero 0x2af
02aa e5fe | | Load 0x2,-0x2 ; Debug Table 0xf.0x6 = 0x2aa,0x6
02ab 0a01 | | Execute_Immediate Plus,0x1
02ac 0248 | H | Execute Discrete,Check_In_Integer
02ad a5fe | | Store_Unchecked 0x2,-0x2
02ae 7ff0 | | Jump 0x29f
02af e5fe | | Load 0x2,-0x2 ; Debug Table 0xf.0x7 = 0x2af,0x7
02b0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02b1 0007 | | Action Break_Optional ; Debug Table 0xf.0x8 = 0x2b1,0x8
02b2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x9 = 0x2b2,0x9
02b3 0a01 | | Execute_Immediate Plus,0x1
02b4 0248 | H | Execute Discrete,Check_In_Integer
02b5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02b6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0xa = 0x2b6,0xa
02b7 e5ff | | Load 0x2,-0x1
02b8 01dc | | Execute Vector,Last
02b9 027d | } | Execute Discrete,Greater
02ba 7005 |p | Jump_Nonzero 0x2c0
02bb 00d8 | | Load_Top At_Offset_0
02bc e5ff | | Load 0x2,-0x1
02bd 01d7 | | Execute Vector,Field_Read
02be 0f20 | | Execute_Immediate Equal,0x20
02bf 6ff2 |o | Jump_Zero 0x2b2
02c0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0xb = 0x2c0,0xb
02c1 0aff | | Execute_Immediate Plus,-0x1
02c2 0248 | H | Execute Discrete,Check_In_Integer
02c3 a5fd | | Store_Unchecked 0x2,-0x3
02c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xf.0xc = 0x2c4,0xc
02c5 ; --------------------------------------------------------------------------------------
02c5 ; STRING TABLE
02c5 ; --------------------------------------------------------------------------------------
02c5 0004 | | .STRTAB 0x0004->0x02c7 ; " "
02c6 0003 | | .STREND 0x0003->0x02c7
02c7 2000 | | .STRTAB_STRINGS
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug Table
02c8 ; --------------------------------------------------------------------------------------
02c8 0003 0010 | | .CONST 0x0003,0x0010
02ca 000b 034a | J| .DEBUG 0x000b,0x034a,0x8000,0x0000,0x0037,0x5c34,0x0000,0x0005
02d2 00d9 03be | | .DEBUG 0x00d9,0x03be,0x8000,0x0000,0x0037,0x5d44,0x0000,0x0005
02da 0113 03f2 | | .DEBUG 0x0113,0x03f2,0x0002,0x0000,0x0037,0x5c34,0x0000,0x018a
02e2 014b 0412 | K | .DEBUG 0x014b,0x0412,0x0002,0x0000,0x0037,0x5c34,0x0000,0x019b
02ea 0183 0432 | 2| .DEBUG 0x0183,0x0432,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01ac
02f2 0193 0438 | 8| .DEBUG 0x0193,0x0438,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01b5
02fa 019b 043c | <| .DEBUG 0x019b,0x043c,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01ba
0302 01c3 0440 | @| .DEBUG 0x01c3,0x0440,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01c3
030a 0213 0464 | d| .DEBUG 0x0213,0x0464,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01cc
0312 0223 046a | # j| .DEBUG 0x0223,0x046a,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01d4
031a 022b 046e | + n| .DEBUG 0x022b,0x046e,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01d8
0322 0233 0472 | 3 r| .DEBUG 0x0233,0x0472,0x0002,0x0000,0x0037,0x5c34,0x0000,0x01dc
032a 023b 0476 | ; v| .DEBUG 0x023b,0x0476,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01e1
0332 0273 0492 | s | .DEBUG 0x0273,0x0492,0x0001,0x0000,0x0037,0x5c34,0x0000,0x01e9
033a 0283 049e | | .DEBUG 0x0283,0x049e,0x0002,0x0000,0x0037,0x5d44,0x0000,0x0127
0342 029b 04a6 | | .DEBUG 0x029b,0x04a6,0x0001,0x0000,0x0037,0x5d44,0x0000,0x01a7
034a ; --------------------------------------------------------------------------------------
034a ; Debug3 Subtable 0x0
034a ; --------------------------------------------------------------------------------------
034a 0039 0000 | 9 | .DBG3TAB 0x0039,0x0000
034c 000b ffff | | .CONST 0x000b,0xffff
034e 000c fffe | | .CONST 0x000c,0xfffe
0350 000d fffd | | .CONST 0x000d,0xfffd
0352 0011 fffc | | .CONST 0x0011,0xfffc
0354 0012 fffb | | .CONST 0x0012,0xfffb
0356 0013 fffa | | .CONST 0x0013,0xfffa
0358 0014 fff9 | | .CONST 0x0014,0xfff9
035a 0015 fff8 | | .CONST 0x0015,0xfff8
035c 0016 fff7 | | .CONST 0x0016,0xfff7
035e 0017 fff6 | | .CONST 0x0017,0xfff6
0360 0018 fff5 | | .CONST 0x0018,0xfff5
0362 0019 fff4 | | .CONST 0x0019,0xfff4
0364 001a fff3 | | .CONST 0x001a,0xfff3
0366 001b fff2 | | .CONST 0x001b,0xfff2
0368 001c fff1 | | .CONST 0x001c,0xfff1
036a 001d fff0 | | .CONST 0x001d,0xfff0
036c 001e ffef | | .CONST 0x001e,0xffef
036e 001f ffee | | .CONST 0x001f,0xffee
0370 0020 ffed | | .CONST 0x0020,0xffed
0372 0021 ffec | ! | .CONST 0x0021,0xffec
0374 0022 ffeb | " | .CONST 0x0022,0xffeb
0376 0023 ffea | # | .CONST 0x0023,0xffea
0378 0024 ffe9 | $ | .CONST 0x0024,0xffe9
037a 0025 ffe8 | % | .CONST 0x0025,0xffe8
037c 0026 ffe7 | & | .CONST 0x0026,0xffe7
037e 0027 ffe6 | ' | .CONST 0x0027,0xffe6
0380 002b ffe5 | + | .CONST 0x002b,0xffe5
0382 002c ffe4 | , | .CONST 0x002c,0xffe4
0384 002d ffe3 | - | .CONST 0x002d,0xffe3
0386 002e ffe2 | . | .CONST 0x002e,0xffe2
0388 002f ffe1 | / | .CONST 0x002f,0xffe1
038a 0030 ffe0 | 0 | .CONST 0x0030,0xffe0
038c 0031 ffdf | 1 | .CONST 0x0031,0xffdf
038e 0032 ffde | 2 | .CONST 0x0032,0xffde
0390 0033 ffdd | 3 | .CONST 0x0033,0xffdd
0392 0034 ffdc | 4 | .CONST 0x0034,0xffdc
0394 003a ffdb | : | .CONST 0x003a,0xffdb
0396 0049 ffda | I | .CONST 0x0049,0xffda
0398 006b ffd9 | k | .CONST 0x006b,0xffd9
039a 0070 ffd8 | p | .CONST 0x0070,0xffd8
039c 0074 ffd7 | t | .CONST 0x0074,0xffd7
039e 007a ffd6 | z | .CONST 0x007a,0xffd6
03a0 0083 ffd5 | | .CONST 0x0083,0xffd5
03a2 0090 ffd4 | | .CONST 0x0090,0xffd4
03a4 00a8 ffd3 | | .CONST 0x00a8,0xffd3
03a6 00c0 ffd2 | | .CONST 0x00c0,0xffd2
03a8 00c2 ffd1 | | .CONST 0x00c2,0xffd1
03aa 00c4 ffd0 | | .CONST 0x00c4,0xffd0
03ac 00c6 ffcf | | .CONST 0x00c6,0xffcf
03ae 00c8 ffce | | .CONST 0x00c8,0xffce
03b0 00ca ffcd | | .CONST 0x00ca,0xffcd
03b2 00cc ffcc | | .CONST 0x00cc,0xffcc
03b4 00ce ffcb | | .CONST 0x00ce,0xffcb
03b6 00d0 ffca | | .CONST 0x00d0,0xffca
03b8 00d2 ffc9 | | .CONST 0x00d2,0xffc9
03ba 00d4 ffc8 | | .CONST 0x00d4,0xffc8
03bc 00d6 ffc7 | | .CONST 0x00d6,0xffc7
03be ; --------------------------------------------------------------------------------------
03be ; Debug3 Subtable 0x1
03be ; --------------------------------------------------------------------------------------
03be 0019 0000 | | .DBG3TAB 0x0019,0x0000
03c0 00d9 ffff | | .CONST 0x00d9,0xffff
03c2 00de fffe | | .CONST 0x00de,0xfffe
03c4 00e0 fffd | | .CONST 0x00e0,0xfffd
03c6 00e2 fffc | | .CONST 0x00e2,0xfffc
03c8 00e4 fffb | | .CONST 0x00e4,0xfffb
03ca 00e6 fffa | | .CONST 0x00e6,0xfffa
03cc 00e8 fff9 | | .CONST 0x00e8,0xfff9
03ce 00ea fff8 | | .CONST 0x00ea,0xfff8
03d0 00ec fff7 | | .CONST 0x00ec,0xfff7
03d2 00f0 fff6 | | .CONST 0x00f0,0xfff6
03d4 00f1 fff5 | | .CONST 0x00f1,0xfff5
03d6 00f2 fff4 | | .CONST 0x00f2,0xfff4
03d8 00f4 fff3 | | .CONST 0x00f4,0xfff3
03da 00f6 fff2 | | .CONST 0x00f6,0xfff2
03dc 00f8 fff1 | | .CONST 0x00f8,0xfff1
03de 00fa fff0 | | .CONST 0x00fa,0xfff0
03e0 00fc ffef | | .CONST 0x00fc,0xffef
03e2 00fe ffee | | .CONST 0x00fe,0xffee
03e4 0100 ffed | | .CONST 0x0100,0xffed
03e6 0102 ffec | | .CONST 0x0102,0xffec
03e8 0104 ffeb | | .CONST 0x0104,0xffeb
03ea 0106 ffea | | .CONST 0x0106,0xffea
03ec 0108 ffe9 | | .CONST 0x0108,0xffe9
03ee 010a ffe8 | | .CONST 0x010a,0xffe8
03f0 010c ffe7 | | .CONST 0x010c,0xffe7
03f2 ; --------------------------------------------------------------------------------------
03f2 ; Debug3 Subtable 0x2
03f2 ; --------------------------------------------------------------------------------------
03f2 0000 000f | | .DBG3TAB 0x0000,0x000f
03f4 0113 0001 | | .CONST 0x0113,0x0001
03f6 0116 0002 | | .CONST 0x0116,0x0002
03f8 0118 0003 | | .CONST 0x0118,0x0003
03fa 011b 0004 | | .CONST 0x011b,0x0004
03fc 0120 0401 | | .CONST 0x0120,0x0401
03fe 0122 0402 | " | .CONST 0x0122,0x0402
0400 0124 0403 | $ | .CONST 0x0124,0x0403
0402 0126 0404 | & | .CONST 0x0126,0x0404
0404 0128 0405 | ( | .CONST 0x0128,0x0405
0406 012b 0004 | + | .CONST 0x012b,0x0004
0408 0133 0005 | 3 | .CONST 0x0133,0x0005
040a 0135 0006 | 5 | .CONST 0x0135,0x0006
040c 013b 0007 | ; | .CONST 0x013b,0x0007
040e 013e 0008 | > | .CONST 0x013e,0x0008
0410 0140 0009 | @ | .CONST 0x0140,0x0009
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug3 Subtable 0x3
0412 ; --------------------------------------------------------------------------------------
0412 0000 000f | | .DBG3TAB 0x0000,0x000f
0414 014b 0001 | K | .CONST 0x014b,0x0001
0416 014e 0002 | N | .CONST 0x014e,0x0002
0418 0150 0003 | P | .CONST 0x0150,0x0003
041a 0153 0004 | S | .CONST 0x0153,0x0004
041c 0158 0401 | X | .CONST 0x0158,0x0401
041e 015a 0402 | Z | .CONST 0x015a,0x0402
0420 015c 0403 | \ | .CONST 0x015c,0x0403
0422 015e 0404 | ^ | .CONST 0x015e,0x0404
0424 0160 0405 | ` | .CONST 0x0160,0x0405
0426 0163 0004 | c | .CONST 0x0163,0x0004
0428 016b 0005 | k | .CONST 0x016b,0x0005
042a 016d 0006 | m | .CONST 0x016d,0x0006
042c 0173 0007 | s | .CONST 0x0173,0x0007
042e 0176 0008 | v | .CONST 0x0176,0x0008
0430 0178 0009 | x | .CONST 0x0178,0x0009
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug3 Subtable 0x4
0432 ; --------------------------------------------------------------------------------------
0432 0000 0002 | | .DBG3TAB 0x0000,0x0002
0434 0183 0001 | | .CONST 0x0183,0x0001
0436 0185 0002 | | .CONST 0x0185,0x0002
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug3 Subtable 0x5
0438 ; --------------------------------------------------------------------------------------
0438 0000 0001 | | .DBG3TAB 0x0000,0x0001
043a 0193 0001 | | .CONST 0x0193,0x0001
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0x6
043c ; --------------------------------------------------------------------------------------
043c 0000 0001 | | .DBG3TAB 0x0000,0x0001
043e 019b 0001 | | .CONST 0x019b,0x0001
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug3 Subtable 0x7
0440 ; --------------------------------------------------------------------------------------
0440 0004 000d | | .DBG3TAB 0x0004,0x000d
0442 01c3 ffff | | .CONST 0x01c3,0xffff
0444 01c5 fffe | | .CONST 0x01c5,0xfffe
0446 01c9 fffd | | .CONST 0x01c9,0xfffd
0448 01ca fffc | | .CONST 0x01ca,0xfffc
044a 01cf 0001 | | .CONST 0x01cf,0x0001
044c 01d0 0002 | | .CONST 0x01d0,0x0002
044e 01d6 0003 | | .CONST 0x01d6,0x0003
0450 01d8 0004 | | .CONST 0x01d8,0x0004
0452 01e4 0005 | | .CONST 0x01e4,0x0005
0454 01e8 0006 | | .CONST 0x01e8,0x0006
0456 01ee 0007 | | .CONST 0x01ee,0x0007
0458 01fa 0008 | | .CONST 0x01fa,0x0008
045a 01fe 0009 | | .CONST 0x01fe,0x0009
045c 0201 000a | | .CONST 0x0201,0x000a
045e 0204 000b | | .CONST 0x0204,0x000b
0460 020a 000c | | .CONST 0x020a,0x000c
0462 020d 000d | | .CONST 0x020d,0x000d
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug3 Subtable 0x8
0464 ; --------------------------------------------------------------------------------------
0464 0000 0002 | | .DBG3TAB 0x0000,0x0002
0466 0213 0001 | | .CONST 0x0213,0x0001
0468 0216 0002 | | .CONST 0x0216,0x0002
046a ; --------------------------------------------------------------------------------------
046a ; Debug3 Subtable 0x9
046a ; --------------------------------------------------------------------------------------
046a 0000 0001 | | .DBG3TAB 0x0000,0x0001
046c 0223 0001 | # | .CONST 0x0223,0x0001
046e ; --------------------------------------------------------------------------------------
046e ; Debug3 Subtable 0xa
046e ; --------------------------------------------------------------------------------------
046e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0470 022b 0001 | + | .CONST 0x022b,0x0001
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0xb
0472 ; --------------------------------------------------------------------------------------
0472 0000 0001 | | .DBG3TAB 0x0000,0x0001
0474 0233 0001 | 3 | .CONST 0x0233,0x0001
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug3 Subtable 0xc
0476 ; --------------------------------------------------------------------------------------
0476 0001 000c | | .DBG3TAB 0x0001,0x000c
0478 023b ffff | ; | .CONST 0x023b,0xffff
047a 023d 0001 | = | .CONST 0x023d,0x0001
047c 0240 0002 | @ | .CONST 0x0240,0x0002
047e 0242 0003 | B | .CONST 0x0242,0x0003
0480 0243 0004 | C | .CONST 0x0243,0x0004
0482 0249 0005 | I | .CONST 0x0249,0x0005
0484 024a 0006 | J | .CONST 0x024a,0x0006
0486 0251 0007 | Q | .CONST 0x0251,0x0007
0488 0254 0008 | T | .CONST 0x0254,0x0008
048a 025e 0009 | ^ | .CONST 0x025e,0x0009
048c 0263 000a | c | .CONST 0x0263,0x000a
048e 0266 000b | f | .CONST 0x0266,0x000b
0490 0267 000c | g | .CONST 0x0267,0x000c
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug3 Subtable 0xd
0492 ; --------------------------------------------------------------------------------------
0492 0000 0005 | | .DBG3TAB 0x0000,0x0005
0494 0273 0001 | s | .CONST 0x0273,0x0001
0496 0275 0002 | u | .CONST 0x0275,0x0002
0498 0277 0003 | w | .CONST 0x0277,0x0003
049a 0279 0004 | y | .CONST 0x0279,0x0004
049c 027b 0005 | { | .CONST 0x027b,0x0005
049e ; --------------------------------------------------------------------------------------
049e ; Debug3 Subtable 0xe
049e ; --------------------------------------------------------------------------------------
049e 0000 0003 | | .DBG3TAB 0x0000,0x0003
04a0 0283 0001 | | .CONST 0x0283,0x0001
04a2 0287 0002 | | .CONST 0x0287,0x0002
04a4 0289 0003 | | .CONST 0x0289,0x0003
04a6 ; --------------------------------------------------------------------------------------
04a6 ; Debug3 Subtable 0xf
04a6 ; --------------------------------------------------------------------------------------
04a6 0001 000c | | .DBG3TAB 0x0001,0x000c
04a8 029b ffff | | .CONST 0x029b,0xffff
04aa 029c 0001 | | .CONST 0x029c,0x0001
04ac 029e 0002 | | .CONST 0x029e,0x0002
04ae 029f 0003 | | .CONST 0x029f,0x0003
04b0 02a4 0004 | | .CONST 0x02a4,0x0004
04b2 02a5 0005 | | .CONST 0x02a5,0x0005
04b4 02aa 0006 | | .CONST 0x02aa,0x0006
04b6 02af 0007 | | .CONST 0x02af,0x0007
04b8 02b1 0008 | | .CONST 0x02b1,0x0008
04ba 02b2 0009 | | .CONST 0x02b2,0x0009
04bc 02b6 000a | | .CONST 0x02b6,0x000a
04be 02c0 000b | | .CONST 0x02c0,0x000b
04c0 02c4 000c | | .CONST 0x02c4,0x000c
04c2 0000 0000 | | .BLANK 0000[0x13e]