|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 9216 (0x2400)
Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0df0 | | .CONST 0x0df0 ; 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 0008 | | .CONST 0x0008 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b9 | | .CONST 0x00b9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0ef2,0x8000,0x0000,0x0036,0xff64,0x0000,0x0011
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4821 |H! | Short_Literal 0x21
000d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 4803 |H | Short_Literal 0x3
0012 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x2 = 0x15,0xfffd
0016 48ff |H | Short_Literal 0xff
0017 00e3 | | Load_Encached Natural_Cache
0018 03f9 | | Declare_Type Discrete,Constrained,Visible
0019 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x3 = 0x19,0xfffc
001a 48ff |H | Short_Literal 0xff
001b 00e2 | | Load_Encached Integer_Cache
001c 03f9 | | Declare_Type Discrete,Constrained,Visible
001d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x1d,0xfffb
001e 4806 |H | Short_Literal 0x6
001f 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0021 03fe | | Declare_Type Discrete,Defined,Visible
0022 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x22,0xfffa
0023 4803 |H | Short_Literal 0x3
0024 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0026 03fe | | Declare_Type Discrete,Defined,Visible
0027 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x27,0xfff9
0028 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x28,0xfff8
0029 4900 |I | Short_Literal 0x100 ; Debug Table 0x0.0x8 = 0x29,0xfff7
002a e001 | | Load 0x0,0x1
002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002c 1c07 | | Execute_Immediate Run_Utility,0x7
002d 0129 | ) | Execute Any,Make_Visible
002e 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x9 = 0x2e,0xfff6
002f 4814 |H | Short_Literal 0x14
0030 e002 | | Load 0x0,0x2
0031 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0032 035c | \ | Declare_Type Array,Constrained,Visible
0033 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0xa = 0x33,0xfff5
0034 4814 |H | Short_Literal 0x14
0035 e002 | | Load 0x0,0x2
0036 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0037 035c | \ | Declare_Type Array,Constrained,Visible
0038 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0xb = 0x38,0xfff4
0039 00e3 | | Load_Encached Natural_Cache
003a 00da | | Load_Top At_Offset_2
003b 00e3 | | Load_Encached Natural_Cache
003c 02a0 | | Declare_Subprogram Null_Subprogram
003d 4804 |H | Short_Literal 0x4
003e 032e | . | Declare_Type Record,Defined,Visible
003f e211 | | Load 0x1,0x11 ; Debug Table 0x0.0xc = 0x3f,0xfff3
0040 e20d | | Load 0x1,0xd
0041 e20e | | Load 0x1,0xe
0042 4801 |H | Short_Literal 0x1
0043 e213 | | Load 0x1,0x13
0044 4801 |H | Short_Literal 0x1
0045 e216 | | Load 0x1,0x16
0046 4801 |H | Short_Literal 0x1
0047 e003 | | Load 0x0,0x3
0048 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0049 4801 |H | Short_Literal 0x1
004a e003 | | Load 0x0,0x3
004b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
004c 4801 |H | Short_Literal 0x1
004d e003 | | Load 0x0,0x3
004e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
004f 4802 |H | Short_Literal 0x2
0050 00e3 | | Load_Encached Natural_Cache
0051 00e3 | | Load_Encached Natural_Cache
0052 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0054 4807 |H | Short_Literal 0x7
0055 4802 |H | Short_Literal 0x2
0056 4806 |H | Short_Literal 0x6
0057 4800 |H | Short_Literal 0x0
0058 4801 |H | Short_Literal 0x1
0059 031e | | Declare_Type Variant_Record,Defined,Visible
005a e003 | | Load 0x0,0x3 ; Debug Table 0x0.0xd = 0x5a,0xfff2
005b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005c e003 | | Load 0x0,0x3
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e e004 | | Load 0x0,0x4
005f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0060 4801 |H | Short_Literal 0x1
0061 4850 |HP | Short_Literal 0x50
0062 00e9 | | Load_Encached String_Cache
0063 035c | \ | Declare_Type Array,Constrained,Visible
0064 00e3 | | Load_Encached Natural_Cache
0065 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0067 4805 |H | Short_Literal 0x5
0068 032e | . | Declare_Type Record,Defined,Visible
0069 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x69,0xfff1
006b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x6b,0xfff0
006d 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x6d,0xffef
006f 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x6f,0xffee
0071 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x71,0xffed
0073 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x73,0xffec
0075 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x14 = 0x75,0xffeb
0077 029a 05ab | | Declare_Subprogram INIT_05a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x15 = 0x77,0xffea
0079 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x16 = 0x79,0xffe9
007b 029a 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x17 = 0x7b,0xffe8
007d 00bf | | Action Accept_Activation
007e 0092 0a1c | | Action Push_String_Extended,0xa1c ; "\x0d\x0a"
; Debug Table 0x1 = .DEBUG 0x007e,0x0f24,0x8000,0x0000,0x0037,0x0074,0x0000,0x0019
; Debug Table 0x1.0x0 = 0x7e,0xffff
0080 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x80,0xfffe
0081 00a2 04e0 | | Action Push_Discrete_Extended ; Debug Table 0x1.0x2 = 0x81,0xfffd
0083 00e7 | | Load_Encached Duration_Cache
0084 03f1 | | Declare_Variable Discrete,With_Value
0085 0092 0a1d | | Action Push_String_Extended,0xa1d ; "!TOOLS.FTP"
; Debug Table 0x1.0x3 = 0x85,0xfffc
0087 0092 0a1e | | Action Push_String_Extended,0xa1e ; "SESSION_CONTROL.START_SESSION"
; Debug Table 0x1.0x4 = 0x87,0xfffb
0089 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x89,0xfffa
008a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x6 = 0x8a,0xfff9
008b 00c7 | | Action Elaborate_Subprogram
008c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x7 = 0x8c,0xfff8
008d 00c7 | | Action Elaborate_Subprogram
008e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x8 = 0x8e,0xfff7
008f 00c7 | | Action Elaborate_Subprogram
0090 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call ; Debug Table 0x1.0x9 = 0x90,0xfff6
0092 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xa = 0x92,0xfff5
0093 00c7 | | Action Elaborate_Subprogram
0094 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xb = 0x94,0xfff4
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xc = 0x96,0xfff3
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xd = 0x98,0xfff2
0099 00c7 | | Action Elaborate_Subprogram
009a 0007 | | Action Break_Optional ; Debug Table 0x1.0xe = 0x9a,0xfff1
009b 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1.0xf = 0x9b,0xfff0
009c 4801 |H | Short_Literal 0x1
009d 48c8 |H | Short_Literal 0xc8
009e 00e9 | | Load_Encached String_Cache
009f 035b | [ | Declare_Type Array,Constrained
00a0 00e3 | | Load_Encached Natural_Cache
00a1 02a0 | | Declare_Subprogram Null_Subprogram
00a2 4803 |H | Short_Literal 0x3
00a3 032d | - | Declare_Type Record,Defined
00a4 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call ; Debug Table 0x1.0x10 = 0xa4,0xffef
00a6 00a2 04dc | | Action Push_Discrete_Extended ; Debug Table 0x1.0x11 = 0xa6,0xffee
00a8 00a2 04d8 | | Action Push_Discrete_Extended
00aa 00db | | Load_Top At_Offset_3
00ab 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00ac e005 | | Load 0x0,0x5
00ad 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ae 0387 | | Declare_Variable Package
00af 00d8 | | Load_Top At_Offset_0
00b0 020f | | Execute Module,Activate
00b1 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call ; Debug Table 0x1.0x12 = 0xb1,0xffed
00b3 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0x13 = 0xb3,0xffec
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x14 = 0xb5,0xffeb
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0x15 = 0xb7,0xffea
00b8 00c7 | | Action Elaborate_Subprogram
00b9 BODY_0008:
00b9 00bc | | Action Signal_Activated
00ba 00bb | | Action Signal_Completion
00bb 0000 0000 | | .BLANK 0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x00c3,0x0f52,0x0005,0x0000,0x0036,0xff64,0x0000,0x0012
00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00c5 7802 |x | Jump 0xc8 ; case 0x1
00c6 7805 |x | Jump 0xcc ; case 0x2
00c7 7809 |x | Jump 0xd1 ; case 0x3
00c8 00da | | Load_Top At_Offset_2
00c9 0091 09eb | | Action Push_String_Extended_Indexed,0x9eb ; "USER"
00cb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00cc 00db | | Load_Top At_Offset_3
00cd 00db | | Load_Top At_Offset_3
00ce 00e0 | | Load_Encached Standard_Cache
00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d1 00da | | Load_Top At_Offset_2
00d2 00e0 | | Load_Encached Standard_Cache
00d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x00db,0x0f54,0x0005,0x0000,0x0036,0xff64,0x0000,0x0038
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7802 |x | Jump 0xe0 ; case 0x1
00de 7805 |x | Jump 0xe4 ; case 0x2
00df 7809 |x | Jump 0xe9 ; case 0x3
00e0 00da | | Load_Top At_Offset_2
00e1 0091 0a0d | | Action Push_String_Extended_Indexed,0xa0d ; "OK"
00e3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e4 00db | | Load_Top At_Offset_3
00e5 00db | | Load_Top At_Offset_3
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e9 00da | | Load_Top At_Offset_2
00ea 00e0 | | Load_Encached Standard_Cache
00eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x00f3,0x0f56,0x0005,0x0000,0x0036,0xff64,0x0000,0x0052
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00f5 7802 |x | Jump 0xf8 ; case 0x1
00f6 7805 |x | Jump 0xfc ; case 0x2
00f7 7809 |x | Jump 0x101 ; case 0x3
00f8 00da | | Load_Top At_Offset_2
00f9 0091 0a11 | | Action Push_String_Extended_Indexed,0xa11 ; "STRING_ARG"
00fb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00fc 00db | | Load_Top At_Offset_3
00fd 00db | | Load_Top At_Offset_3
00fe 00e0 | | Load_Encached Standard_Cache
00ff 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0100 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0101 00da | | Load_Top At_Offset_2
0102 00e0 | | Load_Encached Standard_Cache
0103 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0104 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x5 = .DEBUG 0x010b,0x0f58,0x0005,0x0000,0x0036,0xff64,0x0000,0x005d
010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
010d 7802 |x | Jump 0x110 ; case 0x1
010e 7805 |x | Jump 0x114 ; case 0x2
010f 7809 |x | Jump 0x119 ; case 0x3
0110 00da | | Load_Top At_Offset_2
0111 0091 0a18 | | Action Push_String_Extended_Indexed,0xa18 ; "ACTIVE"
0113 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0114 00db | | Load_Top At_Offset_3
0115 00db | | Load_Top At_Offset_3
0116 00e0 | | Load_Encached Standard_Cache
0117 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0119 00da | | Load_Top At_Offset_2
011a 00e0 | | Load_Encached Standard_Cache
011b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
011c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x0123,0x0f5a,0x0005,0x0000,0x0036,0xff64,0x0000,0x00a5
0124 7808 |x | Jump 0x12d ; case 0x0
0125 7823 |x# | Jump 0x149 ; case 0x1
0126 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0127 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0128 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0129 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
012a 7826 |x& | Jump 0x151 ; case 0x6
012b 783c |x< | Jump 0x168 ; case 0x7
012c 7855 |xU | Jump 0x182 ; case 0x8
012d 00da | | Load_Top At_Offset_2
012e 016c | l | Execute Variant_Record,Is_Constrained
012f 7009 |p | Jump_Nonzero 0x139
0130 00cf | | Action Mark_Auxiliary
0131 4806 |H | Short_Literal 0x6
0132 e5ff | | Load 0x2,-0x1
0133 1c08 | | Execute_Immediate Run_Utility,0x8
0134 00d8 | | Load_Top At_Offset_0
0135 1c00 | | Execute_Immediate Run_Utility,0x0
0136 c5ff | | Store 0x2,-0x1
0137 00ce | | Action Pop_Auxiliary
0138 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0139 00da | | Load_Top At_Offset_2
013a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013b 4606 |F | Jump_Case 0x7
013c 7806 |x | Jump 0x143 ; case 0x0
013d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
013e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
013f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0140 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0141 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0142 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0143 00da | | Load_Top At_Offset_2
0144 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
0145 00da | | Load_Top At_Offset_2
0146 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0149 00da | | Load_Top At_Offset_2
014a 016b | k | Execute Variant_Record,Read_Variant
014b 00d8 | | Load_Top At_Offset_0
014c 0f01 | | Execute_Immediate Equal,0x1
014d 6802 |h | Jump_Zero 0x150
014e 00db | | Load_Top At_Offset_3
014f 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
0150 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0151 00db | | Load_Top At_Offset_3
0152 4606 |F | Jump_Case 0x7
0153 7806 |x | Jump 0x15a ; case 0x0
0154 7807 |x | Jump 0x15c ; case 0x1
0155 7808 |x | Jump 0x15e ; case 0x2
0156 7809 |x | Jump 0x160 ; case 0x3
0157 780a |x | Jump 0x162 ; case 0x4
0158 780b |x | Jump 0x164 ; case 0x5
0159 780c |x | Jump 0x166 ; case 0x6
015a 4801 |H | Short_Literal 0x1
015b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015c 4802 |H | Short_Literal 0x2
015d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015e 4803 |H | Short_Literal 0x3
015f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0160 4804 |H | Short_Literal 0x4
0161 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0162 4805 |H | Short_Literal 0x5
0163 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0164 4806 |H | Short_Literal 0x6
0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0166 48ff |H | Short_Literal 0xff
0167 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0168 00db | | Load_Top At_Offset_3
0169 e5fe | | Load 0x2,-0x2
016a 4606 |F | Jump_Case 0x7
016b 7806 |x | Jump 0x172 ; case 0x0
016c 7807 |x | Jump 0x174 ; case 0x1
016d 7808 |x | Jump 0x176 ; case 0x2
016e 7809 |x | Jump 0x178 ; case 0x3
016f 780a |x | Jump 0x17a ; case 0x4
0170 780b |x | Jump 0x17c ; case 0x5
0171 780c |x | Jump 0x17e ; case 0x6
0172 4801 |H | Short_Literal 0x1
0173 780b |x | Jump 0x17f
0174 4802 |H | Short_Literal 0x2
0175 7809 |x | Jump 0x17f
0176 4803 |H | Short_Literal 0x3
0177 7807 |x | Jump 0x17f
0178 4804 |H | Short_Literal 0x4
0179 7805 |x | Jump 0x17f
017a 4805 |H | Short_Literal 0x5
017b 7803 |x | Jump 0x17f
017c 4806 |H | Short_Literal 0x6
017d 7801 |x | Jump 0x17f
017e 48ff |H | Short_Literal 0xff
017f e5ff | | Load 0x2,-0x1
0180 031b | | Declare_Type Variant_Record,Constrained
0181 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0182 00db | | Load_Top At_Offset_3
0183 e5fe | | Load 0x2,-0x2
0184 e5ff | | Load 0x2,-0x1
0185 1c06 | | Execute_Immediate Run_Utility,0x6
0186 e5ff | | Load 0x2,-0x1
0187 02fc | | Declare_Variable Variant_Record,With_Constraint
0188 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x0193,0x0f5c,0x0005,0x0000,0x0036,0xff64,0x0000,0x0101
0194 7808 |x | Jump 0x19d ; case 0x0
0195 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0196 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0197 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0198 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0199 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
019a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
019b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
019d 4800 |H | Short_Literal 0x0
019e 00db | | Load_Top At_Offset_3
019f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad | | .CONST 0x01ad ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8 = .DEBUG 0x01ab,0x0f5e,0x0001,0x0000,0x0036,0xff64,0x0000,0x0129
; Debug Table 0x8.0x0 = 0x1ab,0xffff
01ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01ad BODY_01a8:
01ad 00cf | | Action Mark_Auxiliary
01ae e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x1 = 0x1ae,0x1
01af e001 | | Load 0x0,0x1
01b0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01b1 4801 |H | Short_Literal 0x1
01b2 0263 | c | Execute Discrete,Above_Bound
01b3 700e |p | Jump_Nonzero 0x1c2
01b4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x2 = 0x1b4,0x2
01b5 e5fe | | Load 0x2,-0x2
01b6 e001 | | Load 0x0,0x1
01b7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01b8 e5ff | | Load 0x2,-0x1
01b9 027e | ~ | Execute Discrete,Not_Equal
01ba 6803 |h | Jump_Zero 0x1be
01bb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x1bb,0x3
01bc a402 | | Store_Unchecked 0x2,0x2
01bd 7802 |x | Jump 0x1c0
01be 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x8.0x4 = 0x1be,0x4
01bf 7802 |x | Jump 0x1c2
01c0 00c8 | | Action Pop_Auxiliary_Range
01c1 3ff2 |? | Loop_Increasing 0x1b4
01c2 00ce | | Action Pop_Auxiliary
01c3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x5 = 0x1c3,0x5
01c4 00d9 | | Load_Top At_Offset_1
01c5 4801 |H | Short_Literal 0x1
01c6 e5fe | | Load 0x2,-0x2
01c7 e001 | | Load 0x0,0x1
01c8 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c9 e001 | | Load 0x0,0x1
01ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01cb 00d1 | | Pop_Control Pop_Count_1
01cc e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x6 = 0x1cc,0x6
01cd e001 | | Load 0x0,0x1
01ce 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01cf 00d9 | | Load_Top At_Offset_1
01d0 0a01 | | Execute_Immediate Plus,0x1
01d1 027b | { | Execute Discrete,Greater_Equal
01d2 680f |h | Jump_Zero 0x1e2
01d3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x7 = 0x1d3,0x7
01d4 00d9 | | Load_Top At_Offset_1
01d5 0a01 | | Execute_Immediate Plus,0x1
01d6 00e3 | | Load_Encached Natural_Cache
01d7 025b | [ | Execute Discrete,Check_In_Type
01d8 4801 |H | Short_Literal 0x1
01d9 e001 | | Load 0x0,0x1
01da 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01db 00d1 | | Pop_Control Pop_Count_1
01dc e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x8 = 0x1dc,0x8
01dd e001 | | Load 0x0,0x1
01de 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01df 0f00 | | Execute_Immediate Equal,0x0
01e0 a5fc | | Store_Unchecked 0x2,-0x4
01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x9 = 0x1e2,0x9
01e3 4820 |H | Short_Literal 0x20
01e4 4800 |H | Short_Literal 0x0
01e5 e001 | | Load 0x0,0x1
01e6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01e7 00d1 | | Pop_Control Pop_Count_1
01e8 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xa = 0x1e8,0xa
01e9 a5fc | | Store_Unchecked 0x2,-0x4
01ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0215 | | .CONST 0x0215 ; Address of begin
01f1 04c3 | | .CONST 0x04c3 ; Address of exception handler
01f2 0010 | | .CONST 0x0010 ; Number of locals
01f3 INIT_01f0:
01f3 e003 | | Load 0x0,0x3 ; Debug Table 0x9 = .DEBUG 0x01f3,0x0f76,0x0001,0x0000,0x0036,0xff64,0x0000,0x0142
; Debug Table 0x9.0x0 = 0x1f3,0xffff
01f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01f5 e003 | | Load 0x0,0x3 ; Debug Table 0x9.0x1 = 0x1f5,0xfffe
01f6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f7 e20d | | Load 0x1,0xd ; Debug Table 0x9.0x2 = 0x1f7,0xfffd
01f8 0007 | | Action Break_Optional
01f9 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call ; Debug Table 0x9.0x3 = 0x1f9,0xfffc
01fb 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call ; Debug Table 0x9.0x4 = 0x1fb,0xfffb
01fd 029f 068b | | Declare_Subprogram INIT_0688,For_Call ; Debug Table 0x9.0x5 = 0x1fd,0xfffa
01ff 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call ; Debug Table 0x9.0x6 = 0x1ff,0xfff9
0201 029f 076b | k| Declare_Subprogram INIT_0768,For_Call ; Debug Table 0x9.0x7 = 0x201,0xfff8
0203 e213 | | Load 0x1,0x13 ; Debug Table 0x9.0x8 = 0x203,0xfff7
0204 02ff | | Declare_Variable Variant_Record
0205 e5ff | | Load 0x2,-0x1
0206 00d9 | | Load_Top At_Offset_1
0207 016d | m | Execute Variant_Record,Structure_Write
0208 e213 | | Load 0x1,0x13 ; Debug Table 0x9.0x9 = 0x208,0xfff6
0209 02ff | | Declare_Variable Variant_Record
020a 00d8 | | Load_Top At_Offset_0
020b 1c00 | | Execute_Immediate Run_Utility,0x0
020c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0xa = 0x20c,0xfff5
020d 029f 0783 | | Declare_Subprogram INIT_0780,For_Call ; Debug Table 0x9.0xb = 0x20d,0xfff4
020f 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call
0211 029f 0833 | 3| Declare_Subprogram INIT_0830,For_Call
0213 029f 0913 | | Declare_Subprogram INIT_0910,For_Call
0215 BODY_01f0:
0215 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0xc = 0x215,0x1
0216 e40b | | Load 0x2,0xb
0217 e40a | | Load 0x2,0xa
0218 4820 |H | Short_Literal 0x20
0219 8219 | | Call 0x1,0x19
021a 00d2 | | Pop_Control Pop_Count_2
021b c40c | | Store 0x2,0xc
021c 840e | | Call 0x2,0xe ; Debug Table 0x9.0xd = 0x21c,0x2
021d e404 | | Load 0x2,0x4 ; Debug Table 0x9.0xe = 0x21d,0x3
021e 4621 |F! | Jump_Case 0x22
021f 7821 |x! | Jump 0x241 ; case 0x0
0220 7820 |x | Jump 0x241 ; case 0x1
0221 781f |x | Jump 0x241 ; case 0x2
0222 7a76 |zv | Jump 0x499 ; case 0x3
0223 7a75 |zu | Jump 0x499 ; case 0x4
0224 7932 |y2 | Jump 0x357 ; case 0x5
0225 7a73 |zs | Jump 0x499 ; case 0x6
0226 797e |y~ | Jump 0x3a5 ; case 0x7
0227 7987 |y | Jump 0x3af ; case 0x8
0228 79fa |y | Jump 0x423 ; case 0x9
0229 7876 |xv | Jump 0x2a0 ; case 0xa
022a 7875 |xu | Jump 0x2a0 ; case 0xb
022b 7874 |xt | Jump 0x2a0 ; case 0xc
022c 78e5 |x | Jump 0x312 ; case 0xd
022d 78e4 |x | Jump 0x312 ; case 0xe
022e 78e3 |x | Jump 0x312 ; case 0xf
022f 78e2 |x | Jump 0x312 ; case 0x10
0230 78e1 |x | Jump 0x312 ; case 0x11
0231 78e0 |x | Jump 0x312 ; case 0x12
0232 780e |x | Jump 0x241 ; case 0x13
0233 7a63 |zc | Jump 0x497 ; case 0x14
0234 780c |x | Jump 0x241 ; case 0x15
0235 786a |xj | Jump 0x2a0 ; case 0x16
0236 7869 |xi | Jump 0x2a0 ; case 0x17
0237 7a61 |za | Jump 0x499 ; case 0x18
0238 7867 |xg | Jump 0x2a0 ; case 0x19
0239 7866 |xf | Jump 0x2a0 ; case 0x1a
023a 7865 |xe | Jump 0x2a0 ; case 0x1b
023b 7864 |xd | Jump 0x2a0 ; case 0x1c
023c 7804 |x | Jump 0x241 ; case 0x1d
023d 7862 |xb | Jump 0x2a0 ; case 0x1e
023e 78d3 |x | Jump 0x312 ; case 0x1f
023f 7a59 |zY | Jump 0x499 ; case 0x20
0240 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x21
0241 e40c | | Load 0x2,0xc ; Debug Table 0x9.0xf = 0x241,0x4
0242 702f |p/ | Jump_Nonzero 0x272
0243 e40a | | Load 0x2,0xa ; Debug Table 0x9.0x10 = 0x243,0x5
0244 e001 | | Load 0x0,0x1
0245 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0246 6811 |h | Jump_Zero 0x258
0247 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x11 = 0x247,0x6
0248 e217 | | Load 0x1,0x17
0249 1c08 | | Execute_Immediate Run_Utility,0x8
024a 00d8 | | Load_Top At_Offset_0
024b 1c01 | | Execute_Immediate Run_Utility,0x1
024c e404 | | Load 0x2,0x4
024d 00d9 | | Load_Top At_Offset_1
024e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
024f 4800 |H | Short_Literal 0x0
0250 00d9 | | Load_Top At_Offset_1
0251 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0252 e40a | | Load 0x2,0xa
0253 00d9 | | Load_Top At_Offset_1
0254 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0255 e5fe | | Load 0x2,-0x2
0256 016d | m | Execute Variant_Record,Structure_Write
0257 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0258 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x12 = 0x258,0x7
0259 e217 | | Load 0x1,0x17
025a 1c08 | | Execute_Immediate Run_Utility,0x8
025b 00d8 | | Load_Top At_Offset_0
025c 1c01 | | Execute_Immediate Run_Utility,0x1
025d 4821 |H! | Short_Literal 0x21
025e 00d9 | | Load_Top At_Offset_1
025f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0260 4802 |H | Short_Literal 0x2
0261 00d9 | | Load_Top At_Offset_1
0262 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0263 4900 |I | Short_Literal 0x100
0264 0092 0a1f | | Action Push_String_Extended,0xa1f ; "501 Unrecognized option for "
0266 e404 | | Load 0x2,0x4
0267 e20d | | Load 0x1,0xd
0268 025e | ^ | Execute Discrete,Convert
0269 1c01 | | Execute_Immediate Run_Utility,0x1
026a 01cc | | Execute Vector,Catenate
026b e001 | | Load 0x0,0x1
026c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
026d 00d9 | | Load_Top At_Offset_1
026e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
026f e5fe | | Load 0x2,-0x2
0270 016d | m | Execute Variant_Record,Structure_Write
0271 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0272 e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x13 = 0x272,0x8
0273 0f01 | | Execute_Immediate Equal,0x1
0274 6811 |h | Jump_Zero 0x286
0275 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x14 = 0x275,0x9
0276 e217 | | Load 0x1,0x17
0277 1c08 | | Execute_Immediate Run_Utility,0x8
0278 00d8 | | Load_Top At_Offset_0
0279 1c01 | | Execute_Immediate Run_Utility,0x1
027a e404 | | Load 0x2,0x4
027b 00d9 | | Load_Top At_Offset_1
027c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
027d 4800 |H | Short_Literal 0x0
027e 00d9 | | Load_Top At_Offset_1
027f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0280 e40a | | Load 0x2,0xa
0281 00d9 | | Load_Top At_Offset_1
0282 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0283 e5fe | | Load 0x2,-0x2
0284 016d | m | Execute Variant_Record,Structure_Write
0285 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0286 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x15 = 0x286,0xa
0287 e217 | | Load 0x1,0x17
0288 1c08 | | Execute_Immediate Run_Utility,0x8
0289 00d8 | | Load_Top At_Offset_0
028a 1c01 | | Execute_Immediate Run_Utility,0x1
028b 4821 |H! | Short_Literal 0x21
028c 00d9 | | Load_Top At_Offset_1
028d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
028e 4802 |H | Short_Literal 0x2
028f 00d9 | | Load_Top At_Offset_1
0290 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0291 4900 |I | Short_Literal 0x100
0292 0092 0a1f | | Action Push_String_Extended,0xa1f ; "501 Unrecognized option for "
0294 e404 | | Load 0x2,0x4
0295 e20d | | Load 0x1,0xd
0296 025e | ^ | Execute Discrete,Convert
0297 1c01 | | Execute_Immediate Run_Utility,0x1
0298 01cc | | Execute Vector,Catenate
0299 e001 | | Load 0x0,0x1
029a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
029b 00d9 | | Load_Top At_Offset_1
029c 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
029d e5fe | | Load 0x2,-0x2
029e 016d | m | Execute Variant_Record,Structure_Write
029f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a0 e40c | | Load 0x2,0xc ; Debug Table 0x9.0x16 = 0x2a0,0xb
02a1 7039 |p9 | Jump_Nonzero 0x2db
02a2 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x17 = 0x2a2,0xc
02a3 e40b | | Load 0x2,0xb
02a4 e40a | | Load 0x2,0xa
02a5 4820 |H | Short_Literal 0x20
02a6 8219 | | Call 0x1,0x19
02a7 00d2 | | Pop_Control Pop_Count_2
02a8 c40c | | Store 0x2,0xc
02a9 e40c | | Load 0x2,0xc ; Debug Table 0x9.0x18 = 0x2a9,0xd
02aa e40b | | Load 0x2,0xb
02ab e001 | | Load 0x0,0x1
02ac 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02ad 0e00 | | Execute_Immediate Not_Equal,0x0
02ae 0279 | y | Execute Discrete,And
02af 6811 |h | Jump_Zero 0x2c1
02b0 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x19 = 0x2b0,0xe
02b1 e217 | | Load 0x1,0x17
02b2 1c08 | | Execute_Immediate Run_Utility,0x8
02b3 00d8 | | Load_Top At_Offset_0
02b4 1c01 | | Execute_Immediate Run_Utility,0x1
02b5 e404 | | Load 0x2,0x4
02b6 00d9 | | Load_Top At_Offset_1
02b7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b8 4800 |H | Short_Literal 0x0
02b9 00d9 | | Load_Top At_Offset_1
02ba 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02bb e40b | | Load 0x2,0xb
02bc 00d9 | | Load_Top At_Offset_1
02bd 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02be e5fe | | Load 0x2,-0x2
02bf 016d | m | Execute Variant_Record,Structure_Write
02c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c1 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x1a = 0x2c1,0xf
02c2 e217 | | Load 0x1,0x17
02c3 1c08 | | Execute_Immediate Run_Utility,0x8
02c4 00d8 | | Load_Top At_Offset_0
02c5 1c01 | | Execute_Immediate Run_Utility,0x1
02c6 4821 |H! | Short_Literal 0x21
02c7 00d9 | | Load_Top At_Offset_1
02c8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02c9 4802 |H | Short_Literal 0x2
02ca 00d9 | | Load_Top At_Offset_1
02cb 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02cc 4900 |I | Short_Literal 0x100
02cd 0092 0a1f | | Action Push_String_Extended,0xa1f ; "501 Unrecognized option for "
02cf e404 | | Load 0x2,0x4
02d0 e20d | | Load 0x1,0xd
02d1 025e | ^ | Execute Discrete,Convert
02d2 1c01 | | Execute_Immediate Run_Utility,0x1
02d3 01cc | | Execute Vector,Catenate
02d4 e001 | | Load 0x0,0x1
02d5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d6 00d9 | | Load_Top At_Offset_1
02d7 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02d8 e5fe | | Load 0x2,-0x2
02d9 016d | m | Execute Variant_Record,Structure_Write
02da 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02db e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x1b = 0x2db,0x10
02dc 0f1b | | Execute_Immediate Equal,0x1b
02dd e404 | | Load 0x2,0x4
02de 0f1c | | Execute_Immediate Equal,0x1c
02df e404 | | Load 0x2,0x4
02e0 0f1e | | Execute_Immediate Equal,0x1e
02e1 0278 | x | Execute Discrete,Or
02e2 0278 | x | Execute Discrete,Or
02e3 6814 |h | Jump_Zero 0x2f8
02e4 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x1c = 0x2e4,0x11
02e5 e217 | | Load 0x1,0x17
02e6 1c08 | | Execute_Immediate Run_Utility,0x8
02e7 00d8 | | Load_Top At_Offset_0
02e8 1c01 | | Execute_Immediate Run_Utility,0x1
02e9 e404 | | Load 0x2,0x4
02ea 00d9 | | Load_Top At_Offset_1
02eb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02ec 4800 |H | Short_Literal 0x0
02ed 00d9 | | Load_Top At_Offset_1
02ee 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02ef 4900 |I | Short_Literal 0x100
02f0 00ea | | Load_Encached Null_String_Cache
02f1 e001 | | Load 0x0,0x1
02f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f3 00d9 | | Load_Top At_Offset_1
02f4 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02f5 e5fe | | Load 0x2,-0x2
02f6 016d | m | Execute Variant_Record,Structure_Write
02f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f8 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x1d = 0x2f8,0x12
02f9 e217 | | Load 0x1,0x17
02fa 1c08 | | Execute_Immediate Run_Utility,0x8
02fb 00d8 | | Load_Top At_Offset_0
02fc 1c01 | | Execute_Immediate Run_Utility,0x1
02fd 4821 |H! | Short_Literal 0x21
02fe 00d9 | | Load_Top At_Offset_1
02ff 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0300 4802 |H | Short_Literal 0x2
0301 00d9 | | Load_Top At_Offset_1
0302 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0303 4900 |I | Short_Literal 0x100
0304 0092 0a1f | | Action Push_String_Extended,0xa1f ; "501 Unrecognized option for "
0306 e404 | | Load 0x2,0x4
0307 e20d | | Load 0x1,0xd
0308 025e | ^ | Execute Discrete,Convert
0309 1c01 | | Execute_Immediate Run_Utility,0x1
030a 01cc | | Execute Vector,Catenate
030b e001 | | Load 0x0,0x1
030c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
030d 00d9 | | Load_Top At_Offset_1
030e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
030f e5fe | | Load 0x2,-0x2
0310 016d | m | Execute Variant_Record,Structure_Write
0311 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0312 e40c | | Load 0x2,0xc ; Debug Table 0x9.0x1e = 0x312,0x13
0313 6814 |h | Jump_Zero 0x328
0314 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x1f = 0x314,0x14
0315 e217 | | Load 0x1,0x17
0316 1c08 | | Execute_Immediate Run_Utility,0x8
0317 00d8 | | Load_Top At_Offset_0
0318 1c01 | | Execute_Immediate Run_Utility,0x1
0319 e404 | | Load 0x2,0x4
031a 00d9 | | Load_Top At_Offset_1
031b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
031c 4800 |H | Short_Literal 0x0
031d 00d9 | | Load_Top At_Offset_1
031e 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
031f 4900 |I | Short_Literal 0x100
0320 00ea | | Load_Encached Null_String_Cache
0321 e001 | | Load 0x0,0x1
0322 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0323 00d9 | | Load_Top At_Offset_1
0324 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0325 e5fe | | Load 0x2,-0x2
0326 016d | m | Execute Variant_Record,Structure_Write
0327 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0328 e40a | | Load 0x2,0xa ; Debug Table 0x9.0x20 = 0x328,0x15
0329 e001 | | Load 0x0,0x1
032a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
032b 6811 |h | Jump_Zero 0x33d
032c 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x21 = 0x32c,0x16
032d e217 | | Load 0x1,0x17
032e 1c08 | | Execute_Immediate Run_Utility,0x8
032f 00d8 | | Load_Top At_Offset_0
0330 1c01 | | Execute_Immediate Run_Utility,0x1
0331 e404 | | Load 0x2,0x4
0332 00d9 | | Load_Top At_Offset_1
0333 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0334 4800 |H | Short_Literal 0x0
0335 00d9 | | Load_Top At_Offset_1
0336 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0337 e40a | | Load 0x2,0xa
0338 00d9 | | Load_Top At_Offset_1
0339 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
033a e5fe | | Load 0x2,-0x2
033b 016d | m | Execute Variant_Record,Structure_Write
033c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033d 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x22 = 0x33d,0x17
033e e217 | | Load 0x1,0x17
033f 1c08 | | Execute_Immediate Run_Utility,0x8
0340 00d8 | | Load_Top At_Offset_0
0341 1c01 | | Execute_Immediate Run_Utility,0x1
0342 4821 |H! | Short_Literal 0x21
0343 00d9 | | Load_Top At_Offset_1
0344 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0345 4802 |H | Short_Literal 0x2
0346 00d9 | | Load_Top At_Offset_1
0347 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0348 4900 |I | Short_Literal 0x100
0349 0092 0a1f | | Action Push_String_Extended,0xa1f ; "501 Unrecognized option for "
034b e404 | | Load 0x2,0x4
034c e20d | | Load 0x1,0xd
034d 025e | ^ | Execute Discrete,Convert
034e 1c01 | | Execute_Immediate Run_Utility,0x1
034f 01cc | | Execute Vector,Catenate
0350 e001 | | Load 0x0,0x1
0351 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0352 00d9 | | Load_Top At_Offset_1
0353 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0354 e5fe | | Load 0x2,-0x2
0355 016d | m | Execute Variant_Record,Structure_Write
0356 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0357 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x23 = 0x357,0x18
0358 e217 | | Load 0x1,0x17
0359 1c08 | | Execute_Immediate Run_Utility,0x8
035a 00d8 | | Load_Top At_Offset_0
035b 1c01 | | Execute_Immediate Run_Utility,0x1
035c e404 | | Load 0x2,0x4
035d 00d9 | | Load_Top At_Offset_1
035e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
035f 4800 |H | Short_Literal 0x0
0360 00d9 | | Load_Top At_Offset_1
0361 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0362 00d8 | | Load_Top At_Offset_0
0363 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0364 4801 |H | Short_Literal 0x1
0365 4814 |H | Short_Literal 0x14
0366 e002 | | Load 0x0,0x2
0367 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0368 0334 | 4 | Declare_Variable Array,With_Constraint
0369 4814 |H | Short_Literal 0x14
036a 4801 |H | Short_Literal 0x1
036b 4800 |H | Short_Literal 0x0
036c 00d9 | | Load_Top At_Offset_1
036d e413 | | Load 0x2,0x13
036e 01d6 | | Execute Vector,Field_Write
036f 3ffb |? | Loop_Increasing 0x36b
0370 e214 | | Load 0x1,0x14
0371 0119 | | Execute Any,Check_In_Formal_Type
0372 00d9 | | Load_Top At_Offset_1
0373 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0374 4800 |H | Short_Literal 0x0
0375 00d9 | | Load_Top At_Offset_1
0376 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0377 4801 |H | Short_Literal 0x1
0378 4814 |H | Short_Literal 0x14
0379 e002 | | Load 0x0,0x2
037a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
037b 0334 | 4 | Declare_Variable Array,With_Constraint
037c 4814 |H | Short_Literal 0x14
037d 4801 |H | Short_Literal 0x1
037e 4800 |H | Short_Literal 0x0
037f 00d9 | | Load_Top At_Offset_1
0380 e413 | | Load 0x2,0x13
0381 01d6 | | Execute Vector,Field_Write
0382 3ffb |? | Loop_Increasing 0x37e
0383 e215 | | Load 0x1,0x15
0384 0119 | | Execute Any,Check_In_Formal_Type
0385 00d9 | | Load_Top At_Offset_1
0386 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0387 4800 |H | Short_Literal 0x0
0388 00d0 | | Action Swap_Control
0389 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
038a e5fe | | Load 0x2,-0x2
038b 016d | m | Execute Variant_Record,Structure_Write
038c e40c | | Load 0x2,0xc ; Debug Table 0x9.0x24 = 0x38c,0x19
038d 7002 |p | Jump_Nonzero 0x390
038e 840f | | Call 0x2,0xf ; Debug Table 0x9.0x25 = 0x38e,0x1a
038f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0390 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x26 = 0x390,0x1b
0391 e217 | | Load 0x1,0x17
0392 1c08 | | Execute_Immediate Run_Utility,0x8
0393 00d8 | | Load_Top At_Offset_0
0394 1c01 | | Execute_Immediate Run_Utility,0x1
0395 4821 |H! | Short_Literal 0x21
0396 00d9 | | Load_Top At_Offset_1
0397 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0398 4802 |H | Short_Literal 0x2
0399 00d9 | | Load_Top At_Offset_1
039a 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
039b 4900 |I | Short_Literal 0x100
039c 0092 0a20 | | Action Push_String_Extended,0xa20 ; "501 Syntax error, Port info missing"
039e e001 | | Load 0x0,0x1
039f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03a0 00d9 | | Load_Top At_Offset_1
03a1 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
03a2 e5fe | | Load 0x2,-0x2
03a3 016d | m | Execute Variant_Record,Structure_Write
03a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a5 e40c | | Load 0x2,0xc ; Debug Table 0x9.0x27 = 0x3a5,0x1c
03a6 6806 |h | Jump_Zero 0x3ad
03a7 0092 0a21 | !| Action Push_String_Extended,0xa21 ; "TYPE command requires parameters."
; Debug Table 0x9.0x28 = 0x3a7,0x1d
03a9 8406 | | Call 0x2,0x6
03aa e5fe | | Load 0x2,-0x2
03ab 016d | m | Execute Variant_Record,Structure_Write
03ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ad 840d | | Call 0x2,0xd ; Debug Table 0x9.0x29 = 0x3ad,0x1e
03ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03af 4803 |H | Short_Literal 0x3 ; Debug Table 0x9.0x2a = 0x3af,0x1f
03b0 e217 | | Load 0x1,0x17
03b1 1c08 | | Execute_Immediate Run_Utility,0x8
03b2 00d8 | | Load_Top At_Offset_0
03b3 1c01 | | Execute_Immediate Run_Utility,0x1
03b4 e404 | | Load 0x2,0x4
03b5 00d9 | | Load_Top At_Offset_1
03b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03b7 4800 |H | Short_Literal 0x0
03b8 00d9 | | Load_Top At_Offset_1
03b9 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
03ba 4800 |H | Short_Literal 0x0
03bb 00d9 | | Load_Top At_Offset_1
03bc 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
03bd e5fe | | Load 0x2,-0x2
03be 016d | m | Execute Variant_Record,Structure_Write
03bf e40c | | Load 0x2,0xc ; Debug Table 0x9.0x2b = 0x3bf,0x20
03c0 704d |pM | Jump_Nonzero 0x40e
03c1 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x2c = 0x3c1,0x21
03c2 e40b | | Load 0x2,0xb
03c3 e40a | | Load 0x2,0xa
03c4 4820 |H | Short_Literal 0x20
03c5 8219 | | Call 0x1,0x19
03c6 00d2 | | Pop_Control Pop_Count_2
03c7 c40c | | Store 0x2,0xc
03c8 e40b | | Load 0x2,0xb ; Debug Table 0x9.0x2d = 0x3c8,0x22
03c9 e001 | | Load 0x0,0x1
03ca 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03cb 0f01 | | Execute_Immediate Equal,0x1
03cc e40c | | Load 0x2,0xc
03cd 0279 | y | Execute Discrete,And
03ce 682a |h* | Jump_Zero 0x3f9
03cf e40b | | Load 0x2,0xb ; Debug Table 0x9.0x2e = 0x3cf,0x23
03d0 8405 | | Call 0x2,0x5
03d1 0b46 | F | Execute_Immediate Case_Compare,0x46
03d2 7019 |p | Jump_Nonzero 0x3ec
03d3 0b50 | P | Execute_Immediate Case_Compare,0x50
03d4 701b |p | Jump_Nonzero 0x3f0
03d5 0b52 | R | Execute_Immediate Case_Compare,0x52
03d6 701d |p | Jump_Nonzero 0x3f4
03d7 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x2f = 0x3d7,0x27
03d8 e217 | | Load 0x1,0x17
03d9 1c08 | | Execute_Immediate Run_Utility,0x8
03da 00d8 | | Load_Top At_Offset_0
03db 1c01 | | Execute_Immediate Run_Utility,0x1
03dc 4821 |H! | Short_Literal 0x21
03dd 00d9 | | Load_Top At_Offset_1
03de 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03df 4802 |H | Short_Literal 0x2
03e0 00d9 | | Load_Top At_Offset_1
03e1 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
03e2 4900 |I | Short_Literal 0x100
03e3 0092 0a22 | "| Action Push_String_Extended,0xa22 ; "501 Unrecognized option for STRU command"
03e5 e001 | | Load 0x0,0x1
03e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e7 00d9 | | Load_Top At_Offset_1
03e8 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
03e9 e5fe | | Load 0x2,-0x2
03ea 016d | m | Execute Variant_Record,Structure_Write
03eb 780b |x | Jump 0x3f7
03ec 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x30 = 0x3ec,0x24
03ed e5fe | | Load 0x2,-0x2
03ee 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
03ef 7807 |x | Jump 0x3f7
03f0 4802 |H | Short_Literal 0x2 ; Debug Table 0x9.0x31 = 0x3f0,0x25
03f1 e5fe | | Load 0x2,-0x2
03f2 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
03f3 7803 |x | Jump 0x3f7
03f4 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x32 = 0x3f4,0x26
03f5 e5fe | | Load 0x2,-0x2
03f6 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
03f7 00d1 | | Pop_Control Pop_Count_1
03f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f9 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x33 = 0x3f9,0x28
03fa e217 | | Load 0x1,0x17
03fb 1c08 | | Execute_Immediate Run_Utility,0x8
03fc 00d8 | | Load_Top At_Offset_0
03fd 1c01 | | Execute_Immediate Run_Utility,0x1
03fe 4821 |H! | Short_Literal 0x21
03ff 00d9 | | Load_Top At_Offset_1
0400 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0401 4802 |H | Short_Literal 0x2
0402 00d9 | | Load_Top At_Offset_1
0403 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0404 4900 |I | Short_Literal 0x100
0405 0092 0a23 | #| Action Push_String_Extended,0xa23 ; "501 Syntax error, STRU option not single character"
0407 e001 | | Load 0x0,0x1
0408 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0409 00d9 | | Load_Top At_Offset_1
040a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
040b e5fe | | Load 0x2,-0x2
040c 016d | m | Execute Variant_Record,Structure_Write
040d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040e 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x34 = 0x40e,0x29
040f e217 | | Load 0x1,0x17
0410 1c08 | | Execute_Immediate Run_Utility,0x8
0411 00d8 | | Load_Top At_Offset_0
0412 1c01 | | Execute_Immediate Run_Utility,0x1
0413 4821 |H! | Short_Literal 0x21
0414 00d9 | | Load_Top At_Offset_1
0415 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0416 4802 |H | Short_Literal 0x2
0417 00d9 | | Load_Top At_Offset_1
0418 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0419 4900 |I | Short_Literal 0x100
041a 0092 0a24 | $| Action Push_String_Extended,0xa24 ; "501 Syntax error, STRU option is missing"
041c e001 | | Load 0x0,0x1
041d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
041e 00d9 | | Load_Top At_Offset_1
041f 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0420 e5fe | | Load 0x2,-0x2
0421 016d | m | Execute Variant_Record,Structure_Write
0422 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0423 4804 |H | Short_Literal 0x4 ; Debug Table 0x9.0x35 = 0x423,0x2a
0424 e217 | | Load 0x1,0x17
0425 1c08 | | Execute_Immediate Run_Utility,0x8
0426 00d8 | | Load_Top At_Offset_0
0427 1c01 | | Execute_Immediate Run_Utility,0x1
0428 e404 | | Load 0x2,0x4
0429 00d9 | | Load_Top At_Offset_1
042a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
042b 4800 |H | Short_Literal 0x0
042c 00d9 | | Load_Top At_Offset_1
042d 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
042e 4800 |H | Short_Literal 0x0
042f 00d9 | | Load_Top At_Offset_1
0430 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0431 e5fe | | Load 0x2,-0x2
0432 016d | m | Execute Variant_Record,Structure_Write
0433 e40c | | Load 0x2,0xc ; Debug Table 0x9.0x36 = 0x433,0x2b
0434 704d |pM | Jump_Nonzero 0x482
0435 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x37 = 0x435,0x2c
0436 e40b | | Load 0x2,0xb
0437 e40a | | Load 0x2,0xa
0438 4820 |H | Short_Literal 0x20
0439 8219 | | Call 0x1,0x19
043a 00d2 | | Pop_Control Pop_Count_2
043b c40c | | Store 0x2,0xc
043c e40b | | Load 0x2,0xb ; Debug Table 0x9.0x38 = 0x43c,0x2d
043d e001 | | Load 0x0,0x1
043e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
043f 0f01 | | Execute_Immediate Equal,0x1
0440 e40c | | Load 0x2,0xc
0441 0279 | y | Execute Discrete,And
0442 682a |h* | Jump_Zero 0x46d
0443 e40b | | Load 0x2,0xb ; Debug Table 0x9.0x39 = 0x443,0x2e
0444 8405 | | Call 0x2,0x5
0445 0b42 | B | Execute_Immediate Case_Compare,0x42
0446 7019 |p | Jump_Nonzero 0x460
0447 0b43 | C | Execute_Immediate Case_Compare,0x43
0448 701b |p | Jump_Nonzero 0x464
0449 0b53 | S | Execute_Immediate Case_Compare,0x53
044a 701d |p | Jump_Nonzero 0x468
044b 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x3a = 0x44b,0x32
044c e217 | | Load 0x1,0x17
044d 1c08 | | Execute_Immediate Run_Utility,0x8
044e 00d8 | | Load_Top At_Offset_0
044f 1c01 | | Execute_Immediate Run_Utility,0x1
0450 4821 |H! | Short_Literal 0x21
0451 00d9 | | Load_Top At_Offset_1
0452 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0453 4802 |H | Short_Literal 0x2
0454 00d9 | | Load_Top At_Offset_1
0455 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0456 4900 |I | Short_Literal 0x100
0457 0092 0a25 | %| Action Push_String_Extended,0xa25 ; "501 Unrecognized option for MODE command"
0459 e001 | | Load 0x0,0x1
045a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
045b 00d9 | | Load_Top At_Offset_1
045c 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
045d e5fe | | Load 0x2,-0x2
045e 016d | m | Execute Variant_Record,Structure_Write
045f 780b |x | Jump 0x46b
0460 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x3b = 0x460,0x2f
0461 e5fe | | Load 0x2,-0x2
0462 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0463 7807 |x | Jump 0x46b
0464 4802 |H | Short_Literal 0x2 ; Debug Table 0x9.0x3c = 0x464,0x30
0465 e5fe | | Load 0x2,-0x2
0466 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0467 7803 |x | Jump 0x46b
0468 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x3d = 0x468,0x31
0469 e5fe | | Load 0x2,-0x2
046a 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
046b 00d1 | | Pop_Control Pop_Count_1
046c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
046d 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x3e = 0x46d,0x33
046e e217 | | Load 0x1,0x17
046f 1c08 | | Execute_Immediate Run_Utility,0x8
0470 00d8 | | Load_Top At_Offset_0
0471 1c01 | | Execute_Immediate Run_Utility,0x1
0472 4821 |H! | Short_Literal 0x21
0473 00d9 | | Load_Top At_Offset_1
0474 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0475 4802 |H | Short_Literal 0x2
0476 00d9 | | Load_Top At_Offset_1
0477 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0478 4900 |I | Short_Literal 0x100
0479 0092 0a26 | &| Action Push_String_Extended,0xa26 ; "501 Syntax error, MODE option unrecognized"
047b e001 | | Load 0x0,0x1
047c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
047d 00d9 | | Load_Top At_Offset_1
047e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
047f e5fe | | Load 0x2,-0x2
0480 016d | m | Execute Variant_Record,Structure_Write
0481 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0482 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x3f = 0x482,0x34
0483 e217 | | Load 0x1,0x17
0484 1c08 | | Execute_Immediate Run_Utility,0x8
0485 00d8 | | Load_Top At_Offset_0
0486 1c01 | | Execute_Immediate Run_Utility,0x1
0487 4821 |H! | Short_Literal 0x21
0488 00d9 | | Load_Top At_Offset_1
0489 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
048a 4802 |H | Short_Literal 0x2
048b 00d9 | | Load_Top At_Offset_1
048c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
048d 4900 |I | Short_Literal 0x100
048e 0092 0a27 | '| Action Push_String_Extended,0xa27 ; "501 Syntax error, MODE option is missing"
0490 e001 | | Load 0x0,0x1
0491 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0492 00d9 | | Load_Top At_Offset_1
0493 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0494 e5fe | | Load 0x2,-0x2
0495 016d | m | Execute Variant_Record,Structure_Write
0496 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0497 8410 | | Call 0x2,0x10 ; Debug Table 0x9.0x40 = 0x497,0x35
0498 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0499 e40c | | Load 0x2,0xc ; Debug Table 0x9.0x41 = 0x499,0x36
049a 680e |h | Jump_Zero 0x4a9
049b 4806 |H | Short_Literal 0x6 ; Debug Table 0x9.0x42 = 0x49b,0x37
049c e217 | | Load 0x1,0x17
049d 1c08 | | Execute_Immediate Run_Utility,0x8
049e 00d8 | | Load_Top At_Offset_0
049f 1c01 | | Execute_Immediate Run_Utility,0x1
04a0 e404 | | Load 0x2,0x4
04a1 00d9 | | Load_Top At_Offset_1
04a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04a3 4800 |H | Short_Literal 0x0
04a4 00d9 | | Load_Top At_Offset_1
04a5 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
04a6 e5fe | | Load 0x2,-0x2
04a7 016d | m | Execute Variant_Record,Structure_Write
04a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04a9 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x43 = 0x4a9,0x38
04aa e217 | | Load 0x1,0x17
04ab 1c08 | | Execute_Immediate Run_Utility,0x8
04ac 00d8 | | Load_Top At_Offset_0
04ad 1c01 | | Execute_Immediate Run_Utility,0x1
04ae 4821 |H! | Short_Literal 0x21
04af 00d9 | | Load_Top At_Offset_1
04b0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04b1 4802 |H | Short_Literal 0x2
04b2 00d9 | | Load_Top At_Offset_1
04b3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
04b4 4900 |I | Short_Literal 0x100
04b5 0092 0a28 | (| Action Push_String_Extended,0xa28 ; "501 Syntax error, Not expecting parameter for "
04b7 e404 | | Load 0x2,0x4
04b8 e20d | | Load 0x1,0xd
04b9 025e | ^ | Execute Discrete,Convert
04ba 1c01 | | Execute_Immediate Run_Utility,0x1
04bb 01cc | | Execute Vector,Catenate
04bc e001 | | Load 0x0,0x1
04bd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04be 00d9 | | Load_Top At_Offset_1
04bf 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04c0 e5fe | | Load 0x2,-0x2
04c1 016d | m | Execute Variant_Record,Structure_Write
04c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04c3 TRAP_01f0:
04c3 0007 | | Action Break_Optional
04c4 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x44 = 0x4c4,0x3a
04c5 e217 | | Load 0x1,0x17
04c6 1c08 | | Execute_Immediate Run_Utility,0x8
04c7 00d8 | | Load_Top At_Offset_0
04c8 1c01 | | Execute_Immediate Run_Utility,0x1
04c9 4821 |H! | Short_Literal 0x21
04ca 00d9 | | Load_Top At_Offset_1
04cb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04cc 4802 |H | Short_Literal 0x2
04cd 00d9 | | Load_Top At_Offset_1
04ce 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
04cf 0092 0a29 | )| Action Push_String_Extended,0xa29 ; "501 ERROR occured parsing command"
04d1 e001 | | Load 0x0,0x1
04d2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04d3 00d9 | | Load_Top At_Offset_1
04d4 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
04d5 e5fe | | Load 0x2,-0x2
04d6 016d | m | Execute Variant_Record,Structure_Write
04d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d8 0000 0000 | | .XXX[0x3]
04da 0000 | |
04db 0bb6 0000 | | .XXX[0x8]
04dd 0000 0037 | 7|
04df 0074 0000 | t |
04e1 0000 003c | <|
04e3 0000 0000 | | .BLANK 0000[0x5]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ed | | .CONST 0x04ed ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0002 | | .CONST 0x0002 ; Number of locals
04eb INIT_04e8:
04eb 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call ; Debug Table 0xa = .DEBUG 0x04eb,0x1002,0x0002,0x0000,0x0036,0xff64,0x0000,0x0150
04ed BODY_04e8:
04ed 8402 | | Call 0x2,0x2 ; Debug Table 0xa.0x0 = 0x4ed,0x1
04ee 4831 |H1 | Short_Literal 0x31
04ef 0257 | W | Execute Discrete,Raise
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04fd | | .CONST 0x04fd ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0005 | | .CONST 0x0005 ; Number of locals
04f3 INIT_04f0:
04f3 00db | | Load_Top At_Offset_3 ; Debug Table 0xb = .DEBUG 0x04f3,0x1006,0x0001,0x0000,0x0036,0xff64,0x0000,0x0159
; Debug Table 0xb.0x0 = 0x4f3,0xffff
04f4 e223 | # | Load 0x1,0x23
04f5 01cc | | Execute Vector,Catenate
04f6 e006 | | Load 0x0,0x6
04f7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04f8 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x1 = 0x4f8,0xfffe
04f9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04fa 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xb.0x2 = 0x4fa,0xfffd
04fb 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xb.0x3 = 0x4fb,0xfffc
04fc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04fd BODY_04f0:
04fd 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x4 = 0x4fd,0x1
04fe a5fd | | Store_Unchecked 0x2,-0x3
04ff 00cf | | Action Mark_Auxiliary
0500 4805 |H | Short_Literal 0x5 ; Debug Table 0xb.0x5 = 0x500,0x2
0501 4800 |H | Short_Literal 0x0
0502 0007 | | Action Break_Optional
0503 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xb.0x6 = 0x503,0x3
0504 e002 | | Load 0x0,0x2
0505 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0506 4800 |H | Short_Literal 0x0
0507 e224 | $ | Load 0x1,0x24
0508 e402 | | Load 0x2,0x2
0509 01dd | | Execute Vector,First
050a e405 | | Load 0x2,0x5
050b 0273 | s | Execute Discrete,Plus
050c 0248 | H | Execute Discrete,Check_In_Integer
050d e402 | | Load 0x2,0x2
050e 01dc | | Execute Vector,Last
050f e402 | | Load 0x2,0x2
0510 01cf | | Execute Vector,Slice_Read
0511 e5ff | | Load 0x2,-0x1
0512 e007 | | Load 0x0,0x7
0513 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0514 c403 | | Store 0x2,0x3
0515 c404 | | Store 0x2,0x4
0516 e403 | | Load 0x2,0x3 ; Debug Table 0xb.0x7 = 0x516,0x4
0517 8227 | ' | Call 0x1,0x27
0518 6802 |h | Jump_Zero 0x51b
0519 00d2 | | Pop_Control Pop_Count_2
051a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
051b 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x8 = 0x51b,0x5
051c e404 | | Load 0x2,0x4
051d 0273 | s | Execute Discrete,Plus
051e c405 | | Store 0x2,0x5
051f 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x9 = 0x51f,0x6
0520 e402 | | Load 0x2,0x2
0521 01db | | Execute Vector,Length
0522 027b | { | Execute Discrete,Greater_Equal
0523 6804 |h | Jump_Zero 0x528
0524 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0xa = 0x524,0x7
0525 a5fd | | Store_Unchecked 0x2,-0x3
0526 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0xb.0xb = 0x526,0x8
0527 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0528 00c8 | | Action Pop_Auxiliary_Range
0529 3fd9 |? | Loop_Increasing 0x503
052a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
052b 0000 0000 | | .BLANK 0000[0x5]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 4900 |I | Short_Literal 0x100 ; Debug Table 0xc = .DEBUG 0x0533,0x1020,0x0002,0x0000,0x0036,0xff64,0x0000,0x016b
; Debug Table 0xc.0x0 = 0x533,0x1
0534 00db | | Load_Top At_Offset_3
0535 e001 | | Load 0x0,0x1
0536 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0537 e213 | | Load 0x1,0x13
0538 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0539 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053a 0000 0000 | | .BLANK 0000[0x6]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543 | C | .CONST 0x0543 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0001 | | .CONST 0x0001 ; Number of locals
0543 BODY_0540:
0543 INIT_0540:
0543 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0543,0x1024,0x0002,0x0000,0x0036,0xff64,0x0000,0x0174
; Debug Table 0xd.0x0 = 0x543,0x1
0544 e001 | | Load 0x0,0x1
0545 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0546 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0547 0000 | | .XXX[0x1]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 054c | L | .CONST 0x054c ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0002 | | .CONST 0x0002 ; Number of locals
054b INIT_0548:
054b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe = .DEBUG 0x054b,0x1028,0x0001,0x0000,0x0036,0xff64,0x0000,0x017d
; Debug Table 0xe.0x0 = 0x54b,0xffff
054c BODY_0548:
054c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x1 = 0x54c,0x1
054d 0092 0a2a | *| Action Push_String_Extended,0xa2a ; "211- The following commands are accepted"
054f e5ff | | Load 0x2,-0x1
0550 821c | | Call 0x1,0x1c
0551 0059 | Y | Store_Top Discrete,At_Offset_1
0552 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x2 = 0x552,0x2
0553 7003 |p | Jump_Nonzero 0x557
0554 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x3 = 0x554,0x3
0555 a5fe | | Store_Unchecked 0x2,-0x2
0556 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xe.0x4 = 0x556,0x4
0557 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x5 = 0x557,0x5
0558 0092 0a2b | +| Action Push_String_Extended,0xa2b ; "211- (* - not implemented # - only accepted at login)"
055a e5ff | | Load 0x2,-0x1
055b 821c | | Call 0x1,0x1c
055c 0059 | Y | Store_Top Discrete,At_Offset_1
055d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x6 = 0x55d,0x6
055e 7003 |p | Jump_Nonzero 0x562
055f 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x7 = 0x55f,0x7
0560 a5fe | | Store_Unchecked 0x2,-0x2
0561 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xe.0x8 = 0x561,0x8
0562 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x9 = 0x562,0x9
0563 0092 0a2c | ,| Action Push_String_Extended,0xa2c ; "211- USER# PORT RETR MSND* ALLO* DELE* STAT"
0565 e5ff | | Load 0x2,-0x1
0566 821c | | Call 0x1,0x1c
0567 0059 | Y | Store_Top Discrete,At_Offset_1
0568 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0xa = 0x568,0xa
0569 7003 |p | Jump_Nonzero 0x56d
056a 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0xb = 0x56a,0xb
056b a5fe | | Store_Unchecked 0x2,-0x2
056c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xe.0xc = 0x56c,0xc
056d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0xd = 0x56d,0xd
056e 0092 0a2d | -| Action Push_String_Extended,0xa2d ; "211- PASS# PASV* STOR MSOM* REST* CWD HELP"
0570 e5ff | | Load 0x2,-0x1
0571 821c | | Call 0x1,0x1c
0572 0059 | Y | Store_Top Discrete,At_Offset_1
0573 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0xe = 0x573,0xe
0574 7003 |p | Jump_Nonzero 0x578
0575 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0xf = 0x575,0xf
0576 a5fe | | Store_Unchecked 0x2,-0x2
0577 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xe.0x10 = 0x577,0x10
0578 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x11 = 0x578,0x11
0579 0092 0a2e | .| Action Push_String_Extended,0xa2e ; "211- ACCT* TYPE APPE MSAM* RNFR* LIST NOOP"
057b e5ff | | Load 0x2,-0x1
057c 821c | | Call 0x1,0x1c
057d 0059 | Y | Store_Top Discrete,At_Offset_1
057e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x12 = 0x57e,0x12
057f 7003 |p | Jump_Nonzero 0x583
0580 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x13 = 0x580,0x13
0581 a5fe | | Store_Unchecked 0x2,-0x2
0582 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xe.0x14 = 0x582,0x14
0583 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x15 = 0x583,0x15
0584 0092 0a2f | /| Action Push_String_Extended,0xa2f ; "211- REIN* STRU MLFL* MRSQ* RNTO* NLST"
0586 e5ff | | Load 0x2,-0x1
0587 821c | | Call 0x1,0x1c
0588 0059 | Y | Store_Top Discrete,At_Offset_1
0589 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x16 = 0x589,0x16
058a 7003 |p | Jump_Nonzero 0x58e
058b 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x17 = 0x58b,0x17
058c a5fe | | Store_Unchecked 0x2,-0x2
058d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xe.0x18 = 0x58d,0x18
058e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x19 = 0x58e,0x19
058f 0092 0a30 | 0| Action Push_String_Extended,0xa30 ; "211- QUIT MODE MAIL* MRCP* ABOR* SITE"
0591 e5ff | | Load 0x2,-0x1
0592 821c | | Call 0x1,0x1c
0593 0059 | Y | Store_Top Discrete,At_Offset_1
0594 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x1a = 0x594,0x1a
0595 7003 |p | Jump_Nonzero 0x599
0596 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x1b = 0x596,0x1b
0597 a5fe | | Store_Unchecked 0x2,-0x2
0598 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xe.0x1c = 0x598,0x1c
0599 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x1d = 0x599,0x1d
059a 0092 0a31 | 1| Action Push_String_Extended,0xa31 ; "211 "
059c e5ff | | Load 0x2,-0x1
059d 821c | | Call 0x1,0x1c
059e 0059 | Y | Store_Top Discrete,At_Offset_1
059f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x1e = 0x59f,0x1e
05a0 a5fe | | Store_Unchecked 0x2,-0x2
05a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05a2 0000 0000 | | .BLANK 0000[0x6]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b6 | | .CONST 0x05b6 ; Address of begin
05a9 05e3 | | .CONST 0x05e3 ; Address of exception handler
05aa 0005 | | .CONST 0x0005 ; Number of locals
05ab INIT_05a8:
05ab e008 | | Load 0x0,0x8 ; Debug Table 0xf = .DEBUG 0x05ab,0x1068,0x0001,0x0000,0x0036,0xff64,0x0000,0x018b
; Debug Table 0xf.0x0 = 0x5ab,0xffff
05ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ad e008 | | Load 0x0,0x8 ; Debug Table 0xf.0x1 = 0x5ad,0xfffe
05ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05af 02c7 | | Declare_Variable Any
05b0 00d8 | | Load_Top At_Offset_0
05b1 1c00 | | Execute_Immediate Run_Utility,0x0
05b2 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0x2 = 0x5b2,0xfffd
05b3 821e | | Call 0x1,0x1e
05b4 e228 | ( | Load 0x1,0x28 ; Debug Table 0xf.0x3 = 0x5b4,0xfffc
05b5 0322 | " | Declare_Variable Record
05b6 BODY_05a8:
05b6 e5fd | | Load 0x2,-0x3 ; Debug Table 0xf.0x4 = 0x5b6,0x1
05b7 00d9 | | Load_Top At_Offset_1
05b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05b9 e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0x5 = 0x5b9,0x2
05ba 01db | | Execute Vector,Length
05bb 00d9 | | Load_Top At_Offset_1
05bc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05bd e5fc | | Load 0x2,-0x4 ; Debug Table 0xf.0x6 = 0x5bd,0x3
05be 4801 |H | Short_Literal 0x1
05bf 00da | | Load_Top At_Offset_2
05c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05c1 00db | | Load_Top At_Offset_3
05c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05c3 01ce | | Execute Vector,Slice_Write
05c4 e005 | | Load 0x0,0x5 ; Debug Table 0xf.0x7 = 0x5c4,0x4
05c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05c6 4800 |H | Short_Literal 0x0
05c7 4800 |H | Short_Literal 0x0
05c8 00ea | | Load_Encached Null_String_Cache
05c9 e5fe | | Load 0x2,-0x2
05ca 821e | | Call 0x1,0x1e
05cb e404 | | Load 0x2,0x4
05cc 00ea | | Load_Encached Null_String_Cache
05cd 00ea | | Load_Encached Null_String_Cache
05ce 00ea | | Load_Encached Null_String_Cache
05cf e009 | | Load 0x0,0x9
05d0 180f | | Execute Package,Field_Execute,Field_Number 0xf
05d1 4800 |H | Short_Literal 0x0
05d2 e404 | | Load 0x2,0x4
05d3 e00a | | Load 0x0,0xa
05d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05d5 e00b | | Load 0x0,0xb
05d6 180e | | Execute Package,Field_Execute,Field_Number 0xe
05d7 e404 | | Load 0x2,0x4
05d8 e5fd | | Load 0x2,-0x3
05d9 822b | + | Call 0x1,0x2b
05da e405 | | Load 0x2,0x5
05db e22a | * | Load 0x1,0x2a
05dc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05dd c402 | | Store 0x2,0x2
05de 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x8 = 0x5de,0x5
05df a5fb | | Store_Unchecked 0x2,-0x5
05e0 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x9 = 0x5e0,0x6
05e1 a5fa | | Store_Unchecked 0x2,-0x6
05e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05e3 TRAP_05a8:
05e3 0007 | | Action Break_Optional
05e4 4800 |H | Short_Literal 0x0 ; Debug Table 0xf.0xa = 0x5e4,0x7
05e5 a5fb | | Store_Unchecked 0x2,-0x5
05e6 4800 |H | Short_Literal 0x0 ; Debug Table 0xf.0xb = 0x5e6,0x8
05e7 a5fa | | Store_Unchecked 0x2,-0x6
05e8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05e9 0000 0000 | | .BLANK 0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f5 | | .CONST 0x05f5 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 e216 | | Load 0x1,0x16 ; Debug Table 0x10 = .DEBUG 0x05f3,0x1082,0x0002,0x0000,0x0036,0xff64,0x0000,0x01a9
; Debug Table 0x10.0x0 = 0x5f3,0xffff
05f4 0322 | " | Declare_Variable Record
05f5 BODY_05f0:
05f5 00db | | Load_Top At_Offset_3 ; Debug Table 0x10.0x1 = 0x5f5,0x1
05f6 4801 |H | Short_Literal 0x1
05f7 e5ff | | Load 0x2,-0x1
05f8 01db | | Execute Vector,Length
05f9 00db | | Load_Top At_Offset_3
05fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05fb 01ce | | Execute Vector,Slice_Write
05fc 00db | | Load_Top At_Offset_3 ; Debug Table 0x10.0x2 = 0x5fc,0x2
05fd 01db | | Execute Vector,Length
05fe 00d9 | | Load_Top At_Offset_1
05ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0600 e5fe | | Load 0x2,-0x2 ; Debug Table 0x10.0x3 = 0x600,0x3
0601 4801 |H | Short_Literal 0x1
0602 e5fe | | Load 0x2,-0x2
0603 01db | | Execute Vector,Length
0604 00db | | Load_Top At_Offset_3
0605 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0606 01ce | | Execute Vector,Slice_Write
0607 e5fe | | Load 0x2,-0x2 ; Debug Table 0x10.0x4 = 0x607,0x4
0608 01db | | Execute Vector,Length
0609 00d9 | | Load_Top At_Offset_1
060a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
060b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x5 = 0x60b,0x5
060c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
060d 0000 0000 | | .XXX[0x3]
060f 0000 | |
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 061c | | .CONST 0x061c ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0002 | | .CONST 0x0002 ; Number of locals
0613 INIT_0610:
0613 4801 |H | Short_Literal 0x1 ; Debug Table 0x11 = .DEBUG 0x0613,0x1090,0x0002,0x0000,0x0036,0xff64,0x0000,0x01ba
; Debug Table 0x11.0x0 = 0x613,0xffff
0614 00db | | Load_Top At_Offset_3
0615 01db | | Execute Vector,Length
0616 e002 | | Load 0x0,0x2
0617 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0618 0334 | 4 | Declare_Variable Array,With_Constraint
0619 00db | | Load_Top At_Offset_3
061a 00d9 | | Load_Top At_Offset_1
061b 01d4 | | Execute Vector,Structure_Write
061c BODY_0610:
061c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x1 = 0x61c,0x1
061d 01dc | | Execute Vector,Last
061e 00d9 | | Load_Top At_Offset_1
061f 01d7 | | Execute Vector,Field_Read
0620 0aff | | Execute_Immediate Plus,-0x1
0621 00d9 | | Load_Top At_Offset_1
0622 01dc | | Execute Vector,Last
0623 00da | | Load_Top At_Offset_2
0624 01d6 | | Execute Vector,Field_Write
0625 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x2 = 0x625,0x2
0626 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0627 0000 | | .XXX[0x1]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b | + | .CONST 0x062b ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0001 | | .CONST 0x0001 ; Number of locals
062b BODY_0628:
062b INIT_0628:
062b 00da | | Load_Top At_Offset_2 ; Debug Table 0x12 = .DEBUG 0x062b,0x1098,0x0002,0x0000,0x0037,0x0074,0x0000,0x0a1f
; Debug Table 0x12.0x0 = 0x62b,0x1
062c 6803 |h | Jump_Zero 0x630
062d 00da | | Load_Top At_Offset_2
062e 0f07 | | Execute_Immediate Equal,0x7
062f 7801 |x | Jump 0x631
0630 4801 |H | Short_Literal 0x1
0631 0f00 | | Execute_Immediate Equal,0x0
0632 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0633 0000 0000 | | .BLANK 0000[0x5]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 4801 |H | Short_Literal 0x1 ; Debug Table 0x13 = .DEBUG 0x063b,0x109c,0x0001,0x0000,0x0037,0x0074,0x0000,0x0b95
; Debug Table 0x13.0x0 = 0x63b,0x1
063c 00db | | Load_Top At_Offset_3
063d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
063e e5ff | | Load 0x2,-0x1
063f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0640 01cf | | Execute Vector,Slice_Read
0641 00db | | Load_Top At_Offset_3
0642 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0643 e00c | | Load 0x0,0xc
0644 180d | | Execute Package,Field_Execute,Field_Number 0xd
0645 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0646 0000 0000 | | .XXX[0x2]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 0092 0a32 | 2| Action Push_String_Extended,0xa32 ; "Ftp Server Session"
; Debug Table 0x14 = .DEBUG 0x064b,0x10a0,0x0002,0x0000,0x0037,0x0074,0x0000,0x0bbf
; Debug Table 0x14.0x0 = 0x64b,0x1
064d 00db | | Load_Top At_Offset_3
064e 00e0 | | Load_Encached Standard_Cache
064f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0650 01cc | | Execute Vector,Catenate
0651 0092 0a33 | 3| Action Push_String_Extended,0xa33 ; " "
0653 01cc | | Execute Vector,Catenate
0654 e5fe | | Load 0x2,-0x2
0655 01cc | | Execute Vector,Catenate
0656 00ea | | Load_Encached Null_String_Cache
0657 01cc | | Execute Vector,Catenate
0658 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0659 0000 0000 | | .BLANK 0000[0x7]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 4801 |H | Short_Literal 0x1 ; Debug Table 0x15 = .DEBUG 0x0663,0x10a4,0x0002,0x0000,0x0037,0x0074,0x0000,0x00fa
; Debug Table 0x15.0x0 = 0x663,0x1
0664 00db | | Load_Top At_Offset_3
0665 e001 | | Load 0x0,0x1
0666 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0667 e00d | | Load 0x0,0xd
0668 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0669 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
066a 0000 0000 | | .BLANK 0000[0x6]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 4800 |H | Short_Literal 0x0 ; Debug Table 0x16 = .DEBUG 0x0673,0x10a8,0x0002,0x0000,0x0037,0x0074,0x0000,0x0116
; Debug Table 0x16.0x0 = 0x673,0x1
0674 e217 | | Load 0x1,0x17
0675 1c08 | | Execute_Immediate Run_Utility,0x8
0676 00d8 | | Load_Top At_Offset_0
0677 1c01 | | Execute_Immediate Run_Utility,0x1
0678 4821 |H! | Short_Literal 0x21
0679 00d9 | | Load_Top At_Offset_1
067a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
067b 4802 |H | Short_Literal 0x2
067c 00d9 | | Load_Top At_Offset_1
067d 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
067e 4900 |I | Short_Literal 0x100
067f 0092 0a34 | 4| Action Push_String_Extended,0xa34 ; "501 "
0681 e7ff | | Load 0x3,-0x1
0682 01cc | | Execute Vector,Catenate
0683 e001 | | Load 0x0,0x1
0684 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0685 00d9 | | Load_Top At_Offset_1
0686 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0687 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068b | | .CONST 0x068b ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0001 | | .CONST 0x0001 ; Number of locals
068b BODY_0688:
068b INIT_0688:
068b 00da | | Load_Top At_Offset_2 ; Debug Table 0x17 = .DEBUG 0x068b,0x10ac,0x0001,0x0000,0x0037,0x0074,0x0000,0x013f
; Debug Table 0x17.0x0 = 0x68b,0x1
068c 0b41 | A | Execute_Immediate Case_Compare,0x41
068d 701b |p | Jump_Nonzero 0x6a9
068e 0b45 | E | Execute_Immediate Case_Compare,0x45
068f 702a |p* | Jump_Nonzero 0x6ba
0690 0b49 | I | Execute_Immediate Case_Compare,0x49
0691 7039 |p9 | Jump_Nonzero 0x6cb
0692 0b4c | L | Execute_Immediate Case_Compare,0x4c
0693 7048 |pH | Jump_Nonzero 0x6dc
0694 4800 |H | Short_Literal 0x0 ; Debug Table 0x17.0x1 = 0x694,0x6
0695 e217 | | Load 0x1,0x17
0696 1c08 | | Execute_Immediate Run_Utility,0x8
0697 00d8 | | Load_Top At_Offset_0
0698 1c01 | | Execute_Immediate Run_Utility,0x1
0699 4821 |H! | Short_Literal 0x21
069a 00d9 | | Load_Top At_Offset_1
069b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
069c 4802 |H | Short_Literal 0x2
069d 00d9 | | Load_Top At_Offset_1
069e 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
069f 4900 |I | Short_Literal 0x100
06a0 0092 0a35 | 5| Action Push_String_Extended,0xa35 ; "501 Unrecognized option for TYPE command"
06a2 e001 | | Load 0x0,0x1
06a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06a4 00d9 | | Load_Top At_Offset_1
06a5 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
06a6 e7fe | | Load 0x3,-0x2
06a7 016d | m | Execute Variant_Record,Structure_Write
06a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06a9 4802 |H | Short_Literal 0x2 ; Debug Table 0x17.0x2 = 0x6a9,0x2
06aa e217 | | Load 0x1,0x17
06ab 1c08 | | Execute_Immediate Run_Utility,0x8
06ac 00d8 | | Load_Top At_Offset_0
06ad 1c01 | | Execute_Immediate Run_Utility,0x1
06ae e404 | | Load 0x2,0x4
06af 00d9 | | Load_Top At_Offset_1
06b0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06b1 4800 |H | Short_Literal 0x0
06b2 00d9 | | Load_Top At_Offset_1
06b3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
06b4 4800 |H | Short_Literal 0x0
06b5 00d9 | | Load_Top At_Offset_1
06b6 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
06b7 e7fe | | Load 0x3,-0x2
06b8 016d | m | Execute Variant_Record,Structure_Write
06b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06ba 4802 |H | Short_Literal 0x2 ; Debug Table 0x17.0x3 = 0x6ba,0x3
06bb e217 | | Load 0x1,0x17
06bc 1c08 | | Execute_Immediate Run_Utility,0x8
06bd 00d8 | | Load_Top At_Offset_0
06be 1c01 | | Execute_Immediate Run_Utility,0x1
06bf e404 | | Load 0x2,0x4
06c0 00d9 | | Load_Top At_Offset_1
06c1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06c2 4800 |H | Short_Literal 0x0
06c3 00d9 | | Load_Top At_Offset_1
06c4 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
06c5 4801 |H | Short_Literal 0x1
06c6 00d9 | | Load_Top At_Offset_1
06c7 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
06c8 e7fe | | Load 0x3,-0x2
06c9 016d | m | Execute Variant_Record,Structure_Write
06ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06cb 4802 |H | Short_Literal 0x2 ; Debug Table 0x17.0x4 = 0x6cb,0x4
06cc e217 | | Load 0x1,0x17
06cd 1c08 | | Execute_Immediate Run_Utility,0x8
06ce 00d8 | | Load_Top At_Offset_0
06cf 1c01 | | Execute_Immediate Run_Utility,0x1
06d0 e404 | | Load 0x2,0x4
06d1 00d9 | | Load_Top At_Offset_1
06d2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06d3 4800 |H | Short_Literal 0x0
06d4 00d9 | | Load_Top At_Offset_1
06d5 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
06d6 4802 |H | Short_Literal 0x2
06d7 00d9 | | Load_Top At_Offset_1
06d8 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
06d9 e7fe | | Load 0x3,-0x2
06da 016d | m | Execute Variant_Record,Structure_Write
06db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06dc 4802 |H | Short_Literal 0x2 ; Debug Table 0x17.0x5 = 0x6dc,0x5
06dd e217 | | Load 0x1,0x17
06de 1c08 | | Execute_Immediate Run_Utility,0x8
06df 00d8 | | Load_Top At_Offset_0
06e0 1c01 | | Execute_Immediate Run_Utility,0x1
06e1 e404 | | Load 0x2,0x4
06e2 00d9 | | Load_Top At_Offset_1
06e3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
06e4 4800 |H | Short_Literal 0x0
06e5 00d9 | | Load_Top At_Offset_1
06e6 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
06e7 4805 |H | Short_Literal 0x5
06e8 00d9 | | Load_Top At_Offset_1
06e9 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
06ea e7fe | | Load 0x3,-0x2
06eb 016d | m | Execute Variant_Record,Structure_Write
06ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06ed 0000 0000 | | .XXX[0x3]
06ef 0000 | |
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 00db | | Load_Top At_Offset_3 ; Debug Table 0x18 = .DEBUG 0x06f3,0x10ba,0x0001,0x0000,0x0037,0x0074,0x0000,0x01d3
; Debug Table 0x18.0x0 = 0x6f3,0x1
06f4 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
06f5 7029 |p) | Jump_Nonzero 0x71f
06f6 00da | | Load_Top At_Offset_2 ; Debug Table 0x18.0x1 = 0x6f6,0x2
06f7 0b4e | N | Execute_Immediate Case_Compare,0x4e
06f8 7019 |p | Jump_Nonzero 0x712
06f9 0b54 | T | Execute_Immediate Case_Compare,0x54
06fa 701b |p | Jump_Nonzero 0x716
06fb 0b43 | C | Execute_Immediate Case_Compare,0x43
06fc 701d |p | Jump_Nonzero 0x71a
06fd 4800 |H | Short_Literal 0x0 ; Debug Table 0x18.0x2 = 0x6fd,0x6
06fe e217 | | Load 0x1,0x17
06ff 1c08 | | Execute_Immediate Run_Utility,0x8
0700 00d8 | | Load_Top At_Offset_0
0701 1c01 | | Execute_Immediate Run_Utility,0x1
0702 4821 |H! | Short_Literal 0x21
0703 00d9 | | Load_Top At_Offset_1
0704 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0705 4802 |H | Short_Literal 0x2
0706 00d9 | | Load_Top At_Offset_1
0707 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0708 4900 |I | Short_Literal 0x100
0709 0092 0a36 | 6| Action Push_String_Extended,0xa36 ; "501 Unrecognized FORM value for ASCII TYPE "
070b e001 | | Load 0x0,0x1
070c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
070d 00d9 | | Load_Top At_Offset_1
070e 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
070f e7fe | | Load 0x3,-0x2
0710 016d | m | Execute Variant_Record,Structure_Write
0711 780b |x | Jump 0x71d
0712 4800 |H | Short_Literal 0x0 ; Debug Table 0x18.0x3 = 0x712,0x3
0713 e7fe | | Load 0x3,-0x2
0714 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0715 7807 |x | Jump 0x71d
0716 4808 |H | Short_Literal 0x8 ; Debug Table 0x18.0x4 = 0x716,0x4
0717 e7fe | | Load 0x3,-0x2
0718 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0719 7803 |x | Jump 0x71d
071a 4806 |H | Short_Literal 0x6 ; Debug Table 0x18.0x5 = 0x71a,0x5
071b e7fe | | Load 0x3,-0x2
071c 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
071d 00d1 | | Pop_Control Pop_Count_1
071e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
071f 00db | | Load_Top At_Offset_3 ; Debug Table 0x18.0x6 = 0x71f,0x7
0720 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0721 0f01 | | Execute_Immediate Equal,0x1
0722 6829 |h) | Jump_Zero 0x74c
0723 00da | | Load_Top At_Offset_2 ; Debug Table 0x18.0x7 = 0x723,0x8
0724 0b4e | N | Execute_Immediate Case_Compare,0x4e
0725 7019 |p | Jump_Nonzero 0x73f
0726 0b54 | T | Execute_Immediate Case_Compare,0x54
0727 701b |p | Jump_Nonzero 0x743
0728 0b43 | C | Execute_Immediate Case_Compare,0x43
0729 701d |p | Jump_Nonzero 0x747
072a 4800 |H | Short_Literal 0x0 ; Debug Table 0x18.0x8 = 0x72a,0xc
072b e217 | | Load 0x1,0x17
072c 1c08 | | Execute_Immediate Run_Utility,0x8
072d 00d8 | | Load_Top At_Offset_0
072e 1c01 | | Execute_Immediate Run_Utility,0x1
072f 4821 |H! | Short_Literal 0x21
0730 00d9 | | Load_Top At_Offset_1
0731 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0732 4802 |H | Short_Literal 0x2
0733 00d9 | | Load_Top At_Offset_1
0734 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0735 4900 |I | Short_Literal 0x100
0736 0092 0a37 | 7| Action Push_String_Extended,0xa37 ; "501 Unrecognized FORM value for EBCDIC TYPE "
0738 e001 | | Load 0x0,0x1
0739 1815 | | Execute Package,Field_Execute,Field_Number 0x15
073a 00d9 | | Load_Top At_Offset_1
073b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
073c e7fe | | Load 0x3,-0x2
073d 016d | m | Execute Variant_Record,Structure_Write
073e 780b |x | Jump 0x74a
073f 4801 |H | Short_Literal 0x1 ; Debug Table 0x18.0x9 = 0x73f,0x9
0740 e7fe | | Load 0x3,-0x2
0741 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0742 7807 |x | Jump 0x74a
0743 4809 |H | Short_Literal 0x9 ; Debug Table 0x18.0xa = 0x743,0xa
0744 e7fe | | Load 0x3,-0x2
0745 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0746 7803 |x | Jump 0x74a
0747 4807 |H | Short_Literal 0x7 ; Debug Table 0x18.0xb = 0x747,0xb
0748 e7fe | | Load 0x3,-0x2
0749 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
074a 00d1 | | Pop_Control Pop_Count_1
074b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
074c 4800 |H | Short_Literal 0x0 ; Debug Table 0x18.0xc = 0x74c,0xd
074d e217 | | Load 0x1,0x17
074e 1c08 | | Execute_Immediate Run_Utility,0x8
074f 00d8 | | Load_Top At_Offset_0
0750 1c01 | | Execute_Immediate Run_Utility,0x1
0751 4821 |H! | Short_Literal 0x21
0752 00d9 | | Load_Top At_Offset_1
0753 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0754 4802 |H | Short_Literal 0x2
0755 00d9 | | Load_Top At_Offset_1
0756 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0757 4900 |I | Short_Literal 0x100
0758 0092 0a38 | 8| Action Push_String_Extended,0xa38 ; "501 Unrecognized parameter in TYPE command"
075a e001 | | Load 0x0,0x1
075b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
075c 00d9 | | Load_Top At_Offset_1
075d 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
075e e7fe | | Load 0x3,-0x2
075f 016d | m | Execute Variant_Record,Structure_Write
0760 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0761 0000 0000 | | .BLANK 0000[0x7]
0768 ; --------------------------------------------------------------------------------------
0768 ; SUBPROGRAM
0768 ; --------------------------------------------------------------------------------------
0768 076d | m | .CONST 0x076d ; Address of begin
0769 0004 | | .CONST 0x0004 ; Address of exception handler
076a 0003 | | .CONST 0x0003 ; Number of locals
076b INIT_0768:
076b 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x19 = .DEBUG 0x076b,0x10d6,0x0002,0x0000,0x0037,0x0074,0x0000,0x029a
; Debug Table 0x19.0x0 = 0x76b,0xffff
076c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x19.0x1 = 0x76c,0xfffe
076d BODY_0768:
076d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x19.0x2 = 0x76d,0x1
076e 00e2 | | Load_Encached Integer_Cache
076f 480a |H | Short_Literal 0xa
0770 e7ff | | Load 0x3,-0x1
0771 e001 | | Load 0x0,0x1
0772 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0773 e00d | | Load 0x0,0xd
0774 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0775 005b | [ | Store_Top Discrete,At_Offset_3
0776 0059 | Y | Store_Top Discrete,At_Offset_1
0777 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x19.0x3 = 0x777,0x2
0778 6802 |h | Jump_Zero 0x77b
0779 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x19.0x4 = 0x779,0x3
077a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
077b 4fff |O | Short_Literal -0x1 ; Debug Table 0x19.0x5 = 0x77b,0x4
077c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
077d 0000 0000 | | .XXX[0x3]
077f 0000 | |
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0785 | | .CONST 0x0785 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0002 | | .CONST 0x0002 ; Number of locals
0783 INIT_0780:
0783 029f 09d3 | | Declare_Subprogram INIT_09d0,For_Call ; Debug Table 0x1a = .DEBUG 0x0783,0x10e4,0x0001,0x0000,0x0037,0x0074,0x0000,0x02dd
; Debug Table 0x1a.0x0 = 0x783,0xffff
0785 BODY_0780:
0785 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1a.0x1 = 0x785,0x1
0786 e40b | | Load 0x2,0xb
0787 e40a | | Load 0x2,0xa
0788 4820 |H | Short_Literal 0x20
0789 8219 | | Call 0x1,0x19
078a 00d2 | | Pop_Control Pop_Count_2
078b c40c | | Store 0x2,0xc
078c e40b | | Load 0x2,0xb ; Debug Table 0x1a.0x2 = 0x78c,0x2
078d e001 | | Load 0x0,0x1
078e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
078f 0e01 | | Execute_Immediate Not_Equal,0x1
0790 6806 |h | Jump_Zero 0x797
0791 0092 0a39 | 9| Action Push_String_Extended,0xa39 ; "unrecognized parameter (too long)"
; Debug Table 0x1a.0x3 = 0x791,0x3
0793 8406 | | Call 0x2,0x6
0794 e5fe | | Load 0x2,-0x2
0795 016d | m | Execute Variant_Record,Structure_Write
0796 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x1a.0x4 = 0x796,0x4
0797 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1a.0x5 = 0x797,0x5
0798 e40b | | Load 0x2,0xb
0799 8405 | | Call 0x2,0x5
079a 8407 | | Call 0x2,0x7
079b 00d1 | | Pop_Control Pop_Count_1
079c e40c | | Load 0x2,0xc ; Debug Table 0x1a.0x6 = 0x79c,0x6
079d 680a |h | Jump_Zero 0x7a8
079e e5fe | | Load 0x2,-0x2 ; Debug Table 0x1a.0x7 = 0x79e,0x7
079f 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
07a0 0f05 | | Execute_Immediate Equal,0x5
07a1 6805 |h | Jump_Zero 0x7a7
07a2 0092 0a3a | :| Action Push_String_Extended,0xa3a ; "missing byte size parameter"
; Debug Table 0x1a.0x8 = 0x7a2,0x8
07a4 8406 | | Call 0x2,0x6
07a5 e5fe | | Load 0x2,-0x2
07a6 016d | m | Execute Variant_Record,Structure_Write
07a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x1a.0x9 = 0x7a7,0x9
07a8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1a.0xa = 0x7a8,0xa
07a9 e40b | | Load 0x2,0xb
07aa e40a | | Load 0x2,0xa
07ab 4820 |H | Short_Literal 0x20
07ac 8219 | | Call 0x1,0x19
07ad 00d2 | | Pop_Control Pop_Count_2
07ae c40c | | Store 0x2,0xc
07af e40c | | Load 0x2,0xc ; Debug Table 0x1a.0xb = 0x7af,0xb
07b0 7001 |p | Jump_Nonzero 0x7b2
07b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x1a.0xc = 0x7b1,0xc
07b2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1a.0xd = 0x7b2,0xd
07b3 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
07b4 4609 |F | Jump_Case 0xa
07b5 7809 |x | Jump 0x7bf ; case 0x0
07b6 7808 |x | Jump 0x7bf ; case 0x1
07b7 7818 |x | Jump 0x7d0 ; case 0x2
07b8 781f |x | Jump 0x7d8 ; case 0x3
07b9 781e |x | Jump 0x7d8 ; case 0x4
07ba 781b |x | Jump 0x7d6 ; case 0x5
07bb 781c |x | Jump 0x7d8 ; case 0x6
07bc 781b |x | Jump 0x7d8 ; case 0x7
07bd 781a |x | Jump 0x7d8 ; case 0x8
07be 7819 |x | Jump 0x7d8 ; case 0x9
07bf e40b | | Load 0x2,0xb ; Debug Table 0x1a.0xe = 0x7bf,0xe
07c0 e001 | | Load 0x0,0x1
07c1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07c2 0f01 | | Execute_Immediate Equal,0x1
07c3 6806 |h | Jump_Zero 0x7ca
07c4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1a.0xf = 0x7c4,0xf
07c5 e40b | | Load 0x2,0xb
07c6 8405 | | Call 0x2,0x5
07c7 8408 | | Call 0x2,0x8
07c8 00d1 | | Pop_Control Pop_Count_1
07c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07ca 0092 0a3b | ;| Action Push_String_Extended,0xa3b ; "unrecognized form code (too long)"
; Debug Table 0x1a.0x10 = 0x7ca,0x10
07cc 8406 | | Call 0x2,0x6
07cd e5fe | | Load 0x2,-0x2
07ce 016d | m | Execute Variant_Record,Structure_Write
07cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d0 0092 0a3c | <| Action Push_String_Extended,0xa3c ; "too many parameters to TYPE IMAGE"
; Debug Table 0x1a.0x11 = 0x7d0,0x11
07d2 8406 | | Call 0x2,0x6
07d3 e5fe | | Load 0x2,-0x2
07d4 016d | m | Execute Variant_Record,Structure_Write
07d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d6 8602 | | Call 0x3,0x2 ; Debug Table 0x1a.0x12 = 0x7d6,0x12
07d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07d8 0092 0a3d | =| Action Push_String_Extended,0xa3d ; "unknown parameter"
; Debug Table 0x1a.0x13 = 0x7d8,0x13
07da 8406 | | Call 0x2,0x6
07db e5fe | | Load 0x2,-0x2
07dc 016d | m | Execute Variant_Record,Structure_Write
07dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07de 0000 0000 | | .XXX[0x2]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0802 | | .CONST 0x0802 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 e40b | | Load 0x2,0xb ; Debug Table 0x1b = .DEBUG 0x07e3,0x110e,0x0004,0x0000,0x0037,0x0074,0x0000,0x0428
; Debug Table 0x1b.0x0 = 0x7e3,0x1
07e4 e001 | | Load 0x0,0x1
07e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07e6 e20d | | Load 0x1,0xd
07e7 00e0 | | Load_Encached Standard_Cache
07e8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07e9 a404 | | Store_Unchecked 0x2,0x4
07ea e404 | | Load 0x2,0x4 ; Debug Table 0x1b.0x1 = 0x7ea,0x2
07eb 0f07 | | Execute_Immediate Equal,0x7
07ec 6814 |h | Jump_Zero 0x801
07ed 4800 |H | Short_Literal 0x0 ; Debug Table 0x1b.0x2 = 0x7ed,0x3
07ee e217 | | Load 0x1,0x17
07ef 1c08 | | Execute_Immediate Run_Utility,0x8
07f0 00d8 | | Load_Top At_Offset_0
07f1 1c01 | | Execute_Immediate Run_Utility,0x1
07f2 4821 |H! | Short_Literal 0x21
07f3 00d9 | | Load_Top At_Offset_1
07f4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
07f5 4801 |H | Short_Literal 0x1
07f6 00d9 | | Load_Top At_Offset_1
07f7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
07f8 4900 |I | Short_Literal 0x100
07f9 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "500 Unrecognized command"
07fb e001 | | Load 0x0,0x1
07fc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07fd 00d9 | | Load_Top At_Offset_1
07fe 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
07ff e5fe | | Load 0x2,-0x2
0800 016d | m | Execute Variant_Record,Structure_Write
0801 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0802 TRAP_07e0:
0802 010e | | Execute Exception,Is_Constraint_Error
0803 6823 |h# | Jump_Zero 0x827
0804 e40b | | Load 0x2,0xb ; Debug Table 0x1b.0x3 = 0x804,0x4
0805 e001 | | Load 0x0,0x1
0806 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0807 e00d | | Load 0x0,0xd
0808 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0809 0092 0a3f | ?| Action Push_String_Extended,0xa3f ; "TYPE"
080b 01df | | Execute Vector,Equal
080c 6803 |h | Jump_Zero 0x810
080d 4807 |H | Short_Literal 0x7 ; Debug Table 0x1b.0x4 = 0x80d,0x5
080e a404 | | Store_Unchecked 0x2,0x4
080f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0810 4821 |H! | Short_Literal 0x21 ; Debug Table 0x1b.0x5 = 0x810,0x6
0811 a404 | | Store_Unchecked 0x2,0x4
0812 4800 |H | Short_Literal 0x0 ; Debug Table 0x1b.0x6 = 0x812,0x7
0813 e217 | | Load 0x1,0x17
0814 1c08 | | Execute_Immediate Run_Utility,0x8
0815 00d8 | | Load_Top At_Offset_0
0816 1c01 | | Execute_Immediate Run_Utility,0x1
0817 4821 |H! | Short_Literal 0x21
0818 00d9 | | Load_Top At_Offset_1
0819 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
081a 4801 |H | Short_Literal 0x1
081b 00d9 | | Load_Top At_Offset_1
081c 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
081d 4900 |I | Short_Literal 0x100
081e 0092 0a3e | >| Action Push_String_Extended,0xa3e ; "500 Unrecognized command"
0820 e001 | | Load 0x0,0x1
0821 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0822 00d9 | | Load_Top At_Offset_1
0823 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0824 e5fe | | Load 0x2,-0x2
0825 016d | m | Execute Variant_Record,Structure_Write
0826 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0827 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1b.0x7 = 0x827,0x8
0828 0101 | | Execute Exception,Reraise
0829 0000 0000 | | .BLANK 0000[0x7]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833 | 3 | .CONST 0x0833 ; Address of begin
0831 08f2 | | .CONST 0x08f2 ; Address of exception handler
0832 0001 | | .CONST 0x0001 ; Number of locals
0833 BODY_0830:
0833 INIT_0830:
0833 00cf | | Action Mark_Auxiliary ; Debug Table 0x1c = .DEBUG 0x0833,0x1120,0x0004,0x0000,0x0037,0x0074,0x0000,0x0716
0834 4804 |H | Short_Literal 0x4 ; Debug Table 0x1c.0x0 = 0x834,0x1
0835 4801 |H | Short_Literal 0x1
0836 0007 | | Action Break_Optional
0837 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1c.0x1 = 0x837,0x2
0838 e40b | | Load 0x2,0xb
0839 e40a | | Load 0x2,0xa
083a 482c |H, | Short_Literal 0x2c
083b 8219 | | Call 0x1,0x19
083c 00d2 | | Pop_Control Pop_Count_2
083d c40c | | Store 0x2,0xc
083e e40c | | Load 0x2,0xc ; Debug Table 0x1c.0x2 = 0x83e,0x3
083f 6815 |h | Jump_Zero 0x855
0840 4800 |H | Short_Literal 0x0 ; Debug Table 0x1c.0x3 = 0x840,0x4
0841 e217 | | Load 0x1,0x17
0842 1c08 | | Execute_Immediate Run_Utility,0x8
0843 00d8 | | Load_Top At_Offset_0
0844 1c01 | | Execute_Immediate Run_Utility,0x1
0845 4821 |H! | Short_Literal 0x21
0846 00d9 | | Load_Top At_Offset_1
0847 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0848 4802 |H | Short_Literal 0x2
0849 00d9 | | Load_Top At_Offset_1
084a 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
084b 4900 |I | Short_Literal 0x100
084c 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "501 Syntax error in PORT parameter"
084e e001 | | Load 0x0,0x1
084f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0850 00d9 | | Load_Top At_Offset_1
0851 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0852 e5fe | | Load 0x2,-0x2
0853 016d | m | Execute Variant_Record,Structure_Write
0854 7811 |x | Jump 0x866
0855 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0x4 = 0x855,0x5
0856 00d8 | | Load_Top At_Offset_0
0857 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0858 00d8 | | Load_Top At_Offset_0
0859 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
085a 00db | | Load_Top At_Offset_3
085b e40b | | Load 0x2,0xb
085c 8409 | | Call 0x2,0x9
085d e00e | | Load 0x0,0xe
085e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
085f 025b | [ | Execute Discrete,Check_In_Type
0860 00d9 | | Load_Top At_Offset_1
0861 00db | | Load_Top At_Offset_3
0862 01d6 | | Execute Vector,Field_Write
0863 00d2 | | Pop_Control Pop_Count_2
0864 00d0 | | Action Swap_Control
0865 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0866 00c8 | | Action Pop_Auxiliary_Range
0867 3fcf |? | Loop_Increasing 0x837
0868 00ce | | Action Pop_Auxiliary
0869 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0x5 = 0x869,0x6
086a 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
086b 7071 |pq | Jump_Nonzero 0x8dd
086c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1c.0x6 = 0x86c,0x7
086d e40b | | Load 0x2,0xb
086e e40a | | Load 0x2,0xa
086f 482c |H, | Short_Literal 0x2c
0870 8219 | | Call 0x1,0x19
0871 00d2 | | Pop_Control Pop_Count_2
0872 c40c | | Store 0x2,0xc
0873 e40c | | Load 0x2,0xc ; Debug Table 0x1c.0x7 = 0x873,0x8
0874 6815 |h | Jump_Zero 0x88a
0875 4800 |H | Short_Literal 0x0 ; Debug Table 0x1c.0x8 = 0x875,0x9
0876 e217 | | Load 0x1,0x17
0877 1c08 | | Execute_Immediate Run_Utility,0x8
0878 00d8 | | Load_Top At_Offset_0
0879 1c01 | | Execute_Immediate Run_Utility,0x1
087a 4821 |H! | Short_Literal 0x21
087b 00d9 | | Load_Top At_Offset_1
087c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
087d 4802 |H | Short_Literal 0x2
087e 00d9 | | Load_Top At_Offset_1
087f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0880 4900 |I | Short_Literal 0x100
0881 0092 0a41 | A| Action Push_String_Extended,0xa41 ; "501 syntax error in PORT parameter"
0883 e001 | | Load 0x0,0x1
0884 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0885 00d9 | | Load_Top At_Offset_1
0886 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0887 e5fe | | Load 0x2,-0x2
0888 016d | m | Execute Variant_Record,Structure_Write
0889 4501 |E | Exit_Suprogram New_Top_Offset 0x1
088a e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0x9 = 0x88a,0xa
088b 00d8 | | Load_Top At_Offset_0
088c 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
088d 00d8 | | Load_Top At_Offset_0
088e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
088f e40b | | Load 0x2,0xb
0890 8409 | | Call 0x2,0x9
0891 e00e | | Load 0x0,0xe
0892 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0893 025b | [ | Execute Discrete,Check_In_Type
0894 4801 |H | Short_Literal 0x1
0895 00da | | Load_Top At_Offset_2
0896 01d6 | | Execute Vector,Field_Write
0897 00d1 | | Pop_Control Pop_Count_1
0898 00d0 | | Action Swap_Control
0899 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
089a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1c.0xa = 0x89a,0xb
089b e40b | | Load 0x2,0xb
089c e40a | | Load 0x2,0xa
089d 4820 |H | Short_Literal 0x20
089e 8219 | | Call 0x1,0x19
089f 00d2 | | Pop_Control Pop_Count_2
08a0 c40c | | Store 0x2,0xc
08a1 e40c | | Load 0x2,0xc ; Debug Table 0x1c.0xb = 0x8a1,0xc
08a2 6825 |h% | Jump_Zero 0x8c8
08a3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0xc = 0x8a3,0xd
08a4 00d8 | | Load_Top At_Offset_0
08a5 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
08a6 00d8 | | Load_Top At_Offset_0
08a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08a8 e40b | | Load 0x2,0xb
08a9 8409 | | Call 0x2,0x9
08aa e00e | | Load 0x0,0xe
08ab 1b11 | | Execute Package,Field_Read,Field_Number 0x11
08ac 025b | [ | Execute Discrete,Check_In_Type
08ad 4802 |H | Short_Literal 0x2
08ae 00da | | Load_Top At_Offset_2
08af 01d6 | | Execute Vector,Field_Write
08b0 00d1 | | Pop_Control Pop_Count_1
08b1 00d0 | | Action Swap_Control
08b2 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
08b3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0xd = 0x8b3,0xe
08b4 00d8 | | Load_Top At_Offset_0
08b5 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
08b6 00d8 | | Load_Top At_Offset_0
08b7 4804 |H | Short_Literal 0x4
08b8 00d9 | | Load_Top At_Offset_1
08b9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08ba 00d1 | | Pop_Control Pop_Count_1
08bb 00d0 | | Action Swap_Control
08bc 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
08bd e5fe | | Load 0x2,-0x2 ; Debug Table 0x1c.0xe = 0x8bd,0xf
08be 00d8 | | Load_Top At_Offset_0
08bf 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
08c0 00d8 | | Load_Top At_Offset_0
08c1 4802 |H | Short_Literal 0x2
08c2 00d9 | | Load_Top At_Offset_1
08c3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
08c4 00d1 | | Pop_Control Pop_Count_1
08c5 00d0 | | Action Swap_Control
08c6 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
08c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08c8 4800 |H | Short_Literal 0x0 ; Debug Table 0x1c.0xf = 0x8c8,0x10
08c9 e217 | | Load 0x1,0x17
08ca 1c08 | | Execute_Immediate Run_Utility,0x8
08cb 00d8 | | Load_Top At_Offset_0
08cc 1c01 | | Execute_Immediate Run_Utility,0x1
08cd 4821 |H! | Short_Literal 0x21
08ce 00d9 | | Load_Top At_Offset_1
08cf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08d0 4802 |H | Short_Literal 0x2
08d1 00d9 | | Load_Top At_Offset_1
08d2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
08d3 4900 |I | Short_Literal 0x100
08d4 0092 0a40 | @| Action Push_String_Extended,0xa40 ; "501 Syntax error in PORT parameter"
08d6 e001 | | Load 0x0,0x1
08d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08d8 00d9 | | Load_Top At_Offset_1
08d9 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
08da e5fe | | Load 0x2,-0x2
08db 016d | m | Execute Variant_Record,Structure_Write
08dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08dd 4800 |H | Short_Literal 0x0 ; Debug Table 0x1c.0x10 = 0x8dd,0x11
08de e217 | | Load 0x1,0x17
08df 1c08 | | Execute_Immediate Run_Utility,0x8
08e0 00d8 | | Load_Top At_Offset_0
08e1 1c01 | | Execute_Immediate Run_Utility,0x1
08e2 4821 |H! | Short_Literal 0x21
08e3 00d9 | | Load_Top At_Offset_1
08e4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08e5 4802 |H | Short_Literal 0x2
08e6 00d9 | | Load_Top At_Offset_1
08e7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
08e8 4900 |I | Short_Literal 0x100
08e9 0092 0a42 | B| Action Push_String_Extended,0xa42 ; "501 Syntax error socket info missing"
08eb e001 | | Load 0x0,0x1
08ec 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08ed 00d9 | | Load_Top At_Offset_1
08ee 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
08ef e5fe | | Load 0x2,-0x2
08f0 016d | m | Execute Variant_Record,Structure_Write
08f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08f2 TRAP_0830:
08f2 010e | | Execute Exception,Is_Constraint_Error
08f3 6815 |h | Jump_Zero 0x909
08f4 4800 |H | Short_Literal 0x0 ; Debug Table 0x1c.0x11 = 0x8f4,0x12
08f5 e217 | | Load 0x1,0x17
08f6 1c08 | | Execute_Immediate Run_Utility,0x8
08f7 00d8 | | Load_Top At_Offset_0
08f8 1c01 | | Execute_Immediate Run_Utility,0x1
08f9 4821 |H! | Short_Literal 0x21
08fa 00d9 | | Load_Top At_Offset_1
08fb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
08fc 4802 |H | Short_Literal 0x2
08fd 00d9 | | Load_Top At_Offset_1
08fe 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
08ff 4900 |I | Short_Literal 0x100
0900 0092 0a43 | C| Action Push_String_Extended,0xa43 ; "501 Syntax error, bad value for PORT"
0902 e001 | | Load 0x0,0x1
0903 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0904 00d9 | | Load_Top At_Offset_1
0905 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0906 e5fe | | Load 0x2,-0x2
0907 016d | m | Execute Variant_Record,Structure_Write
0908 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0909 0100 | | Execute Exception,Raise
090a 0000 0000 | | .BLANK 0000[0x6]
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 0913 | | .CONST 0x0913 ; Address of begin
0911 099a | | .CONST 0x099a ; Address of exception handler
0912 0001 | | .CONST 0x0001 ; Number of locals
0913 BODY_0910:
0913 INIT_0910:
0913 4805 |H | Short_Literal 0x5 ; Debug Table 0x1d = .DEBUG 0x0913,0x1146,0x0004,0x0000,0x0037,0x0074,0x0000,0x0993
; Debug Table 0x1d.0x0 = 0x913,0x1
0914 e217 | | Load 0x1,0x17
0915 1c08 | | Execute_Immediate Run_Utility,0x8
0916 00d8 | | Load_Top At_Offset_0
0917 1c01 | | Execute_Immediate Run_Utility,0x1
0918 e404 | | Load 0x2,0x4
0919 00d9 | | Load_Top At_Offset_1
091a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
091b 4800 |H | Short_Literal 0x0
091c 00d9 | | Load_Top At_Offset_1
091d 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
091e 4800 |H | Short_Literal 0x0
091f 00d9 | | Load_Top At_Offset_1
0920 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0921 4800 |H | Short_Literal 0x0
0922 00d9 | | Load_Top At_Offset_1
0923 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
0924 e5fe | | Load 0x2,-0x2
0925 016d | m | Execute Variant_Record,Structure_Write
0926 e40c | | Load 0x2,0xc ; Debug Table 0x1d.0x1 = 0x926,0x2
0927 700c |p | Jump_Nonzero 0x934
0928 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1d.0x2 = 0x928,0x3
0929 e40b | | Load 0x2,0xb
092a e40a | | Load 0x2,0xa
092b 4820 |H | Short_Literal 0x20
092c 8219 | | Call 0x1,0x19
092d 00d2 | | Pop_Control Pop_Count_2
092e c40c | | Store 0x2,0xc
092f e40b | | Load 0x2,0xb ; Debug Table 0x1d.0x3 = 0x92f,0x4
0930 8409 | | Call 0x2,0x9
0931 e5fe | | Load 0x2,-0x2
0932 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0933 7814 |x | Jump 0x948
0934 4800 |H | Short_Literal 0x0 ; Debug Table 0x1d.0x4 = 0x934,0x5
0935 e217 | | Load 0x1,0x17
0936 1c08 | | Execute_Immediate Run_Utility,0x8
0937 00d8 | | Load_Top At_Offset_0
0938 1c01 | | Execute_Immediate Run_Utility,0x1
0939 4821 |H! | Short_Literal 0x21
093a 00d9 | | Load_Top At_Offset_1
093b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
093c 4802 |H | Short_Literal 0x2
093d 00d9 | | Load_Top At_Offset_1
093e 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
093f 4900 |I | Short_Literal 0x100
0940 0092 0a44 | D| Action Push_String_Extended,0xa44 ; "501 Syntax error, PAGES information missing"
0942 e001 | | Load 0x0,0x1
0943 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0944 00d9 | | Load_Top At_Offset_1
0945 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0946 e5fe | | Load 0x2,-0x2
0947 016d | m | Execute Variant_Record,Structure_Write
0948 e40c | | Load 0x2,0xc ; Debug Table 0x1d.0x5 = 0x948,0x6
0949 0f00 | | Execute_Immediate Equal,0x0
094a e5fe | | Load 0x2,-0x2
094b 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
094c 0f00 | | Execute_Immediate Equal,0x0
094d 0279 | y | Execute Discrete,And
094e 684a |hJ | Jump_Zero 0x999
094f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1d.0x6 = 0x94f,0x7
0950 e40b | | Load 0x2,0xb
0951 e40a | | Load 0x2,0xa
0952 4820 |H | Short_Literal 0x20
0953 8219 | | Call 0x1,0x19
0954 00d2 | | Pop_Control Pop_Count_2
0955 c40c | | Store 0x2,0xc
0956 e40b | | Load 0x2,0xb ; Debug Table 0x1d.0x7 = 0x956,0x8
0957 e001 | | Load 0x0,0x1
0958 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0959 0f01 | | Execute_Immediate Equal,0x1
095a e40b | | Load 0x2,0xb
095b 8405 | | Call 0x2,0x5
095c 0f52 | R | Execute_Immediate Equal,0x52
095d e40c | | Load 0x2,0xc
095e 0f00 | | Execute_Immediate Equal,0x0
095f 0279 | y | Execute Discrete,And
0960 0279 | y | Execute Discrete,And
0961 6823 |h# | Jump_Zero 0x985
0962 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1d.0x8 = 0x962,0x9
0963 e40b | | Load 0x2,0xb
0964 e40a | | Load 0x2,0xa
0965 4820 |H | Short_Literal 0x20
0966 8219 | | Call 0x1,0x19
0967 00d2 | | Pop_Control Pop_Count_2
0968 c40c | | Store 0x2,0xc
0969 e40c | | Load 0x2,0xc ; Debug Table 0x1d.0x9 = 0x969,0xa
096a 6805 |h | Jump_Zero 0x970
096b e40b | | Load 0x2,0xb ; Debug Table 0x1d.0xa = 0x96b,0xb
096c 8409 | | Call 0x2,0x9
096d e5fe | | Load 0x2,-0x2
096e 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
096f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0970 4800 |H | Short_Literal 0x0 ; Debug Table 0x1d.0xb = 0x970,0xc
0971 e217 | | Load 0x1,0x17
0972 1c08 | | Execute_Immediate Run_Utility,0x8
0973 00d8 | | Load_Top At_Offset_0
0974 1c01 | | Execute_Immediate Run_Utility,0x1
0975 4821 |H! | Short_Literal 0x21
0976 00d9 | | Load_Top At_Offset_1
0977 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0978 4802 |H | Short_Literal 0x2
0979 00d9 | | Load_Top At_Offset_1
097a 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
097b 4900 |I | Short_Literal 0x100
097c 0092 0a45 | E| Action Push_String_Extended,0xa45 ; "501 Syntax error in ALLO command"
097e e001 | | Load 0x0,0x1
097f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0980 00d9 | | Load_Top At_Offset_1
0981 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0982 e5fe | | Load 0x2,-0x2
0983 016d | m | Execute Variant_Record,Structure_Write
0984 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0985 4800 |H | Short_Literal 0x0 ; Debug Table 0x1d.0xc = 0x985,0xd
0986 e217 | | Load 0x1,0x17
0987 1c08 | | Execute_Immediate Run_Utility,0x8
0988 00d8 | | Load_Top At_Offset_0
0989 1c01 | | Execute_Immediate Run_Utility,0x1
098a 4821 |H! | Short_Literal 0x21
098b 00d9 | | Load_Top At_Offset_1
098c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
098d 4802 |H | Short_Literal 0x2
098e 00d9 | | Load_Top At_Offset_1
098f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0990 4900 |I | Short_Literal 0x100
0991 0092 0a46 | F| Action Push_String_Extended,0xa46 ; "501 Syntax error, Expected 'R' for records info"
0993 e001 | | Load 0x0,0x1
0994 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0995 00d9 | | Load_Top At_Offset_1
0996 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0997 e5fe | | Load 0x2,-0x2
0998 016d | m | Execute Variant_Record,Structure_Write
0999 4501 |E | Exit_Suprogram New_Top_Offset 0x1
099a TRAP_0910:
099a 010e | | Execute Exception,Is_Constraint_Error
099b 6815 |h | Jump_Zero 0x9b1
099c 4800 |H | Short_Literal 0x0 ; Debug Table 0x1d.0xd = 0x99c,0xe
099d e217 | | Load 0x1,0x17
099e 1c08 | | Execute_Immediate Run_Utility,0x8
099f 00d8 | | Load_Top At_Offset_0
09a0 1c01 | | Execute_Immediate Run_Utility,0x1
09a1 4821 |H! | Short_Literal 0x21
09a2 00d9 | | Load_Top At_Offset_1
09a3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
09a4 4802 |H | Short_Literal 0x2
09a5 00d9 | | Load_Top At_Offset_1
09a6 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
09a7 4900 |I | Short_Literal 0x100
09a8 0092 0a47 | G| Action Push_String_Extended,0xa47 ; "501 Syntax erorr, Bad value in ALLO command"
09aa e001 | | Load 0x0,0x1
09ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15
09ac 00d9 | | Load_Top At_Offset_1
09ad 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
09ae e5fe | | Load 0x2,-0x2
09af 016d | m | Execute Variant_Record,Structure_Write
09b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09b1 0100 | | Execute Exception,Raise
09b2 0000 0000 | | .BLANK 0000[0x6]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb | | .CONST 0x09bb ; Address of begin
09b9 0004 | | .CONST 0x0004 ; Address of exception handler
09ba 0001 | | .CONST 0x0001 ; Number of locals
09bb BODY_09b8:
09bb INIT_09b8:
09bb e5ff | | Load 0x2,-0x1 ; Debug Table 0x1e = .DEBUG 0x09bb,0x1164,0x0004,0x0000,0x0037,0x0074,0x0000,0x0a1a
; Debug Table 0x1e.0x0 = 0x9bb,0x1
09bc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
09bd 0b04 | | Execute_Immediate Case_Compare,0x4
09be 7007 |p | Jump_Nonzero 0x9c6
09bf 0b18 | | Execute_Immediate Case_Compare,0x18
09c0 7005 |p | Jump_Nonzero 0x9c6
09c1 0b1e | | Execute_Immediate Case_Compare,0x1e
09c2 7003 |p | Jump_Nonzero 0x9c6
09c3 4800 |H | Short_Literal 0x0 ; Debug Table 0x1e.0x1 = 0x9c3,0x3
09c4 00cb | | Action Pop_Block_With_Result
09c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09c6 4801 |H | Short_Literal 0x1 ; Debug Table 0x1e.0x2 = 0x9c6,0x2
09c7 00cb | | Action Pop_Block_With_Result
09c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09c9 0000 0000 | | .BLANK 0000[0x7]
09d0 ; --------------------------------------------------------------------------------------
09d0 ; SUBPROGRAM
09d0 ; --------------------------------------------------------------------------------------
09d0 09d4 | | .CONST 0x09d4 ; Address of begin
09d1 09e2 | | .CONST 0x09e2 ; Address of exception handler
09d2 0002 | | .CONST 0x0002 ; Number of locals
09d3 INIT_09d0:
09d3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1f = .DEBUG 0x09d3,0x116c,0x0001,0x0000,0x0037,0x0074,0x0000,0x02e0
; Debug Table 0x1f.0x0 = 0x9d3,0xffff
09d4 BODY_09d0:
09d4 e40b | | Load 0x2,0xb ; Debug Table 0x1f.0x1 = 0x9d4,0x1
09d5 8409 | | Call 0x2,0x9
09d6 00e3 | | Load_Encached Natural_Cache
09d7 025b | [ | Execute Discrete,Check_In_Type
09d8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
09d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1f.0x2 = 0x9d9,0x2
09da 0e08 | | Execute_Immediate Not_Equal,0x8
09db 6805 |h | Jump_Zero 0x9e1
09dc 0092 0a48 | H| Action Push_String_Extended,0xa48 ; "Byte Size 8 only value allowed"
; Debug Table 0x1f.0x3 = 0x9dc,0x3
09de 8406 | | Call 0x2,0x6
09df e5fe | | Load 0x2,-0x2
09e0 016d | m | Execute Variant_Record,Structure_Write
09e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09e2 TRAP_09d0:
09e2 010e | | Execute Exception,Is_Constraint_Error
09e3 6806 |h | Jump_Zero 0x9ea
09e4 0092 0a49 | I| Action Push_String_Extended,0xa49 ; "Syntax error, Bad value for byte size"
; Debug Table 0x1f.0x4 = 0x9e4,0x4
09e6 8406 | | Call 0x2,0x6
09e7 e5fe | | Load 0x2,-0x2
09e8 016d | m | Execute Variant_Record,Structure_Write
09e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09ea 0100 | | Execute Exception,Raise
09eb ; --------------------------------------------------------------------------------------
09eb ; STRING TABLE
09eb ; --------------------------------------------------------------------------------------
09eb 00c0 | | .STRTAB 0x00c0->0x0a4b ; "USER"
09ec 00c2 | | .STRTAB 0x00c2->0x0a4d ; "PASS"
09ed 00c4 | | .STRTAB 0x00c4->0x0a4f ; "ACCT"
09ee 00c6 | | .STRTAB 0x00c6->0x0a51 ; "REIN"
09ef 00c8 | | .STRTAB 0x00c8->0x0a53 ; "QUIT"
09f0 00ca | | .STRTAB 0x00ca->0x0a55 ; "PORT"
09f1 00cc | | .STRTAB 0x00cc->0x0a57 ; "PASV"
09f2 00ce | | .STRTAB 0x00ce->0x0a59 ; "TYP"
09f3 00cf | | .STRTAB 0x00cf->0x0a5a ; "STRU"
09f4 00d1 | | .STRTAB 0x00d1->0x0a5c ; "MODE"
09f5 00d3 | | .STRTAB 0x00d3->0x0a5e ; "RETR"
09f6 00d5 | | .STRTAB 0x00d5->0x0a60 ; "STOR"
09f7 00d7 | | .STRTAB 0x00d7->0x0a62 ; "APPE"
09f8 00d9 | | .STRTAB 0x00d9->0x0a64 ; "MLFL"
09f9 00db | | .STRTAB 0x00db->0x0a66 ; "MAIL"
09fa 00dd | | .STRTAB 0x00dd->0x0a68 ; "MSND"
09fb 00df | | .STRTAB 0x00df->0x0a6a ; "MSOM"
09fc 00e1 | | .STRTAB 0x00e1->0x0a6c ; "MSAM"
09fd 00e3 | | .STRTAB 0x00e3->0x0a6e ; "MRSQ"
09fe 00e5 | | .STRTAB 0x00e5->0x0a70 ; "MRCP"
09ff 00e7 | | .STRTAB 0x00e7->0x0a72 ; "ALLO"
0a00 00e9 | | .STRTAB 0x00e9->0x0a74 ; "REST"
0a01 00eb | | .STRTAB 0x00eb->0x0a76 ; "RNFR"
0a02 00ed | | .STRTAB 0x00ed->0x0a78 ; "RNTO"
0a03 00ef | | .STRTAB 0x00ef->0x0a7a ; "ABOR"
0a04 00f1 | | .STRTAB 0x00f1->0x0a7c ; "DELE"
0a05 00f3 | | .STRTAB 0x00f3->0x0a7e ; "CWD"
0a06 00f4 | | .STRTAB 0x00f4->0x0a80 ; "LIST"
0a07 00f6 | | .STRTAB 0x00f6->0x0a82 ; "NLST"
0a08 00f8 | | .STRTAB 0x00f8->0x0a84 ; "SITE"
0a09 00fa | | .STRTAB 0x00fa->0x0a86 ; "STAT"
0a0a 00fc | | .STRTAB 0x00fc->0x0a88 ; "HELP"
0a0b 00fe | | .STRTAB 0x00fe->0x0a8a ; "NOOP"
0a0c 0100 | | .STRTAB 0x0100->0x0a8c ; "ERR"
0a0d 0101 | | .STRTAB 0x0101->0x0a8d ; "OK"
0a0e 0101 | | .STRTAB 0x0101->0x0a8e ; "COMMAND_SYNTAX"
0a0f 010d | | .STRTAB 0x010d->0x0a95 ; "PARAM_SYNTAX"
0a10 0117 | | .STRTAB 0x0117->0x0a9b ; "COMMAND_UNSUPPORTED"
0a11 0128 | ( | .STRTAB 0x0128->0x0aa5 ; "STRING_ARG"
0a12 0130 | 0 | .STRTAB 0x0130->0x0aaa ; "HOST_ARG"
0a13 0136 | 6 | .STRTAB 0x0136->0x0aae ; "TYPE_ARG"
0a14 013c | < | .STRTAB 0x013c->0x0ab2 ; "STRU_ARG"
0a15 0142 | B | .STRTAB 0x0142->0x0ab6 ; "MODE_ARG"
0a16 0148 | H | .STRTAB 0x0148->0x0aba ; "ALLO_ARG"
0a17 014e | N | .STRTAB 0x014e->0x0abe ; "NULL_ARG"
0a18 0154 | T | .STRTAB 0x0154->0x0ac2 ; "ACTIVE"
0a19 0158 | X | .STRTAB 0x0158->0x0ac5 ; "COMMAND_IN_PROGRESS"
0a1a 0169 | i | .STRTAB 0x0169->0x0ace ; "DEQUEUING"
0a1b 0170 | p | .STRTAB 0x0170->0x0ad3 ; "NON_ACTIVE"
0a1c 0178 | x | .STRTAB 0x0178->0x0ad8 ; "\x0d\x0a"
0a1d 0178 | x | .STRTAB 0x0178->0x0ad9 ; "!TOOLS.FTP"
0a1e 0180 | | .STRTAB 0x0180->0x0ade ; "SESSION_CONTROL.START_SESSION"
0a1f 019b | | .STRTAB 0x019b->0x0aec ; "501 Unrecognized option for "
0a20 01b5 | | .STRTAB 0x01b5->0x0afa ; "501 Syntax error, Port info missing"
0a21 01d6 | | .STRTAB 0x01d6->0x0b0c ; "TYPE command requires parameters."
0a22 01f5 | | .STRTAB 0x01f5->0x0b1c ; "501 Unrecognized option for STRU command"
0a23 021b | | .STRTAB 0x021b->0x0b30 ; "501 Syntax error, STRU option not single character"
0a24 024b | K | .STRTAB 0x024b->0x0b49 ; "501 Syntax error, STRU option is missing"
0a25 0271 | q | .STRTAB 0x0271->0x0b5d ; "501 Unrecognized option for MODE command"
0a26 0297 | | .STRTAB 0x0297->0x0b71 ; "501 Syntax error, MODE option unrecognized"
0a27 02bf | | .STRTAB 0x02bf->0x0b86 ; "501 Syntax error, MODE option is missing"
0a28 02e5 | | .STRTAB 0x02e5->0x0b9a ; "501 Syntax error, Not expecting parameter for "
0a29 0311 | | .STRTAB 0x0311->0x0bb1 ; "501 ERROR occured parsing command"
0a2a 0330 | 0 | .STRTAB 0x0330->0x0bc2 ; "211- The following commands are accepted"
0a2b 0357 | W | .STRTAB 0x0357->0x0bd6 ; "211- (* - not implemented # - only accepted at login)"
0a2c 038f | | .STRTAB 0x038f->0x0bf3 ; "211- USER# PORT RETR MSND* ALLO* DELE* STAT"
0a2d 03c6 | | .STRTAB 0x03c6->0x0c10 ; "211- PASS# PASV* STOR MSOM* REST* CWD HELP"
0a2e 03fd | | .STRTAB 0x03fd->0x0c2c ; "211- ACCT* TYPE APPE MSAM* RNFR* LIST NOOP"
0a2f 0434 | 4 | .STRTAB 0x0434->0x0c49 ; "211- REIN* STRU MLFL* MRSQ* RNTO* NLST"
0a30 0463 | c | .STRTAB 0x0463->0x0c61 ; "211- QUIT MODE MAIL* MRCP* ABOR* SITE"
0a31 0492 | | .STRTAB 0x0492->0x0c7a ; "211 "
0a32 0496 | | .STRTAB 0x0496->0x0c7d ; "Ftp Server Session"
0a33 04a6 | | .STRTAB 0x04a6->0x0c86 ; " "
0a34 04a5 | | .STRTAB 0x04a5->0x0c86 ; "501 "
0a35 04a7 | | .STRTAB 0x04a7->0x0c88 ; "501 Unrecognized option for TYPE command"
0a36 04cd | | .STRTAB 0x04cd->0x0c9c ; "501 Unrecognized FORM value for ASCII TYPE "
0a37 04f6 | | .STRTAB 0x04f6->0x0cb2 ; "501 Unrecognized FORM value for EBCDIC TYPE "
0a38 0520 | | .STRTAB 0x0520->0x0cc8 ; "501 Unrecognized parameter in TYPE command"
0a39 0548 | H | .STRTAB 0x0548->0x0cdd ; "unrecognized parameter (too long)"
0a3a 0567 | g | .STRTAB 0x0567->0x0ced ; "missing byte size parameter"
0a3b 0580 | | .STRTAB 0x0580->0x0cfb ; "unrecognized form code (too long)"
0a3c 059f | | .STRTAB 0x059f->0x0d0b ; "too many parameters to TYPE IMAGE"
0a3d 05be | | .STRTAB 0x05be->0x0d1c ; "unknown parameter"
0a3e 05cd | | .STRTAB 0x05cd->0x0d24 ; "500 Unrecognized command"
0a3f 05e3 | | .STRTAB 0x05e3->0x0d30 ; "TYPE"
0a40 05e5 | | .STRTAB 0x05e5->0x0d32 ; "501 Syntax error in PORT parameter"
0a41 0605 | | .STRTAB 0x0605->0x0d43 ; "501 syntax error in PORT parameter"
0a42 0625 | % | .STRTAB 0x0625->0x0d54 ; "501 Syntax error socket info missing"
0a43 0647 | G | .STRTAB 0x0647->0x0d66 ; "501 Syntax error, bad value for PORT"
0a44 0669 | i | .STRTAB 0x0669->0x0d78 ; "501 Syntax error, PAGES information missing"
0a45 0692 | | .STRTAB 0x0692->0x0d8e ; "501 Syntax error in ALLO command"
0a46 06b0 | | .STRTAB 0x06b0->0x0d9e ; "501 Syntax error, Expected 'R' for records info"
0a47 06dd | | .STRTAB 0x06dd->0x0db5 ; "501 Syntax erorr, Bad value in ALLO command"
0a48 0706 | | .STRTAB 0x0706->0x0dcb ; "Byte Size 8 only value allowed"
0a49 0722 | " | .STRTAB 0x0722->0x0dda ; "Syntax error, Bad value for byte size"
0a4a 0745 | E | .STREND 0x0745->0x0dec
0a4b 5553 4552 |USER| .STRTAB_STRINGS
0ded 0000 0000 | | .XXX[0x3]
0def 0000 | |
0df0 ; --------------------------------------------------------------------------------------
0df0 ; Debug Table
0df0 ; --------------------------------------------------------------------------------------
0df0 0003 0020 | | .CONST 0x0003,0x0020
0df2 000b 0ef2 | | .DEBUG 0x000b,0x0ef2,0x8000,0x0000,0x0036,0xff64,0x0000,0x0011
0dfa 007e 0f24 | ~ $| .DEBUG 0x007e,0x0f24,0x8000,0x0000,0x0037,0x0074,0x0000,0x0019
0e02 00c3 0f52 | R| .DEBUG 0x00c3,0x0f52,0x0005,0x0000,0x0036,0xff64,0x0000,0x0012
0e0a 00db 0f54 | T| .DEBUG 0x00db,0x0f54,0x0005,0x0000,0x0036,0xff64,0x0000,0x0038
0e12 00f3 0f56 | V| .DEBUG 0x00f3,0x0f56,0x0005,0x0000,0x0036,0xff64,0x0000,0x0052
0e1a 010b 0f58 | X| .DEBUG 0x010b,0x0f58,0x0005,0x0000,0x0036,0xff64,0x0000,0x005d
0e22 0123 0f5a | # Z| .DEBUG 0x0123,0x0f5a,0x0005,0x0000,0x0036,0xff64,0x0000,0x00a5
0e2a 0193 0f5c | \| .DEBUG 0x0193,0x0f5c,0x0005,0x0000,0x0036,0xff64,0x0000,0x0101
0e32 01ab 0f5e | ^| .DEBUG 0x01ab,0x0f5e,0x0001,0x0000,0x0036,0xff64,0x0000,0x0129
0e3a 01f3 0f76 | v| .DEBUG 0x01f3,0x0f76,0x0001,0x0000,0x0036,0xff64,0x0000,0x0142
0e42 04eb 1002 | | .DEBUG 0x04eb,0x1002,0x0002,0x0000,0x0036,0xff64,0x0000,0x0150
0e4a 04f3 1006 | | .DEBUG 0x04f3,0x1006,0x0001,0x0000,0x0036,0xff64,0x0000,0x0159
0e52 0533 1020 | 3 | .DEBUG 0x0533,0x1020,0x0002,0x0000,0x0036,0xff64,0x0000,0x016b
0e5a 0543 1024 | C $| .DEBUG 0x0543,0x1024,0x0002,0x0000,0x0036,0xff64,0x0000,0x0174
0e62 054b 1028 | K (| .DEBUG 0x054b,0x1028,0x0001,0x0000,0x0036,0xff64,0x0000,0x017d
0e6a 05ab 1068 | h| .DEBUG 0x05ab,0x1068,0x0001,0x0000,0x0036,0xff64,0x0000,0x018b
0e72 05f3 1082 | | .DEBUG 0x05f3,0x1082,0x0002,0x0000,0x0036,0xff64,0x0000,0x01a9
0e7a 0613 1090 | | .DEBUG 0x0613,0x1090,0x0002,0x0000,0x0036,0xff64,0x0000,0x01ba
0e82 062b 1098 | + | .DEBUG 0x062b,0x1098,0x0002,0x0000,0x0037,0x0074,0x0000,0x0a1f
0e8a 063b 109c | ; | .DEBUG 0x063b,0x109c,0x0001,0x0000,0x0037,0x0074,0x0000,0x0b95
0e92 064b 10a0 | K | .DEBUG 0x064b,0x10a0,0x0002,0x0000,0x0037,0x0074,0x0000,0x0bbf
0e9a 0663 10a4 | c | .DEBUG 0x0663,0x10a4,0x0002,0x0000,0x0037,0x0074,0x0000,0x00fa
0ea2 0673 10a8 | s | .DEBUG 0x0673,0x10a8,0x0002,0x0000,0x0037,0x0074,0x0000,0x0116
0eaa 068b 10ac | | .DEBUG 0x068b,0x10ac,0x0001,0x0000,0x0037,0x0074,0x0000,0x013f
0eb2 06f3 10ba | | .DEBUG 0x06f3,0x10ba,0x0001,0x0000,0x0037,0x0074,0x0000,0x01d3
0eba 076b 10d6 | k | .DEBUG 0x076b,0x10d6,0x0002,0x0000,0x0037,0x0074,0x0000,0x029a
0ec2 0783 10e4 | | .DEBUG 0x0783,0x10e4,0x0001,0x0000,0x0037,0x0074,0x0000,0x02dd
0eca 07e3 110e | | .DEBUG 0x07e3,0x110e,0x0004,0x0000,0x0037,0x0074,0x0000,0x0428
0ed2 0833 1120 | 3 | .DEBUG 0x0833,0x1120,0x0004,0x0000,0x0037,0x0074,0x0000,0x0716
0eda 0913 1146 | F| .DEBUG 0x0913,0x1146,0x0004,0x0000,0x0037,0x0074,0x0000,0x0993
0ee2 09bb 1164 | d| .DEBUG 0x09bb,0x1164,0x0004,0x0000,0x0037,0x0074,0x0000,0x0a1a
0eea 09d3 116c | l| .DEBUG 0x09d3,0x116c,0x0001,0x0000,0x0037,0x0074,0x0000,0x02e0
0ef2 ; --------------------------------------------------------------------------------------
0ef2 ; Debug3 Subtable 0x0
0ef2 ; --------------------------------------------------------------------------------------
0ef2 0018 0000 | | .DBG3TAB 0x0018,0x0000
0ef4 000b ffff | | .CONST 0x000b,0xffff
0ef6 0010 fffe | | .CONST 0x0010,0xfffe
0ef8 0015 fffd | | .CONST 0x0015,0xfffd
0efa 0019 fffc | | .CONST 0x0019,0xfffc
0efc 001d fffb | | .CONST 0x001d,0xfffb
0efe 0022 fffa | " | .CONST 0x0022,0xfffa
0f00 0027 fff9 | ' | .CONST 0x0027,0xfff9
0f02 0028 fff8 | ( | .CONST 0x0028,0xfff8
0f04 0029 fff7 | ) | .CONST 0x0029,0xfff7
0f06 002e fff6 | . | .CONST 0x002e,0xfff6
0f08 0033 fff5 | 3 | .CONST 0x0033,0xfff5
0f0a 0038 fff4 | 8 | .CONST 0x0038,0xfff4
0f0c 003f fff3 | ? | .CONST 0x003f,0xfff3
0f0e 005a fff2 | Z | .CONST 0x005a,0xfff2
0f10 0069 fff1 | i | .CONST 0x0069,0xfff1
0f12 006b fff0 | k | .CONST 0x006b,0xfff0
0f14 006d ffef | m | .CONST 0x006d,0xffef
0f16 006f ffee | o | .CONST 0x006f,0xffee
0f18 0071 ffed | q | .CONST 0x0071,0xffed
0f1a 0073 ffec | s | .CONST 0x0073,0xffec
0f1c 0075 ffeb | u | .CONST 0x0075,0xffeb
0f1e 0077 ffea | w | .CONST 0x0077,0xffea
0f20 0079 ffe9 | y | .CONST 0x0079,0xffe9
0f22 007b ffe8 | { | .CONST 0x007b,0xffe8
0f24 ; --------------------------------------------------------------------------------------
0f24 ; Debug3 Subtable 0x1
0f24 ; --------------------------------------------------------------------------------------
0f24 0016 0000 | | .DBG3TAB 0x0016,0x0000
0f26 007e ffff | ~ | .CONST 0x007e,0xffff
0f28 0080 fffe | | .CONST 0x0080,0xfffe
0f2a 0081 fffd | | .CONST 0x0081,0xfffd
0f2c 0085 fffc | | .CONST 0x0085,0xfffc
0f2e 0087 fffb | | .CONST 0x0087,0xfffb
0f30 0089 fffa | | .CONST 0x0089,0xfffa
0f32 008a fff9 | | .CONST 0x008a,0xfff9
0f34 008c fff8 | | .CONST 0x008c,0xfff8
0f36 008e fff7 | | .CONST 0x008e,0xfff7
0f38 0090 fff6 | | .CONST 0x0090,0xfff6
0f3a 0092 fff5 | | .CONST 0x0092,0xfff5
0f3c 0094 fff4 | | .CONST 0x0094,0xfff4
0f3e 0096 fff3 | | .CONST 0x0096,0xfff3
0f40 0098 fff2 | | .CONST 0x0098,0xfff2
0f42 009a fff1 | | .CONST 0x009a,0xfff1
0f44 009b fff0 | | .CONST 0x009b,0xfff0
0f46 00a4 ffef | | .CONST 0x00a4,0xffef
0f48 00a6 ffee | | .CONST 0x00a6,0xffee
0f4a 00b1 ffed | | .CONST 0x00b1,0xffed
0f4c 00b3 ffec | | .CONST 0x00b3,0xffec
0f4e 00b5 ffeb | | .CONST 0x00b5,0xffeb
0f50 00b7 ffea | | .CONST 0x00b7,0xffea
0f52 ; --------------------------------------------------------------------------------------
0f52 ; Debug3 Subtable 0x2
0f52 ; --------------------------------------------------------------------------------------
0f52 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f54 ; --------------------------------------------------------------------------------------
0f54 ; Debug3 Subtable 0x3
0f54 ; --------------------------------------------------------------------------------------
0f54 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f56 ; --------------------------------------------------------------------------------------
0f56 ; Debug3 Subtable 0x4
0f56 ; --------------------------------------------------------------------------------------
0f56 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f58 ; --------------------------------------------------------------------------------------
0f58 ; Debug3 Subtable 0x5
0f58 ; --------------------------------------------------------------------------------------
0f58 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f5a ; --------------------------------------------------------------------------------------
0f5a ; Debug3 Subtable 0x6
0f5a ; --------------------------------------------------------------------------------------
0f5a 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f5c ; --------------------------------------------------------------------------------------
0f5c ; Debug3 Subtable 0x7
0f5c ; --------------------------------------------------------------------------------------
0f5c 0000 0000 | | .DBG3TAB 0x0000,0x0000
0f5e ; --------------------------------------------------------------------------------------
0f5e ; Debug3 Subtable 0x8
0f5e ; --------------------------------------------------------------------------------------
0f5e 0001 000a | | .DBG3TAB 0x0001,0x000a
0f60 01ab ffff | | .CONST 0x01ab,0xffff
0f62 01ae 0001 | | .CONST 0x01ae,0x0001
0f64 01b4 0002 | | .CONST 0x01b4,0x0002
0f66 01bb 0003 | | .CONST 0x01bb,0x0003
0f68 01be 0004 | | .CONST 0x01be,0x0004
0f6a 01c3 0005 | | .CONST 0x01c3,0x0005
0f6c 01cc 0006 | | .CONST 0x01cc,0x0006
0f6e 01d3 0007 | | .CONST 0x01d3,0x0007
0f70 01dc 0008 | | .CONST 0x01dc,0x0008
0f72 01e2 0009 | | .CONST 0x01e2,0x0009
0f74 01e8 000a | | .CONST 0x01e8,0x000a
0f76 ; --------------------------------------------------------------------------------------
0f76 ; Debug3 Subtable 0x9
0f76 ; --------------------------------------------------------------------------------------
0f76 000c 0039 | 9| .DBG3TAB 0x000c,0x0039
0f78 01f3 ffff | | .CONST 0x01f3,0xffff
0f7a 01f5 fffe | | .CONST 0x01f5,0xfffe
0f7c 01f7 fffd | | .CONST 0x01f7,0xfffd
0f7e 01f9 fffc | | .CONST 0x01f9,0xfffc
0f80 01fb fffb | | .CONST 0x01fb,0xfffb
0f82 01fd fffa | | .CONST 0x01fd,0xfffa
0f84 01ff fff9 | | .CONST 0x01ff,0xfff9
0f86 0201 fff8 | | .CONST 0x0201,0xfff8
0f88 0203 fff7 | | .CONST 0x0203,0xfff7
0f8a 0208 fff6 | | .CONST 0x0208,0xfff6
0f8c 020c fff5 | | .CONST 0x020c,0xfff5
0f8e 020d fff4 | | .CONST 0x020d,0xfff4
0f90 0215 0001 | | .CONST 0x0215,0x0001
0f92 021c 0002 | | .CONST 0x021c,0x0002
0f94 021d 0003 | | .CONST 0x021d,0x0003
0f96 0241 0004 | A | .CONST 0x0241,0x0004
0f98 0243 0005 | C | .CONST 0x0243,0x0005
0f9a 0247 0006 | G | .CONST 0x0247,0x0006
0f9c 0258 0007 | X | .CONST 0x0258,0x0007
0f9e 0272 0008 | r | .CONST 0x0272,0x0008
0fa0 0275 0009 | u | .CONST 0x0275,0x0009
0fa2 0286 000a | | .CONST 0x0286,0x000a
0fa4 02a0 000b | | .CONST 0x02a0,0x000b
0fa6 02a2 000c | | .CONST 0x02a2,0x000c
0fa8 02a9 000d | | .CONST 0x02a9,0x000d
0faa 02b0 000e | | .CONST 0x02b0,0x000e
0fac 02c1 000f | | .CONST 0x02c1,0x000f
0fae 02db 0010 | | .CONST 0x02db,0x0010
0fb0 02e4 0011 | | .CONST 0x02e4,0x0011
0fb2 02f8 0012 | | .CONST 0x02f8,0x0012
0fb4 0312 0013 | | .CONST 0x0312,0x0013
0fb6 0314 0014 | | .CONST 0x0314,0x0014
0fb8 0328 0015 | ( | .CONST 0x0328,0x0015
0fba 032c 0016 | , | .CONST 0x032c,0x0016
0fbc 033d 0017 | = | .CONST 0x033d,0x0017
0fbe 0357 0018 | W | .CONST 0x0357,0x0018
0fc0 038c 0019 | | .CONST 0x038c,0x0019
0fc2 038e 001a | | .CONST 0x038e,0x001a
0fc4 0390 001b | | .CONST 0x0390,0x001b
0fc6 03a5 001c | | .CONST 0x03a5,0x001c
0fc8 03a7 001d | | .CONST 0x03a7,0x001d
0fca 03ad 001e | | .CONST 0x03ad,0x001e
0fcc 03af 001f | | .CONST 0x03af,0x001f
0fce 03bf 0020 | | .CONST 0x03bf,0x0020
0fd0 03c1 0021 | !| .CONST 0x03c1,0x0021
0fd2 03c8 0022 | "| .CONST 0x03c8,0x0022
0fd4 03cf 0023 | #| .CONST 0x03cf,0x0023
0fd6 03d7 0027 | '| .CONST 0x03d7,0x0027
0fd8 03ec 0024 | $| .CONST 0x03ec,0x0024
0fda 03f0 0025 | %| .CONST 0x03f0,0x0025
0fdc 03f4 0026 | &| .CONST 0x03f4,0x0026
0fde 03f9 0028 | (| .CONST 0x03f9,0x0028
0fe0 040e 0029 | )| .CONST 0x040e,0x0029
0fe2 0423 002a | # *| .CONST 0x0423,0x002a
0fe4 0433 002b | 3 +| .CONST 0x0433,0x002b
0fe6 0435 002c | 5 ,| .CONST 0x0435,0x002c
0fe8 043c 002d | < -| .CONST 0x043c,0x002d
0fea 0443 002e | C .| .CONST 0x0443,0x002e
0fec 044b 0032 | K 2| .CONST 0x044b,0x0032
0fee 0460 002f | ` /| .CONST 0x0460,0x002f
0ff0 0464 0030 | d 0| .CONST 0x0464,0x0030
0ff2 0468 0031 | h 1| .CONST 0x0468,0x0031
0ff4 046d 0033 | m 3| .CONST 0x046d,0x0033
0ff6 0482 0034 | 4| .CONST 0x0482,0x0034
0ff8 0497 0035 | 5| .CONST 0x0497,0x0035
0ffa 0499 0036 | 6| .CONST 0x0499,0x0036
0ffc 049b 0037 | 7| .CONST 0x049b,0x0037
0ffe 04a9 0038 | 8| .CONST 0x04a9,0x0038
1000 04c4 003a | :| .CONST 0x04c4,0x003a
1002 ; --------------------------------------------------------------------------------------
1002 ; Debug3 Subtable 0xa
1002 ; --------------------------------------------------------------------------------------
1002 0000 0001 | | .DBG3TAB 0x0000,0x0001
1004 04ed 0001 | | .CONST 0x04ed,0x0001
1006 ; --------------------------------------------------------------------------------------
1006 ; Debug3 Subtable 0xb
1006 ; --------------------------------------------------------------------------------------
1006 0004 0008 | | .DBG3TAB 0x0004,0x0008
1008 04f3 ffff | | .CONST 0x04f3,0xffff
100a 04f8 fffe | | .CONST 0x04f8,0xfffe
100c 04fa fffd | | .CONST 0x04fa,0xfffd
100e 04fb fffc | | .CONST 0x04fb,0xfffc
1010 04fd 0001 | | .CONST 0x04fd,0x0001
1012 0500 0002 | | .CONST 0x0500,0x0002
1014 0503 0003 | | .CONST 0x0503,0x0003
1016 0516 0004 | | .CONST 0x0516,0x0004
1018 051b 0005 | | .CONST 0x051b,0x0005
101a 051f 0006 | | .CONST 0x051f,0x0006
101c 0524 0007 | $ | .CONST 0x0524,0x0007
101e 0526 0008 | & | .CONST 0x0526,0x0008
1020 ; --------------------------------------------------------------------------------------
1020 ; Debug3 Subtable 0xc
1020 ; --------------------------------------------------------------------------------------
1020 0000 0001 | | .DBG3TAB 0x0000,0x0001
1022 0533 0001 | 3 | .CONST 0x0533,0x0001
1024 ; --------------------------------------------------------------------------------------
1024 ; Debug3 Subtable 0xd
1024 ; --------------------------------------------------------------------------------------
1024 0000 0001 | | .DBG3TAB 0x0000,0x0001
1026 0543 0001 | C | .CONST 0x0543,0x0001
1028 ; --------------------------------------------------------------------------------------
1028 ; Debug3 Subtable 0xe
1028 ; --------------------------------------------------------------------------------------
1028 0001 001e | | .DBG3TAB 0x0001,0x001e
102a 054b ffff | K | .CONST 0x054b,0xffff
102c 054c 0001 | L | .CONST 0x054c,0x0001
102e 0552 0002 | R | .CONST 0x0552,0x0002
1030 0554 0003 | T | .CONST 0x0554,0x0003
1032 0556 0004 | V | .CONST 0x0556,0x0004
1034 0557 0005 | W | .CONST 0x0557,0x0005
1036 055d 0006 | ] | .CONST 0x055d,0x0006
1038 055f 0007 | _ | .CONST 0x055f,0x0007
103a 0561 0008 | a | .CONST 0x0561,0x0008
103c 0562 0009 | b | .CONST 0x0562,0x0009
103e 0568 000a | h | .CONST 0x0568,0x000a
1040 056a 000b | j | .CONST 0x056a,0x000b
1042 056c 000c | l | .CONST 0x056c,0x000c
1044 056d 000d | m | .CONST 0x056d,0x000d
1046 0573 000e | s | .CONST 0x0573,0x000e
1048 0575 000f | u | .CONST 0x0575,0x000f
104a 0577 0010 | w | .CONST 0x0577,0x0010
104c 0578 0011 | x | .CONST 0x0578,0x0011
104e 057e 0012 | ~ | .CONST 0x057e,0x0012
1050 0580 0013 | | .CONST 0x0580,0x0013
1052 0582 0014 | | .CONST 0x0582,0x0014
1054 0583 0015 | | .CONST 0x0583,0x0015
1056 0589 0016 | | .CONST 0x0589,0x0016
1058 058b 0017 | | .CONST 0x058b,0x0017
105a 058d 0018 | | .CONST 0x058d,0x0018
105c 058e 0019 | | .CONST 0x058e,0x0019
105e 0594 001a | | .CONST 0x0594,0x001a
1060 0596 001b | | .CONST 0x0596,0x001b
1062 0598 001c | | .CONST 0x0598,0x001c
1064 0599 001d | | .CONST 0x0599,0x001d
1066 059f 001e | | .CONST 0x059f,0x001e
1068 ; --------------------------------------------------------------------------------------
1068 ; Debug3 Subtable 0xf
1068 ; --------------------------------------------------------------------------------------
1068 0004 0008 | | .DBG3TAB 0x0004,0x0008
106a 05ab ffff | | .CONST 0x05ab,0xffff
106c 05ad fffe | | .CONST 0x05ad,0xfffe
106e 05b2 fffd | | .CONST 0x05b2,0xfffd
1070 05b4 fffc | | .CONST 0x05b4,0xfffc
1072 05b6 0001 | | .CONST 0x05b6,0x0001
1074 05b9 0002 | | .CONST 0x05b9,0x0002
1076 05bd 0003 | | .CONST 0x05bd,0x0003
1078 05c4 0004 | | .CONST 0x05c4,0x0004
107a 05de 0005 | | .CONST 0x05de,0x0005
107c 05e0 0006 | | .CONST 0x05e0,0x0006
107e 05e4 0007 | | .CONST 0x05e4,0x0007
1080 05e6 0008 | | .CONST 0x05e6,0x0008
1082 ; --------------------------------------------------------------------------------------
1082 ; Debug3 Subtable 0x10
1082 ; --------------------------------------------------------------------------------------
1082 0001 0005 | | .DBG3TAB 0x0001,0x0005
1084 05f3 ffff | | .CONST 0x05f3,0xffff
1086 05f5 0001 | | .CONST 0x05f5,0x0001
1088 05fc 0002 | | .CONST 0x05fc,0x0002
108a 0600 0003 | | .CONST 0x0600,0x0003
108c 0607 0004 | | .CONST 0x0607,0x0004
108e 060b 0005 | | .CONST 0x060b,0x0005
1090 ; --------------------------------------------------------------------------------------
1090 ; Debug3 Subtable 0x11
1090 ; --------------------------------------------------------------------------------------
1090 0001 0002 | | .DBG3TAB 0x0001,0x0002
1092 0613 ffff | | .CONST 0x0613,0xffff
1094 061c 0001 | | .CONST 0x061c,0x0001
1096 0625 0002 | % | .CONST 0x0625,0x0002
1098 ; --------------------------------------------------------------------------------------
1098 ; Debug3 Subtable 0x12
1098 ; --------------------------------------------------------------------------------------
1098 0000 0001 | | .DBG3TAB 0x0000,0x0001
109a 062b 0001 | + | .CONST 0x062b,0x0001
109c ; --------------------------------------------------------------------------------------
109c ; Debug3 Subtable 0x13
109c ; --------------------------------------------------------------------------------------
109c 0000 0001 | | .DBG3TAB 0x0000,0x0001
109e 063b 0001 | ; | .CONST 0x063b,0x0001
10a0 ; --------------------------------------------------------------------------------------
10a0 ; Debug3 Subtable 0x14
10a0 ; --------------------------------------------------------------------------------------
10a0 0000 0001 | | .DBG3TAB 0x0000,0x0001
10a2 064b 0001 | K | .CONST 0x064b,0x0001
10a4 ; --------------------------------------------------------------------------------------
10a4 ; Debug3 Subtable 0x15
10a4 ; --------------------------------------------------------------------------------------
10a4 0000 0001 | | .DBG3TAB 0x0000,0x0001
10a6 0663 0001 | c | .CONST 0x0663,0x0001
10a8 ; --------------------------------------------------------------------------------------
10a8 ; Debug3 Subtable 0x16
10a8 ; --------------------------------------------------------------------------------------
10a8 0000 0001 | | .DBG3TAB 0x0000,0x0001
10aa 0673 0001 | s | .CONST 0x0673,0x0001
10ac ; --------------------------------------------------------------------------------------
10ac ; Debug3 Subtable 0x17
10ac ; --------------------------------------------------------------------------------------
10ac 0000 0006 | | .DBG3TAB 0x0000,0x0006
10ae 068b 0001 | | .CONST 0x068b,0x0001
10b0 0694 0006 | | .CONST 0x0694,0x0006
10b2 06a9 0002 | | .CONST 0x06a9,0x0002
10b4 06ba 0003 | | .CONST 0x06ba,0x0003
10b6 06cb 0004 | | .CONST 0x06cb,0x0004
10b8 06dc 0005 | | .CONST 0x06dc,0x0005
10ba ; --------------------------------------------------------------------------------------
10ba ; Debug3 Subtable 0x18
10ba ; --------------------------------------------------------------------------------------
10ba 0000 000d | | .DBG3TAB 0x0000,0x000d
10bc 06f3 0001 | | .CONST 0x06f3,0x0001
10be 06f6 0002 | | .CONST 0x06f6,0x0002
10c0 06fd 0006 | | .CONST 0x06fd,0x0006
10c2 0712 0003 | | .CONST 0x0712,0x0003
10c4 0716 0004 | | .CONST 0x0716,0x0004
10c6 071a 0005 | | .CONST 0x071a,0x0005
10c8 071f 0007 | | .CONST 0x071f,0x0007
10ca 0723 0008 | # | .CONST 0x0723,0x0008
10cc 072a 000c | * | .CONST 0x072a,0x000c
10ce 073f 0009 | ? | .CONST 0x073f,0x0009
10d0 0743 000a | C | .CONST 0x0743,0x000a
10d2 0747 000b | G | .CONST 0x0747,0x000b
10d4 074c 000d | L | .CONST 0x074c,0x000d
10d6 ; --------------------------------------------------------------------------------------
10d6 ; Debug3 Subtable 0x19
10d6 ; --------------------------------------------------------------------------------------
10d6 0002 0004 | | .DBG3TAB 0x0002,0x0004
10d8 076b ffff | k | .CONST 0x076b,0xffff
10da 076c fffe | l | .CONST 0x076c,0xfffe
10dc 076d 0001 | m | .CONST 0x076d,0x0001
10de 0777 0002 | w | .CONST 0x0777,0x0002
10e0 0779 0003 | y | .CONST 0x0779,0x0003
10e2 077b 0004 | { | .CONST 0x077b,0x0004
10e4 ; --------------------------------------------------------------------------------------
10e4 ; Debug3 Subtable 0x1a
10e4 ; --------------------------------------------------------------------------------------
10e4 0001 0013 | | .DBG3TAB 0x0001,0x0013
10e6 0783 ffff | | .CONST 0x0783,0xffff
10e8 0785 0001 | | .CONST 0x0785,0x0001
10ea 078c 0002 | | .CONST 0x078c,0x0002
10ec 0791 0003 | | .CONST 0x0791,0x0003
10ee 0796 0004 | | .CONST 0x0796,0x0004
10f0 0797 0005 | | .CONST 0x0797,0x0005
10f2 079c 0006 | | .CONST 0x079c,0x0006
10f4 079e 0007 | | .CONST 0x079e,0x0007
10f6 07a2 0008 | | .CONST 0x07a2,0x0008
10f8 07a7 0009 | | .CONST 0x07a7,0x0009
10fa 07a8 000a | | .CONST 0x07a8,0x000a
10fc 07af 000b | | .CONST 0x07af,0x000b
10fe 07b1 000c | | .CONST 0x07b1,0x000c
1100 07b2 000d | | .CONST 0x07b2,0x000d
1102 07bf 000e | | .CONST 0x07bf,0x000e
1104 07c4 000f | | .CONST 0x07c4,0x000f
1106 07ca 0010 | | .CONST 0x07ca,0x0010
1108 07d0 0011 | | .CONST 0x07d0,0x0011
110a 07d6 0012 | | .CONST 0x07d6,0x0012
110c 07d8 0013 | | .CONST 0x07d8,0x0013
110e ; --------------------------------------------------------------------------------------
110e ; Debug3 Subtable 0x1b
110e ; --------------------------------------------------------------------------------------
110e 0000 0008 | | .DBG3TAB 0x0000,0x0008
1110 07e3 0001 | | .CONST 0x07e3,0x0001
1112 07ea 0002 | | .CONST 0x07ea,0x0002
1114 07ed 0003 | | .CONST 0x07ed,0x0003
1116 0804 0004 | | .CONST 0x0804,0x0004
1118 080d 0005 | | .CONST 0x080d,0x0005
111a 0810 0006 | | .CONST 0x0810,0x0006
111c 0812 0007 | | .CONST 0x0812,0x0007
111e 0827 0008 | ' | .CONST 0x0827,0x0008
1120 ; --------------------------------------------------------------------------------------
1120 ; Debug3 Subtable 0x1c
1120 ; --------------------------------------------------------------------------------------
1120 0000 0012 | | .DBG3TAB 0x0000,0x0012
1122 0834 0001 | 4 | .CONST 0x0834,0x0001
1124 0837 0002 | 7 | .CONST 0x0837,0x0002
1126 083e 0003 | > | .CONST 0x083e,0x0003
1128 0840 0004 | @ | .CONST 0x0840,0x0004
112a 0855 0005 | U | .CONST 0x0855,0x0005
112c 0869 0006 | i | .CONST 0x0869,0x0006
112e 086c 0007 | l | .CONST 0x086c,0x0007
1130 0873 0008 | s | .CONST 0x0873,0x0008
1132 0875 0009 | u | .CONST 0x0875,0x0009
1134 088a 000a | | .CONST 0x088a,0x000a
1136 089a 000b | | .CONST 0x089a,0x000b
1138 08a1 000c | | .CONST 0x08a1,0x000c
113a 08a3 000d | | .CONST 0x08a3,0x000d
113c 08b3 000e | | .CONST 0x08b3,0x000e
113e 08bd 000f | | .CONST 0x08bd,0x000f
1140 08c8 0010 | | .CONST 0x08c8,0x0010
1142 08dd 0011 | | .CONST 0x08dd,0x0011
1144 08f4 0012 | | .CONST 0x08f4,0x0012
1146 ; --------------------------------------------------------------------------------------
1146 ; Debug3 Subtable 0x1d
1146 ; --------------------------------------------------------------------------------------
1146 0000 000e | | .DBG3TAB 0x0000,0x000e
1148 0913 0001 | | .CONST 0x0913,0x0001
114a 0926 0002 | & | .CONST 0x0926,0x0002
114c 0928 0003 | ( | .CONST 0x0928,0x0003
114e 092f 0004 | / | .CONST 0x092f,0x0004
1150 0934 0005 | 4 | .CONST 0x0934,0x0005
1152 0948 0006 | H | .CONST 0x0948,0x0006
1154 094f 0007 | O | .CONST 0x094f,0x0007
1156 0956 0008 | V | .CONST 0x0956,0x0008
1158 0962 0009 | b | .CONST 0x0962,0x0009
115a 0969 000a | i | .CONST 0x0969,0x000a
115c 096b 000b | k | .CONST 0x096b,0x000b
115e 0970 000c | p | .CONST 0x0970,0x000c
1160 0985 000d | | .CONST 0x0985,0x000d
1162 099c 000e | | .CONST 0x099c,0x000e
1164 ; --------------------------------------------------------------------------------------
1164 ; Debug3 Subtable 0x1e
1164 ; --------------------------------------------------------------------------------------
1164 0000 0003 | | .DBG3TAB 0x0000,0x0003
1166 09bb 0001 | | .CONST 0x09bb,0x0001
1168 09c3 0003 | | .CONST 0x09c3,0x0003
116a 09c6 0002 | | .CONST 0x09c6,0x0002
116c ; --------------------------------------------------------------------------------------
116c ; Debug3 Subtable 0x1f
116c ; --------------------------------------------------------------------------------------
116c 0001 0004 | | .DBG3TAB 0x0001,0x0004
116e 09d3 ffff | | .CONST 0x09d3,0xffff
1170 09d4 0001 | | .CONST 0x09d4,0x0001
1172 09d9 0002 | | .CONST 0x09d9,0x0002
1174 09dc 0003 | | .CONST 0x09dc,0x0003
1176 09e4 0004 | | .CONST 0x09e4,0x0004
1178 0000 0000 | | .BLANK 0000[0x88]