|
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: »10943505.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »10943505.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »10943505.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »10943505.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »10943505.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »10943505.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 02b0 | | .CONST 0x02b0 ; 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 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x035a,0x8000,0x0000,0x000e,0x06e4,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 01e3 | | Declare_Subprogram INIT_01e0,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,0x038a,0x8000,0x0000,0x000e,0x2324,0x0000,0x0006
; Debug Table 0x1.0x0 = 0x52,0xffff
0053 00c7 | | Action Elaborate_Subprogram
0054 029d 0253 | S| Declare_Subprogram INIT_0250,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 0283 | | Declare_Subprogram INIT_0280,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 028b | | Declare_Subprogram INIT_0288,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,0x03ae,0x0005,0x0000,0x000e,0x06e4,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 0294 | | Action Push_String_Extended_Indexed,0x294 ; "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,0x03b0,0x0002,0x0000,0x000e,0x06e4,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,0x03b4,0x0002,0x0000,0x000e,0x06e4,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,0x03b8,0x0002,0x0000,0x000e,0x06e4,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,0x03bc,0x0002,0x0000,0x000e,0x06e4,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,0x03c0,0x0002,0x0000,0x000e,0x06e4,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,0x03c4,0x0002,0x0000,0x000e,0x06e4,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,0x03c8,0x0002,0x0000,0x000e,0x06e4,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,0x03cc,0x0002,0x0000,0x000e,0x06e4,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,0x03d0,0x0002,0x0000,0x000e,0x06e4,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,0x03d4,0x0002,0x0000,0x000e,0x06e4,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,0x03d8,0x0002,0x0000,0x000e,0x06e4,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 0296 | | Action Push_String_Extended,0x296 ; "f"
; 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 0297 | | Action Push_String_Extended,0x297 ; "t \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 0297 | | Action Push_String_Extended,0x297 ; "t \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,0x03e4,0x0002,0x0000,0x000e,0x06e4,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,0x03e8,0x0002,0x0000,0x000e,0x06e4,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 017f | | .CONST 0x017f ; Address of begin
0169 01d9 | | .CONST 0x01d9 ; Address of exception handler
016a 0008 | | .CONST 0x0008 ; Number of locals
016b INIT_0168:
016b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x10 = .DEBUG 0x016b,0x03ec,0x0002,0x0000,0x000e,0x06e4,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 BODY_0168:
017f e404 | | Load 0x2,0x4 ; Debug Table 0x10.0x7 = 0x17f,0x1
0180 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0181 e5ff | | Load 0x2,-0x1
0182 e002 | | Load 0x0,0x2
0183 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0184 00d1 | | Pop_Control Pop_Count_1
0185 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x8 = 0x185,0x2
0186 e404 | | Load 0x2,0x4
0187 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0188 e405 | | Load 0x2,0x5 ; Debug Table 0x10.0x9 = 0x188,0x3
0189 e404 | | Load 0x2,0x4
018a e001 | | Load 0x0,0x1
018b 180f | | Execute Package,Field_Execute,Field_Number 0xf
018c 00d2 | | Pop_Control Pop_Count_2
018d 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0xa = 0x18d,0x4
018e e405 | | Load 0x2,0x5
018f e002 | | Load 0x0,0x2
0190 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0191 0f74 | t | Execute_Immediate Equal,0x74
0192 7006 |p | Jump_Nonzero 0x199
0193 4801 |H | Short_Literal 0x1
0194 e405 | | Load 0x2,0x5
0195 e002 | | Load 0x0,0x2
0196 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0197 0f54 | T | Execute_Immediate Equal,0x54
0198 7801 |x | Jump 0x19a
0199 4801 |H | Short_Literal 0x1
019a a408 | | Store_Unchecked 0x2,0x8
019b e408 | | Load 0x2,0x8 ; Debug Table 0x10.0xb = 0x19b,0x5
019c 6835 |h5 | Jump_Zero 0x1d2
019d e406 | | Load 0x2,0x6 ; Debug Table 0x10.0xc = 0x19d,0x6
019e e404 | | Load 0x2,0x4
019f e001 | | Load 0x0,0x1
01a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a1 00d2 | | Pop_Control Pop_Count_2
01a2 e405 | | Load 0x2,0x5 ; Debug Table 0x10.0xd = 0x1a2,0x7
01a3 e404 | | Load 0x2,0x4
01a4 e001 | | Load 0x0,0x1
01a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a6 00d2 | | Pop_Control Pop_Count_2
01a7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0xe = 0x1a7,0x8
01a8 00e3 | | Load_Encached Natural_Cache
01a9 e405 | | Load 0x2,0x5
01aa e001 | | Load 0x0,0x1
01ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ac c403 | | Store 0x2,0x3
01ad c407 | | Store 0x2,0x7
01ae e407 | | Load 0x2,0x7 ; Debug Table 0x10.0xf = 0x1ae,0x9
01af 6813 |h | Jump_Zero 0x1c3
01b0 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x10 = 0x1b0,0xa
01b1 4801 |H | Short_Literal 0x1
01b2 e20e | | Load 0x1,0xe
01b3 1c08 | | Execute_Immediate Run_Utility,0x8
01b4 e409 | | Load 0x2,0x9
01b5 1c01 | | Execute_Immediate Run_Utility,0x1
01b6 e406 | | Load 0x2,0x6
01b7 e20e | | Load 0x1,0xe
01b8 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
01b9 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
01ba 0119 | | Execute Any,Check_In_Formal_Type
01bb e409 | | Load 0x2,0x9
01bc 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01bd 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
01be e403 | | Load 0x2,0x3
01bf e409 | | Load 0x2,0x9
01c0 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01c1 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c3 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x11 = 0x1c3,0xb
01c4 4800 |H | Short_Literal 0x0
01c5 e20e | | Load 0x1,0xe
01c6 1c08 | | Execute_Immediate Run_Utility,0x8
01c7 e409 | | Load 0x2,0x9
01c8 1c01 | | Execute_Immediate Run_Utility,0x1
01c9 e406 | | Load 0x2,0x6
01ca e20e | | Load 0x1,0xe
01cb 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
01cc 2301 |# | Execute Variant_Record,Field_Type,Field_Number 0x1
01cd 0119 | | Execute Any,Check_In_Formal_Type
01ce e409 | | Load 0x2,0x9
01cf 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
01d0 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d2 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x12 = 0x1d2,0xc
01d3 4800 |H | Short_Literal 0x0
01d4 e20e | | Load 0x1,0xe
01d5 1c08 | | Execute_Immediate Run_Utility,0x8
01d6 e409 | | Load 0x2,0x9
01d7 1c01 | | Execute_Immediate Run_Utility,0x1
01d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d9 TRAP_0168:
01d9 010e | | Execute Exception,Is_Constraint_Error
01da 6802 |h | Jump_Zero 0x1dd
01db 60b4 |` | Indirect_Literal Discrete,0x290,{0x00000000, 0x0e06e401} ; Debug Table 0x10.0x13 = 0x1db,0xd
01dc 0257 | W | Execute Discrete,Raise
01dd 0100 | | Execute Exception,Raise
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4608 |F | Jump_Case 0x9 ; Debug Table 0x11 = .DEBUG 0x01e3,0x0416,0x0005,0x0000,0x000e,0x06e4,0x0000,0x00b4
01e4 7808 |x | Jump 0x1ed ; case 0x0
01e5 7825 |x% | Jump 0x20b ; case 0x1
01e6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01e7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01e8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01ea 7828 |x( | Jump 0x213 ; case 0x6
01eb 782f |x/ | Jump 0x21b ; case 0x7
01ec 7846 |xF | Jump 0x233 ; case 0x8
01ed e5ff | | Load 0x2,-0x1
01ee 016c | l | Execute Variant_Record,Is_Constrained
01ef 700a |p | Jump_Nonzero 0x1fa
01f0 00cf | | Action Mark_Auxiliary
01f1 4800 |H | Short_Literal 0x0
01f2 4800 |H | Short_Literal 0x0
01f3 e5ff | | Load 0x2,-0x1
01f4 1c08 | | Execute_Immediate Run_Utility,0x8
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 c5ff | | Store 0x2,-0x1
01f8 00ce | | Action Pop_Auxiliary
01f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01fa e5ff | | Load 0x2,-0x1
01fb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fc 4601 |F | Jump_Case 0x2
01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01fe 7800 |x | Jump 0x1ff ; case 0x1
01ff e5ff | | Load 0x2,-0x1
0200 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
0201 e5ff | | Load 0x2,-0x1
0202 2703 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x3
0203 e5ff | | Load 0x2,-0x1
0204 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0205 4601 |F | Jump_Case 0x2
0206 7801 |x | Jump 0x208 ; case 0x0
0207 7800 |x | Jump 0x208 ; case 0x1
0208 e5ff | | Load 0x2,-0x1
0209 2b03 |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0x3
020a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
020b e5ff | | Load 0x2,-0x1
020c 016b | k | Execute Variant_Record,Read_Variant
020d 00d8 | | Load_Top At_Offset_0
020e 0f01 | | Execute_Immediate Equal,0x1
020f 6802 |h | Jump_Zero 0x212
0210 e5ff | | Load 0x2,-0x1
0211 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
0212 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0213 e5fd | | Load 0x2,-0x3
0214 4601 |F | Jump_Case 0x2
0215 7801 |x | Jump 0x217 ; case 0x0
0216 7802 |x | Jump 0x219 ; case 0x1
0217 48ff |H | Short_Literal 0xff
0218 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0219 4801 |H | Short_Literal 0x1
021a 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
021b e5fd | | Load 0x2,-0x3
021c e5fe | | Load 0x2,-0x2
021d e5fd | | Load 0x2,-0x3
021e 4601 |F | Jump_Case 0x2
021f 7801 |x | Jump 0x221 ; case 0x0
0220 7803 |x | Jump 0x224 ; case 0x1
0221 4800 |H | Short_Literal 0x0
0222 48ff |H | Short_Literal 0xff
0223 780c |x | Jump 0x230
0224 e5fe | | Load 0x2,-0x2
0225 4601 |F | Jump_Case 0x2
0226 7801 |x | Jump 0x228 ; case 0x0
0227 7802 |x | Jump 0x22a ; case 0x1
0228 48ff |H | Short_Literal 0xff
0229 7801 |x | Jump 0x22b
022a 4801 |H | Short_Literal 0x1
022b e20e | | Load 0x1,0xe
022c 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
022d 031b | | Declare_Type Variant_Record,Constrained
022e 4801 |H | Short_Literal 0x1
022f 4801 |H | Short_Literal 0x1
0230 e5ff | | Load 0x2,-0x1
0231 031b | | Declare_Type Variant_Record,Constrained
0232 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0233 e5fd | | Load 0x2,-0x3
0234 e5fe | | Load 0x2,-0x2
0235 e5fd | | Load 0x2,-0x3
0236 e5fe | | Load 0x2,-0x2
0237 e5ff | | Load 0x2,-0x1
0238 1c06 | | Execute_Immediate Run_Utility,0x6
0239 e5ff | | Load 0x2,-0x1
023a 02fc | | Declare_Variable Variant_Record,With_Constraint
023b e5fd | | Load 0x2,-0x3
023c 4601 |F | Jump_Case 0x2
023d 7810 |x | Jump 0x24e ; case 0x0
023e 7800 |x | Jump 0x23f ; case 0x1
023f e5fe | | Load 0x2,-0x2
0240 4601 |F | Jump_Case 0x2
0241 7801 |x | Jump 0x243 ; case 0x0
0242 7802 |x | Jump 0x245 ; case 0x1
0243 48ff |H | Short_Literal 0xff
0244 7801 |x | Jump 0x246
0245 4801 |H | Short_Literal 0x1
0246 e20e | | Load 0x1,0xe
0247 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
0248 02fc | | Declare_Variable Variant_Record,With_Constraint
0249 e5fe | | Load 0x2,-0x2
024a 4601 |F | Jump_Case 0x2
024b 7801 |x | Jump 0x24d ; case 0x0
024c 7800 |x | Jump 0x24d ; case 0x1
024d 2f03 |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0x3
024e 016a | j | QQ_execute Variant_Record,XXX
024f 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0257 | W | .CONST 0x0257 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 4801 |H | Short_Literal 0x1 ; Debug Table 0x12 = .DEBUG 0x0253,0x0418,0x0002,0x0000,0x000e,0x2324,0x0000,0x0018
; Debug Table 0x12.0x0 = 0x253,0xffff
0254 4850 |HP | Short_Literal 0x50
0255 00e9 | | Load_Encached String_Cache
0256 0334 | 4 | Declare_Variable Array,With_Constraint
0257 BODY_0250:
0257 e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x1 = 0x257,0x1
0258 01db | | Execute Vector,Length
0259 0d50 | P | Execute_Immediate Less,0x50
025a 6813 |h | Jump_Zero 0x26e
025b e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x2 = 0x25b,0x2
025c 4801 |H | Short_Literal 0x1
025d e5ff | | Load 0x2,-0x1
025e 01db | | Execute Vector,Length
025f e402 | | Load 0x2,0x2
0260 01ce | | Execute Vector,Slice_Write
0261 4850 |HP | Short_Literal 0x50 ; Debug Table 0x12.0x3 = 0x261,0x3
0262 e5ff | | Load 0x2,-0x1
0263 01db | | Execute Vector,Length
0264 0a01 | | Execute_Immediate Plus,0x1
0265 0248 | H | Execute Discrete,Check_In_Integer
0266 0263 | c | Execute Discrete,Above_Bound
0267 7011 |p | Jump_Nonzero 0x279
0268 4820 |H | Short_Literal 0x20 ; Debug Table 0x12.0x4 = 0x268,0x4
0269 e404 | | Load 0x2,0x4
026a e402 | | Load 0x2,0x2
026b 01d6 | | Execute Vector,Field_Write
026c 3ffb |? | Loop_Increasing 0x268
026d 780b |x | Jump 0x279
026e e5ff | | Load 0x2,-0x1 ; Debug Table 0x12.0x5 = 0x26e,0x5
026f 01dd | | Execute Vector,First
0270 e5ff | | Load 0x2,-0x1
0271 01dd | | Execute Vector,First
0272 0a50 | P | Execute_Immediate Plus,0x50
0273 0aff | | Execute_Immediate Plus,-0x1
0274 0248 | H | Execute Discrete,Check_In_Integer
0275 e5ff | | Load 0x2,-0x1
0276 01cf | | Execute Vector,Slice_Read
0277 e402 | | Load 0x2,0x2
0278 01d4 | | Execute Vector,Structure_Write
0279 e402 | | Load 0x2,0x2 ; Debug Table 0x12.0x6 = 0x279,0x6
027a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027b 0000 0000 | | .BLANK 0000[0x5]
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 0092 0298 | | Action Push_String_Extended,0x298 ; "Error Message"
; Debug Table 0x13 = .DEBUG 0x0283,0x0428,0x0002,0x0000,0x000e,0x2324,0x0000,0x008b
; Debug Table 0x13.0x0 = 0x283,0x1
0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e5ff | | Load 0x2,-0x1 ; Debug Table 0x14 = .DEBUG 0x028b,0x042c,0x0002,0x0000,0x000e,0x2324,0x0000,0x0148
; Debug Table 0x14.0x0 = 0x28b,0x1
028c e001 | | Load 0x0,0x1
028d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f 0000 | | .XXX[0x1]
0290 0000 0000 | | .LITERAL {0x00000000, 0x0e06e401}
0294 ; --------------------------------------------------------------------------------------
0294 ; STRING TABLE
0294 ; --------------------------------------------------------------------------------------
0294 000c | | .STRTAB 0x000c->0x029a ; "NONE"
0295 000e | | .STRTAB 0x000e->0x029c ; "WITH_INDEX"
0296 0016 | | .STRTAB 0x0016->0x02a1 ; "f"
0297 0015 | | .STRTAB 0x0015->0x02a1 ; "t \x22"
0298 0016 | | .STRTAB 0x0016->0x02a3 ; "Error Message"
0299 0021 | ! | .STREND 0x0021->0x02a9
029a 4e4f 4e45 |NONE| .STRTAB_STRINGS
02aa 0000 0000 | | .BLANK 0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug Table
02b0 ; --------------------------------------------------------------------------------------
02b0 0003 0015 | | .CONST 0x0003,0x0015
02b2 000b 035a | Z| .DEBUG 0x000b,0x035a,0x8000,0x0000,0x000e,0x06e4,0x0000,0x0003
02ba 0052 038a | R | .DEBUG 0x0052,0x038a,0x8000,0x0000,0x000e,0x2324,0x0000,0x0006
02c2 007b 03ae | { | .DEBUG 0x007b,0x03ae,0x0005,0x0000,0x000e,0x06e4,0x0000,0x0004
02ca 0093 03b0 | | .DEBUG 0x0093,0x03b0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x002c
02d2 009b 03b4 | | .DEBUG 0x009b,0x03b4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0035
02da 00b3 03b8 | | .DEBUG 0x00b3,0x03b8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x003e
02e2 00cb 03bc | | .DEBUG 0x00cb,0x03bc,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0047
02ea 00e3 03c0 | | .DEBUG 0x00e3,0x03c0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0054
02f2 00fb 03c4 | | .DEBUG 0x00fb,0x03c4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0061
02fa 010b 03c8 | | .DEBUG 0x010b,0x03c8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0066
0302 0113 03cc | | .DEBUG 0x0113,0x03cc,0x0002,0x0000,0x000e,0x06e4,0x0000,0x006f
030a 011b 03d0 | | .DEBUG 0x011b,0x03d0,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0078
0312 0123 03d4 | # | .DEBUG 0x0123,0x03d4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0081
031a 012b 03d8 | + | .DEBUG 0x012b,0x03d8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x008a
0322 015b 03e4 | [ | .DEBUG 0x015b,0x03e4,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0093
032a 0163 03e8 | c | .DEBUG 0x0163,0x03e8,0x0002,0x0000,0x000e,0x06e4,0x0000,0x0098
0332 016b 03ec | k | .DEBUG 0x016b,0x03ec,0x0002,0x0000,0x000e,0x06e4,0x0000,0x00a1
033a 01e3 0416 | | .DEBUG 0x01e3,0x0416,0x0005,0x0000,0x000e,0x06e4,0x0000,0x00b4
0342 0253 0418 | S | .DEBUG 0x0253,0x0418,0x0002,0x0000,0x000e,0x2324,0x0000,0x0018
034a 0283 0428 | (| .DEBUG 0x0283,0x0428,0x0002,0x0000,0x000e,0x2324,0x0000,0x008b
0352 028b 042c | ,| .DEBUG 0x028b,0x042c,0x0002,0x0000,0x000e,0x2324,0x0000,0x0148
035a ; --------------------------------------------------------------------------------------
035a ; Debug3 Subtable 0x0
035a ; --------------------------------------------------------------------------------------
035a 0017 0000 | | .DBG3TAB 0x0017,0x0000
035c 000b ffff | | .CONST 0x000b,0xffff
035e 0010 fffe | | .CONST 0x0010,0xfffe
0360 0017 fffd | | .CONST 0x0017,0xfffd
0362 0019 fffc | | .CONST 0x0019,0xfffc
0364 001b fffb | | .CONST 0x001b,0xfffb
0366 001c fffa | | .CONST 0x001c,0xfffa
0368 001d fff9 | | .CONST 0x001d,0xfff9
036a 001f fff8 | | .CONST 0x001f,0xfff8
036c 0021 fff7 | ! | .CONST 0x0021,0xfff7
036e 0023 fff6 | # | .CONST 0x0023,0xfff6
0370 0025 fff5 | % | .CONST 0x0025,0xfff5
0372 0027 fff4 | ' | .CONST 0x0027,0xfff4
0374 0029 fff3 | ) | .CONST 0x0029,0xfff3
0376 002b fff2 | + | .CONST 0x002b,0xfff2
0378 002d fff1 | - | .CONST 0x002d,0xfff1
037a 002f fff0 | / | .CONST 0x002f,0xfff0
037c 0031 ffef | 1 | .CONST 0x0031,0xffef
037e 0033 ffee | 3 | .CONST 0x0033,0xffee
0380 0035 ffed | 5 | .CONST 0x0035,0xffed
0382 0037 ffec | 7 | .CONST 0x0037,0xffec
0384 0039 ffeb | 9 | .CONST 0x0039,0xffeb
0386 003a ffea | : | .CONST 0x003a,0xffea
0388 003b ffe9 | ; | .CONST 0x003b,0xffe9
038a ; --------------------------------------------------------------------------------------
038a ; Debug3 Subtable 0x1
038a ; --------------------------------------------------------------------------------------
038a 0011 0000 | | .DBG3TAB 0x0011,0x0000
038c 0052 ffff | R | .CONST 0x0052,0xffff
038e 0054 fffe | T | .CONST 0x0054,0xfffe
0390 0056 fffd | V | .CONST 0x0056,0xfffd
0392 0058 fffc | X | .CONST 0x0058,0xfffc
0394 005a fffb | Z | .CONST 0x005a,0xfffb
0396 005c fffa | \ | .CONST 0x005c,0xfffa
0398 005e fff9 | ^ | .CONST 0x005e,0xfff9
039a 0060 fff8 | ` | .CONST 0x0060,0xfff8
039c 0062 fff7 | b | .CONST 0x0062,0xfff7
039e 0064 fff6 | d | .CONST 0x0064,0xfff6
03a0 0066 fff5 | f | .CONST 0x0066,0xfff5
03a2 0068 fff4 | h | .CONST 0x0068,0xfff4
03a4 006a fff3 | j | .CONST 0x006a,0xfff3
03a6 006c fff2 | l | .CONST 0x006c,0xfff2
03a8 006e fff1 | n | .CONST 0x006e,0xfff1
03aa 0070 fff0 | p | .CONST 0x0070,0xfff0
03ac 0072 ffef | r | .CONST 0x0072,0xffef
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug3 Subtable 0x2
03ae ; --------------------------------------------------------------------------------------
03ae 0000 0000 | | .DBG3TAB 0x0000,0x0000
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug3 Subtable 0x3
03b0 ; --------------------------------------------------------------------------------------
03b0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03b2 0093 0001 | | .CONST 0x0093,0x0001
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug3 Subtable 0x4
03b4 ; --------------------------------------------------------------------------------------
03b4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03b6 009b 0001 | | .CONST 0x009b,0x0001
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug3 Subtable 0x5
03b8 ; --------------------------------------------------------------------------------------
03b8 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ba 00b3 0001 | | .CONST 0x00b3,0x0001
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0x6
03bc ; --------------------------------------------------------------------------------------
03bc 0000 0001 | | .DBG3TAB 0x0000,0x0001
03be 00cb 0001 | | .CONST 0x00cb,0x0001
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug3 Subtable 0x7
03c0 ; --------------------------------------------------------------------------------------
03c0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03c2 00e3 0001 | | .CONST 0x00e3,0x0001
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0x8
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03c6 00fb 0001 | | .CONST 0x00fb,0x0001
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug3 Subtable 0x9
03c8 ; --------------------------------------------------------------------------------------
03c8 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ca 010b 0001 | | .CONST 0x010b,0x0001
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug3 Subtable 0xa
03cc ; --------------------------------------------------------------------------------------
03cc 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ce 0113 0001 | | .CONST 0x0113,0x0001
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0xb
03d0 ; --------------------------------------------------------------------------------------
03d0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03d2 011b 0001 | | .CONST 0x011b,0x0001
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0xc
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03d6 0123 0001 | # | .CONST 0x0123,0x0001
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0xd
03d8 ; --------------------------------------------------------------------------------------
03d8 0000 0005 | | .DBG3TAB 0x0000,0x0005
03da 012b 0001 | + | .CONST 0x012b,0x0001
03dc 0130 0002 | 0 | .CONST 0x0130,0x0002
03de 0133 0003 | 3 | .CONST 0x0133,0x0003
03e0 0138 0004 | 8 | .CONST 0x0138,0x0004
03e2 0142 0005 | B | .CONST 0x0142,0x0005
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0xe
03e4 ; --------------------------------------------------------------------------------------
03e4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03e6 015b 0001 | [ | .CONST 0x015b,0x0001
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0xf
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ea 0163 0001 | c | .CONST 0x0163,0x0001
03ec ; --------------------------------------------------------------------------------------
03ec ; Debug3 Subtable 0x10
03ec ; --------------------------------------------------------------------------------------
03ec 0007 000d | | .DBG3TAB 0x0007,0x000d
03ee 016b ffff | k | .CONST 0x016b,0xffff
03f0 016c fffe | l | .CONST 0x016c,0xfffe
03f2 016d fffd | m | .CONST 0x016d,0xfffd
03f4 0173 fffc | s | .CONST 0x0173,0xfffc
03f6 0179 fffb | y | .CONST 0x0179,0xfffb
03f8 017d fffa | } | .CONST 0x017d,0xfffa
03fa 017e fff9 | ~ | .CONST 0x017e,0xfff9
03fc 017f 0001 | | .CONST 0x017f,0x0001
03fe 0185 0002 | | .CONST 0x0185,0x0002
0400 0188 0003 | | .CONST 0x0188,0x0003
0402 018d 0004 | | .CONST 0x018d,0x0004
0404 019b 0005 | | .CONST 0x019b,0x0005
0406 019d 0006 | | .CONST 0x019d,0x0006
0408 01a2 0007 | | .CONST 0x01a2,0x0007
040a 01a7 0008 | | .CONST 0x01a7,0x0008
040c 01ae 0009 | | .CONST 0x01ae,0x0009
040e 01b0 000a | | .CONST 0x01b0,0x000a
0410 01c3 000b | | .CONST 0x01c3,0x000b
0412 01d2 000c | | .CONST 0x01d2,0x000c
0414 01db 000d | | .CONST 0x01db,0x000d
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0x11
0416 ; --------------------------------------------------------------------------------------
0416 0000 0000 | | .DBG3TAB 0x0000,0x0000
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug3 Subtable 0x12
0418 ; --------------------------------------------------------------------------------------
0418 0001 0006 | | .DBG3TAB 0x0001,0x0006
041a 0253 ffff | S | .CONST 0x0253,0xffff
041c 0257 0001 | W | .CONST 0x0257,0x0001
041e 025b 0002 | [ | .CONST 0x025b,0x0002
0420 0261 0003 | a | .CONST 0x0261,0x0003
0422 0268 0004 | h | .CONST 0x0268,0x0004
0424 026e 0005 | n | .CONST 0x026e,0x0005
0426 0279 0006 | y | .CONST 0x0279,0x0006
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug3 Subtable 0x13
0428 ; --------------------------------------------------------------------------------------
0428 0000 0001 | | .DBG3TAB 0x0000,0x0001
042a 0283 0001 | | .CONST 0x0283,0x0001
042c ; --------------------------------------------------------------------------------------
042c ; Debug3 Subtable 0x14
042c ; --------------------------------------------------------------------------------------
042c 0000 0001 | | .DBG3TAB 0x0000,0x0001
042e 028b 0001 | | .CONST 0x028b,0x0001
0430 0000 0000 | | .BLANK 0000[0x1d0]