|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03c0 | | .CONST 0x03c0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0020 ; Debug Table 0x0 = .DEBUG 0x000b,0x03fa,0x0000,0x0000,0x004c,0x50d6,0x0000,0x0fa2
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8 ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 023b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0238 ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 6322 |c" | Indirect_Literal Discrete,0x334,{0x00000000, 0x4c50d60a} ; Debug Table 0x0.0x3 = 0x11,0xfffc
0012 0129 | ) | Execute Any,Make_Visible
0013 00bf | | Action Accept_Activation
0014 0092 0363 | c| Action Push_String_Extended,0x363 ; "******UNDELIVERED MESSAGE *********"
; Debug Table 0x1 = .DEBUG 0x0014,0x0404,0x0000,0x0000,0x004e,0x8755,0x0000,0x000a
; Debug Table 0x1.0x0 = 0x14,0xffff
0016 029d 02db | | Declare_Subprogram For_Outer_Call,INIT_02d8 ; Debug Table 0x1.0x1 = 0x16,0xfffe
0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x2 = 0x18,0xfffd
0019 00c7 | | Action Elaborate_Subprogram
001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x3 = 0x1a,0xfffc
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x1c,0xfffb
001d 00c7 | | Action Elaborate_Subprogram
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 004f | O | .CONST 0x004f ; Address of begin
0021 01e6 | | .CONST 0x01e6 ; Address of exception handler
0022 000b | | .CONST 0x000b ; Number of locals
0023 INIT_0020:
0023 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0023,0x0410,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fa3
; Debug Table 0x2.0x0 = 0x23,0xffff
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x1 = 0x25,0xfffe
0026 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 02ff | | Declare_Variable Variant_Record
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x2b,0xfffd
002c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002e 02ff | | Declare_Variable Variant_Record
002f 00d8 | | Load_Top At_Offset_0
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 e001 | | Load 0x0,0x1
0032 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0033 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0034 02ff | | Declare_Variable Variant_Record
0035 00d8 | | Load_Top At_Offset_0
0036 1c00 | | Execute_Immediate Run_Utility,0x0
0037 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x3 = 0x37,0xfffc
0038 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0039 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003a 02ff | | Declare_Variable Variant_Record
003b 00d8 | | Load_Top At_Offset_0
003c 1c00 | | Execute_Immediate Run_Utility,0x0
003d e001 | | Load 0x0,0x1
003e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0040 02ff | | Declare_Variable Variant_Record
0041 00d8 | | Load_Top At_Offset_0
0042 1c00 | | Execute_Immediate Run_Utility,0x0
0043 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x4 = 0x43,0xfffb
0044 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0045 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0047 039d | | Declare_Variable Heap_Access,Duplicate
0048 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x5 = 0x48,0xfffa
0049 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
004b 0322 | " | Declare_Variable Record
004c e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x6 = 0x4c,0xfff9
004d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
004e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
004f BODY_0020:
004f e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x7 = 0x4f,0x1
0050 e001 | | Load 0x0,0x1
0051 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0052 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0053 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0054 a402 | | Store_Unchecked 0x2,0x2
0055 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x8 = 0x55,0x2
0056 e5fd | | Load 0x2,-0x3
0057 e001 | | Load 0x0,0x1
0058 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0059 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
005a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
005b e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x9 = 0x5b,0x3
005c e402 | | Load 0x2,0x2
005d 0092 0364 | d| Action Push_String_Extended,0x364 ; "Return-Path: <>"
005f 4819 |H | Short_Literal 0x19
0060 e001 | | Load 0x0,0x1
0061 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0062 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0063 180e | | Execute Package,Field_Execute,Field_Number 0xe
0064 00d1 | | Pop_Control Pop_Count_1
0065 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xa = 0x65,0x4
0066 4fff |O | Short_Literal 0x7ff
0067 e5fd | | Load 0x2,-0x3
0068 e001 | | Load 0x0,0x1
0069 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
006b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006c e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xb = 0x6c,0x5
006d e402 | | Load 0x2,0x2
006e 0092 0365 | e| Action Push_String_Extended,0x365 ; "From: *System"
0070 4819 |H | Short_Literal 0x19
0071 e001 | | Load 0x0,0x1
0072 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0073 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0074 180e | | Execute Package,Field_Execute,Field_Number 0xe
0075 00d1 | | Pop_Control Pop_Count_1
0076 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xc = 0x76,0x6
0077 4fff |O | Short_Literal 0x7ff
0078 e5fd | | Load 0x2,-0x3
0079 e001 | | Load 0x0,0x1
007a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
007b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
007c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007d e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xd = 0x7d,0x7
007e 4819 |H | Short_Literal 0x19
007f e001 | | Load 0x0,0x1
0080 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0081 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0082 180e | | Execute Package,Field_Execute,Field_Number 0xe
0083 e403 | | Load 0x2,0x3
0084 016d | m | Execute Variant_Record,Structure_Write
0085 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xe = 0x85,0x8
0086 00ea | | Load_Encached Null_String_Cache
0087 4808 |H | Short_Literal 0x8
0088 e403 | | Load 0x2,0x3
0089 e001 | | Load 0x0,0x1
008a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
008c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
008d e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xf = 0x8d,0x9
008e 4807 |H | Short_Literal 0x7
008f e001 | | Load 0x0,0x1
0090 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0091 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0092 180e | | Execute Package,Field_Execute,Field_Number 0xe
0093 e405 | | Load 0x2,0x5
0094 016d | m | Execute Variant_Record,Structure_Write
0095 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x10 = 0x95,0xa
0096 0092 0366 | f| Action Push_String_Extended,0x366 ; "***Undelivered Message***"
0098 e405 | | Load 0x2,0x5
0099 e001 | | Load 0x0,0x1
009a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009d 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x11 = 0x9d,0xb
009e e405 | | Load 0x2,0x5
009f e403 | | Load 0x2,0x3
00a0 e001 | | Load 0x0,0x1
00a1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a2 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00a3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00a4 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x12 = 0xa4,0xc
00a5 4fff |O | Short_Literal 0x7ff
00a6 e5fd | | Load 0x2,-0x3
00a7 e001 | | Load 0x0,0x1
00a8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a9 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ab e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x13 = 0xab,0xd
00ac 480c |H | Short_Literal 0xc
00ad e5ff | | Load 0x2,-0x1
00ae e002 | | Load 0x0,0x2
00af 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b0 e403 | | Load 0x2,0x3
00b1 016d | m | Execute Variant_Record,Structure_Write
00b2 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x14 = 0xb2,0xe
00b3 e001 | | Load 0x0,0x1
00b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00b6 016f | o | Execute Variant_Record,Equal
00b7 6807 |h | Jump_Zero 0xbf
00b8 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x15 = 0xb8,0xf
00b9 4804 |H | Short_Literal 0x4
00ba e5ff | | Load 0x2,-0x1
00bb e002 | | Load 0x0,0x2
00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bd e403 | | Load 0x2,0x3
00be 016d | m | Execute Variant_Record,Structure_Write
00bf e407 | | Load 0x2,0x7 ; Debug Table 0x2.0x16 = 0xbf,0x10
00c0 e402 | | Load 0x2,0x2
00c1 0092 0367 | g| Action Push_String_Extended,0x367 ; "To: "
00c3 e402 | | Load 0x2,0x2
00c4 e001 | | Load 0x0,0x1
00c5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c6 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00c7 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c8 e403 | | Load 0x2,0x3
00c9 e001 | | Load 0x0,0x1
00ca 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cb 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00cc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00cd e001 | | Load 0x0,0x1
00ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cf 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00d0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d1 01cc | | Execute Vector,Catenate
00d2 4819 |H | Short_Literal 0x19
00d3 e001 | | Load 0x0,0x1
00d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00d6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d7 00d1 | | Pop_Control Pop_Count_1
00d8 e407 | | Load 0x2,0x7 ; Debug Table 0x2.0x17 = 0xd8,0x11
00d9 4fff |O | Short_Literal 0x7ff
00da e5fd | | Load 0x2,-0x3
00db e001 | | Load 0x0,0x1
00dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00dd 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00df e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x18 = 0xdf,0x12
00e0 e001 | | Load 0x0,0x1
00e1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00e5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x19 = 0xe5,0x13
00e6 e5fe | | Load 0x2,-0x2
00e7 e001 | | Load 0x0,0x1
00e8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ea e001 | | Load 0x0,0x1
00eb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ec 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ed 00d1 | | Pop_Control Pop_Count_1
00ee 0092 0368 | h| Action Push_String_Extended,0x368 ; "The following message was not delivered to:"
; Debug Table 0x2.0x1a = 0xee,0x14
00f0 00db | | Load_Top At_Offset_3
00f1 e001 | | Load 0x0,0x1
00f2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f3 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00f4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f5 00cf | | Action Mark_Auxiliary
00f6 783b |x; | Jump 0x132
00f7 00cf | | Action Mark_Auxiliary ; Debug Table 0x2.0x1b = 0xf7,0x16
00f8 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x1c = 0xf8,0xfbff
00f9 e001 | | Load 0x0,0x1
00fa 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00fb 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00fc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00fd e40a | | Load 0x2,0xa
00fe e001 | | Load 0x0,0x1
00ff 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0100 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0101 e001 | | Load 0x0,0x1
0102 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0103 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0104 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0105 0092 0369 | i| Action Push_String_Extended,0x369 ; " ("
0107 01cc | | Execute Vector,Catenate
0108 e40a | | Load 0x2,0xa
0109 e001 | | Load 0x0,0x1
010a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
010b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
010c e001 | | Load 0x0,0x1
010d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
010e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
010f 025e | ^ | Execute Discrete,Convert
0110 1c01 | | Execute_Immediate Run_Utility,0x1
0111 01cc | | Execute Vector,Catenate
0112 0092 036a | j| Action Push_String_Extended,0x36a ; ")"
0114 01cc | | Execute Vector,Catenate
0115 0007 | | Action Break_Optional
0116 e40a | | Load 0x2,0xa ; Debug Table 0x2.0x1d = 0x116,0x401
0117 e001 | | Load 0x0,0x1
0118 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0119 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
011a 00d1 | | Pop_Control Pop_Count_1
011b e40a | | Load 0x2,0xa ; Debug Table 0x2.0x1e = 0x11b,0x402
011c e001 | | Load 0x0,0x1
011d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
011e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
011f 7009 |p | Jump_Nonzero 0x129
0120 482c |H, | Short_Literal 0x2c ; Debug Table 0x2.0x1f = 0x120,0x403
0121 00d9 | | Load_Top At_Offset_1
0122 01cb | | Execute Vector,Append
0123 e409 | | Load 0x2,0x9
0124 e001 | | Load 0x0,0x1
0125 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0126 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0127 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0128 7806 |x | Jump 0x12f
0129 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x20 = 0x129,0x404
012a e409 | | Load 0x2,0x9
012b e001 | | Load 0x0,0x1
012c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
012d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
012e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012f 00d1 | | Pop_Control Pop_Count_1
0130 00ce | | Action Pop_Auxiliary
0131 00c9 | | Action Pop_Auxiliary_Loop
0132 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x21 = 0x132,0x15
0133 e001 | | Load 0x0,0x1
0134 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0135 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0136 6fc0 |o | Jump_Zero 0xf7
0137 00ce | | Action Pop_Auxiliary
0138 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x22 = 0x138,0x17
0139 00db | | Load_Top At_Offset_3
013a e001 | | Load 0x0,0x1
013b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
013c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
013d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
013e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x23 = 0x13e,0x18
013f e5fe | | Load 0x2,-0x2
0140 e001 | | Load 0x0,0x1
0141 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0142 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0143 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0144 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x24 = 0x144,0x19
0145 e001 | | Load 0x0,0x1
0146 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0147 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0148 702e |p. | Jump_Nonzero 0x177
0149 0092 036b | k| Action Push_String_Extended,0x36b ; "because:"
; Debug Table 0x2.0x25 = 0x149,0x1a
014b 00db | | Load_Top At_Offset_3
014c e001 | | Load 0x0,0x1
014d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
014e 1b19 | | Execute Package,Field_Read,Field_Number 0x19
014f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0150 00cf | | Action Mark_Auxiliary
0151 7819 |x | Jump 0x16b
0152 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x26 = 0x152,0x1c
0153 4850 |HP | Short_Literal 0x50
0154 00db | | Load_Top At_Offset_3
0155 e001 | | Load 0x0,0x1
0156 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0157 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0158 0092 036c | l| Action Push_String_Extended,0x36c ; " (source: "
015a 01cc | | Execute Vector,Catenate
015b e40b | | Load 0x2,0xb
015c e001 | | Load 0x0,0x1
015d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
015e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
015f 01cc | | Execute Vector,Catenate
0160 0092 036a | j| Action Push_String_Extended,0x36a ; ")"
0162 01cc | | Execute Vector,Catenate
0163 8212 | | Call 0x1,0x12
0164 c409 | | Store 0x2,0x9
0165 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x27 = 0x165,0x1d
0166 e001 | | Load 0x0,0x1
0167 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0168 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0169 0032 | 2 | Store_Top Heap_Access,At_Offset_2
016a 00c9 | | Action Pop_Auxiliary_Loop
016b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x28 = 0x16b,0x1b
016c e001 | | Load 0x0,0x1
016d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
016e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
016f 6fe2 |o | Jump_Zero 0x152
0170 00ce | | Action Pop_Auxiliary
0171 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x29 = 0x171,0x1e
0172 00db | | Load_Top At_Offset_3
0173 e001 | | Load 0x0,0x1
0174 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0175 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0176 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0177 e211 | | Load 0x1,0x11 ; Debug Table 0x2.0x2a = 0x177,0x1f
0178 00db | | Load_Top At_Offset_3
0179 e001 | | Load 0x0,0x1
017a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
017b 1b19 | | Execute Package,Field_Read,Field_Number 0x19
017c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
017d 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x2b = 0x17d,0x20
017e 00db | | Load_Top At_Offset_3
017f e001 | | Load 0x0,0x1
0180 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0181 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0182 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0183 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x2c = 0x183,0x21
0184 e001 | | Load 0x0,0x1
0185 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0186 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0187 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0188 a408 | | Store_Unchecked 0x2,0x8
0189 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x2d = 0x189,0x22
018a e402 | | Load 0x2,0x2
018b e001 | | Load 0x0,0x1
018c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
018d 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
018e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
018f e5ff | | Load 0x2,-0x1
0190 e001 | | Load 0x0,0x1
0191 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0192 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0193 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0194 c408 | | Store 0x2,0x8
0195 00cf | | Action Mark_Auxiliary
0196 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x2e = 0x196,0x23
0197 e001 | | Load 0x0,0x1
0198 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0199 1b19 | | Execute Package,Field_Read,Field_Number 0x19
019a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
019b 4801 |H | Short_Literal 0x1
019c 0263 | c | Execute Discrete,Above_Bound
019d 700e |p | Jump_Nonzero 0x1ac
019e 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x2f = 0x19e,0x24
019f 00d9 | | Load_Top At_Offset_1
01a0 e408 | | Load 0x2,0x8
01a1 e001 | | Load 0x0,0x1
01a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a3 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01a4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01a5 e409 | | Load 0x2,0x9
01a6 e001 | | Load 0x0,0x1
01a7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01a9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01aa 00c8 | | Action Pop_Auxiliary_Range
01ab 3ff2 |? | Loop_Increasing 0x19e
01ac 00ce | | Action Pop_Auxiliary
01ad e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x30 = 0x1ad,0x25
01ae 4819 |H | Short_Literal 0x19
01af e001 | | Load 0x0,0x1
01b0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01b1 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b3 e403 | | Load 0x2,0x3
01b4 016d | m | Execute Variant_Record,Structure_Write
01b5 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x31 = 0x1b5,0x26
01b6 00ea | | Load_Encached Null_String_Cache
01b7 4802 |H | Short_Literal 0x2
01b8 e403 | | Load 0x2,0x3
01b9 e001 | | Load 0x0,0x1
01ba 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01bb 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
01bc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01bd e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x32 = 0x1bd,0x27
01be e402 | | Load 0x2,0x2
01bf e409 | | Load 0x2,0x9
01c0 4805 |H | Short_Literal 0x5
01c1 e001 | | Load 0x0,0x1
01c2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01c4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01c5 00d1 | | Pop_Control Pop_Count_1
01c6 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x33 = 0x1c6,0x28
01c7 e404 | | Load 0x2,0x4
01c8 e403 | | Load 0x2,0x3
01c9 e001 | | Load 0x0,0x1
01ca 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01cb 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
01cc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01cd e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x34 = 0x1cd,0x29
01ce 4fff |O | Short_Literal 0x7ff
01cf e5fd | | Load 0x2,-0x3
01d0 e001 | | Load 0x0,0x1
01d1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01d2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d4 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x35 = 0x1d4,0x2a
01d5 e001 | | Load 0x0,0x1
01d6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01d7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d9 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01da 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x36 = 0x1da,0x2b
01db e001 | | Load 0x0,0x1
01dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01dd 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01de 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01df c408 | | Store 0x2,0x8
01e0 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x37 = 0x1e0,0x2c
01e1 e402 | | Load 0x2,0x2
01e2 e5fd | | Load 0x2,-0x3
01e3 e002 | | Load 0x0,0x2
01e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e5 4503 |E | Exit_Subprogram 0x3
01e6 TRAP_0020:
01e6 0007 | | Action Break_Optional
01e7 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x38 = 0x1e7,0x2d
01e8 e001 | | Load 0x0,0x1
01e9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ea 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01eb 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01ec c409 | | Store 0x2,0x9
01ed e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x39 = 0x1ed,0x2e
01ee e001 | | Load 0x0,0x1
01ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f2 c408 | | Store 0x2,0x8
01f3 4503 |E | Exit_Subprogram 0x3
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0201 | | .CONST 0x0201 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x01fb,0x0486,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0fb5
; Debug Table 0x3.0x0 = 0x1fb,0xffff
01fc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01fd 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01fe 0322 | " | Declare_Variable Record
01ff 00d8 | | Load_Top At_Offset_0
0200 1c00 | | Execute_Immediate Run_Utility,0x0
0201 BODY_01f8:
0201 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x201,0x1
0202 4801 |H | Short_Literal 0x1
0203 480b |H | Short_Literal 0xb
0204 e5ff | | Load 0x2,-0x1
0205 e001 | | Load 0x0,0x1
0206 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0207 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0208 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0209 00d1 | | Pop_Control Pop_Count_1
020a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x20a,0x2
020b e001 | | Load 0x0,0x1
020c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
020d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
020e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020f 6802 |h | Jump_Zero 0x212
0210 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x3 = 0x210,0x3
0211 4401 |D | Exit_Subprogram With_Result,0x1
0212 00cf | | Action Mark_Auxiliary
0213 7815 |x | Jump 0x229
0214 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x4 = 0x214,0x5
0215 e001 | | Load 0x0,0x1
0216 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0217 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0218 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0219 e001 | | Load 0x0,0x1
021a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
021b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
021c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
021d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021e 0e08 | | Execute_Immediate Not_Equal,0x8
021f 6802 |h | Jump_Zero 0x222
0220 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x5 = 0x220,0x6
0221 4401 |D | Exit_Subprogram With_Result,0x1
0222 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0x222,0x7
0223 e001 | | Load 0x0,0x1
0224 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0225 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0226 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0227 00d1 | | Pop_Control Pop_Count_1
0228 00c9 | | Action Pop_Auxiliary_Loop
0229 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0x229,0x4
022a e001 | | Load 0x0,0x1
022b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
022c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
022d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
022e 6fe5 |o | Jump_Zero 0x214
022f 00ce | | Action Pop_Auxiliary
0230 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x8 = 0x230,0x8
0231 4401 |D | Exit_Subprogram With_Result,0x1
0232 0000 0000 | | .BLANK 0000[0x6]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 024b | K | .CONST 0x024b ; Address of begin
0239 02c3 | | .CONST 0x02c3 ; Address of exception handler
023a 0005 | | .CONST 0x0005 ; Number of locals
023b INIT_0238:
023b e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x023b,0x049a,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fbe
; Debug Table 0x4.0x0 = 0x23b,0xffff
023c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
023d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023e 02ff | | Declare_Variable Variant_Record
023f 00d8 | | Load_Top At_Offset_0
0240 1c00 | | Execute_Immediate Run_Utility,0x0
0241 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x1 = 0x241,0xfffe
0242 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0243 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0244 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0245 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x2 = 0x245,0xfffd
0246 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0247 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0248 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0249 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x3 = 0x249,0xfffc
024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024b BODY_0238:
024b e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x4 = 0x24b,0x1
024c 820e | | Call 0x1,0xe
024d 7002 |p | Jump_Nonzero 0x250
024e e210 | | Load 0x1,0x10 ; Debug Table 0x4.0x5 = 0x24e,0x2
024f 0257 | W | Execute Discrete,Raise
0250 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x6 = 0x250,0x3
0251 4802 |H | Short_Literal 0x2
0252 e5ff | | Load 0x2,-0x1
0253 e002 | | Load 0x0,0x2
0254 180e | | Execute Package,Field_Execute,Field_Number 0xe
0255 e001 | | Load 0x0,0x1
0256 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0257 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0258 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0259 e402 | | Load 0x2,0x2
025a 016d | m | Execute Variant_Record,Structure_Write
025b e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x7 = 0x25b,0x4
025c e001 | | Load 0x0,0x1
025d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
025e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
025f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0260 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0261 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x8 = 0x261,0x5
0262 e001 | | Load 0x0,0x1
0263 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0264 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0265 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0266 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0267 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x9 = 0x267,0x6
0268 00d9 | | Load_Top At_Offset_1
0269 e001 | | Load 0x0,0x1
026a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
026b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
026c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
026d e402 | | Load 0x2,0x2
026e e001 | | Load 0x0,0x1
026f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0270 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0271 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0272 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0273 00cf | | Action Mark_Auxiliary
0274 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0xa = 0x274,0x7
0275 e001 | | Load 0x0,0x1
0276 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0277 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0278 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0279 4801 |H | Short_Literal 0x1
027a 0263 | c | Execute Discrete,Above_Bound
027b 7042 |pB | Jump_Nonzero 0x2be
027c 00cf | | Action Mark_Auxiliary ; Debug Table 0x4.0xb = 0x27c,0x8
027d 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xc = 0x27d,0xfbff
027e 00da | | Load_Top At_Offset_2
027f e403 | | Load 0x2,0x3
0280 e001 | | Load 0x0,0x1
0281 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0282 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0283 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0284 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xd = 0x284,0x401
0285 01dd | | Execute Vector,First
0286 00d9 | | Load_Top At_Offset_1
0287 01dc | | Execute Vector,Last
0288 0afe | | Execute_Immediate Plus,-0x2
0289 0248 | H | Execute Discrete,Check_In_Integer
028a 00da | | Load_Top At_Offset_2
028b 01cf | | Execute Vector,Slice_Read
028c e211 | | Load 0x1,0x11
028d 01df | | Execute Vector,Equal
028e 682b |h+ | Jump_Zero 0x2ba
028f e403 | | Load 0x2,0x3 ; Debug Table 0x4.0xe = 0x28f,0x402
0290 e001 | | Load 0x0,0x1
0291 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0292 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0293 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0294 00db | | Load_Top At_Offset_3
0295 0272 | r | Execute Discrete,Minus
0296 0248 | H | Execute Discrete,Check_In_Integer
0297 0aff | | Execute_Immediate Plus,-0x1
0298 00e3 | | Load_Encached Natural_Cache
0299 025b | [ | Execute Discrete,Check_In_Type
029a 00db | | Load_Top At_Offset_3
029b 0a02 | | Execute_Immediate Plus,0x2
029c 0248 | H | Execute Discrete,Check_In_Integer
029d e405 | | Load 0x2,0x5
029e e403 | | Load 0x2,0x3
029f e001 | | Load 0x0,0x1
02a0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02a1 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02a3 a404 | | Store_Unchecked 0x2,0x4
02a4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xf = 0x2a4,0x403
02a5 e405 | | Load 0x2,0x5
02a6 e404 | | Load 0x2,0x4
02a7 480f |H | Short_Literal 0xf
02a8 e001 | | Load 0x0,0x1
02a9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02aa 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02ab 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02ac 00d1 | | Pop_Control Pop_Count_1
02ad e403 | | Load 0x2,0x3 ; Debug Table 0x4.0x10 = 0x2ad,0x404
02ae e001 | | Load 0x0,0x1
02af 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02b0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b2 c403 | | Store 0x2,0x3
02b3 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0x11 = 0x2b3,0x405
02b4 e001 | | Load 0x0,0x1
02b5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02b6 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b8 c404 | | Store 0x2,0x4
02b9 4502 |E | Exit_Subprogram 0x2 ; Debug Table 0x4.0x12 = 0x2b9,0x406
02ba 00d1 | | Pop_Control Pop_Count_1
02bb 00ce | | Action Pop_Auxiliary
02bc 00c8 | | Action Pop_Auxiliary_Range
02bd 3fbe |? | Loop_Increasing 0x27c
02be 00ce | | Action Pop_Auxiliary
02bf e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x13 = 0x2bf,0x9
02c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02c1 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02c2 0257 | W | Execute Discrete,Raise
02c3 TRAP_0238:
02c3 0007 | | Action Break_Optional
02c4 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x14 = 0x2c4,0xa
02c5 e001 | | Load 0x0,0x1
02c6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02c7 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c9 c403 | | Store 0x2,0x3
02ca 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x15 = 0x2ca,0xb
02cb e001 | | Load 0x0,0x1
02cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02cd 1b19 | | Execute Package,Field_Read,Field_Number 0x19
02ce 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02cf 0033 | 3 | Store_Top Heap_Access,At_Offset_3
02d0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x16 = 0x2d0,0xc
02d1 0101 | | Execute Exception,Reraise
02d2 0000 0000 | | .BLANK 0000[0x6]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02ea | | .CONST 0x02ea ; Address of begin
02d9 0321 | ! | .CONST 0x0321 ; Address of exception handler
02da 0005 | | .CONST 0x0005 ; Number of locals
02db INIT_02d8:
02db 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x02db,0x04ca,0x0001,0x0000,0x004e,0x8755,0x0000,0x0011
; Debug Table 0x5.0x0 = 0x2db,0xffff
02dc 01dd | | Execute Vector,First
02dd 00e4 | | Load_Encached Positive_Cache
02de 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02df 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x2df,0xfffe
02e0 e5fe | | Load 0x2,-0x2
02e1 0273 | s | Execute Discrete,Plus
02e2 0248 | H | Execute Discrete,Check_In_Integer
02e3 0aff | | Execute_Immediate Plus,-0x1
02e4 00e4 | | Load_Encached Positive_Cache
02e5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02e6 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x2 = 0x2e6,0xfffd
02e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02e8 029f 033b | ;| Declare_Subprogram For_Call,INIT_0338 ; Debug Table 0x5.0x3 = 0x2e8,0xfffc
02ea BODY_02d8:
02ea 00cf | | Action Mark_Auxiliary
02eb 782a |x* | Jump 0x316
02ec 00cf | | Action Mark_Auxiliary
02ed e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x4 = 0x2ed,0x2
02ee e403 | | Load 0x2,0x3
02ef 0264 | d | Execute Discrete,Below_Bound
02f0 7017 |p | Jump_Nonzero 0x308
02f1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0x2f1,0x3
02f2 0a01 | | Execute_Immediate Plus,0x1
02f3 0248 | H | Execute Discrete,Check_In_Integer
02f4 e5ff | | Load 0x2,-0x1
02f5 01d7 | | Execute Vector,Field_Read
02f6 0f20 | | Execute_Immediate Equal,0x20
02f7 700a |p | Jump_Nonzero 0x302
02f8 00d8 | | Load_Top At_Offset_0
02f9 e5ff | | Load 0x2,-0x1
02fa 01d7 | | Execute Vector,Field_Read
02fb 0f2c | , | Execute_Immediate Equal,0x2c
02fc 7005 |p | Jump_Nonzero 0x302
02fd 00d8 | | Load_Top At_Offset_0
02fe e5ff | | Load 0x2,-0x1
02ff 01d7 | | Execute Vector,Field_Read
0300 0f3b | ; | Execute_Immediate Equal,0x3b
0301 6804 |h | Jump_Zero 0x306
0302 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x6 = 0x302,0x4
0303 a403 | | Store_Unchecked 0x2,0x3
0304 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x5.0x7 = 0x304,0x5
0305 7802 |x | Jump 0x308
0306 00c8 | | Action Pop_Auxiliary_Range
0307 37e9 |7 | Loop_Decreasing 0x2f1
0308 00ce | | Action Pop_Auxiliary
0309 8405 | | Call 0x2,0x5 ; Debug Table 0x5.0x8 = 0x309,0x6
030a 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x9 = 0x30a,0x7
030b 0a01 | | Execute_Immediate Plus,0x1
030c c402 | | Store 0x2,0x2
030d e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xa = 0x30d,0x8
030e e5fe | | Load 0x2,-0x2
030f 0273 | s | Execute Discrete,Plus
0310 0248 | H | Execute Discrete,Check_In_Integer
0311 0aff | | Execute_Immediate Plus,-0x1
0312 c403 | | Store 0x2,0x3
0313 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0xb = 0x313,0x9
0314 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0315 00c9 | | Action Pop_Auxiliary_Loop
0316 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xc = 0x316,0x1
0317 e5ff | | Load 0x2,-0x1
0318 01dc | | Execute Vector,Last
0319 027c | | | Execute Discrete,Less
031a 77d1 |w | Jump_Nonzero 0x2ec
031b 00ce | | Action Pop_Auxiliary
031c e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0xd = 0x31c,0xa
031d 01dc | | Execute Vector,Last
031e 005b | [ | Store_Top Discrete,At_Offset_3
031f 8405 | | Call 0x2,0x5 ; Debug Table 0x5.0xe = 0x31f,0xb
0320 4503 |E | Exit_Subprogram 0x3
0321 TRAP_02d8:
0321 0007 | | Action Break_Optional
0322 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xf = 0x322,0xc
0323 e5ff | | Load 0x2,-0x1
0324 01dc | | Execute Vector,Last
0325 027a | z | Execute Discrete,Less_Equal
0326 680a |h | Jump_Zero 0x331
0327 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x10 = 0x327,0xd
0328 e5ff | | Load 0x2,-0x1
0329 01dc | | Execute Vector,Last
032a e5ff | | Load 0x2,-0x1
032b 01cf | | Execute Vector,Slice_Read
032c e5fd | | Load 0x2,-0x3
032d e001 | | Load 0x0,0x1
032e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
032f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0330 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0331 4503 |E | Exit_Subprogram 0x3
0332 0000 0000 | | .XXX[0x2]
0334 0000 0000 | | .LITERAL {0x00000000, 0x4c50d60a}
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e403 | | Load 0x2,0x3 ; Debug Table 0x6 = .DEBUG 0x033b,0x04ee,0x0001,0x0000,0x004e,0x8755,0x0000,0x0041
; Debug Table 0x6.0x0 = 0x33b,0x1
033c e402 | | Load 0x2,0x2
033d 027c | | | Execute Discrete,Less
033e 6807 |h | Jump_Zero 0x346
033f 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x6.0x1 = 0x33f,0x2
0340 e5fd | | Load 0x2,-0x3
0341 e001 | | Load 0x0,0x1
0342 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0343 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0344 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0345 4501 |E | Exit_Subprogram 0x1
0346 e404 | | Load 0x2,0x4 ; Debug Table 0x6.0x2 = 0x346,0x3
0347 6811 |h | Jump_Zero 0x359
0348 e402 | | Load 0x2,0x2
0349 e5ff | | Load 0x2,-0x1
034a 01d7 | | Execute Vector,Field_Read
034b 0e20 | | Execute_Immediate Not_Equal,0x20
034c 680c |h | Jump_Zero 0x359
034d 4820 |H | Short_Literal 0x20 ; Debug Table 0x6.0x3 = 0x34d,0x4
034e e402 | | Load 0x2,0x2
034f e403 | | Load 0x2,0x3
0350 e5ff | | Load 0x2,-0x1
0351 01cf | | Execute Vector,Slice_Read
0352 01ca | | Execute Vector,Prepend
0353 e5fd | | Load 0x2,-0x3
0354 e001 | | Load 0x0,0x1
0355 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0356 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0357 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0358 4501 |E | Exit_Subprogram 0x1
0359 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x4 = 0x359,0x5
035a e403 | | Load 0x2,0x3
035b e5ff | | Load 0x2,-0x1
035c 01cf | | Execute Vector,Slice_Read
035d e5fd | | Load 0x2,-0x3
035e e001 | | Load 0x0,0x1
035f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0360 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0361 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0362 4501 |E | Exit_Subprogram 0x1
0363 ; --------------------------------------------------------------------------------------
0363 ; STRING TABLE
0363 ; --------------------------------------------------------------------------------------
0363 0016 | | .STRTAB 0x0016->0x036e ; "******UNDELIVERED MESSAGE *********"
0364 0037 | 7 | .STRTAB 0x0037->0x037f ; "Return-Path: <>"
0365 0044 | D | .STRTAB 0x0044->0x0387 ; "From: *System"
0366 004f | O | .STRTAB 0x004f->0x038d ; "***Undelivered Message***"
0367 0066 | f | .STRTAB 0x0066->0x039a ; "To: "
0368 0068 | h | .STRTAB 0x0068->0x039c ; "The following message was not delivered to:"
0369 0091 | | .STRTAB 0x0091->0x03b1 ; " ("
036a 0091 | | .STRTAB 0x0091->0x03b2 ; ")"
; ")"
036b 0090 | | .STRTAB 0x0090->0x03b3 ; "because:"
036c 0096 | | .STRTAB 0x0096->0x03b7 ; " (source: "
036d 009e | | .STREND 0x009e->0x03bc
036e 2a2a 2a2a |****| .STRTAB_STRINGS
03bc 0000 0000 | | .BLANK 0000[0x4]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug Table
03c0 ; --------------------------------------------------------------------------------------
03c0 0003 0007 | | .CONST 0x0003,0x0007
03c2 000b 03fa | | .DEBUG 0x000b,0x03fa,0x0000,0x0000,0x004c,0x50d6,0x0000,0x0fa2
03ca 0014 0404 | | .DEBUG 0x0014,0x0404,0x0000,0x0000,0x004e,0x8755,0x0000,0x000a
03d2 0023 0410 | # | .DEBUG 0x0023,0x0410,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fa3
03da 01fb 0486 | | .DEBUG 0x01fb,0x0486,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0fb5
03e2 023b 049a | ; | .DEBUG 0x023b,0x049a,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fbe
03ea 02db 04ca | | .DEBUG 0x02db,0x04ca,0x0001,0x0000,0x004e,0x8755,0x0000,0x0011
03f2 033b 04ee | ; | .DEBUG 0x033b,0x04ee,0x0001,0x0000,0x004e,0x8755,0x0000,0x0041
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug3 Subtable 0x0
03fa ; --------------------------------------------------------------------------------------
03fa 0004 0000 | | .DBG3TAB 0x0004,0x0000
03fc 000b ffff | | .CONST 0x000b,0xffff
03fe 000d fffe | | .CONST 0x000d,0xfffe
0400 000f fffd | | .CONST 0x000f,0xfffd
0402 0011 fffc | | .CONST 0x0011,0xfffc
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug3 Subtable 0x1
0404 ; --------------------------------------------------------------------------------------
0404 0005 0000 | | .DBG3TAB 0x0005,0x0000
0406 0014 ffff | | .CONST 0x0014,0xffff
0408 0016 fffe | | .CONST 0x0016,0xfffe
040a 0018 fffd | | .CONST 0x0018,0xfffd
040c 001a fffc | | .CONST 0x001a,0xfffc
040e 001c fffb | | .CONST 0x001c,0xfffb
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug3 Subtable 0x2
0410 ; --------------------------------------------------------------------------------------
0410 0008 0032 | 2| .DBG3TAB 0x0008,0x0032
0412 0023 ffff | # | .CONST 0x0023,0xffff
0414 0025 fffe | % | .CONST 0x0025,0xfffe
0416 002b fffd | + | .CONST 0x002b,0xfffd
0418 0037 fffc | 7 | .CONST 0x0037,0xfffc
041a 0043 fffb | C | .CONST 0x0043,0xfffb
041c 0048 fffa | H | .CONST 0x0048,0xfffa
041e 004c fff9 | L | .CONST 0x004c,0xfff9
0420 004f 0001 | O | .CONST 0x004f,0x0001
0422 0055 0002 | U | .CONST 0x0055,0x0002
0424 005b 0003 | [ | .CONST 0x005b,0x0003
0426 0065 0004 | e | .CONST 0x0065,0x0004
0428 006c 0005 | l | .CONST 0x006c,0x0005
042a 0076 0006 | v | .CONST 0x0076,0x0006
042c 007d 0007 | } | .CONST 0x007d,0x0007
042e 0085 0008 | | .CONST 0x0085,0x0008
0430 008d 0009 | | .CONST 0x008d,0x0009
0432 0095 000a | | .CONST 0x0095,0x000a
0434 009d 000b | | .CONST 0x009d,0x000b
0436 00a4 000c | | .CONST 0x00a4,0x000c
0438 00ab 000d | | .CONST 0x00ab,0x000d
043a 00b2 000e | | .CONST 0x00b2,0x000e
043c 00b8 000f | | .CONST 0x00b8,0x000f
043e 00bf 0010 | | .CONST 0x00bf,0x0010
0440 00d8 0011 | | .CONST 0x00d8,0x0011
0442 00df 0012 | | .CONST 0x00df,0x0012
0444 00e5 0013 | | .CONST 0x00e5,0x0013
0446 00ee 0014 | | .CONST 0x00ee,0x0014
0448 00f7 0016 | | .CONST 0x00f7,0x0016
044a 00f8 fbff | | .CONST 0x00f8,0xfbff
044c 0116 0401 | | .CONST 0x0116,0x0401
044e 011b 0402 | | .CONST 0x011b,0x0402
0450 0120 0403 | | .CONST 0x0120,0x0403
0452 0129 0404 | ) | .CONST 0x0129,0x0404
0454 0132 0015 | 2 | .CONST 0x0132,0x0015
0456 0138 0017 | 8 | .CONST 0x0138,0x0017
0458 013e 0018 | > | .CONST 0x013e,0x0018
045a 0144 0019 | D | .CONST 0x0144,0x0019
045c 0149 001a | I | .CONST 0x0149,0x001a
045e 0152 001c | R | .CONST 0x0152,0x001c
0460 0165 001d | e | .CONST 0x0165,0x001d
0462 016b 001b | k | .CONST 0x016b,0x001b
0464 0171 001e | q | .CONST 0x0171,0x001e
0466 0177 001f | w | .CONST 0x0177,0x001f
0468 017d 0020 | } | .CONST 0x017d,0x0020
046a 0183 0021 | !| .CONST 0x0183,0x0021
046c 0189 0022 | "| .CONST 0x0189,0x0022
046e 0196 0023 | #| .CONST 0x0196,0x0023
0470 019e 0024 | $| .CONST 0x019e,0x0024
0472 01ad 0025 | %| .CONST 0x01ad,0x0025
0474 01b5 0026 | &| .CONST 0x01b5,0x0026
0476 01bd 0027 | '| .CONST 0x01bd,0x0027
0478 01c6 0028 | (| .CONST 0x01c6,0x0028
047a 01cd 0029 | )| .CONST 0x01cd,0x0029
047c 01d4 002a | *| .CONST 0x01d4,0x002a
047e 01da 002b | +| .CONST 0x01da,0x002b
0480 01e0 002c | ,| .CONST 0x01e0,0x002c
0482 01e7 002d | -| .CONST 0x01e7,0x002d
0484 01ed 002e | .| .CONST 0x01ed,0x002e
0486 ; --------------------------------------------------------------------------------------
0486 ; Debug3 Subtable 0x3
0486 ; --------------------------------------------------------------------------------------
0486 0001 0008 | | .DBG3TAB 0x0001,0x0008
0488 01fb ffff | | .CONST 0x01fb,0xffff
048a 0201 0001 | | .CONST 0x0201,0x0001
048c 020a 0002 | | .CONST 0x020a,0x0002
048e 0210 0003 | | .CONST 0x0210,0x0003
0490 0214 0005 | | .CONST 0x0214,0x0005
0492 0220 0006 | | .CONST 0x0220,0x0006
0494 0222 0007 | " | .CONST 0x0222,0x0007
0496 0229 0004 | ) | .CONST 0x0229,0x0004
0498 0230 0008 | 0 | .CONST 0x0230,0x0008
049a ; --------------------------------------------------------------------------------------
049a ; Debug3 Subtable 0x4
049a ; --------------------------------------------------------------------------------------
049a 0005 0012 | | .DBG3TAB 0x0005,0x0012
049c 023b ffff | ; | .CONST 0x023b,0xffff
049e 0241 fffe | A | .CONST 0x0241,0xfffe
04a0 0245 fffd | E | .CONST 0x0245,0xfffd
04a2 0249 fffc | I | .CONST 0x0249,0xfffc
04a4 024b 0001 | K | .CONST 0x024b,0x0001
04a6 024e 0002 | N | .CONST 0x024e,0x0002
04a8 0250 0003 | P | .CONST 0x0250,0x0003
04aa 025b 0004 | [ | .CONST 0x025b,0x0004
04ac 0261 0005 | a | .CONST 0x0261,0x0005
04ae 0267 0006 | g | .CONST 0x0267,0x0006
04b0 0274 0007 | t | .CONST 0x0274,0x0007
04b2 027c 0008 | | | .CONST 0x027c,0x0008
04b4 027d fbff | } | .CONST 0x027d,0xfbff
04b6 0284 0401 | | .CONST 0x0284,0x0401
04b8 028f 0402 | | .CONST 0x028f,0x0402
04ba 02a4 0403 | | .CONST 0x02a4,0x0403
04bc 02ad 0404 | | .CONST 0x02ad,0x0404
04be 02b3 0405 | | .CONST 0x02b3,0x0405
04c0 02b9 0406 | | .CONST 0x02b9,0x0406
04c2 02bf 0009 | | .CONST 0x02bf,0x0009
04c4 02c4 000a | | .CONST 0x02c4,0x000a
04c6 02ca 000b | | .CONST 0x02ca,0x000b
04c8 02d0 000c | | .CONST 0x02d0,0x000c
04ca ; --------------------------------------------------------------------------------------
04ca ; Debug3 Subtable 0x5
04ca ; --------------------------------------------------------------------------------------
04ca 0004 000d | | .DBG3TAB 0x0004,0x000d
04cc 02db ffff | | .CONST 0x02db,0xffff
04ce 02df fffe | | .CONST 0x02df,0xfffe
04d0 02e6 fffd | | .CONST 0x02e6,0xfffd
04d2 02e8 fffc | | .CONST 0x02e8,0xfffc
04d4 02ed 0002 | | .CONST 0x02ed,0x0002
04d6 02f1 0003 | | .CONST 0x02f1,0x0003
04d8 0302 0004 | | .CONST 0x0302,0x0004
04da 0304 0005 | | .CONST 0x0304,0x0005
04dc 0309 0006 | | .CONST 0x0309,0x0006
04de 030a 0007 | | .CONST 0x030a,0x0007
04e0 030d 0008 | | .CONST 0x030d,0x0008
04e2 0313 0009 | | .CONST 0x0313,0x0009
04e4 0316 0001 | | .CONST 0x0316,0x0001
04e6 031c 000a | | .CONST 0x031c,0x000a
04e8 031f 000b | | .CONST 0x031f,0x000b
04ea 0322 000c | " | .CONST 0x0322,0x000c
04ec 0327 000d | ' | .CONST 0x0327,0x000d
04ee ; --------------------------------------------------------------------------------------
04ee ; Debug3 Subtable 0x6
04ee ; --------------------------------------------------------------------------------------
04ee 0000 0005 | | .DBG3TAB 0x0000,0x0005
04f0 033b 0001 | ; | .CONST 0x033b,0x0001
04f2 033f 0002 | ? | .CONST 0x033f,0x0002
04f4 0346 0003 | F | .CONST 0x0346,0x0003
04f6 034d 0004 | M | .CONST 0x034d,0x0004
04f8 0359 0005 | Y | .CONST 0x0359,0x0005
04fa 0000 0000 | | .BLANK 0000[0x106]