|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: SEG
Notes: 5805_R1K_CODE
Names: »10973201.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »10973201.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »10973201.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »10973201.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »10973201.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »10973201.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0280 | | .CONST 0x0280 ; 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 0074 | t | .CONST 0x0074 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18 ; Debug Table 0x0 = .DEBUG 0x000b,0x0322,0xc000,0x0000,0x000e,0x26d4,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d e210 | | Load 0x1,0x10 ; Debug Table 0x0.0x1 = 0xd,0xfffe
000e e211 | | Load 0x1,0x11
000f 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0011 4802 |H | Short_Literal 0x2
0012 032e | . | Declare_Type Record,Defined,Visible
0013 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x13,0xfffd
0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x15,0xfffc
0017 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x17,0xfffb
0019 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x19,0xfffa
001b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1d,0xfff8
001f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1f,0xfff7
0021 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x21,0xfff6
0023 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x23,0xfff5
0025 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0xb = 0x25,0xfff4
0026 032b | + | Declare_Type Record,Incomplete,Visible
0027 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x27,0xfff3
0029 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x29,0xfff2
002b 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2b,0xfff1
002d 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2d,0xfff0
002f 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x2f,0xffef
0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x30,0xffee
0031 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x12 = 0x31,0xffed
0032 032a | * | Declare_Type Record,Incomplete
0033 e223 | # | Load 0x1,0x23 ; Debug Table 0x0.0x13 = 0x33,0xffec
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 4818 |H | Short_Literal 0x18
0036 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0037 e214 | | Load 0x1,0x14 ; Debug Table 0x0.0x14 = 0x37,0xffeb
0038 e224 | $ | Load 0x1,0x24
0039 029f 021b | | Declare_Subprogram INIT_0218,For_Call
003b e223 | # | Load 0x1,0x23
003c 0326 | & | Complete_Type Record,By_Defining
003d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x15 = 0x3d,0xffea
003e e20f | | Load 0x1,0xf
003f 0aff | | Execute_Immediate Plus,-0x1
0040 0248 | H | Execute Discrete,Check_In_Integer
0041 00e2 | | Load_Encached Integer_Cache
0042 03f8 | | Declare_Type Discrete,Constrained
0043 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x16 = 0x43,0xffe9
0044 e225 | % | Load 0x1,0x25
0045 0269 | i | Execute Discrete,Last
0046 e224 | $ | Load 0x1,0x24
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 4801 |H | Short_Literal 0x1
0049 035d | ] | Declare_Type Array,Defined
004a e226 | & | Load 0x1,0x26 ; Debug Table 0x0.0x17 = 0x4a,0xffe8
004b 02a0 | | Declare_Subprogram Null_Subprogram
004c e213 | | Load 0x1,0x13
004d 03c7 | | Complete_Type Access,By_Defining
004e e213 | | Load 0x1,0x13 ; Debug Table 0x0.0x18 = 0x4e,0xffe7
004f e225 | % | Load 0x1,0x25
0050 e224 | $ | Load 0x1,0x24
0051 00e1 | | Load_Encached Boolean_Cache
0052 02a0 | | Declare_Subprogram Null_Subprogram
0053 e21e | | Load 0x1,0x1e
0054 0326 | & | Complete_Type Record,By_Defining
0055 00bf | | Action Accept_Activation
0056 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0056,0x0356,0xc000,0x0000,0x000e,0x2bb4,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x56,0xffff
0058 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call ; Debug Table 0x1.0x1 = 0x58,0xfffe
005a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x2 = 0x5a,0xfffd
005b 00c7 | | Action Elaborate_Subprogram
005c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x3 = 0x5c,0xfffc
005d 00c7 | | Action Elaborate_Subprogram
005e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x4 = 0x5e,0xfffb
005f 00c7 | | Action Elaborate_Subprogram
0060 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x5 = 0x60,0xfffa
0061 00c7 | | Action Elaborate_Subprogram
0062 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x6 = 0x62,0xfff9
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x7 = 0x64,0xfff8
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x8 = 0x66,0xfff7
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x9 = 0x68,0xfff6
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xa = 0x6a,0xfff5
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xb = 0x6c,0xfff4
006d 00c7 | | Action Elaborate_Subprogram
006e 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0xc = 0x6e,0xfff3
006f 00c7 | | Action Elaborate_Subprogram
0070 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0xd = 0x70,0xfff2
0071 00c7 | | Action Elaborate_Subprogram
0072 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0xe = 0x72,0xfff1
0073 00c7 | | Action Elaborate_Subprogram
0074 BODY_0008:
0074 00bc | | Action Signal_Activated
0075 00bb | | Action Signal_Completion
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x007b,0x0376,0x1005,0x0000,0x000e,0x26d4,0x0000,0x0026
007c 7808 |x | Jump 0x85 ; case 0x0
007d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
007e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
007f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0080 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0081 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0082 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0083 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0085 e5ff | | Load 0x2,-0x1
0086 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0087 0125 | % | Execute Any,Set_Constraint
0088 e5ff | | Load 0x2,-0x1
0089 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008a 1c00 | | Execute_Immediate Run_Utility,0x0
008b e5ff | | Load 0x2,-0x1
008c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
008d 0125 | % | Execute Any,Set_Constraint
008e e5ff | | Load 0x2,-0x1
008f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0090 1c00 | | Execute_Immediate Run_Utility,0x0
0091 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a8 | | .CONST 0x00a8 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e224 | $ | Load 0x1,0x24 ; Debug Table 0x3 = .DEBUG 0x009b,0x0378,0x1002,0x0000,0x000e,0x26d4,0x0000,0x0034
; Debug Table 0x3.0x0 = 0x9b,0xffff
009c e5fe | | Load 0x2,-0x2
009d e210 | | Load 0x1,0x10
009e 0119 | | Execute Any,Check_In_Formal_Type
009f e5fe | | Load 0x2,-0x2
00a0 e210 | | Load 0x1,0x10
00a1 0119 | | Execute Any,Check_In_Formal_Type
00a2 8228 | ( | Call 0x1,0x28
00a3 e5ff | | Load 0x2,-0x1
00a4 0227 | ' | Execute Access,All_Reference
00a5 01d7 | | Execute Vector,Field_Read
00a6 8227 | ' | Call 0x1,0x27
00a7 c402 | | Store 0x2,0x2
00a8 BODY_0098:
00a8 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x1 = 0xa8,0x1
00a9 680c |h | Jump_Zero 0xb6
00aa e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x2 = 0xaa,0x2
00ab 0227 | ' | Execute Access,All_Reference
00ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ae 00d8 | | Load_Top At_Offset_0
00af 0120 | | Execute Any,Is_Value
00b0 7002 |p | Jump_Nonzero 0xb3
00b1 00d8 | | Load_Top At_Offset_0
00b2 011e | | Execute Any,Convert
00b3 e211 | | Load 0x1,0x11
00b4 0119 | | Execute Any,Check_In_Formal_Type
00b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b6 61c5 |a | Indirect_Literal Discrete,0x27c,{0x00000000, 0x0e26d401} ; Debug Table 0x3.0x3 = 0xb6,0x3
00b7 0257 | W | Execute Discrete,Raise
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c8 | | .CONST 0x00c8 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e224 | $ | Load 0x1,0x24 ; Debug Table 0x4 = .DEBUG 0x00bb,0x0382,0x1001,0x0000,0x000e,0x26d4,0x0000,0x0041
; Debug Table 0x4.0x0 = 0xbb,0xffff
00bc e5fe | | Load 0x2,-0x2
00bd e210 | | Load 0x1,0x10
00be 0119 | | Execute Any,Check_In_Formal_Type
00bf e5fe | | Load 0x2,-0x2
00c0 e210 | | Load 0x1,0x10
00c1 0119 | | Execute Any,Check_In_Formal_Type
00c2 8228 | ( | Call 0x1,0x28
00c3 e5ff | | Load 0x2,-0x1
00c4 0227 | ' | Execute Access,All_Reference
00c5 01d7 | | Execute Vector,Field_Read
00c6 8227 | ' | Call 0x1,0x27
00c7 c402 | | Store 0x2,0x2
00c8 BODY_00b8:
00c8 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x1 = 0xc8,0x1
00c9 6808 |h | Jump_Zero 0xd2
00ca e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x2 = 0xca,0x2
00cb 0227 | ' | Execute Access,All_Reference
00cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ce c5fd | | Store 0x2,-0x3
00cf 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x3 = 0xcf,0x3
00d0 a5fc | | Store_Unchecked 0x2,-0x4
00d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d2 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x4 = 0xd2,0x4
00d3 a5fc | | Store_Unchecked 0x2,-0x4
00d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e8 | | .CONST 0x00e8 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e224 | $ | Load 0x1,0x24 ; Debug Table 0x5 = .DEBUG 0x00db,0x038e,0x1001,0x0000,0x000e,0x26d4,0x0000,0x0055
; Debug Table 0x5.0x0 = 0xdb,0xffff
00dc e5fe | | Load 0x2,-0x2
00dd e210 | | Load 0x1,0x10
00de 0119 | | Execute Any,Check_In_Formal_Type
00df e5fe | | Load 0x2,-0x2
00e0 e210 | | Load 0x1,0x10
00e1 0119 | | Execute Any,Check_In_Formal_Type
00e2 8228 | ( | Call 0x1,0x28
00e3 e5ff | | Load 0x2,-0x1
00e4 0227 | ' | Execute Access,All_Reference
00e5 01d7 | | Execute Vector,Field_Read
00e6 8227 | ' | Call 0x1,0x27
00e7 c402 | | Store 0x2,0x2
00e8 BODY_00d8:
00e8 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x1 = 0xe8,0x1
00e9 6808 |h | Jump_Zero 0xf2
00ea e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x2 = 0xea,0x2
00eb 0227 | ' | Execute Access,All_Reference
00ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ed e5fd | | Load 0x2,-0x3
00ee 017d | } | Execute Record,Structure_Write
00ef 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x3 = 0xef,0x3
00f0 a5fc | | Store_Unchecked 0x2,-0x4
00f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f2 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x4 = 0xf2,0x4
00f3 a5fc | | Store_Unchecked 0x2,-0x4
00f4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 010b | | .CONST 0x010b ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0004 | | .CONST 0x0004 ; Number of locals
00fb INIT_00f8:
00fb e5ff | | Load 0x2,-0x1 ; Debug Table 0x6 = .DEBUG 0x00fb,0x039a,0x1001,0x0000,0x000e,0x26d4,0x0000,0x0069
; Debug Table 0x6.0x0 = 0xfb,0xffff
00fc e210 | | Load 0x1,0x10
00fd 0119 | | Execute Any,Check_In_Formal_Type
00fe 8228 | ( | Call 0x1,0x28
00ff e5fc | | Load 0x2,-0x4
0100 0227 | ' | Execute Access,All_Reference
0101 01d5 | | Execute Vector,Field_Reference
0102 0007 | | Action Break_Optional
0103 e224 | $ | Load 0x1,0x24 ; Debug Table 0x6.0x1 = 0x103,0xfffe
0104 e5ff | | Load 0x2,-0x1
0105 e210 | | Load 0x1,0x10
0106 0119 | | Execute Any,Check_In_Formal_Type
0107 e402 | | Load 0x2,0x2
0108 8227 | ' | Call 0x1,0x27
0109 c403 | | Store 0x2,0x3
010a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x2 = 0x10a,0xfffd
010b BODY_00f8:
010b e403 | | Load 0x2,0x3 ; Debug Table 0x6.0x3 = 0x10b,0x1
010c 7015 |p | Jump_Nonzero 0x122
010d e223 | # | Load 0x1,0x23 ; Debug Table 0x6.0x4 = 0x10d,0x2
010e 0322 | " | Declare_Variable Record
010f e405 | | Load 0x2,0x5
0110 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0111 e5ff | | Load 0x2,-0x1
0112 e210 | | Load 0x1,0x10
0113 0119 | | Execute Any,Check_In_Formal_Type
0114 e406 | | Load 0x2,0x6
0115 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0116 e5fe | | Load 0x2,-0x2
0117 e211 | | Load 0x1,0x11
0118 0119 | | Execute Any,Check_In_Formal_Type
0119 00d0 | | Action Swap_Control
011a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011b e402 | | Load 0x2,0x2
011c e405 | | Load 0x2,0x5
011d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011e e224 | $ | Load 0x1,0x24
011f 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0120 a402 | | Store_Unchecked 0x2,0x2
0121 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0122 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x5 = 0x122,0x3
0123 6802 |h | Jump_Zero 0x126
0124 6153 |aS | Indirect_Literal Discrete,0x278,{0x00000000, 0x0e26d402} ; Debug Table 0x6.0x6 = 0x124,0x4
0125 0257 | W | Execute Discrete,Raise
0126 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x7 = 0x126,0x5
0127 e403 | | Load 0x2,0x3
0128 0227 | ' | Execute Access,All_Reference
0129 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013f | ? | .CONST 0x013f ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0004 | | .CONST 0x0004 ; Number of locals
0133 INIT_0130:
0133 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7 = .DEBUG 0x0133,0x03ac,0x1001,0x0000,0x000e,0x26d4,0x0000,0x007e
; Debug Table 0x7.0x0 = 0x133,0xffff
0134 e210 | | Load 0x1,0x10
0135 0119 | | Execute Any,Check_In_Formal_Type
0136 8228 | ( | Call 0x1,0x28
0137 e5fe | | Load 0x2,-0x2
0138 0227 | ' | Execute Access,All_Reference
0139 01d5 | | Execute Vector,Field_Reference
013a 0007 | | Action Break_Optional
013b e224 | $ | Load 0x1,0x24 ; Debug Table 0x7.0x1 = 0x13b,0xfffe
013c e402 | | Load 0x2,0x2
013d c403 | | Store 0x2,0x3
013e e224 | $ | Load 0x1,0x24 ; Debug Table 0x7.0x2 = 0x13e,0xfffd
013f BODY_0130:
013f 781b |x | Jump 0x15b
0140 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x3 = 0x140,0x2
0141 0227 | ' | Execute Access,All_Reference
0142 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0143 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0144 e5ff | | Load 0x2,-0x1
0145 012f | / | Execute Any,Equal
0146 680e |h | Jump_Zero 0x155
0147 e404 | | Load 0x2,0x4 ; Debug Table 0x7.0x4 = 0x147,0x3
0148 6807 |h | Jump_Zero 0x150
0149 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x5 = 0x149,0x4
014a 0227 | ' | Execute Access,All_Reference
014b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014c e404 | | Load 0x2,0x4
014d 0227 | ' | Execute Access,All_Reference
014e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0150 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x6 = 0x150,0x5
0151 0227 | ' | Execute Access,All_Reference
0152 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0153 a402 | | Store_Unchecked 0x2,0x2
0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x7.0x7 = 0x154,0x6
0155 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x8 = 0x155,0x7
0156 a404 | | Store_Unchecked 0x2,0x4
0157 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0x9 = 0x157,0x8
0158 0227 | ' | Execute Access,All_Reference
0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015a a403 | | Store_Unchecked 0x2,0x3
015b e403 | | Load 0x2,0x3 ; Debug Table 0x7.0xa = 0x15b,0x1
015c 77e3 |w | Jump_Nonzero 0x140
015d 611e |a | Indirect_Literal Discrete,0x27c,{0x00000000, 0x0e26d401} ; Debug Table 0x7.0xb = 0x15d,0x9
015e 0257 | W | Execute Discrete,Raise
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e213 | | Load 0x1,0x13 ; Debug Table 0x8 = .DEBUG 0x0163,0x03c6,0x1001,0x0000,0x000e,0x26d4,0x0000,0x008a
; Debug Table 0x8.0x0 = 0x163,0x1
0164 03bc | | Declare_Variable Access,By_Allocation
0165 a5ff | | Store_Unchecked 0x2,-0x1
0166 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d | m | .CONST 0x016d ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e21e | | Load 0x1,0x1e ; Debug Table 0x9 = .DEBUG 0x016b,0x03ca,0x1002,0x0000,0x000e,0x26d4,0x0000,0x0092
; Debug Table 0x9.0x0 = 0x16b,0xffff
016c 0322 | " | Declare_Variable Record
016d BODY_0168:
016d e225 | % | Load 0x1,0x25 ; Debug Table 0x9.0x1 = 0x16d,0x1
016e 0269 | i | Execute Discrete,Last
016f 4800 |H | Short_Literal 0x0
0170 0263 | c | Execute Discrete,Above_Bound
0171 7008 |p | Jump_Nonzero 0x17a
0172 e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x2 = 0x172,0x2
0173 e5ff | | Load 0x2,-0x1
0174 0227 | ' | Execute Access,All_Reference
0175 01d7 | | Execute Vector,Field_Read
0176 6802 |h | Jump_Zero 0x179
0177 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x3 = 0x177,0x3
0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0179 3ff8 |? | Loop_Increasing 0x172
017a 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x4 = 0x17a,0x4
017b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017c 0000 0000 | | .BLANK 0000[0x4]
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 e225 | % | Load 0x1,0x25 ; Debug Table 0xa = .DEBUG 0x0183,0x03d6,0x1001,0x0000,0x000e,0x26d4,0x0000,0x009b
; Debug Table 0xa.0x0 = 0x183,0x1
0184 0269 | i | Execute Discrete,Last
0185 4800 |H | Short_Literal 0x0
0186 0263 | c | Execute Discrete,Above_Bound
0187 7006 |p | Jump_Nonzero 0x18e
0188 e224 | $ | Load 0x1,0x24 ; Debug Table 0xa.0x1 = 0x188,0x2
0189 e403 | | Load 0x2,0x3
018a e5ff | | Load 0x2,-0x1
018b 0227 | ' | Execute Access,All_Reference
018c 01d6 | | Execute Vector,Field_Write
018d 3ffa |? | Loop_Increasing 0x188
018e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195 | | .CONST 0x0195 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 029f 025b | [| Declare_Subprogram INIT_0258,For_Call ; Debug Table 0xb = .DEBUG 0x0193,0x03dc,0x1001,0x0000,0x000e,0x26d4,0x0000,0x00a3
; Debug Table 0xb.0x0 = 0x193,0xffff
0195 BODY_0190:
0195 e225 | % | Load 0x1,0x25 ; Debug Table 0xb.0x1 = 0x195,0x1
0196 0269 | i | Execute Discrete,Last
0197 4800 |H | Short_Literal 0x0
0198 0263 | c | Execute Discrete,Above_Bound
0199 7010 |p | Jump_Nonzero 0x1aa
019a e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x2 = 0x19a,0x2
019b 0229 | ) | Execute Access,All_Read
019c e404 | | Load 0x2,0x4
019d e406 | | Load 0x2,0x6
019e e405 | | Load 0x2,0x5
019f 01d7 | | Execute Vector,Field_Read
01a0 e404 | | Load 0x2,0x4
01a1 e5ff | | Load 0x2,-0x1
01a2 0227 | ' | Execute Access,All_Reference
01a3 01d7 | | Execute Vector,Field_Read
01a4 8402 | | Call 0x2,0x2
01a5 e406 | | Load 0x2,0x6
01a6 e405 | | Load 0x2,0x5
01a7 01d6 | | Execute Vector,Field_Write
01a8 00d2 | | Pop_Control Pop_Count_2
01a9 3ff0 |? | Loop_Increasing 0x19a
01aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 e21e | | Load 0x1,0x1e ; Debug Table 0xc = .DEBUG 0x01b3,0x03e4,0x1001,0x0000,0x000e,0x26d4,0x0000,0x00b3
; Debug Table 0xc.0x0 = 0x1b3,0xffff
01b4 0322 | " | Declare_Variable Record
01b5 BODY_01b0:
01b5 e225 | % | Load 0x1,0x25 ; Debug Table 0xc.0x1 = 0x1b5,0x1
01b6 0269 | i | Execute Discrete,Last
01b7 4800 |H | Short_Literal 0x0
01b8 0263 | c | Execute Discrete,Above_Bound
01b9 7017 |p | Jump_Nonzero 0x1d1
01ba e404 | | Load 0x2,0x4 ; Debug Table 0xc.0x2 = 0x1ba,0x2
01bb e5ff | | Load 0x2,-0x1
01bc 0227 | ' | Execute Access,All_Reference
01bd 01d7 | | Execute Vector,Field_Read
01be e402 | | Load 0x2,0x2
01bf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01c0 e402 | | Load 0x2,0x2 ; Debug Table 0xc.0x3 = 0x1c0,0x3
01c1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c2 680d |h | Jump_Zero 0x1d0
01c3 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x4 = 0x1c3,0x4
01c4 e402 | | Load 0x2,0x2
01c5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c6 e404 | | Load 0x2,0x4 ; Debug Table 0xc.0x5 = 0x1c6,0x5
01c7 e402 | | Load 0x2,0x2
01c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c9 e5ff | | Load 0x2,-0x1 ; Debug Table 0xc.0x6 = 0x1c9,0x6
01ca e402 | | Load 0x2,0x2
01cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01cc e402 | | Load 0x2,0x2 ; Debug Table 0xc.0x7 = 0x1cc,0x7
01cd e5fe | | Load 0x2,-0x2
01ce 017d | } | Execute Record,Structure_Write
01cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xc.0x8 = 0x1cf,0x8
01d0 3fe9 |? | Loop_Increasing 0x1ba
01d1 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x9 = 0x1d1,0x9
01d2 e402 | | Load 0x2,0x2
01d3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01d4 e402 | | Load 0x2,0x2 ; Debug Table 0xc.0xa = 0x1d4,0xa
01d5 e5fe | | Load 0x2,-0x2
01d6 017d | } | Execute Record,Structure_Write
01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e5ff | | Load 0x2,-0x1 ; Debug Table 0xd = .DEBUG 0x01db,0x03fc,0x1001,0x0000,0x000e,0x26d4,0x0000,0x00bf
; Debug Table 0xd.0x0 = 0x1db,0x1
01dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01dd 0227 | ' | Execute Access,All_Reference
01de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01df e5ff | | Load 0x2,-0x1
01e0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e1 7817 |x | Jump 0x1f9
01e2 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x1 = 0x1e2,0x3
01e3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e4 e225 | % | Load 0x1,0x25
01e5 0269 | i | Execute Discrete,Last
01e6 027f | | Execute Discrete,Equal
01e7 6804 |h | Jump_Zero 0x1ec
01e8 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0x2 = 0x1e8,0x4
01e9 e5ff | | Load 0x2,-0x1
01ea 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xd.0x3 = 0x1eb,0x5
01ec e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x4 = 0x1ec,0x6
01ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ee 0a01 | | Execute_Immediate Plus,0x1
01ef e5ff | | Load 0x2,-0x1
01f0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f1 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x5 = 0x1f1,0x7
01f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f3 e5ff | | Load 0x2,-0x1
01f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f5 0227 | ' | Execute Access,All_Reference
01f6 01d7 | | Execute Vector,Field_Read
01f7 e5ff | | Load 0x2,-0x1
01f8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01f9 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x6 = 0x1f9,0x2
01fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01fb 6fe6 |o | Jump_Zero 0x1e2
01fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 e5ff | | Load 0x2,-0x1 ; Debug Table 0xe = .DEBUG 0x0203,0x040c,0x1002,0x0000,0x000e,0x26d4,0x0000,0x00c7
; Debug Table 0xe.0x0 = 0x203,0x1
0204 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0205 0227 | ' | Execute Access,All_Reference
0206 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0207 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0208 00d8 | | Load_Top At_Offset_0
0209 0120 | | Execute Any,Is_Value
020a 7002 |p | Jump_Nonzero 0x20d
020b 00d8 | | Load_Top At_Offset_0
020c 011e | | Execute Any,Convert
020d e210 | | Load 0x1,0x10
020e 0119 | | Execute Any,Check_In_Formal_Type
020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf = .DEBUG 0x0213,0x0410,0x1002,0x0000,0x000e,0x26d4,0x0000,0x00d0
; Debug Table 0xf.0x0 = 0x213,0x1
0214 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0216 0000 0000 | | .XXX[0x2]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x10 = .DEBUG 0x021b,0x0414,0x1005,0x0000,0x000e,0x26d4,0x0000,0x00e9
021c 7808 |x | Jump 0x225 ; case 0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
021f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0220 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0221 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0222 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0223 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0224 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0225 e5ff | | Load 0x2,-0x1
0226 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0227 1c00 | | Execute_Immediate Run_Utility,0x0
0228 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0229 0000 0000 | | .BLANK 0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0236 | 6 | .CONST 0x0236 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e224 | $ | Load 0x1,0x24 ; Debug Table 0x11 = .DEBUG 0x0233,0x0416,0x1002,0x0000,0x000e,0x2bb4,0x0000,0x0004
; Debug Table 0x11.0x0 = 0x233,0xffff
0234 e5ff | | Load 0x2,-0x1
0235 c402 | | Store 0x2,0x2
0236 BODY_0230:
0236 780d |x | Jump 0x244
0237 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x1 = 0x237,0x2
0238 0227 | ' | Execute Access,All_Reference
0239 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023b e5fe | | Load 0x2,-0x2
023c 012f | / | Execute Any,Equal
023d 6802 |h | Jump_Zero 0x240
023e e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x2 = 0x23e,0x3
023f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0240 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x3 = 0x240,0x4
0241 0227 | ' | Execute Access,All_Reference
0242 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0243 a402 | | Store_Unchecked 0x2,0x2
0244 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x4 = 0x244,0x1
0245 77f1 |w | Jump_Nonzero 0x237
0246 e224 | $ | Load 0x1,0x24 ; Debug Table 0x11.0x5 = 0x246,0x5
0247 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e5ff | | Load 0x2,-0x1 ; Debug Table 0x12 = .DEBUG 0x024b,0x0424,0x1002,0x0000,0x000e,0x2bb4,0x0000,0x0038
; Debug Table 0x12.0x0 = 0x24b,0x1
024c e210 | | Load 0x1,0x10
024d 0119 | | Execute Any,Check_In_Formal_Type
024e 8212 | | Call 0x1,0x12
024f e20f | | Load 0x1,0xf
0250 026e | n | Execute Discrete,Modulo
0251 e225 | % | Load 0x1,0x25
0252 025b | [ | Execute Discrete,Check_In_Type
0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025e | ^ | .CONST 0x025e ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e224 | $ | Load 0x1,0x24 ; Debug Table 0x13 = .DEBUG 0x025b,0x0428,0x1001,0x0000,0x000e,0x2bb4,0x0000,0x01c8
; Debug Table 0x13.0x0 = 0x25b,0xffff
025c e7ff | | Load 0x3,-0x1
025d c602 | | Store 0x3,0x2
025e BODY_0258:
025e e224 | $ | Load 0x1,0x24 ; Debug Table 0x13.0x1 = 0x25e,0x1
025f a7fe | | Store_Unchecked 0x3,-0x2
0260 7811 |x | Jump 0x272
0261 e223 | # | Load 0x1,0x23 ; Debug Table 0x13.0x2 = 0x261,0x3
0262 0322 | " | Declare_Variable Record
0263 e602 | | Load 0x3,0x2
0264 0227 | ' | Execute Access,All_Reference
0265 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0266 e603 | | Load 0x3,0x3
0267 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0268 e7fe | | Load 0x3,-0x2
0269 e603 | | Load 0x3,0x3
026a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
026b e224 | $ | Load 0x1,0x24
026c 03b6 | | Declare_Variable Access,By_Allocation,With_Value
026d a7fe | | Store_Unchecked 0x3,-0x2
026e e602 | | Load 0x3,0x2 ; Debug Table 0x13.0x3 = 0x26e,0x4
026f 0227 | ' | Execute Access,All_Reference
0270 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0271 a602 | | Store_Unchecked 0x3,0x2
0272 e602 | | Load 0x3,0x2 ; Debug Table 0x13.0x4 = 0x272,0x2
0273 77ed |w | Jump_Nonzero 0x261
0274 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 0000 0000 | | .LITERAL {0x00000000, 0x0e26d402}
027c 0000 0000 | | .LITERAL {0x00000000, 0x0e26d401}
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug Table
0280 ; --------------------------------------------------------------------------------------
0280 0003 0014 | | .CONST 0x0003,0x0014
0282 000b 0322 | "| .DEBUG 0x000b,0x0322,0xc000,0x0000,0x000e,0x26d4,0x0000,0x0003
028a 0056 0356 | V V| .DEBUG 0x0056,0x0356,0xc000,0x0000,0x000e,0x2bb4,0x0000,0x0003
0292 007b 0376 | { v| .DEBUG 0x007b,0x0376,0x1005,0x0000,0x000e,0x26d4,0x0000,0x0026
029a 009b 0378 | x| .DEBUG 0x009b,0x0378,0x1002,0x0000,0x000e,0x26d4,0x0000,0x0034
02a2 00bb 0382 | | .DEBUG 0x00bb,0x0382,0x1001,0x0000,0x000e,0x26d4,0x0000,0x0041
02aa 00db 038e | | .DEBUG 0x00db,0x038e,0x1001,0x0000,0x000e,0x26d4,0x0000,0x0055
02b2 00fb 039a | | .DEBUG 0x00fb,0x039a,0x1001,0x0000,0x000e,0x26d4,0x0000,0x0069
02ba 0133 03ac | 3 | .DEBUG 0x0133,0x03ac,0x1001,0x0000,0x000e,0x26d4,0x0000,0x007e
02c2 0163 03c6 | c | .DEBUG 0x0163,0x03c6,0x1001,0x0000,0x000e,0x26d4,0x0000,0x008a
02ca 016b 03ca | k | .DEBUG 0x016b,0x03ca,0x1002,0x0000,0x000e,0x26d4,0x0000,0x0092
02d2 0183 03d6 | | .DEBUG 0x0183,0x03d6,0x1001,0x0000,0x000e,0x26d4,0x0000,0x009b
02da 0193 03dc | | .DEBUG 0x0193,0x03dc,0x1001,0x0000,0x000e,0x26d4,0x0000,0x00a3
02e2 01b3 03e4 | | .DEBUG 0x01b3,0x03e4,0x1001,0x0000,0x000e,0x26d4,0x0000,0x00b3
02ea 01db 03fc | | .DEBUG 0x01db,0x03fc,0x1001,0x0000,0x000e,0x26d4,0x0000,0x00bf
02f2 0203 040c | | .DEBUG 0x0203,0x040c,0x1002,0x0000,0x000e,0x26d4,0x0000,0x00c7
02fa 0213 0410 | | .DEBUG 0x0213,0x0410,0x1002,0x0000,0x000e,0x26d4,0x0000,0x00d0
0302 021b 0414 | | .DEBUG 0x021b,0x0414,0x1005,0x0000,0x000e,0x26d4,0x0000,0x00e9
030a 0233 0416 | 3 | .DEBUG 0x0233,0x0416,0x1002,0x0000,0x000e,0x2bb4,0x0000,0x0004
0312 024b 0424 | K $| .DEBUG 0x024b,0x0424,0x1002,0x0000,0x000e,0x2bb4,0x0000,0x0038
031a 025b 0428 | [ (| .DEBUG 0x025b,0x0428,0x1001,0x0000,0x000e,0x2bb4,0x0000,0x01c8
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug3 Subtable 0x0
0322 ; --------------------------------------------------------------------------------------
0322 0019 0000 | | .DBG3TAB 0x0019,0x0000
0324 000b ffff | | .CONST 0x000b,0xffff
0326 000d fffe | | .CONST 0x000d,0xfffe
0328 0013 fffd | | .CONST 0x0013,0xfffd
032a 0015 fffc | | .CONST 0x0015,0xfffc
032c 0017 fffb | | .CONST 0x0017,0xfffb
032e 0019 fffa | | .CONST 0x0019,0xfffa
0330 001b fff9 | | .CONST 0x001b,0xfff9
0332 001d fff8 | | .CONST 0x001d,0xfff8
0334 001f fff7 | | .CONST 0x001f,0xfff7
0336 0021 fff6 | ! | .CONST 0x0021,0xfff6
0338 0023 fff5 | # | .CONST 0x0023,0xfff5
033a 0025 fff4 | % | .CONST 0x0025,0xfff4
033c 0027 fff3 | ' | .CONST 0x0027,0xfff3
033e 0029 fff2 | ) | .CONST 0x0029,0xfff2
0340 002b fff1 | + | .CONST 0x002b,0xfff1
0342 002d fff0 | - | .CONST 0x002d,0xfff0
0344 002f ffef | / | .CONST 0x002f,0xffef
0346 0030 ffee | 0 | .CONST 0x0030,0xffee
0348 0031 ffed | 1 | .CONST 0x0031,0xffed
034a 0033 ffec | 3 | .CONST 0x0033,0xffec
034c 0037 ffeb | 7 | .CONST 0x0037,0xffeb
034e 003d ffea | = | .CONST 0x003d,0xffea
0350 0043 ffe9 | C | .CONST 0x0043,0xffe9
0352 004a ffe8 | J | .CONST 0x004a,0xffe8
0354 004e ffe7 | N | .CONST 0x004e,0xffe7
0356 ; --------------------------------------------------------------------------------------
0356 ; Debug3 Subtable 0x1
0356 ; --------------------------------------------------------------------------------------
0356 000f 0000 | | .DBG3TAB 0x000f,0x0000
0358 0056 ffff | V | .CONST 0x0056,0xffff
035a 0058 fffe | X | .CONST 0x0058,0xfffe
035c 005a fffd | Z | .CONST 0x005a,0xfffd
035e 005c fffc | \ | .CONST 0x005c,0xfffc
0360 005e fffb | ^ | .CONST 0x005e,0xfffb
0362 0060 fffa | ` | .CONST 0x0060,0xfffa
0364 0062 fff9 | b | .CONST 0x0062,0xfff9
0366 0064 fff8 | d | .CONST 0x0064,0xfff8
0368 0066 fff7 | f | .CONST 0x0066,0xfff7
036a 0068 fff6 | h | .CONST 0x0068,0xfff6
036c 006a fff5 | j | .CONST 0x006a,0xfff5
036e 006c fff4 | l | .CONST 0x006c,0xfff4
0370 006e fff3 | n | .CONST 0x006e,0xfff3
0372 0070 fff2 | p | .CONST 0x0070,0xfff2
0374 0072 fff1 | r | .CONST 0x0072,0xfff1
0376 ; --------------------------------------------------------------------------------------
0376 ; Debug3 Subtable 0x2
0376 ; --------------------------------------------------------------------------------------
0376 0000 0000 | | .DBG3TAB 0x0000,0x0000
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug3 Subtable 0x3
0378 ; --------------------------------------------------------------------------------------
0378 0001 0003 | | .DBG3TAB 0x0001,0x0003
037a 009b ffff | | .CONST 0x009b,0xffff
037c 00a8 0001 | | .CONST 0x00a8,0x0001
037e 00aa 0002 | | .CONST 0x00aa,0x0002
0380 00b6 0003 | | .CONST 0x00b6,0x0003
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug3 Subtable 0x4
0382 ; --------------------------------------------------------------------------------------
0382 0001 0004 | | .DBG3TAB 0x0001,0x0004
0384 00bb ffff | | .CONST 0x00bb,0xffff
0386 00c8 0001 | | .CONST 0x00c8,0x0001
0388 00ca 0002 | | .CONST 0x00ca,0x0002
038a 00cf 0003 | | .CONST 0x00cf,0x0003
038c 00d2 0004 | | .CONST 0x00d2,0x0004
038e ; --------------------------------------------------------------------------------------
038e ; Debug3 Subtable 0x5
038e ; --------------------------------------------------------------------------------------
038e 0001 0004 | | .DBG3TAB 0x0001,0x0004
0390 00db ffff | | .CONST 0x00db,0xffff
0392 00e8 0001 | | .CONST 0x00e8,0x0001
0394 00ea 0002 | | .CONST 0x00ea,0x0002
0396 00ef 0003 | | .CONST 0x00ef,0x0003
0398 00f2 0004 | | .CONST 0x00f2,0x0004
039a ; --------------------------------------------------------------------------------------
039a ; Debug3 Subtable 0x6
039a ; --------------------------------------------------------------------------------------
039a 0003 0005 | | .DBG3TAB 0x0003,0x0005
039c 00fb ffff | | .CONST 0x00fb,0xffff
039e 0103 fffe | | .CONST 0x0103,0xfffe
03a0 010a fffd | | .CONST 0x010a,0xfffd
03a2 010b 0001 | | .CONST 0x010b,0x0001
03a4 010d 0002 | | .CONST 0x010d,0x0002
03a6 0122 0003 | " | .CONST 0x0122,0x0003
03a8 0124 0004 | $ | .CONST 0x0124,0x0004
03aa 0126 0005 | & | .CONST 0x0126,0x0005
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug3 Subtable 0x7
03ac ; --------------------------------------------------------------------------------------
03ac 0003 0009 | | .DBG3TAB 0x0003,0x0009
03ae 0133 ffff | 3 | .CONST 0x0133,0xffff
03b0 013b fffe | ; | .CONST 0x013b,0xfffe
03b2 013e fffd | > | .CONST 0x013e,0xfffd
03b4 0140 0002 | @ | .CONST 0x0140,0x0002
03b6 0147 0003 | G | .CONST 0x0147,0x0003
03b8 0149 0004 | I | .CONST 0x0149,0x0004
03ba 0150 0005 | P | .CONST 0x0150,0x0005
03bc 0154 0006 | T | .CONST 0x0154,0x0006
03be 0155 0007 | U | .CONST 0x0155,0x0007
03c0 0157 0008 | W | .CONST 0x0157,0x0008
03c2 015b 0001 | [ | .CONST 0x015b,0x0001
03c4 015d 0009 | ] | .CONST 0x015d,0x0009
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug3 Subtable 0x8
03c6 ; --------------------------------------------------------------------------------------
03c6 0000 0001 | | .DBG3TAB 0x0000,0x0001
03c8 0163 0001 | c | .CONST 0x0163,0x0001
03ca ; --------------------------------------------------------------------------------------
03ca ; Debug3 Subtable 0x9
03ca ; --------------------------------------------------------------------------------------
03ca 0001 0004 | | .DBG3TAB 0x0001,0x0004
03cc 016b ffff | k | .CONST 0x016b,0xffff
03ce 016d 0001 | m | .CONST 0x016d,0x0001
03d0 0172 0002 | r | .CONST 0x0172,0x0002
03d2 0177 0003 | w | .CONST 0x0177,0x0003
03d4 017a 0004 | z | .CONST 0x017a,0x0004
03d6 ; --------------------------------------------------------------------------------------
03d6 ; Debug3 Subtable 0xa
03d6 ; --------------------------------------------------------------------------------------
03d6 0000 0002 | | .DBG3TAB 0x0000,0x0002
03d8 0183 0001 | | .CONST 0x0183,0x0001
03da 0188 0002 | | .CONST 0x0188,0x0002
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug3 Subtable 0xb
03dc ; --------------------------------------------------------------------------------------
03dc 0001 0002 | | .DBG3TAB 0x0001,0x0002
03de 0193 ffff | | .CONST 0x0193,0xffff
03e0 0195 0001 | | .CONST 0x0195,0x0001
03e2 019a 0002 | | .CONST 0x019a,0x0002
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0xc
03e4 ; --------------------------------------------------------------------------------------
03e4 0001 000a | | .DBG3TAB 0x0001,0x000a
03e6 01b3 ffff | | .CONST 0x01b3,0xffff
03e8 01b5 0001 | | .CONST 0x01b5,0x0001
03ea 01ba 0002 | | .CONST 0x01ba,0x0002
03ec 01c0 0003 | | .CONST 0x01c0,0x0003
03ee 01c3 0004 | | .CONST 0x01c3,0x0004
03f0 01c6 0005 | | .CONST 0x01c6,0x0005
03f2 01c9 0006 | | .CONST 0x01c9,0x0006
03f4 01cc 0007 | | .CONST 0x01cc,0x0007
03f6 01cf 0008 | | .CONST 0x01cf,0x0008
03f8 01d1 0009 | | .CONST 0x01d1,0x0009
03fa 01d4 000a | | .CONST 0x01d4,0x000a
03fc ; --------------------------------------------------------------------------------------
03fc ; Debug3 Subtable 0xd
03fc ; --------------------------------------------------------------------------------------
03fc 0000 0007 | | .DBG3TAB 0x0000,0x0007
03fe 01db 0001 | | .CONST 0x01db,0x0001
0400 01e2 0003 | | .CONST 0x01e2,0x0003
0402 01e8 0004 | | .CONST 0x01e8,0x0004
0404 01eb 0005 | | .CONST 0x01eb,0x0005
0406 01ec 0006 | | .CONST 0x01ec,0x0006
0408 01f1 0007 | | .CONST 0x01f1,0x0007
040a 01f9 0002 | | .CONST 0x01f9,0x0002
040c ; --------------------------------------------------------------------------------------
040c ; Debug3 Subtable 0xe
040c ; --------------------------------------------------------------------------------------
040c 0000 0001 | | .DBG3TAB 0x0000,0x0001
040e 0203 0001 | | .CONST 0x0203,0x0001
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug3 Subtable 0xf
0410 ; --------------------------------------------------------------------------------------
0410 0000 0001 | | .DBG3TAB 0x0000,0x0001
0412 0213 0001 | | .CONST 0x0213,0x0001
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug3 Subtable 0x10
0414 ; --------------------------------------------------------------------------------------
0414 0000 0000 | | .DBG3TAB 0x0000,0x0000
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0x11
0416 ; --------------------------------------------------------------------------------------
0416 0001 0005 | | .DBG3TAB 0x0001,0x0005
0418 0233 ffff | 3 | .CONST 0x0233,0xffff
041a 0237 0002 | 7 | .CONST 0x0237,0x0002
041c 023e 0003 | > | .CONST 0x023e,0x0003
041e 0240 0004 | @ | .CONST 0x0240,0x0004
0420 0244 0001 | D | .CONST 0x0244,0x0001
0422 0246 0005 | F | .CONST 0x0246,0x0005
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug3 Subtable 0x12
0424 ; --------------------------------------------------------------------------------------
0424 0000 0001 | | .DBG3TAB 0x0000,0x0001
0426 024b 0001 | K | .CONST 0x024b,0x0001
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug3 Subtable 0x13
0428 ; --------------------------------------------------------------------------------------
0428 0001 0004 | | .DBG3TAB 0x0001,0x0004
042a 025b ffff | [ | .CONST 0x025b,0xffff
042c 025e 0001 | ^ | .CONST 0x025e,0x0001
042e 0261 0003 | a | .CONST 0x0261,0x0003
0430 026e 0004 | n | .CONST 0x026e,0x0004
0432 0272 0002 | r | .CONST 0x0272,0x0002
0434 0000 0000 | | .BLANK 0000[0x1cc]