|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02e0 | | .CONST 0x02e0 ; 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 006d | m | .CONST 0x006d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; Number of locals
000b INIT_0008:
000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x039a,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0554
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 00bf | | Action Accept_Activation
0018 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1 = .DEBUG 0x0018,0x03a8,0x4000,0x0000,0x0056,0xda35,0x0000,0x0006
; Debug Table 0x1.0x0 = 0x18,0xffff
0019 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001a e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x1a,0xfffe
001b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001c 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call ; Debug Table 0x1.0x2 = 0x1c,0xfffd
001e 6299 |b | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0056da35} ; Debug Table 0x1.0x3 = 0x1e,0xfffc
001f 482d |H- | Short_Literal 0x2d
0020 e210 | | Load 0x1,0x10
0021 e002 | | Load 0x0,0x2
0022 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0023 0387 | | Declare_Variable Package
0024 00d8 | | Load_Top At_Offset_0
0025 020f | | Execute Module,Activate
0026 6291 |b | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0056da35} ; Debug Table 0x1.0x4 = 0x26,0xfffb
0027 4835 |H5 | Short_Literal 0x35
0028 e210 | | Load 0x1,0x10
0029 e211 | | Load 0x1,0x11
002a e002 | | Load 0x0,0x2
002b 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
002c 0387 | | Declare_Variable Package
002d 00d8 | | Load_Top At_Offset_0
002e 020f | | Execute Module,Activate
002f 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call ; Debug Table 0x1.0x5 = 0x2f,0xfffa
0031 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x31,0xfff9
0033 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call ; Debug Table 0x1.0x7 = 0x33,0xfff8
0035 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call ; Debug Table 0x1.0x8 = 0x35,0xfff7
0037 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call ; Debug Table 0x1.0x9 = 0x37,0xfff6
0039 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call ; Debug Table 0x1.0xa = 0x39,0xfff5
003b 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call ; Debug Table 0x1.0xb = 0x3b,0xfff4
003d 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call ; Debug Table 0x1.0xc = 0x3d,0xfff3
003f 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call ; Debug Table 0x1.0xd = 0x3f,0xfff2
0041 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call ; Debug Table 0x1.0xe = 0x41,0xfff1
0043 6274 |bt | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0056da35} ; Debug Table 0x1.0xf = 0x43,0xfff0
0044 499f |I | Short_Literal 0x19f
0045 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0046 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0047 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0048 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0049 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
004a 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
004b 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
004c 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
004d 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
004e 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
004f e212 | | Load 0x1,0x12
0050 e003 | | Load 0x0,0x3
0051 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0052 0335 | 5 | Declare_Variable Array,Duplicate
0053 00d0 | | Action Swap_Control
0054 00d1 | | Pop_Control Pop_Count_1
0055 e213 | | Load 0x1,0x13
0056 0335 | 5 | Declare_Variable Array,Duplicate
0057 00d0 | | Action Swap_Control
0058 00d1 | | Pop_Control Pop_Count_1
0059 4800 |H | Short_Literal 0x0
005a e003 | | Load 0x0,0x3
005b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005c e004 | | Load 0x0,0x4
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e 0387 | | Declare_Variable Package
005f 00d8 | | Load_Top At_Offset_0
0060 020f | | Execute Module,Activate
0061 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x10 = 0x61,0xffef
0062 00c7 | | Action Elaborate_Subprogram
0063 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x11 = 0x63,0xffee
0064 00c7 | | Action Elaborate_Subprogram
0065 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x12 = 0x65,0xffed
0066 00c7 | | Action Elaborate_Subprogram
0067 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x13 = 0x67,0xffec
0068 00c7 | | Action Elaborate_Subprogram
0069 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0x14 = 0x69,0xffeb
006a 00c7 | | Action Elaborate_Subprogram
006b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x15 = 0x6b,0xffea
006c 00c7 | | Action Elaborate_Subprogram
006d BODY_0008:
006d 00bc | | Action Signal_Activated
006e 00bb | | Action Signal_Completion
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007c | | | .CONST 0x007c ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0004 | | .CONST 0x0004 ; Number of locals
0073 INIT_0070:
0073 e005 | | Load 0x0,0x5 ; Debug Table 0x2 = .DEBUG 0x0073,0x03d6,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x05d6
; Debug Table 0x2.0x0 = 0x73,0xffff
0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0075 0322 | " | Declare_Variable Record
0076 00d8 | | Load_Top At_Offset_0
0077 1c00 | | Execute_Immediate Run_Utility,0x0
0078 029f 0283 | | Declare_Subprogram INIT_0280,For_Call ; Debug Table 0x2.0x1 = 0x78,0xfffe
007a 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
007c BODY_0070:
007c 00be | | Action Activate_Tasks
007d 0007 | | Action Break_Optional ; Debug Table 0x2.0x2 = 0x7d,0x1
007e e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x3 = 0x7e,0x401
007f e006 | | Load 0x0,0x6
0080 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0081 0f00 | | Execute_Immediate Equal,0x0
0082 6809 |h | Jump_Zero 0x8c ; Debug Table 0x2.0x4 = 0x82,0x1
0083 e219 | | Load 0x1,0x19 ; Debug Table 0x2.0x5 = 0x83,0x2
0084 00d8 | | Load_Top At_Offset_0
0085 0120 | | Execute Any,Is_Value
0086 7002 |p | Jump_Nonzero 0x89
0087 00d8 | | Load_Top At_Offset_0
0088 011e | | Execute Any,Convert
0089 e210 | | Load 0x1,0x10
008a 0119 | | Execute Any,Check_In_Formal_Type
008b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
008c 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x6 = 0x8c,0x3
008d e5fd | | Load 0x2,-0x3
008e e5fe | | Load 0x2,-0x2
008f 4800 |H | Short_Literal 0x0
0090 e5ff | | Load 0x2,-0x1
0091 8007 | | Call 0x0,0x7
0092 00d1 | | Pop_Control Pop_Count_1
0093 8404 | | Call 0x2,0x4 ; Debug Table 0x2.0x7 = 0x93,0x4
0094 4831 |H1 | Short_Literal 0x31
0095 0257 | W | Execute Discrete,Raise
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a0 | | .CONST 0x00a0 ; Address of begin
0099 00b7 | | .CONST 0x00b7 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e005 | | Load 0x0,0x5 ; Debug Table 0x3 = .DEBUG 0x009b,0x03e8,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x05ef
; Debug Table 0x3.0x0 = 0x9b,0xffff
009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009d 0322 | " | Declare_Variable Record
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 BODY_0098:
00a0 00be | | Action Activate_Tasks
00a1 0007 | | Action Break_Optional ; Debug Table 0x3.0x1 = 0xa1,0x1
00a2 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x2 = 0xa2,0x401
00a3 e006 | | Load 0x0,0x6
00a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a5 0f00 | | Execute_Immediate Equal,0x0
00a6 700f |p | Jump_Nonzero 0xb6 ; Debug Table 0x3.0x3 = 0xa6,0x1
00a7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x4 = 0xa7,0x2
00a8 e5fc | | Load 0x2,-0x4
00a9 e5fd | | Load 0x2,-0x3
00aa 4802 |H | Short_Literal 0x2
00ab e5ff | | Load 0x2,-0x1
00ac 8007 | | Call 0x0,0x7
00ad 00d1 | | Pop_Control Pop_Count_1
00ae e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x5 = 0xae,0x3
00af e210 | | Load 0x1,0x10
00b0 0119 | | Execute Any,Check_In_Formal_Type
00b1 00d9 | | Load_Top At_Offset_1
00b2 8220 | | Call 0x1,0x20
00b3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0xb3,0x4
00b4 8008 | | Call 0x0,0x8
00b5 00d1 | | Pop_Control Pop_Count_1
00b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00b7 TRAP_0098:
00b7 0007 | | Action Break_Optional
00b8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0xb8,0x5
00b9 8008 | | Call 0x0,0x8
00ba 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00bb 0000 0000 | | .BLANK 0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5 | | .CONST 0x00c5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e009 | | Load 0x0,0x9 ; Debug Table 0x4 = .DEBUG 0x00c3,0x03fa,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x060b
; Debug Table 0x4.0x0 = 0xc3,0xffff
00c4 0007 | | Action Break_Optional
00c5 BODY_00c0:
00c5 8224 | $ | Call 0x1,0x24 ; Debug Table 0x4.0x1 = 0xc5,0x1
00c6 800a | | Call 0x0,0xa
00c7 e5ff | | Load 0x2,-0x1
00c8 800b | | Call 0x0,0xb
00c9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00ca 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0xca,0x2
00cb 7009 |p | Jump_Nonzero 0xd5
00cc e219 | | Load 0x1,0x19 ; Debug Table 0x4.0x3 = 0xcc,0x3
00cd 00d8 | | Load_Top At_Offset_0
00ce 0120 | | Execute Any,Is_Value
00cf 7002 |p | Jump_Nonzero 0xd2
00d0 00d8 | | Load_Top At_Offset_0
00d1 011e | | Execute Any,Convert
00d2 e210 | | Load 0x1,0x10
00d3 0119 | | Execute Any,Check_In_Formal_Type
00d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x4 = 0xd5,0x4
00d6 0217 | | Execute Heap_Access,All_Reference
00d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d8 e5ff | | Load 0x2,-0x1
00d9 e225 | % | Load 0x1,0x25
00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00db e210 | | Load 0x1,0x10
00dc 0119 | | Execute Any,Check_In_Formal_Type
00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5 | | .CONST 0x00e5 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e009 | | Load 0x0,0x9 ; Debug Table 0x5 = .DEBUG 0x00e3,0x0406,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x0614
; Debug Table 0x5.0x0 = 0xe3,0xffff
00e4 0007 | | Action Break_Optional
00e5 BODY_00e0:
00e5 8224 | $ | Call 0x1,0x24 ; Debug Table 0x5.0x1 = 0xe5,0x1
00e6 800a | | Call 0x0,0xa
00e7 e5ff | | Load 0x2,-0x1
00e8 800b | | Call 0x0,0xb
00e9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00ea 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0xea,0x2
00eb 700a |p | Jump_Nonzero 0xf6
00ec e219 | | Load 0x1,0x19 ; Debug Table 0x5.0x3 = 0xec,0x3
00ed e210 | | Load 0x1,0x10
00ee 0119 | | Execute Any,Check_In_Formal_Type
00ef e5ff | | Load 0x2,-0x1
00f0 8220 | | Call 0x1,0x20
00f1 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x4 = 0xf1,0x4
00f2 821f | | Call 0x1,0x1f
00f3 e211 | | Load 0x1,0x11
00f4 0213 | | Execute Heap_Access,Check_In_Type
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0xf6,0x5
00f7 0217 | | Execute Heap_Access,All_Reference
00f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f9 e5ff | | Load 0x2,-0x1
00fa e226 | & | Load 0x1,0x26
00fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00fc e211 | | Load 0x1,0x11
00fd 0213 | | Execute Heap_Access,Check_In_Type
00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105 | | .CONST 0x0105 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e009 | | Load 0x0,0x9 ; Debug Table 0x6 = .DEBUG 0x0103,0x0414,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x061d
; Debug Table 0x6.0x0 = 0x103,0xffff
0104 0007 | | Action Break_Optional
0105 BODY_0100:
0105 8224 | $ | Call 0x1,0x24 ; Debug Table 0x6.0x1 = 0x105,0x1
0106 800a | | Call 0x0,0xa
0107 e5ff | | Load 0x2,-0x1
0108 800b | | Call 0x0,0xb
0109 0031 | 1 | Store_Top Heap_Access,At_Offset_1
010a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x2 = 0x10a,0x2
010b 700d |p | Jump_Nonzero 0x119
010c e009 | | Load 0x0,0x9 ; Debug Table 0x6.0x3 = 0x10c,0x3
010d 8224 | $ | Call 0x1,0x24
010e 800a | | Call 0x0,0xa
010f e5ff | | Load 0x2,-0x1
0110 800c | | Call 0x0,0xc
0111 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0112 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x4 = 0x112,0x4
0113 e002 | | Load 0x0,0x2
0114 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0115 00d9 | | Load_Top At_Offset_1
0116 0217 | | Execute Heap_Access,All_Reference
0117 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0118 7826 |x& | Jump 0x13f
0119 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x5 = 0x119,0x5
011a 011f | | Execute Any,Is_Scalar
011b 6802 |h | Jump_Zero 0x11e
011c e210 | | Load 0x1,0x10
011d 7801 |x | Jump 0x11f
011e e5fe | | Load 0x2,-0x2
011f 012c | , | Execute Any,Size
0120 00d9 | | Load_Top At_Offset_1
0121 0217 | | Execute Heap_Access,All_Reference
0122 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0123 800d | | Call 0x0,0xd
0124 00d9 | | Load_Top At_Offset_1
0125 0217 | | Execute Heap_Access,All_Reference
0126 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0127 e5ff | | Load 0x2,-0x1
0128 e225 | % | Load 0x1,0x25
0129 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012a e002 | | Load 0x0,0x2
012b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
012c 6812 |h | Jump_Zero 0x13f
012d 00db | | Load_Top At_Offset_3
012e e002 | | Load 0x0,0x2
012f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0130 00d9 | | Load_Top At_Offset_1
0131 0217 | | Execute Heap_Access,All_Reference
0132 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0133 e5ff | | Load 0x2,-0x1
0134 e225 | % | Load 0x1,0x25
0135 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0136 e002 | | Load 0x0,0x2
0137 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0138 6806 |h | Jump_Zero 0x13f
0139 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x6 = 0x139,0x6
013a e002 | | Load 0x0,0x2
013b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
013c 00d9 | | Load_Top At_Offset_1
013d 0217 | | Execute Heap_Access,All_Reference
013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013f 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x7 = 0x13f,0x7
0140 e005 | | Load 0x0,0x5
0141 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0142 e212 | | Load 0x1,0x12
0143 027e | ~ | Execute Discrete,Not_Equal
0144 6803 |h | Jump_Zero 0x148
0145 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x8 = 0x145,0x8
0146 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0147 0257 | W | Execute Discrete,Raise
0148 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x9 = 0x148,0x9
0149 e210 | | Load 0x1,0x10
014a 0119 | | Execute Any,Check_In_Formal_Type
014b 00d9 | | Load_Top At_Offset_1
014c 0217 | | Execute Heap_Access,All_Reference
014d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014e e5ff | | Load 0x2,-0x1
014f e225 | % | Load 0x1,0x25
0150 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d | ] | .CONST 0x015d ; Address of begin
0159 017b | { | .CONST 0x017b ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e00e | | Load 0x0,0xe ; Debug Table 0x7 = .DEBUG 0x015b,0x042a,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x0629
; Debug Table 0x7.0x0 = 0x15b,0xffff
015c 0007 | | Action Break_Optional
015d BODY_0158:
015d 482e |H. | Short_Literal 0x2e ; Debug Table 0x7.0x1 = 0x15d,0x1
015e e003 | | Load 0x0,0x3
015f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0160 01cb | | Execute Vector,Append
0161 e5ff | | Load 0x2,-0x1
0162 01cc | | Execute Vector,Catenate
0163 e004 | | Load 0x0,0x4
0164 180f | | Execute Package,Field_Execute,Field_Number 0xf
0165 0039 | 9 | Store_Top Access,At_Offset_1
0166 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x166,0x2
0167 0227 | ' | Execute Access,All_Reference
0168 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0169 e004 | | Load 0x0,0x4
016a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
016b 7003 |p | Jump_Nonzero 0x16f
016c e005 | | Load 0x0,0x5 ; Debug Table 0x7.0x3 = 0x16c,0x3
016d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
016e 0257 | W | Execute Discrete,Raise
016f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0x16f,0x4
0170 0227 | ' | Execute Access,All_Reference
0171 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0172 00d8 | | Load_Top At_Offset_0
0173 e20f | | Load 0x1,0xf
0174 0122 | " | Execute Any,Make_Root_Type
0175 0260 | ` | Execute Discrete,In_Type
0176 7002 |p | Jump_Nonzero 0x179
0177 48e0 |H | Short_Literal 0xe0
0178 0257 | W | Execute Discrete,Raise
0179 c5fe | | Store 0x2,-0x2
017a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017b TRAP_0158:
017b e005 | | Load 0x0,0x5
017c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
017d 010f | | Execute Exception,Equal
017e 6814 |h | Jump_Zero 0x193
017f e222 | " | Load 0x1,0x22 ; Debug Table 0x7.0x5 = 0x17f,0x5
0180 e5ff | | Load 0x2,-0x1
0181 e003 | | Load 0x0,0x3
0182 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0183 e212 | | Load 0x1,0x12
0184 e231 | 1 | Load 0x1,0x31
0185 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0186 e222 | " | Load 0x1,0x22 ; Debug Table 0x7.0x6 = 0x186,0x6
0187 00d8 | | Load_Top At_Offset_0
0188 e20f | | Load 0x1,0xf
0189 0122 | " | Execute Any,Make_Root_Type
018a 0260 | ` | Execute Discrete,In_Type
018b 7002 |p | Jump_Nonzero 0x18e
018c 48e0 |H | Short_Literal 0xe0
018d 0257 | W | Execute Discrete,Raise
018e c5fe | | Store 0x2,-0x2
018f e222 | " | Load 0x1,0x22 ; Debug Table 0x7.0x7 = 0x18f,0x7
0190 0a01 | | Execute_Immediate Plus,0x1
0191 c222 | " | Store 0x1,0x22
0192 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0193 0100 | | Execute Exception,Raise
0194 0000 0000 | | .BLANK 0000[0x4]
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 e223 | # | Load 0x1,0x23 ; Debug Table 0x8 = .DEBUG 0x019b,0x043c,0x1002,0x0000,0x0056,0xda35,0x0000,0x0013
; Debug Table 0x8.0x0 = 0x19b,0x1
019c 7004 |p | Jump_Nonzero 0x1a1
019d e213 | | Load 0x1,0x13 ; Debug Table 0x8.0x1 = 0x19d,0x2
019e 800a | | Call 0x0,0xa
019f 800f | | Call 0x0,0xf
01a0 a223 | # | Store_Unchecked 0x1,0x23
01a1 e223 | # | Load 0x1,0x23 ; Debug Table 0x8.0x2 = 0x1a1,0x3
01a2 00ca | | Action Exit_Nullary_Function
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 8224 | $ | Call 0x1,0x24 ; Debug Table 0x9 = .DEBUG 0x01ab,0x0444,0x1002,0x0000,0x0056,0xda35,0x0000,0x003e
; Debug Table 0x9.0x0 = 0x1ab,0x1
01ac 800a | | Call 0x0,0xa
01ad e5ff | | Load 0x2,-0x1
01ae 800b | | Call 0x0,0xb
01af 021c | | Execute Heap_Access,Not_Null
01b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x01bb,0x0448,0x1002,0x0000,0x0056,0xda35,0x0000,0x005a
; Debug Table 0xa.0x0 = 0x1bb,0x1
01bc 00d8 | | Load_Top At_Offset_0
01bd e20f | | Load 0x1,0xf
01be 0122 | " | Execute Any,Make_Root_Type
01bf 0260 | ` | Execute Discrete,In_Type
01c0 7002 |p | Jump_Nonzero 0x1c3
01c1 48e0 |H | Short_Literal 0xe0
01c2 0257 | W | Execute Discrete,Raise
01c3 e20f | | Load 0x1,0xf
01c4 025b | [ | Execute Discrete,Check_In_Type
01c5 e219 | | Load 0x1,0x19
01c6 e210 | | Load 0x1,0x10
01c7 0119 | | Execute Any,Check_In_Formal_Type
01c8 8214 | | Call 0x1,0x14
01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e219 | | Load 0x1,0x19 ; Debug Table 0xb = .DEBUG 0x01d3,0x044c,0x1002,0x0000,0x0056,0xda35,0x0000,0x0071
; Debug Table 0xb.0x0 = 0x1d3,0x1
01d4 e5fe | | Load 0x2,-0x2
01d5 e5ff | | Load 0x2,-0x1
01d6 00d8 | | Load_Top At_Offset_0
01d7 e20f | | Load 0x1,0xf
01d8 0122 | " | Execute Any,Make_Root_Type
01d9 0260 | ` | Execute Discrete,In_Type
01da 7002 |p | Jump_Nonzero 0x1dd
01db 48e0 |H | Short_Literal 0xe0
01dc 0257 | W | Execute Discrete,Raise
01dd e20f | | Load 0x1,0xf
01de 025b | [ | Execute Discrete,Check_In_Type
01df e219 | | Load 0x1,0x19
01e0 e210 | | Load 0x1,0x10
01e1 0119 | | Execute Any,Check_In_Formal_Type
01e2 8215 | | Call 0x1,0x15
01e3 012f | / | Execute Any,Equal
01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00db | | Load_Top At_Offset_3 ; Debug Table 0xc = .DEBUG 0x01eb,0x0450,0x1002,0x0000,0x0056,0xda35,0x0000,0x0093
; Debug Table 0xc.0x0 = 0x1eb,0x1
01ec 00d8 | | Load_Top At_Offset_0
01ed e20f | | Load 0x1,0xf
01ee 0122 | " | Execute Any,Make_Root_Type
01ef 0260 | ` | Execute Discrete,In_Type
01f0 7002 |p | Jump_Nonzero 0x1f3
01f1 48e0 |H | Short_Literal 0xe0
01f2 0257 | W | Execute Discrete,Raise
01f3 e20f | | Load 0x1,0xf
01f4 025b | [ | Execute Discrete,Check_In_Type
01f5 00db | | Load_Top At_Offset_3
01f6 821e | | Call 0x1,0x1e
01f7 e210 | | Load 0x1,0x10
01f8 0119 | | Execute Any,Check_In_Formal_Type
01f9 8214 | | Call 0x1,0x14
01fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call ; Debug Table 0xd = .DEBUG 0x0203,0x0454,0x1001,0x0000,0x0056,0xda35,0x0000,0x00b1
; Debug Table 0xd.0x0 = 0x203,0xffff
0205 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call ; Debug Table 0xd.0x1 = 0x205,0xfffe
0207 BODY_0200:
0207 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x2 = 0x207,0x1
0208 821e | | Call 0x1,0x1e
0209 e210 | | Load 0x1,0x10
020a 0119 | | Execute Any,Check_In_Formal_Type
020b 8403 | | Call 0x2,0x3
020c e5fd | | Load 0x2,-0x3 ; Debug Table 0xd.0x3 = 0x20c,0x2
020d e5fe | | Load 0x2,-0x2
020e e5ff | | Load 0x2,-0x1
020f e002 | | Load 0x0,0x2
0210 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0211 821b | | Call 0x1,0x1b
0212 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x021b,0x045e,0x1002,0x0000,0x0056,0xda35,0x0000,0x010d
; Debug Table 0xe.0x0 = 0x21b,0x1
021c 00d8 | | Load_Top At_Offset_0
021d e20f | | Load 0x1,0xf
021e 0122 | " | Execute Any,Make_Root_Type
021f 0260 | ` | Execute Discrete,In_Type
0220 7002 |p | Jump_Nonzero 0x223
0221 48e0 |H | Short_Literal 0xe0
0222 0257 | W | Execute Discrete,Raise
0223 e20f | | Load 0x1,0xf
0224 025b | [ | Execute Discrete,Check_In_Type
0225 8218 | | Call 0x1,0x18
0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0227 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x022b,0x0462,0x1002,0x0000,0x0056,0xda35,0x0000,0x0125
; Debug Table 0xf.0x0 = 0x22b,0x1
022c 00d8 | | Load_Top At_Offset_0
022d e20f | | Load 0x1,0xf
022e 0122 | " | Execute Any,Make_Root_Type
022f 0260 | ` | Execute Discrete,In_Type
0230 7002 |p | Jump_Nonzero 0x233
0231 48e0 |H | Short_Literal 0xe0
0232 0257 | W | Execute Discrete,Raise
0233 e20f | | Load 0x1,0xf
0234 025b | [ | Execute Discrete,Check_In_Type
0235 8217 | | Call 0x1,0x17
0236 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00db | | Load_Top At_Offset_3 ; Debug Table 0x10 = .DEBUG 0x023b,0x0466,0x1002,0x0000,0x0056,0xda35,0x0000,0x013d
; Debug Table 0x10.0x0 = 0x23b,0x1
023c 00db | | Load_Top At_Offset_3
023d 00d8 | | Load_Top At_Offset_0
023e e20f | | Load 0x1,0xf
023f 0122 | " | Execute Any,Make_Root_Type
0240 0260 | ` | Execute Discrete,In_Type
0241 7002 |p | Jump_Nonzero 0x244
0242 48e0 |H | Short_Literal 0xe0
0243 0257 | W | Execute Discrete,Raise
0244 e20f | | Load 0x1,0xf
0245 0122 | " | Execute Any,Make_Root_Type
0246 025e | ^ | Execute Discrete,Convert
0247 1c01 | | Execute_Immediate Run_Utility,0x1
0248 821a | | Call 0x1,0x1a
0249 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2 ; Debug Table 0x11 = .DEBUG 0x0253,0x046a,0x1002,0x0000,0x0056,0xda35,0x0000,0x015c
; Debug Table 0x11.0x0 = 0x253,0x1
0254 00d8 | | Load_Top At_Offset_0
0255 e20f | | Load 0x1,0xf
0256 0122 | " | Execute Any,Make_Root_Type
0257 0260 | ` | Execute Discrete,In_Type
0258 7002 |p | Jump_Nonzero 0x25b
0259 48e0 |H | Short_Literal 0xe0
025a 0257 | W | Execute Discrete,Raise
025b e20f | | Load 0x1,0xf
025c 025b | [ | Execute Discrete,Check_In_Type
025d e5fe | | Load 0x2,-0x2
025e e5ff | | Load 0x2,-0x1
025f 00d8 | | Load_Top At_Offset_0
0260 e20f | | Load 0x1,0xf
0261 0122 | " | Execute Any,Make_Root_Type
0262 0260 | ` | Execute Discrete,In_Type
0263 7002 |p | Jump_Nonzero 0x266
0264 48e0 |H | Short_Literal 0xe0
0265 0257 | W | Execute Discrete,Raise
0266 e20f | | Load 0x1,0xf
0267 025b | [ | Execute Discrete,Check_In_Type
0268 e219 | | Load 0x1,0x19
0269 e210 | | Load 0x1,0x10
026a 0119 | | Execute Any,Check_In_Formal_Type
026b 8215 | | Call 0x1,0x15
026c e210 | | Load 0x1,0x10
026d 0119 | | Execute Any,Check_In_Formal_Type
026e 8214 | | Call 0x1,0x14
026f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3 ; Debug Table 0x12 = .DEBUG 0x0273,0x046e,0x1002,0x0000,0x0056,0xda35,0x0000,0x0184
; Debug Table 0x12.0x0 = 0x273,0x1
0274 00db | | Load_Top At_Offset_3
0275 00d8 | | Load_Top At_Offset_0
0276 e20f | | Load 0x1,0xf
0277 0122 | " | Execute Any,Make_Root_Type
0278 0260 | ` | Execute Discrete,In_Type
0279 7002 |p | Jump_Nonzero 0x27c
027a 48e0 |H | Short_Literal 0xe0
027b 0257 | W | Execute Discrete,Raise
027c e20f | | Load 0x1,0xf
027d 025b | [ | Execute Discrete,Check_In_Type
027e 8216 | | Call 0x1,0x16
027f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e402 | | Load 0x2,0x2 ; Debug Table 0x13 = .DEBUG 0x0283,0x0472,0x1002,0x0000,0x0056,0xda35,0x0000,0x01f2
; Debug Table 0x13.0x0 = 0x283,0x1
0284 8008 | | Call 0x0,0x8
0285 00d1 | | Pop_Control Pop_Count_1
0286 00da | | Load_Top At_Offset_2 ; Debug Table 0x13.0x1 = 0x286,0x2
0287 e210 | | Load 0x1,0x10
0288 0119 | | Execute Any,Check_In_Formal_Type
0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028a 0000 0000 | | .BLANK 0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 029c | | .CONST 0x029c ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 e402 | | Load 0x2,0x2 ; Debug Table 0x14 = .DEBUG 0x0293,0x0478,0x1004,0x0000,0x0056,0xda35,0x0000,0x022e
; Debug Table 0x14.0x0 = 0x293,0x1
0294 821e | | Call 0x1,0x1e
0295 e210 | | Load 0x1,0x10
0296 0119 | | Execute Any,Check_In_Formal_Type
0297 8403 | | Call 0x2,0x3
0298 e210 | | Load 0x1,0x10
0299 0119 | | Execute Any,Check_In_Formal_Type
029a 00cb | | Action Pop_Block_With_Result
029b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
029c TRAP_0290:
029c 0007 | | Action Break_Optional
029d e402 | | Load 0x2,0x2 ; Debug Table 0x14.0x1 = 0x29d,0x2
029e 8008 | | Call 0x0,0x8
029f 00d1 | | Pop_Control Pop_Count_1
02a0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0x2 = 0x2a0,0x3
02a1 0101 | | Execute Exception,Reraise
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x15 = .DEBUG 0x02ab,0x0480,0x1001,0x0000,0x0056,0xda35,0x0000,0x00c0
; Debug Table 0x15.0x0 = 0x2ab,0x1
02ac e7fe | | Load 0x3,-0x2
02ad 012e | . | Execute Any,Not_Equal
02ae 6805 |h | Jump_Zero 0x2b4
02af 00da | | Load_Top At_Offset_2 ; Debug Table 0x15.0x1 = 0x2af,0x2
02b0 e210 | | Load 0x1,0x10
02b1 0119 | | Execute Any,Check_In_Formal_Type
02b2 e5ff | | Load 0x2,-0x1
02b3 8220 | | Call 0x1,0x20
02b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 0000 0000 | | .LITERAL {0x00000000, 0x0056da35}
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x16 = .DEBUG 0x02c3,0x0486,0x1001,0x0000,0x0056,0xda35,0x0000,0x00da
; Debug Table 0x16.0x0 = 0x2c3,0x1
02c4 e210 | | Load 0x1,0x10
02c5 0119 | | Execute Any,Check_In_Formal_Type
02c6 e5fd | | Load 0x2,-0x3
02c7 e5fe | | Load 0x2,-0x2
02c8 00d8 | | Load_Top At_Offset_0
02c9 e20f | | Load 0x1,0xf
02ca 0122 | " | Execute Any,Make_Root_Type
02cb 0260 | ` | Execute Discrete,In_Type
02cc 7002 |p | Jump_Nonzero 0x2cf
02cd 48e0 |H | Short_Literal 0xe0
02ce 0257 | W | Execute Discrete,Raise
02cf e20f | | Load 0x1,0xf
02d0 025b | [ | Execute Discrete,Check_In_Type
02d1 e7ff | | Load 0x3,-0x1
02d2 e210 | | Load 0x1,0x10
02d3 0119 | | Execute Any,Check_In_Formal_Type
02d4 8215 | | Call 0x1,0x15
02d5 e210 | | Load 0x1,0x10
02d6 0119 | | Execute Any,Check_In_Formal_Type
02d7 8402 | | Call 0x2,0x2
02d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d9 0000 0000 | | .BLANK 0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug Table
02e0 ; --------------------------------------------------------------------------------------
02e0 0003 0017 | | .CONST 0x0003,0x0017
02e2 000b 039a | | .DEBUG 0x000b,0x039a,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0554
02ea 0018 03a8 | | .DEBUG 0x0018,0x03a8,0x4000,0x0000,0x0056,0xda35,0x0000,0x0006
02f2 0073 03d6 | s | .DEBUG 0x0073,0x03d6,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x05d6
02fa 009b 03e8 | | .DEBUG 0x009b,0x03e8,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x05ef
0302 00c3 03fa | | .DEBUG 0x00c3,0x03fa,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x060b
030a 00e3 0406 | | .DEBUG 0x00e3,0x0406,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x0614
0312 0103 0414 | | .DEBUG 0x0103,0x0414,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x061d
031a 015b 042a | [ *| .DEBUG 0x015b,0x042a,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x0629
0322 019b 043c | <| .DEBUG 0x019b,0x043c,0x1002,0x0000,0x0056,0xda35,0x0000,0x0013
032a 01ab 0444 | D| .DEBUG 0x01ab,0x0444,0x1002,0x0000,0x0056,0xda35,0x0000,0x003e
0332 01bb 0448 | H| .DEBUG 0x01bb,0x0448,0x1002,0x0000,0x0056,0xda35,0x0000,0x005a
033a 01d3 044c | L| .DEBUG 0x01d3,0x044c,0x1002,0x0000,0x0056,0xda35,0x0000,0x0071
0342 01eb 0450 | P| .DEBUG 0x01eb,0x0450,0x1002,0x0000,0x0056,0xda35,0x0000,0x0093
034a 0203 0454 | T| .DEBUG 0x0203,0x0454,0x1001,0x0000,0x0056,0xda35,0x0000,0x00b1
0352 021b 045e | ^| .DEBUG 0x021b,0x045e,0x1002,0x0000,0x0056,0xda35,0x0000,0x010d
035a 022b 0462 | + b| .DEBUG 0x022b,0x0462,0x1002,0x0000,0x0056,0xda35,0x0000,0x0125
0362 023b 0466 | ; f| .DEBUG 0x023b,0x0466,0x1002,0x0000,0x0056,0xda35,0x0000,0x013d
036a 0253 046a | S j| .DEBUG 0x0253,0x046a,0x1002,0x0000,0x0056,0xda35,0x0000,0x015c
0372 0273 046e | s n| .DEBUG 0x0273,0x046e,0x1002,0x0000,0x0056,0xda35,0x0000,0x0184
037a 0283 0472 | r| .DEBUG 0x0283,0x0472,0x1002,0x0000,0x0056,0xda35,0x0000,0x01f2
0382 0293 0478 | x| .DEBUG 0x0293,0x0478,0x1004,0x0000,0x0056,0xda35,0x0000,0x022e
038a 02ab 0480 | | .DEBUG 0x02ab,0x0480,0x1001,0x0000,0x0056,0xda35,0x0000,0x00c0
0392 02c3 0486 | | .DEBUG 0x02c3,0x0486,0x1001,0x0000,0x0056,0xda35,0x0000,0x00da
039a ; --------------------------------------------------------------------------------------
039a ; Debug3 Subtable 0x0
039a ; --------------------------------------------------------------------------------------
039a 0006 0000 | | .DBG3TAB 0x0006,0x0000
039c 000b ffff | | .CONST 0x000b,0xffff
039e 000d fffe | | .CONST 0x000d,0xfffe
03a0 000f fffd | | .CONST 0x000f,0xfffd
03a2 0011 fffc | | .CONST 0x0011,0xfffc
03a4 0013 fffb | | .CONST 0x0013,0xfffb
03a6 0015 fffa | | .CONST 0x0015,0xfffa
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug3 Subtable 0x1
03a8 ; --------------------------------------------------------------------------------------
03a8 0016 0000 | | .DBG3TAB 0x0016,0x0000
03aa 0018 ffff | | .CONST 0x0018,0xffff
03ac 001a fffe | | .CONST 0x001a,0xfffe
03ae 001c fffd | | .CONST 0x001c,0xfffd
03b0 001e fffc | | .CONST 0x001e,0xfffc
03b2 0026 fffb | & | .CONST 0x0026,0xfffb
03b4 002f fffa | / | .CONST 0x002f,0xfffa
03b6 0031 fff9 | 1 | .CONST 0x0031,0xfff9
03b8 0033 fff8 | 3 | .CONST 0x0033,0xfff8
03ba 0035 fff7 | 5 | .CONST 0x0035,0xfff7
03bc 0037 fff6 | 7 | .CONST 0x0037,0xfff6
03be 0039 fff5 | 9 | .CONST 0x0039,0xfff5
03c0 003b fff4 | ; | .CONST 0x003b,0xfff4
03c2 003d fff3 | = | .CONST 0x003d,0xfff3
03c4 003f fff2 | ? | .CONST 0x003f,0xfff2
03c6 0041 fff1 | A | .CONST 0x0041,0xfff1
03c8 0043 fff0 | C | .CONST 0x0043,0xfff0
03ca 0061 ffef | a | .CONST 0x0061,0xffef
03cc 0063 ffee | c | .CONST 0x0063,0xffee
03ce 0065 ffed | e | .CONST 0x0065,0xffed
03d0 0067 ffec | g | .CONST 0x0067,0xffec
03d2 0069 ffeb | i | .CONST 0x0069,0xffeb
03d4 006b ffea | k | .CONST 0x006b,0xffea
03d6 ; --------------------------------------------------------------------------------------
03d6 ; Debug3 Subtable 0x2
03d6 ; --------------------------------------------------------------------------------------
03d6 0002 0006 | | .DBG3TAB 0x0002,0x0006
03d8 0073 ffff | s | .CONST 0x0073,0xffff
03da 0078 fffe | x | .CONST 0x0078,0xfffe
03dc 007d 0001 | } | .CONST 0x007d,0x0001
03de 007e 0401 | ~ | .CONST 0x007e,0x0401
03e0 0082 0001 | | .CONST 0x0082,0x0001
03e2 0083 0002 | | .CONST 0x0083,0x0002
03e4 008c 0003 | | .CONST 0x008c,0x0003
03e6 0093 0004 | | .CONST 0x0093,0x0004
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0x3
03e8 ; --------------------------------------------------------------------------------------
03e8 0001 0007 | | .DBG3TAB 0x0001,0x0007
03ea 009b ffff | | .CONST 0x009b,0xffff
03ec 00a1 0001 | | .CONST 0x00a1,0x0001
03ee 00a2 0401 | | .CONST 0x00a2,0x0401
03f0 00a6 0001 | | .CONST 0x00a6,0x0001
03f2 00a7 0002 | | .CONST 0x00a7,0x0002
03f4 00ae 0003 | | .CONST 0x00ae,0x0003
03f6 00b3 0004 | | .CONST 0x00b3,0x0004
03f8 00b8 0005 | | .CONST 0x00b8,0x0005
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug3 Subtable 0x4
03fa ; --------------------------------------------------------------------------------------
03fa 0001 0004 | | .DBG3TAB 0x0001,0x0004
03fc 00c3 ffff | | .CONST 0x00c3,0xffff
03fe 00c5 0001 | | .CONST 0x00c5,0x0001
0400 00ca 0002 | | .CONST 0x00ca,0x0002
0402 00cc 0003 | | .CONST 0x00cc,0x0003
0404 00d5 0004 | | .CONST 0x00d5,0x0004
0406 ; --------------------------------------------------------------------------------------
0406 ; Debug3 Subtable 0x5
0406 ; --------------------------------------------------------------------------------------
0406 0001 0005 | | .DBG3TAB 0x0001,0x0005
0408 00e3 ffff | | .CONST 0x00e3,0xffff
040a 00e5 0001 | | .CONST 0x00e5,0x0001
040c 00ea 0002 | | .CONST 0x00ea,0x0002
040e 00ec 0003 | | .CONST 0x00ec,0x0003
0410 00f1 0004 | | .CONST 0x00f1,0x0004
0412 00f6 0005 | | .CONST 0x00f6,0x0005
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug3 Subtable 0x6
0414 ; --------------------------------------------------------------------------------------
0414 0001 0009 | | .DBG3TAB 0x0001,0x0009
0416 0103 ffff | | .CONST 0x0103,0xffff
0418 0105 0001 | | .CONST 0x0105,0x0001
041a 010a 0002 | | .CONST 0x010a,0x0002
041c 010c 0003 | | .CONST 0x010c,0x0003
041e 0112 0004 | | .CONST 0x0112,0x0004
0420 0119 0005 | | .CONST 0x0119,0x0005
0422 0139 0006 | 9 | .CONST 0x0139,0x0006
0424 013f 0007 | ? | .CONST 0x013f,0x0007
0426 0145 0008 | E | .CONST 0x0145,0x0008
0428 0148 0009 | H | .CONST 0x0148,0x0009
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x7
042a ; --------------------------------------------------------------------------------------
042a 0001 0007 | | .DBG3TAB 0x0001,0x0007
042c 015b ffff | [ | .CONST 0x015b,0xffff
042e 015d 0001 | ] | .CONST 0x015d,0x0001
0430 0166 0002 | f | .CONST 0x0166,0x0002
0432 016c 0003 | l | .CONST 0x016c,0x0003
0434 016f 0004 | o | .CONST 0x016f,0x0004
0436 017f 0005 | | .CONST 0x017f,0x0005
0438 0186 0006 | | .CONST 0x0186,0x0006
043a 018f 0007 | | .CONST 0x018f,0x0007
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0x8
043c ; --------------------------------------------------------------------------------------
043c 0000 0003 | | .DBG3TAB 0x0000,0x0003
043e 019b 0001 | | .CONST 0x019b,0x0001
0440 019d 0002 | | .CONST 0x019d,0x0002
0442 01a1 0003 | | .CONST 0x01a1,0x0003
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug3 Subtable 0x9
0444 ; --------------------------------------------------------------------------------------
0444 0000 0001 | | .DBG3TAB 0x0000,0x0001
0446 01ab 0001 | | .CONST 0x01ab,0x0001
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug3 Subtable 0xa
0448 ; --------------------------------------------------------------------------------------
0448 0000 0001 | | .DBG3TAB 0x0000,0x0001
044a 01bb 0001 | | .CONST 0x01bb,0x0001
044c ; --------------------------------------------------------------------------------------
044c ; Debug3 Subtable 0xb
044c ; --------------------------------------------------------------------------------------
044c 0000 0001 | | .DBG3TAB 0x0000,0x0001
044e 01d3 0001 | | .CONST 0x01d3,0x0001
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug3 Subtable 0xc
0450 ; --------------------------------------------------------------------------------------
0450 0000 0001 | | .DBG3TAB 0x0000,0x0001
0452 01eb 0001 | | .CONST 0x01eb,0x0001
0454 ; --------------------------------------------------------------------------------------
0454 ; Debug3 Subtable 0xd
0454 ; --------------------------------------------------------------------------------------
0454 0002 0002 | | .DBG3TAB 0x0002,0x0002
0456 0203 ffff | | .CONST 0x0203,0xffff
0458 0205 fffe | | .CONST 0x0205,0xfffe
045a 0207 0001 | | .CONST 0x0207,0x0001
045c 020c 0002 | | .CONST 0x020c,0x0002
045e ; --------------------------------------------------------------------------------------
045e ; Debug3 Subtable 0xe
045e ; --------------------------------------------------------------------------------------
045e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0460 021b 0001 | | .CONST 0x021b,0x0001
0462 ; --------------------------------------------------------------------------------------
0462 ; Debug3 Subtable 0xf
0462 ; --------------------------------------------------------------------------------------
0462 0000 0001 | | .DBG3TAB 0x0000,0x0001
0464 022b 0001 | + | .CONST 0x022b,0x0001
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug3 Subtable 0x10
0466 ; --------------------------------------------------------------------------------------
0466 0000 0001 | | .DBG3TAB 0x0000,0x0001
0468 023b 0001 | ; | .CONST 0x023b,0x0001
046a ; --------------------------------------------------------------------------------------
046a ; Debug3 Subtable 0x11
046a ; --------------------------------------------------------------------------------------
046a 0000 0001 | | .DBG3TAB 0x0000,0x0001
046c 0253 0001 | S | .CONST 0x0253,0x0001
046e ; --------------------------------------------------------------------------------------
046e ; Debug3 Subtable 0x12
046e ; --------------------------------------------------------------------------------------
046e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0470 0273 0001 | s | .CONST 0x0273,0x0001
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0x13
0472 ; --------------------------------------------------------------------------------------
0472 0000 0002 | | .DBG3TAB 0x0000,0x0002
0474 0283 0001 | | .CONST 0x0283,0x0001
0476 0286 0002 | | .CONST 0x0286,0x0002
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug3 Subtable 0x14
0478 ; --------------------------------------------------------------------------------------
0478 0000 0003 | | .DBG3TAB 0x0000,0x0003
047a 0293 0001 | | .CONST 0x0293,0x0001
047c 029d 0002 | | .CONST 0x029d,0x0002
047e 02a0 0003 | | .CONST 0x02a0,0x0003
0480 ; --------------------------------------------------------------------------------------
0480 ; Debug3 Subtable 0x15
0480 ; --------------------------------------------------------------------------------------
0480 0000 0002 | | .DBG3TAB 0x0000,0x0002
0482 02ab 0001 | | .CONST 0x02ab,0x0001
0484 02af 0002 | | .CONST 0x02af,0x0002
0486 ; --------------------------------------------------------------------------------------
0486 ; Debug3 Subtable 0x16
0486 ; --------------------------------------------------------------------------------------
0486 0000 0001 | | .DBG3TAB 0x0000,0x0001
0488 02c3 0001 | | .CONST 0x02c3,0x0001
048a 0000 0000 | | .BLANK 0000[0x176]