|
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: 5808_R1K_CODE
Names: »12982289.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »12982289.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »12982289.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »12982289.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »12982289.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »12982289.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5808 |X | .CONST 0x5808 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02c8 | | .CONST 0x02c8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0102 | | .CONST 0x0102 ; 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 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x037a,0x8000,0x0000,0x000e,0x0e64,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4801 |H | Short_Literal 0x1
000d 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 e20d | | Load 0x1,0xd
0012 4801 |H | Short_Literal 0x1
0013 4801 |H | Short_Literal 0x1
0014 4802 |H | Short_Literal 0x2
0015 4803 |H | Short_Literal 0x3
0016 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0017 e20e | | Load 0x1,0xe ; Debug Table 0x0.0x2 = 0x17,0xfffd
0018 0129 | ) | Execute Any,Make_Visible
0019 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x3 = 0x19,0xfffc
001a 0129 | ) | Execute Any,Make_Visible
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x1b,0xfffb
001c 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x1c,0xfffa
001d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1d,0xfff9
001f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1f,0xfff8
0021 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x21,0xfff7
0023 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x23,0xfff6
0025 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x25,0xfff5
0027 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x27,0xfff4
0029 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x29,0xfff3
002b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x2b,0xfff2
002d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2d,0xfff1
002f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2f,0xfff0
0031 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x31,0xffef
0033 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x33,0xffee
0035 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x35,0xffed
0037 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x37,0xffec
0039 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x39,0xffeb
003a 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x3a,0xffea
003b 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x16 = 0x3b,0xffe9
003c 4800 |H | Short_Literal 0x0
003d 4801 |H | Short_Literal 0x1
003e 4850 |HP | Short_Literal 0x50
003f 00e9 | | Load_Encached String_Cache
0040 035b | [ | Declare_Type Array,Constrained
0041 4801 |H | Short_Literal 0x1
0042 00e3 | | Load_Encached Natural_Cache
0043 02a0 | | Declare_Subprogram Null_Subprogram
0044 4801 |H | Short_Literal 0x1
0045 4801 |H | Short_Literal 0x1
0046 4801 |H | Short_Literal 0x1
0047 4800 |H | Short_Literal 0x0
0048 4800 |H | Short_Literal 0x0
0049 031d | | Declare_Type Variant_Record,Defined
004a 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
004c 4801 |H | Short_Literal 0x1
004d 4800 |H | Short_Literal 0x0
004e 4800 |H | Short_Literal 0x0
004f e20e | | Load 0x1,0xe
0050 0307 | | Complete_Type Variant_Record,By_Defining
0051 00bf | | Action Accept_Activation
0052 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1 = .DEBUG 0x0052,0x03aa,0x8000,0x0000,0x000e,0x5074,0x0000,0x0006
; Debug Table 0x1.0x0 = 0x52,0xffff
0053 00c7 | | Action Elaborate_Subprogram
0054 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call ; Debug Table 0x1.0x1 = 0x54,0xfffe
0056 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x56,0xfffd
0057 00c7 | | Action Elaborate_Subprogram
0058 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call ; Debug Table 0x1.0x3 = 0x58,0xfffc
005a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x5a,0xfffb
005b 00c7 | | Action Elaborate_Subprogram
005c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x5c,0xfffa
005d 00c7 | | Action Elaborate_Subprogram
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x6 = 0x5e,0xfff9
005f 00c7 | | Action Elaborate_Subprogram
0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x60,0xfff8
0061 00c7 | | Action Elaborate_Subprogram
0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x8 = 0x62,0xfff7
0063 00c7 | | Action Elaborate_Subprogram
0064 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x9 = 0x64,0xfff6
0065 00c7 | | Action Elaborate_Subprogram
0066 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call ; Debug Table 0x1.0xa = 0x66,0xfff5
0068 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xb = 0x68,0xfff4
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xc = 0x6a,0xfff3
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xd = 0x6c,0xfff2
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xe = 0x6e,0xfff1
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xf = 0x70,0xfff0
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x10 = 0x72,0xffef
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x007b,0x03ce,0x0005,0x0000,0x000e,0x0e64,0x0000,0x0004
007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
007d 7802 |x | Jump 0x80 ; case 0x1
007e 7805 |x | Jump 0x84 ; case 0x2
007f 7809 |x | Jump 0x89 ; case 0x3
0080 e5ff | | Load 0x2,-0x1
0081 0091 02ac | | Action Push_String_Extended_Indexed,0x2ac ; "NONE"
0083 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0084 e5fe | | Load 0x2,-0x2
0085 e5ff | | Load 0x2,-0x1
0086 00e0 | | Load_Encached Standard_Cache
0087 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0089 e5ff | | Load 0x2,-0x1
008a 00e0 | | Load_Encached Standard_Cache
008b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3 = .DEBUG 0x0093,0x03d0,0x0002,0x0000,0x000e,0x0e64,0x0000,0x002c
; Debug Table 0x3.0x0 = 0x93,0x1
0094 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4801 |H | Short_Literal 0x1 ; Debug Table 0x4 = .DEBUG 0x009b,0x03d4,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0035
; Debug Table 0x4.0x0 = 0x9b,0x1
009c 4800 |H | Short_Literal 0x0
009d e20e | | Load 0x1,0xe
009e 1c08 | | Execute_Immediate Run_Utility,0x8
009f e402 | | Load 0x2,0x2
00a0 1c01 | | Execute_Immediate Run_Utility,0x1
00a1 e5ff | | Load 0x2,-0x1
00a2 821f | | Call 0x1,0x1f
00a3 e20e | | Load 0x1,0xe
00a4 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
00a5 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
00a6 0119 | | Execute Any,Check_In_Formal_Type
00a7 e402 | | Load 0x2,0x2
00a8 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00a9 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4801 |H | Short_Literal 0x1 ; Debug Table 0x5 = .DEBUG 0x00b3,0x03d8,0x0002,0x0000,0x000e,0x0e64,0x0000,0x003e
; Debug Table 0x5.0x0 = 0xb3,0x1
00b4 4800 |H | Short_Literal 0x0
00b5 e20e | | Load 0x1,0xe
00b6 1c08 | | Execute_Immediate Run_Utility,0x8
00b7 e402 | | Load 0x2,0x2
00b8 1c01 | | Execute_Immediate Run_Utility,0x1
00b9 e5ff | | Load 0x2,-0x1
00ba 8220 | | Call 0x1,0x20
00bb 821f | | Call 0x1,0x1f
00bc e20e | | Load 0x1,0xe
00bd 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
00be 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
00bf 0119 | | Execute Any,Check_In_Formal_Type
00c0 e402 | | Load 0x2,0x2
00c1 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00c2 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4801 |H | Short_Literal 0x1 ; Debug Table 0x6 = .DEBUG 0x00cb,0x03dc,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0047
; Debug Table 0x6.0x0 = 0xcb,0x1
00cc 4801 |H | Short_Literal 0x1
00cd e20e | | Load 0x1,0xe
00ce 1c08 | | Execute_Immediate Run_Utility,0x8
00cf e402 | | Load 0x2,0x2
00d0 1c01 | | Execute_Immediate Run_Utility,0x1
00d1 e5fe | | Load 0x2,-0x2
00d2 e402 | | Load 0x2,0x2
00d3 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00d4 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00d5 e5ff | | Load 0x2,-0x1
00d6 8220 | | Call 0x1,0x20
00d7 821f | | Call 0x1,0x1f
00d8 e20e | | Load 0x1,0xe
00d9 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
00da 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
00db 0119 | | Execute Any,Check_In_Formal_Type
00dc e402 | | Load 0x2,0x2
00dd 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00de 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4801 |H | Short_Literal 0x1 ; Debug Table 0x7 = .DEBUG 0x00e3,0x03e0,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0054
; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 4801 |H | Short_Literal 0x1
00e5 e20e | | Load 0x1,0xe
00e6 1c08 | | Execute_Immediate Run_Utility,0x8
00e7 e402 | | Load 0x2,0x2
00e8 1c01 | | Execute_Immediate Run_Utility,0x1
00e9 e5fe | | Load 0x2,-0x2
00ea e402 | | Load 0x2,0x2
00eb 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00ec 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00ed e5ff | | Load 0x2,-0x1
00ee 821f | | Call 0x1,0x1f
00ef e20e | | Load 0x1,0xe
00f0 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
00f1 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
00f2 0119 | | Execute Any,Check_In_Formal_Type
00f3 e402 | | Load 0x2,0x2
00f4 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
00f5 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
00f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4800 |H | Short_Literal 0x0 ; Debug Table 0x8 = .DEBUG 0x00fb,0x03e4,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0061
; Debug Table 0x8.0x0 = 0xfb,0x1
00fc 4800 |H | Short_Literal 0x0
00fd e20e | | Load 0x1,0xe
00fe 1c08 | | Execute_Immediate Run_Utility,0x8
00ff e402 | | Load 0x2,0x2
0100 1c01 | | Execute_Immediate Run_Utility,0x1
0101 00ca | | Action Exit_Nullary_Function
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4801 |H | Short_Literal 0x1 ; Debug Table 0x9 = .DEBUG 0x010b,0x03e8,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0066
; Debug Table 0x9.0x0 = 0x10b,0x1
010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa = .DEBUG 0x0113,0x03ec,0x0002,0x0000,0x000e,0x0e64,0x0000,0x006f
; Debug Table 0xa.0x0 = 0x113,0x1
0114 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0115 2401 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
0116 8217 | | Call 0x1,0x17
0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e5ff | | Load 0x2,-0x1 ; Debug Table 0xb = .DEBUG 0x011b,0x03f0,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0078
; Debug Table 0xb.0x0 = 0x11b,0x1
011c 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
011d 2401 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
011e 8221 | ! | Call 0x1,0x21
011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e5ff | | Load 0x2,-0x1 ; Debug Table 0xc = .DEBUG 0x0123,0x03f4,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0081
; Debug Table 0xc.0x0 = 0x123,0x1
0124 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0125 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e5ff | | Load 0x2,-0x1 ; Debug Table 0xd = .DEBUG 0x012b,0x03f8,0x0002,0x0000,0x000e,0x0e64,0x0000,0x008a
; Debug Table 0xd.0x0 = 0x12b,0x1
012c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012d 4601 |F | Jump_Case 0x2
012e 7801 |x | Jump 0x130 ; case 0x0
012f 7803 |x | Jump 0x133 ; case 0x1
0130 0092 02ae | | Action Push_String_Extended,0x2ae ; "false"
; Debug Table 0xd.0x1 = 0x130,0x2
0132 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0133 e5ff | | Load 0x2,-0x1 ; Debug Table 0xd.0x2 = 0x133,0x3
0134 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0135 4601 |F | Jump_Case 0x2
0136 7801 |x | Jump 0x138 ; case 0x0
0137 780a |x | Jump 0x142 ; case 0x1
0138 4822 |H" | Short_Literal 0x22 ; Debug Table 0xd.0x3 = 0x138,0x4
0139 0092 02af | | Action Push_String_Extended,0x2af ; "true \x22"
013b e5ff | | Load 0x2,-0x1
013c 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
013d 2401 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
013e 8221 | ! | Call 0x1,0x21
013f 01cc | | Execute Vector,Catenate
0140 01cb | | Execute Vector,Append
0141 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0142 4822 |H" | Short_Literal 0x22 ; Debug Table 0xd.0x4 = 0x142,0x5
0143 0092 02af | | Action Push_String_Extended,0x2af ; "true \x22"
0145 e5ff | | Load 0x2,-0x1
0146 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0147 2401 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x1
0148 8221 | ! | Call 0x1,0x21
0149 01cc | | Execute Vector,Catenate
014a 01cb | | Execute Vector,Append
014b e5ff | | Load 0x2,-0x1
014c 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
014d 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
014e 00e0 | | Load_Encached Standard_Cache
014f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0150 01cc | | Execute Vector,Catenate
0151 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 8216 | | Call 0x1,0x16 ; Debug Table 0xe = .DEBUG 0x015b,0x0404,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0093
; Debug Table 0xe.0x0 = 0x15b,0x1
015c 821b | | Call 0x1,0x1b
015d 00ca | | Action Exit_Nullary_Function
015e 0000 0000 | | .XXX[0x2]
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf = .DEBUG 0x0163,0x0408,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0098
; Debug Table 0xf.0x0 = 0x163,0x1
0164 8212 | | Call 0x1,0x12
0165 821b | | Call 0x1,0x1b
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0181 | | .CONST 0x0181 ; Address of begin
0169 01ce | | .CONST 0x01ce ; Address of exception handler
016a 0009 | | .CONST 0x0009 ; Number of locals
016b INIT_0168:
016b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x10 = .DEBUG 0x016b,0x040c,0x0002,0x0000,0x000e,0x0e64,0x0000,0x00a1
; Debug Table 0x10.0x0 = 0x16b,0xffff
016c 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x10.0x1 = 0x16c,0xfffe
016d 4859 |HY | Short_Literal 0x59 ; Debug Table 0x10.0x2 = 0x16d,0xfffd
016e e001 | | Load 0x0,0x1
016f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0170 1c08 | | Execute_Immediate Run_Utility,0x8
0171 e404 | | Load 0x2,0x4
0172 1c00 | | Execute_Immediate Run_Utility,0x0
0173 480f |H | Short_Literal 0xf ; Debug Table 0x10.0x3 = 0x173,0xfffc
0174 e002 | | Load 0x0,0x2
0175 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0176 1c08 | | Execute_Immediate Run_Utility,0x8
0177 e405 | | Load 0x2,0x5
0178 1c00 | | Execute_Immediate Run_Utility,0x0
0179 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x4 = 0x179,0xfffb
017a 4850 |HP | Short_Literal 0x50
017b 00e9 | | Load_Encached String_Cache
017c 0334 | 4 | Declare_Variable Array,With_Constraint
017d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x5 = 0x17d,0xfffa
017e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x6 = 0x17e,0xfff9
017f 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0181 BODY_0168:
0181 e404 | | Load 0x2,0x4 ; Debug Table 0x10.0x7 = 0x181,0x1
0182 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0183 e5ff | | Load 0x2,-0x1
0184 e002 | | Load 0x0,0x2
0185 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0186 00d1 | | Pop_Control Pop_Count_1
0187 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x8 = 0x187,0x2
0188 e404 | | Load 0x2,0x4
0189 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
018a e405 | | Load 0x2,0x5 ; Debug Table 0x10.0x9 = 0x18a,0x3
018b e404 | | Load 0x2,0x4
018c e001 | | Load 0x0,0x1
018d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018e 00d2 | | Pop_Control Pop_Count_2
018f 8409 | | Call 0x2,0x9 ; Debug Table 0x10.0xa = 0x18f,0x4
0190 e408 | | Load 0x2,0x8 ; Debug Table 0x10.0xb = 0x190,0x5
0191 6835 |h5 | Jump_Zero 0x1c7
0192 e406 | | Load 0x2,0x6 ; Debug Table 0x10.0xc = 0x192,0x6
0193 e404 | | Load 0x2,0x4
0194 e001 | | Load 0x0,0x1
0195 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0196 00d2 | | Pop_Control Pop_Count_2
0197 e405 | | Load 0x2,0x5 ; Debug Table 0x10.0xd = 0x197,0x7
0198 e404 | | Load 0x2,0x4
0199 e001 | | Load 0x0,0x1
019a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019b 00d2 | | Pop_Control Pop_Count_2
019c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0xe = 0x19c,0x8
019d 00e3 | | Load_Encached Natural_Cache
019e e405 | | Load 0x2,0x5
019f e001 | | Load 0x0,0x1
01a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a1 c403 | | Store 0x2,0x3
01a2 c407 | | Store 0x2,0x7
01a3 e407 | | Load 0x2,0x7 ; Debug Table 0x10.0xf = 0x1a3,0x9
01a4 6813 |h | Jump_Zero 0x1b8
01a5 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x10 = 0x1a5,0xa
01a6 4801 |H | Short_Literal 0x1
01a7 e20e | | Load 0x1,0xe
01a8 1c08 | | Execute_Immediate Run_Utility,0x8
01a9 e40a | | Load 0x2,0xa
01aa 1c01 | | Execute_Immediate Run_Utility,0x1
01ab e406 | | Load 0x2,0x6
01ac e20e | | Load 0x1,0xe
01ad 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
01ae 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
01af 0119 | | Execute Any,Check_In_Formal_Type
01b0 e40a | | Load 0x2,0xa
01b1 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01b2 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
01b3 e403 | | Load 0x2,0x3
01b4 e40a | | Load 0x2,0xa
01b5 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01b6 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b8 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x11 = 0x1b8,0xb
01b9 4800 |H | Short_Literal 0x0
01ba e20e | | Load 0x1,0xe
01bb 1c08 | | Execute_Immediate Run_Utility,0x8
01bc e40a | | Load 0x2,0xa
01bd 1c01 | | Execute_Immediate Run_Utility,0x1
01be e406 | | Load 0x2,0x6
01bf e20e | | Load 0x1,0xe
01c0 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
01c1 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
01c2 0119 | | Execute Any,Check_In_Formal_Type
01c3 e40a | | Load 0x2,0xa
01c4 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01c5 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c7 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x12 = 0x1c7,0xc
01c8 4800 |H | Short_Literal 0x0
01c9 e20e | | Load 0x1,0xe
01ca 1c08 | | Execute_Immediate Run_Utility,0x8
01cb e40a | | Load 0x2,0xa
01cc 1c01 | | Execute_Immediate Run_Utility,0x1
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce TRAP_0168:
01ce 010e | | Execute Exception,Is_Constraint_Error
01cf 6802 |h | Jump_Zero 0x1d2
01d0 60d7 |` | Indirect_Literal Discrete,0x2a8,{0x00000000, 0x0e0e6401} ; Debug Table 0x10.0x13 = 0x1d0,0xd
01d1 0257 | W | Execute Discrete,Raise
01d2 0100 | | Execute Exception,Raise
01d3 0000 0000 | | .BLANK 0000[0x5]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x11 = .DEBUG 0x01db,0x0436,0x0005,0x0000,0x000e,0x0e64,0x0000,0x00b4
01dc 7808 |x | Jump 0x1e5 ; case 0x0
01dd 7825 |x% | Jump 0x203 ; case 0x1
01de 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01df 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01e2 7828 |x( | Jump 0x20b ; case 0x6
01e3 782f |x/ | Jump 0x213 ; case 0x7
01e4 7846 |xF | Jump 0x22b ; case 0x8
01e5 e5ff | | Load 0x2,-0x1
01e6 016c | l | Execute Variant_Record,Is_Constrained
01e7 700a |p | Jump_Nonzero 0x1f2
01e8 00cf | | Action Mark_Auxiliary
01e9 4800 |H | Short_Literal 0x0
01ea 4800 |H | Short_Literal 0x0
01eb e5ff | | Load 0x2,-0x1
01ec 1c08 | | Execute_Immediate Run_Utility,0x8
01ed 00d8 | | Load_Top At_Offset_0
01ee 1c00 | | Execute_Immediate Run_Utility,0x0
01ef c5ff | | Store 0x2,-0x1
01f0 00ce | | Action Pop_Auxiliary
01f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f2 e5ff | | Load 0x2,-0x1
01f3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01f4 4601 |F | Jump_Case 0x2
01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01f6 7800 |x | Jump 0x1f7 ; case 0x1
01f7 e5ff | | Load 0x2,-0x1
01f8 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
01f9 e5ff | | Load 0x2,-0x1
01fa 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01fb e5ff | | Load 0x2,-0x1
01fc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01fd 4601 |F | Jump_Case 0x2
01fe 7801 |x | Jump 0x200 ; case 0x0
01ff 7800 |x | Jump 0x200 ; case 0x1
0200 e5ff | | Load 0x2,-0x1
0201 2b03 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x3
0202 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0203 e5ff | | Load 0x2,-0x1
0204 016b | k | Execute Variant_Record,Read_Variant
0205 00d8 | | Load_Top At_Offset_0
0206 0f01 | | Execute_Immediate Equal,0x1
0207 6802 |h | Jump_Zero 0x20a
0208 e5ff | | Load 0x2,-0x1
0209 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
020a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
020b e5fd | | Load 0x2,-0x3
020c 4601 |F | Jump_Case 0x2
020d 7801 |x | Jump 0x20f ; case 0x0
020e 7802 |x | Jump 0x211 ; case 0x1
020f 48ff |H | Short_Literal 0xff
0210 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0211 4801 |H | Short_Literal 0x1
0212 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0213 e5fd | | Load 0x2,-0x3
0214 e5fe | | Load 0x2,-0x2
0215 e5fd | | Load 0x2,-0x3
0216 4601 |F | Jump_Case 0x2
0217 7801 |x | Jump 0x219 ; case 0x0
0218 7803 |x | Jump 0x21c ; case 0x1
0219 4800 |H | Short_Literal 0x0
021a 48ff |H | Short_Literal 0xff
021b 780c |x | Jump 0x228
021c e5fe | | Load 0x2,-0x2
021d 4601 |F | Jump_Case 0x2
021e 7801 |x | Jump 0x220 ; case 0x0
021f 7802 |x | Jump 0x222 ; case 0x1
0220 48ff |H | Short_Literal 0xff
0221 7801 |x | Jump 0x223
0222 4801 |H | Short_Literal 0x1
0223 e20e | | Load 0x1,0xe
0224 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
0225 031b | | Declare_Type Variant_Record,Constrained
0226 4801 |H | Short_Literal 0x1
0227 4801 |H | Short_Literal 0x1
0228 e5ff | | Load 0x2,-0x1
0229 031b | | Declare_Type Variant_Record,Constrained
022a 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
022b e5fd | | Load 0x2,-0x3
022c e5fe | | Load 0x2,-0x2
022d e5fd | | Load 0x2,-0x3
022e e5fe | | Load 0x2,-0x2
022f e5ff | | Load 0x2,-0x1
0230 1c06 | | Execute_Immediate Run_Utility,0x6
0231 e5ff | | Load 0x2,-0x1
0232 02fc | | Declare_Variable Variant_Record,With_Constraint
0233 e5fd | | Load 0x2,-0x3
0234 4601 |F | Jump_Case 0x2
0235 7810 |x | Jump 0x246 ; case 0x0
0236 7800 |x | Jump 0x237 ; case 0x1
0237 e5fe | | Load 0x2,-0x2
0238 4601 |F | Jump_Case 0x2
0239 7801 |x | Jump 0x23b ; case 0x0
023a 7802 |x | Jump 0x23d ; case 0x1
023b 48ff |H | Short_Literal 0xff
023c 7801 |x | Jump 0x23e
023d 4801 |H | Short_Literal 0x1
023e e20e | | Load 0x1,0xe
023f 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
0240 02fc | | Declare_Variable Variant_Record,With_Constraint
0241 e5fe | | Load 0x2,-0x2
0242 4601 |F | Jump_Case 0x2
0243 7801 |x | Jump 0x245 ; case 0x0
0244 7800 |x | Jump 0x245 ; case 0x1
0245 2f03 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3
0246 016a | j | QQ_execute Variant_Record,XXX
0247 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024f | O | .CONST 0x024f ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b 4801 |H | Short_Literal 0x1 ; Debug Table 0x12 = .DEBUG 0x024b,0x0438,0x0002,0x0000,0x000e,0x5074,0x0000,0x0018
; Debug Table 0x12.0x0 = 0x24b,0xffff
024c 4850 |HP | Short_Literal 0x50
024d 00e9 | | Load_Encached String_Cache
024e 0334 | 4 | Declare_Variable Array,With_Constraint
024f BODY_0248:
024f e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x1 = 0x24f,0x1
0250 01db | | Execute Vector,Length
0251 0d50 | P | Execute_Immediate Less,0x50
0252 6813 |h | Jump_Zero 0x266
0253 e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x2 = 0x253,0x2
0254 4801 |H | Short_Literal 0x1
0255 e5ff | | Load 0x2,-0x1
0256 01db | | Execute Vector,Length
0257 e402 | | Load 0x2,0x2
0258 01ce | | Execute Vector,Slice_Write
0259 4850 |HP | Short_Literal 0x50 ; Debug Table 0x12.0x3 = 0x259,0x3
025a e5ff | | Load 0x2,-0x1
025b 01db | | Execute Vector,Length
025c 0a01 | | Execute_Immediate Plus,0x1
025d 0248 | H | Execute Discrete,Check_In_Integer
025e 0263 | c | Execute Discrete,Above_Bound
025f 7011 |p | Jump_Nonzero 0x271
0260 4820 |H | Short_Literal 0x20 ; Debug Table 0x12.0x4 = 0x260,0x4
0261 e404 | | Load 0x2,0x4
0262 e402 | | Load 0x2,0x2
0263 01d6 | | Execute Vector,Field_Write
0264 3ffb |? | Loop_Increasing 0x260
0265 780b |x | Jump 0x271
0266 e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x5 = 0x266,0x5
0267 01dd | | Execute Vector,First
0268 e5ff | | Load 0x2,-0x1
0269 01dd | | Execute Vector,First
026a 0a50 | P | Execute_Immediate Plus,0x50
026b 0aff | | Execute_Immediate Plus,-0x1
026c 0248 | H | Execute Discrete,Check_In_Integer
026d e5ff | | Load 0x2,-0x1
026e 01cf | | Execute Vector,Slice_Read
026f e402 | | Load 0x2,0x2
0270 01d4 | | Execute Vector,Structure_Write
0271 e402 | | Load 0x2,0x2 ; Debug Table 0x12.0x6 = 0x271,0x6
0272 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0273 0000 0000 | | .BLANK 0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "Error Message"
; Debug Table 0x13 = .DEBUG 0x027b,0x0448,0x0002,0x0000,0x000e,0x5074,0x0000,0x008b
; Debug Table 0x13.0x0 = 0x27b,0x1
027d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 e5ff | | Load 0x2,-0x1 ; Debug Table 0x14 = .DEBUG 0x0283,0x044c,0x0002,0x0000,0x000e,0x5074,0x0000,0x0148
; Debug Table 0x14.0x0 = 0x283,0x1
0284 e001 | | Load 0x0,0x1
0285 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0286 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0293 | | .CONST 0x0293 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e405 | | Load 0x2,0x5 ; Debug Table 0x15 = .DEBUG 0x028b,0x0450,0x0004,0x0000,0x000e,0x5074,0x0000,0x0275
; Debug Table 0x15.0x0 = 0x28b,0x1
028c e002 | | Load 0x0,0x2
028d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028e 00e1 | | Load_Encached Boolean_Cache
028f 00e0 | | Load_Encached Standard_Cache
0290 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0291 a408 | | Store_Unchecked 0x2,0x8
0292 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0293 TRAP_0288:
0293 010e | | Execute Exception,Is_Constraint_Error
0294 6811 |h | Jump_Zero 0x2a6
0295 e405 | | Load 0x2,0x5 ; Debug Table 0x15.0x1 = 0x295,0x2
0296 e002 | | Load 0x0,0x2
0297 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0298 0092 02b1 | | Action Push_String_Extended,0x2b1 ; "t"
029a 01df | | Execute Vector,Equal
029b 7007 |p | Jump_Nonzero 0x2a3
029c e405 | | Load 0x2,0x5
029d e002 | | Load 0x0,0x2
029e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029f 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "T"
02a1 01df | | Execute Vector,Equal
02a2 7801 |x | Jump 0x2a4
02a3 4801 |H | Short_Literal 0x1
02a4 a408 | | Store_Unchecked 0x2,0x8
02a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a6 0100 | | Execute Exception,Raise
02a7 0000 | | .XXX[0x1]
02a8 0000 0000 | | .LITERAL {0x00000000, 0x0e0e6401}
02ac ; --------------------------------------------------------------------------------------
02ac ; STRING TABLE
02ac ; --------------------------------------------------------------------------------------
02ac 0010 | | .STRTAB 0x0010->0x02b4 ; "NONE"
02ad 0012 | | .STRTAB 0x0012->0x02b6 ; "WITH_INDEX"
02ae 001a | | .STRTAB 0x001a->0x02bb ; "false"
02af 001d | | .STRTAB 0x001d->0x02bd ; "true \x22"
02b0 0021 | ! | .STRTAB 0x0021->0x02c0 ; "Error Message"
02b1 002c | , | .STRTAB 0x002c->0x02c7 ; "t"
02b2 002b | + | .STRTAB 0x002b->0x02c7 ; "T"
02b3 002a | * | .STREND 0x002a->0x02c8
02b4 4e4f 4e45 |NONE| .STRTAB_STRINGS
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug Table
02c8 ; --------------------------------------------------------------------------------------
02c8 0003 0016 | | .CONST 0x0003,0x0016
02ca 000b 037a | z| .DEBUG 0x000b,0x037a,0x8000,0x0000,0x000e,0x0e64,0x0000,0x0003
02d2 0052 03aa | R | .DEBUG 0x0052,0x03aa,0x8000,0x0000,0x000e,0x5074,0x0000,0x0006
02da 007b 03ce | { | .DEBUG 0x007b,0x03ce,0x0005,0x0000,0x000e,0x0e64,0x0000,0x0004
02e2 0093 03d0 | | .DEBUG 0x0093,0x03d0,0x0002,0x0000,0x000e,0x0e64,0x0000,0x002c
02ea 009b 03d4 | | .DEBUG 0x009b,0x03d4,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0035
02f2 00b3 03d8 | | .DEBUG 0x00b3,0x03d8,0x0002,0x0000,0x000e,0x0e64,0x0000,0x003e
02fa 00cb 03dc | | .DEBUG 0x00cb,0x03dc,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0047
0302 00e3 03e0 | | .DEBUG 0x00e3,0x03e0,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0054
030a 00fb 03e4 | | .DEBUG 0x00fb,0x03e4,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0061
0312 010b 03e8 | | .DEBUG 0x010b,0x03e8,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0066
031a 0113 03ec | | .DEBUG 0x0113,0x03ec,0x0002,0x0000,0x000e,0x0e64,0x0000,0x006f
0322 011b 03f0 | | .DEBUG 0x011b,0x03f0,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0078
032a 0123 03f4 | # | .DEBUG 0x0123,0x03f4,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0081
0332 012b 03f8 | + | .DEBUG 0x012b,0x03f8,0x0002,0x0000,0x000e,0x0e64,0x0000,0x008a
033a 015b 0404 | [ | .DEBUG 0x015b,0x0404,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0093
0342 0163 0408 | c | .DEBUG 0x0163,0x0408,0x0002,0x0000,0x000e,0x0e64,0x0000,0x0098
034a 016b 040c | k | .DEBUG 0x016b,0x040c,0x0002,0x0000,0x000e,0x0e64,0x0000,0x00a1
0352 01db 0436 | 6| .DEBUG 0x01db,0x0436,0x0005,0x0000,0x000e,0x0e64,0x0000,0x00b4
035a 024b 0438 | K 8| .DEBUG 0x024b,0x0438,0x0002,0x0000,0x000e,0x5074,0x0000,0x0018
0362 027b 0448 | { H| .DEBUG 0x027b,0x0448,0x0002,0x0000,0x000e,0x5074,0x0000,0x008b
036a 0283 044c | L| .DEBUG 0x0283,0x044c,0x0002,0x0000,0x000e,0x5074,0x0000,0x0148
0372 028b 0450 | P| .DEBUG 0x028b,0x0450,0x0004,0x0000,0x000e,0x5074,0x0000,0x0275
037a ; --------------------------------------------------------------------------------------
037a ; Debug3 Subtable 0x0
037a ; --------------------------------------------------------------------------------------
037a 0017 0000 | | .DBG3TAB 0x0017,0x0000
037c 000b ffff | | .CONST 0x000b,0xffff
037e 0010 fffe | | .CONST 0x0010,0xfffe
0380 0017 fffd | | .CONST 0x0017,0xfffd
0382 0019 fffc | | .CONST 0x0019,0xfffc
0384 001b fffb | | .CONST 0x001b,0xfffb
0386 001c fffa | | .CONST 0x001c,0xfffa
0388 001d fff9 | | .CONST 0x001d,0xfff9
038a 001f fff8 | | .CONST 0x001f,0xfff8
038c 0021 fff7 | ! | .CONST 0x0021,0xfff7
038e 0023 fff6 | # | .CONST 0x0023,0xfff6
0390 0025 fff5 | % | .CONST 0x0025,0xfff5
0392 0027 fff4 | ' | .CONST 0x0027,0xfff4
0394 0029 fff3 | ) | .CONST 0x0029,0xfff3
0396 002b fff2 | + | .CONST 0x002b,0xfff2
0398 002d fff1 | - | .CONST 0x002d,0xfff1
039a 002f fff0 | / | .CONST 0x002f,0xfff0
039c 0031 ffef | 1 | .CONST 0x0031,0xffef
039e 0033 ffee | 3 | .CONST 0x0033,0xffee
03a0 0035 ffed | 5 | .CONST 0x0035,0xffed
03a2 0037 ffec | 7 | .CONST 0x0037,0xffec
03a4 0039 ffeb | 9 | .CONST 0x0039,0xffeb
03a6 003a ffea | : | .CONST 0x003a,0xffea
03a8 003b ffe9 | ; | .CONST 0x003b,0xffe9
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug3 Subtable 0x1
03aa ; --------------------------------------------------------------------------------------
03aa 0011 0000 | | .DBG3TAB 0x0011,0x0000
03ac 0052 ffff | R | .CONST 0x0052,0xffff
03ae 0054 fffe | T | .CONST 0x0054,0xfffe
03b0 0056 fffd | V | .CONST 0x0056,0xfffd
03b2 0058 fffc | X | .CONST 0x0058,0xfffc
03b4 005a fffb | Z | .CONST 0x005a,0xfffb
03b6 005c fffa | \ | .CONST 0x005c,0xfffa
03b8 005e fff9 | ^ | .CONST 0x005e,0xfff9
03ba 0060 fff8 | ` | .CONST 0x0060,0xfff8
03bc 0062 fff7 | b | .CONST 0x0062,0xfff7
03be 0064 fff6 | d | .CONST 0x0064,0xfff6
03c0 0066 fff5 | f | .CONST 0x0066,0xfff5
03c2 0068 fff4 | h | .CONST 0x0068,0xfff4
03c4 006a fff3 | j | .CONST 0x006a,0xfff3
03c6 006c fff2 | l | .CONST 0x006c,0xfff2
03c8 006e fff1 | n | .CONST 0x006e,0xfff1
03ca 0070 fff0 | p | .CONST 0x0070,0xfff0
03cc 0072 ffef | r | .CONST 0x0072,0xffef
03ce ; --------------------------------------------------------------------------------------
03ce ; Debug3 Subtable 0x2
03ce ; --------------------------------------------------------------------------------------
03ce 0000 0000 | | .DBG3TAB 0x0000,0x0000
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0x3
03d0 ; --------------------------------------------------------------------------------------
03d0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03d2 0093 0001 | | .CONST 0x0093,0x0001
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0x4
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03d6 009b 0001 | | .CONST 0x009b,0x0001
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0x5
03d8 ; --------------------------------------------------------------------------------------
03d8 0000 0001 | | .DBG3TAB 0x0000,0x0001
03da 00b3 0001 | | .CONST 0x00b3,0x0001
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug3 Subtable 0x6
03dc ; --------------------------------------------------------------------------------------
03dc 0000 0001 | | .DBG3TAB 0x0000,0x0001
03de 00cb 0001 | | .CONST 0x00cb,0x0001
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug3 Subtable 0x7
03e0 ; --------------------------------------------------------------------------------------
03e0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03e2 00e3 0001 | | .CONST 0x00e3,0x0001
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0x8
03e4 ; --------------------------------------------------------------------------------------
03e4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03e6 00fb 0001 | | .CONST 0x00fb,0x0001
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0x9
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ea 010b 0001 | | .CONST 0x010b,0x0001
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug3 Subtable 0xa
03ec ; --------------------------------------------------------------------------------------
03ec 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ee 0113 0001 | | .CONST 0x0113,0x0001
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug3 Subtable 0xb
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03f2 011b 0001 | | .CONST 0x011b,0x0001
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0xc
03f4 ; --------------------------------------------------------------------------------------
03f4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03f6 0123 0001 | # | .CONST 0x0123,0x0001
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug3 Subtable 0xd
03f8 ; --------------------------------------------------------------------------------------
03f8 0000 0005 | | .DBG3TAB 0x0000,0x0005
03fa 012b 0001 | + | .CONST 0x012b,0x0001
03fc 0130 0002 | 0 | .CONST 0x0130,0x0002
03fe 0133 0003 | 3 | .CONST 0x0133,0x0003
0400 0138 0004 | 8 | .CONST 0x0138,0x0004
0402 0142 0005 | B | .CONST 0x0142,0x0005
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug3 Subtable 0xe
0404 ; --------------------------------------------------------------------------------------
0404 0000 0001 | | .DBG3TAB 0x0000,0x0001
0406 015b 0001 | [ | .CONST 0x015b,0x0001
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug3 Subtable 0xf
0408 ; --------------------------------------------------------------------------------------
0408 0000 0001 | | .DBG3TAB 0x0000,0x0001
040a 0163 0001 | c | .CONST 0x0163,0x0001
040c ; --------------------------------------------------------------------------------------
040c ; Debug3 Subtable 0x10
040c ; --------------------------------------------------------------------------------------
040c 0007 000d | | .DBG3TAB 0x0007,0x000d
040e 016b ffff | k | .CONST 0x016b,0xffff
0410 016c fffe | l | .CONST 0x016c,0xfffe
0412 016d fffd | m | .CONST 0x016d,0xfffd
0414 0173 fffc | s | .CONST 0x0173,0xfffc
0416 0179 fffb | y | .CONST 0x0179,0xfffb
0418 017d fffa | } | .CONST 0x017d,0xfffa
041a 017e fff9 | ~ | .CONST 0x017e,0xfff9
041c 0181 0001 | | .CONST 0x0181,0x0001
041e 0187 0002 | | .CONST 0x0187,0x0002
0420 018a 0003 | | .CONST 0x018a,0x0003
0422 018f 0004 | | .CONST 0x018f,0x0004
0424 0190 0005 | | .CONST 0x0190,0x0005
0426 0192 0006 | | .CONST 0x0192,0x0006
0428 0197 0007 | | .CONST 0x0197,0x0007
042a 019c 0008 | | .CONST 0x019c,0x0008
042c 01a3 0009 | | .CONST 0x01a3,0x0009
042e 01a5 000a | | .CONST 0x01a5,0x000a
0430 01b8 000b | | .CONST 0x01b8,0x000b
0432 01c7 000c | | .CONST 0x01c7,0x000c
0434 01d0 000d | | .CONST 0x01d0,0x000d
0436 ; --------------------------------------------------------------------------------------
0436 ; Debug3 Subtable 0x11
0436 ; --------------------------------------------------------------------------------------
0436 0000 0000 | | .DBG3TAB 0x0000,0x0000
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug3 Subtable 0x12
0438 ; --------------------------------------------------------------------------------------
0438 0001 0006 | | .DBG3TAB 0x0001,0x0006
043a 024b ffff | K | .CONST 0x024b,0xffff
043c 024f 0001 | O | .CONST 0x024f,0x0001
043e 0253 0002 | S | .CONST 0x0253,0x0002
0440 0259 0003 | Y | .CONST 0x0259,0x0003
0442 0260 0004 | ` | .CONST 0x0260,0x0004
0444 0266 0005 | f | .CONST 0x0266,0x0005
0446 0271 0006 | q | .CONST 0x0271,0x0006
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug3 Subtable 0x13
0448 ; --------------------------------------------------------------------------------------
0448 0000 0001 | | .DBG3TAB 0x0000,0x0001
044a 027b 0001 | { | .CONST 0x027b,0x0001
044c ; --------------------------------------------------------------------------------------
044c ; Debug3 Subtable 0x14
044c ; --------------------------------------------------------------------------------------
044c 0000 0001 | | .DBG3TAB 0x0000,0x0001
044e 0283 0001 | | .CONST 0x0283,0x0001
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug3 Subtable 0x15
0450 ; --------------------------------------------------------------------------------------
0450 0000 0002 | | .DBG3TAB 0x0000,0x0002
0452 028b 0001 | | .CONST 0x028b,0x0001
0454 0295 0002 | | .CONST 0x0295,0x0002
0456 0000 0000 | | .BLANK 0000[0x1aa]