|
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: 2048 (0x800)
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 0228 | ( | .CONST 0x0228 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005c | \ | .CONST 0x005c ; Address of begin
0009 006b | k | .CONST 0x006b ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x027a,0x8000,0x0000,0x004c,0x56e6,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4802 |H | Short_Literal 0x2
000d 029f 007b | {| Declare_Subprogram For_Call,INIT_0078
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0012 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1
0013 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090 ; Debug Table 0x0.0x2 = 0x13,0xfffd
0015 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8 ; Debug Table 0x0.0x3 = 0x15,0xfffc
0017 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8 ; Debug Table 0x0.0x4 = 0x17,0xfffb
0019 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0 ; Debug Table 0x0.0x5 = 0x19,0xfffa
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001c 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x1c,0xfff8
001d 00bf | | Action Accept_Activation ; Debug Table 0x0.0x8 = 0x1d,0xfff7
001e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001e,0x028e,0x8000,0x0000,0x004e,0xd7c5,0x0000,0x001f
; Debug Table 0x1.0x0 = 0x1e,0xffff
001f e20d | | Load 0x1,0xd ; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 0266 | f | Execute Discrete,Bounds
0021 e002 | | Load 0x0,0x2
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 029f 014b | K| Declare_Subprogram For_Call,INIT_0148
0025 4801 |H | Short_Literal 0x1
0026 035d | ] | Declare_Type Array,Defined
0027 00d8 | | Load_Top At_Offset_0
0028 0337 | 7 | Declare_Variable Array
0029 00d8 | | Load_Top At_Offset_0
002a 0337 | 7 | Declare_Variable Array
002b 4802 |H | Short_Literal 0x2
002c 4800 |H | Short_Literal 0x0
002d e003 | | Load 0x0,0x3
002e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
002f e003 | | Load 0x0,0x3
0030 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0031 0119 | | Execute Any,Check_In_Formal_Type
0032 00d9 | | Load_Top At_Offset_1
0033 e215 | | Load 0x1,0x15
0034 01d6 | | Execute Vector,Field_Write
0035 3ff7 |? | Loop_Increasing 0x2d
0036 00d9 | | Load_Top At_Offset_1
0037 01d4 | | Execute Vector,Structure_Write
0038 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x2 = 0x38,0xfffd
0039 0092 01b0 | | Action Push_String_Extended,0x1b0 ; "Nonexistent Queue"
003b e004 | | Load 0x0,0x4
003c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
003d e004 | | Load 0x0,0x4
003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003f 011e | | Execute Any,Convert
0040 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x3 = 0x40,0xfffc
0041 0092 01b1 | | Action Push_String_Extended,0x1b1 ; "Create Failed"
0043 e004 | | Load 0x0,0x4
0044 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0045 e004 | | Load 0x0,0x4
0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0047 011e | | Execute Any,Convert
0048 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x4 = 0x48,0xfffb
0049 0092 01b2 | | Action Push_String_Extended,0x1b2 ; "Unhandled Exception"
004b e004 | | Load 0x0,0x4
004c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
004d e004 | | Load 0x0,0x4
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 011e | | Execute Any,Convert
0050 029d 0163 | c| Declare_Subprogram For_Outer_Call,INIT_0160 ; Debug Table 0x1.0x5 = 0x50,0xfffa
0052 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x6 = 0x52,0xfff9
0053 00c7 | | Action Elaborate_Subprogram
0054 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x7 = 0x54,0xfff8
0055 00c7 | | Action Elaborate_Subprogram
0056 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x8 = 0x56,0xfff7
0057 00c7 | | Action Elaborate_Subprogram
0058 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x9 = 0x58,0xfff6
0059 00c7 | | Action Elaborate_Subprogram
005a 029f 017b | {| Declare_Subprogram For_Call,INIT_0178
005c BODY_0008:
005c e005 | | Load 0x0,0x5 ; Debug Table 0x1.0xa = 0x5c,0x1
005d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
005e e005 | | Load 0x0,0x5
005f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0060 6808 |h | Jump_Zero 0x69
0061 00cf | | Action Mark_Auxiliary
0062 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0xb = 0x62,0x2
0063 4800 |H | Short_Literal 0x0
0064 0007 | | Action Break_Optional
0065 8219 | | Call 0x1,0x19 ; Debug Table 0x1.0xc = 0x65,0x3
0066 00c8 | | Action Pop_Auxiliary_Range
0067 3ffd |? | Loop_Increasing 0x65
0068 00ce | | Action Pop_Auxiliary
0069 00bc | | Action Signal_Activated
006a 00bb | | Action Signal_Completion
006b TRAP_0008:
006b 0007 | | Action Break_Optional
006c 0092 01b3 | | Action Push_String_Extended,0x1b3 ; "Elaboration"
; Debug Table 0x1.0xd = 0x6c,0x4
006e 8006 | | Call 0x0,0x6
006f e217 | | Load 0x1,0x17
0070 8218 | | Call 0x1,0x18
0071 00bc | | Action Signal_Activated
0072 00bb | | Action Signal_Completion
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4603 |F | Jump_Case 0x3 ; Debug Table 0x2 = .DEBUG 0x007b,0x02ac,0x0005,0x0000,0x004c,0x56e6,0x0000,0x000c
007c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
007d 7802 |x | Jump 0x80 ; case 0x1
007e 7805 |x | Jump 0x84 ; case 0x2
007f 7809 |x | Jump 0x89 ; case 0x3
0080 00da | | Load_Top At_Offset_2
0081 0091 01ad | | Action Push_String_Extended_Indexed,0x1ad ; "SMTP"
0083 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0084 00db | | Load_Top At_Offset_3
0085 00db | | Load_Top At_Offset_3
0086 00e0 | | Load_Encached Standard_Cache
0087 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0088 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0089 00da | | Load_Top At_Offset_2
008a 00e0 | | Load_Encached Standard_Cache
008b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0093,0x02ae,0x0001,0x0000,0x004c,0x56e6,0x0000,0x001d
; Debug Table 0x3.0x0 = 0x93,0x1
0094 4602 |F | Jump_Case 0x2
0095 7807 |x | Jump 0x9d ; case 0x0
0096 7801 |x | Jump 0x98 ; case 0x1
0097 780a |x | Jump 0xa2 ; case 0x2
0098 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x98,0x2
0099 e007 | | Load 0x0,0x7
009a 180d | | Execute Package,Field_Execute,Field_Number 0xd
009b c5fe | | Store 0x2,-0x2
009c 4502 |E | Exit_Subprogram 0x2
009d 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x2 = 0x9d,0x3
009e e008 | | Load 0x0,0x8
009f 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a0 c5fe | | Store 0x2,-0x2
00a1 4502 |E | Exit_Subprogram 0x2
00a2 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x3 = 0xa2,0x4
00a3 e009 | | Load 0x0,0x9
00a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a5 c5fe | | Store 0x2,-0x2
00a6 4502 |E | Exit_Subprogram 0x2
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x00ab,0x02b8,0x0001,0x0000,0x004c,0x56e6,0x0000,0x002b
; Debug Table 0x4.0x0 = 0xab,0x1
00ac 4602 |F | Jump_Case 0x2
00ad 7808 |x | Jump 0xb6 ; case 0x0
00ae 7801 |x | Jump 0xb0 ; case 0x1
00af 780c |x | Jump 0xbc ; case 0x2
00b0 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x1 = 0xb0,0x2
00b1 00db | | Load_Top At_Offset_3
00b2 e007 | | Load 0x0,0x7
00b3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b4 c5fd | | Store 0x2,-0x3
00b5 4503 |E | Exit_Subprogram 0x3
00b6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x2 = 0xb6,0x3
00b7 00db | | Load_Top At_Offset_3
00b8 e008 | | Load 0x0,0x8
00b9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ba c5fd | | Store 0x2,-0x3
00bb 4503 |E | Exit_Subprogram 0x3
00bc e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x3 = 0xbc,0x4
00bd 00db | | Load_Top At_Offset_3
00be e009 | | Load 0x0,0x9
00bf 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c0 c5fd | | Store 0x2,-0x3
00c1 4503 |E | Exit_Subprogram 0x3
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d1 | | .CONST 0x00d1 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e001 | | Load 0x0,0x1 ; Debug Table 0x5 = .DEBUG 0x00cb,0x02c2,0x0002,0x0000,0x004c,0x56e6,0x0000,0x003d
; Debug Table 0x5.0x0 = 0xcb,0xffff
00cc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00cd 0092 01b4 | | Action Push_String_Extended,0x1b4 ; ".Carrier_Queues"
00cf 01cc | | Execute Vector,Catenate
00d0 0007 | | Action Break_Optional
00d1 BODY_00c8:
00d1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0xd1,0x1
00d2 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "."
00d4 01cc | | Execute Vector,Catenate
00d5 e5ff | | Load 0x2,-0x1
00d6 e20d | | Load 0x1,0xd
00d7 025e | ^ | Execute Discrete,Convert
00d8 1c01 | | Execute_Immediate Run_Utility,0x1
00d9 01cc | | Execute Vector,Catenate
00da 4401 |D | Exit_Subprogram With_Result,0x1
00db 0000 0000 | | .BLANK 0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e6 | | .CONST 0x00e6 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e003 | | Load 0x0,0x3 ; Debug Table 0x6 = .DEBUG 0x00e3,0x02c8,0x0002,0x0000,0x004c,0x56e6,0x0000,0x0048
; Debug Table 0x6.0x0 = 0xe3,0xffff
00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e5 0007 | | Action Break_Optional ; Debug Table 0x6.0x1 = 0xe5,0xfffe
00e6 BODY_00e0:
00e6 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x2 = 0xe6,0x1
00e7 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00e8 e005 | | Load 0x0,0x5
00e9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ea 7006 |p | Jump_Nonzero 0xf1
00eb e003 | | Load 0x0,0x3 ; Debug Table 0x6.0x3 = 0xeb,0x2
00ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ed e5ff | | Load 0x2,-0x1
00ee e214 | | Load 0x1,0x14
00ef 01d6 | | Execute Vector,Field_Write
00f0 784a |xJ | Jump 0x13b
00f1 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x4 = 0xf1,0x3
00f2 e214 | | Load 0x1,0x14
00f3 01d7 | | Execute Vector,Field_Read
00f4 e003 | | Load 0x0,0x3
00f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f6 012f | / | Execute Any,Equal
00f7 7008 |p | Jump_Nonzero 0x100
00f8 e00a | | Load 0x0,0xa
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa e5ff | | Load 0x2,-0x1
00fb e214 | | Load 0x1,0x14
00fc 01d7 | | Execute Vector,Field_Read
00fd e002 | | Load 0x0,0x2
00fe 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00ff 703b |p; | Jump_Nonzero 0x13b
0100 0092 01b6 | | Action Push_String_Extended,0x1b6 ; "Queue for "
; Debug Table 0x6.0x5 = 0x100,0x4
0102 e5ff | | Load 0x2,-0x1
0103 e20d | | Load 0x1,0xd
0104 025e | ^ | Execute Discrete,Convert
0105 1c01 | | Execute_Immediate Run_Utility,0x1
0106 01cc | | Execute Vector,Catenate
0107 0092 01b7 | | Action Push_String_Extended,0x1b7 ; " carrier is missing; will be created."
0109 01cc | | Execute Vector,Catenate
010a e215 | | Load 0x1,0x15
010b 8218 | | Call 0x1,0x18
010c e003 | | Load 0x0,0x3 ; Debug Table 0x6.0x6 = 0x10c,0x5
010d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010e e00a | | Load 0x0,0xa
010f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0110 e5ff | | Load 0x2,-0x1
0111 8211 | | Call 0x1,0x11
0112 e002 | | Load 0x0,0x2
0113 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0114 0059 | Y | Store_Top Discrete,At_Offset_1
0115 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x7 = 0x115,0x6
0116 681b |h | Jump_Zero 0x132
0117 0092 01b6 | | Action Push_String_Extended,0x1b6 ; "Queue for "
; Debug Table 0x6.0x8 = 0x117,0x7
0119 e5ff | | Load 0x2,-0x1
011a e20d | | Load 0x1,0xd
011b 025e | ^ | Execute Discrete,Convert
011c 1c01 | | Execute_Immediate Run_Utility,0x1
011d 01cc | | Execute Vector,Catenate
011e 0092 01b8 | | Action Push_String_Extended,0x1b8 ; " carrier was not created (Status = "
0120 01cc | | Execute Vector,Catenate
0121 00d9 | | Load_Top At_Offset_1
0122 e003 | | Load 0x0,0x3
0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0124 025e | ^ | Execute Discrete,Convert
0125 1c01 | | Execute_Immediate Run_Utility,0x1
0126 01cc | | Execute Vector,Catenate
0127 0092 01b9 | | Action Push_String_Extended,0x1b9 ; ")."
0129 01cc | | Execute Vector,Catenate
012a e216 | | Load 0x1,0x16
012b 8218 | | Call 0x1,0x18
012c e003 | | Load 0x0,0x3 ; Debug Table 0x6.0x9 = 0x12c,0x8
012d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012e e5ff | | Load 0x2,-0x1
012f e214 | | Load 0x1,0x14
0130 01d6 | | Execute Vector,Field_Write
0131 7809 |x | Jump 0x13b
0132 e00a | | Load 0x0,0xa ; Debug Table 0x6.0xa = 0x132,0x9
0133 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0134 e5ff | | Load 0x2,-0x1
0135 8211 | | Call 0x1,0x11
0136 e002 | | Load 0x0,0x2
0137 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0138 e5ff | | Load 0x2,-0x1
0139 e214 | | Load 0x1,0x14
013a 01d6 | | Execute Vector,Field_Write
013b 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xb = 0x13b,0xa
013c e214 | | Load 0x1,0x14
013d 01d7 | | Execute Vector,Field_Read
013e 00d8 | | Load_Top At_Offset_0
013f 0120 | | Execute Any,Is_Value
0140 7002 |p | Jump_Nonzero 0x143
0141 00d8 | | Load_Top At_Offset_0
0142 011e | | Execute Any,Convert
0143 4401 |D | Exit_Subprogram With_Result,0x1
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x7 = .DEBUG 0x014b,0x02e2,0x0005,0x0000,0x004e,0xd7c5,0x0000,0x0030
014c 00da | | Load_Top At_Offset_2
014d 01dc | | Execute Vector,Last
014e 00db | | Load_Top At_Offset_3
014f 01dd | | Execute Vector,First
0150 0263 | c | Execute Discrete,Above_Bound
0151 700a |p | Jump_Nonzero 0x15c
0152 00d8 | | Load_Top At_Offset_0
0153 e5ff | | Load 0x2,-0x1
0154 01d5 | | Execute Vector,Field_Reference
0155 0125 | % | Execute Any,Set_Constraint
0156 00d8 | | Load_Top At_Offset_0
0157 e5ff | | Load 0x2,-0x1
0158 01d5 | | Execute Vector,Field_Reference
0159 1c00 | | Execute_Immediate Run_Utility,0x0
015a 0a01 | | Execute_Immediate Plus,0x1
015b 7ff4 | | Jump 0x150
015c 4302 |C | Exit_Subprogram From_Utility,0x2
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0168 | h | .CONST 0x0168 ; Address of begin
0161 0175 | u | .CONST 0x0175 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e004 | | Load 0x0,0x4 ; Debug Table 0x8 = .DEBUG 0x0163,0x02e4,0x0001,0x0000,0x004e,0xd7c5,0x0000,0x0072
; Debug Table 0x8.0x0 = 0x163,0xffff
0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0165 02c7 | | Declare_Variable Any
0166 00d8 | | Load_Top At_Offset_0
0167 1c00 | | Execute_Immediate Run_Utility,0x0
0168 BODY_0160:
0168 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x1 = 0x168,0x1
0169 e5fe | | Load 0x2,-0x2
016a e5ff | | Load 0x2,-0x1
016b 0092 01ba | | Action Push_String_Extended,0x1ba ; "Transfer.Carrier_Interface"
016d e004 | | Load 0x0,0x4
016e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
016f c402 | | Store 0x2,0x2
0170 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x2 = 0x170,0x2
0171 e00b | | Load 0x0,0xb
0172 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0173 c402 | | Store 0x2,0x2
0174 4503 |E | Exit_Subprogram 0x3
0175 TRAP_0160:
0175 0007 | | Action Break_Optional
0176 4503 |E | Exit_Subprogram 0x3 ; Debug Table 0x8.0x3 = 0x176,0x3
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0187 | | .CONST 0x0187 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e003 | | Load 0x0,0x3 ; Debug Table 0x9 = .DEBUG 0x017b,0x02ee,0x0004,0x0000,0x004e,0xd7c5,0x0000,0x025b
; Debug Table 0x9.0x0 = 0x17b,0xffff
017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017d BODY_0178:
017d e00a | | Load 0x0,0xa ; Debug Table 0x9.0x1 = 0x17d,0x1
017e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017f e21c | | Load 0x1,0x1c
0180 8211 | | Call 0x1,0x11
0181 e002 | | Load 0x0,0x2
0182 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0183 e21c | | Load 0x1,0x1c
0184 e214 | | Load 0x1,0x14
0185 01d6 | | Execute Vector,Field_Write
0186 4501 |E | Exit_Subprogram 0x1
0187 TRAP_0178:
0187 e002 | | Load 0x0,0x2
0188 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0189 010f | | Execute Exception,Equal
018a 6821 |h! | Jump_Zero 0x1ac
018b 0092 01b6 | | Action Push_String_Extended,0x1b6 ; "Queue for "
; Debug Table 0x9.0x2 = 0x18b,0x2
018d e21c | | Load 0x1,0x1c
018e e20d | | Load 0x1,0xd
018f 025e | ^ | Execute Discrete,Convert
0190 1c01 | | Execute_Immediate Run_Utility,0x1
0191 01cc | | Execute Vector,Catenate
0192 0092 01b7 | | Action Push_String_Extended,0x1b7 ; " carrier is missing; will be created."
0194 01cc | | Execute Vector,Catenate
0195 e215 | | Load 0x1,0x15
0196 8218 | | Call 0x1,0x18
0197 e003 | | Load 0x0,0x3 ; Debug Table 0x9.0x3 = 0x197,0x3
0198 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0199 e00a | | Load 0x0,0xa
019a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019b e21c | | Load 0x1,0x1c
019c 8211 | | Call 0x1,0x11
019d e002 | | Load 0x0,0x2
019e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
019f 005a | Z | Store_Top Discrete,At_Offset_2
01a0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x4 = 0x1a0,0x4
01a1 7009 |p | Jump_Nonzero 0x1ab
01a2 e00a | | Load 0x0,0xa ; Debug Table 0x9.0x5 = 0x1a2,0x5
01a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a4 e21c | | Load 0x1,0x1c
01a5 8211 | | Call 0x1,0x11
01a6 e002 | | Load 0x0,0x2
01a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a8 e21c | | Load 0x1,0x1c
01a9 e214 | | Load 0x1,0x14
01aa 01d6 | | Execute Vector,Field_Write
01ab 4501 |E | Exit_Subprogram 0x1
01ac 0100 | | Execute Exception,Raise
01ad ; --------------------------------------------------------------------------------------
01ad ; STRING TABLE
01ad ; --------------------------------------------------------------------------------------
01ad 001e | | .STRTAB 0x001e->0x01bc ; "SMTP"
01ae 0020 | | .STRTAB 0x0020->0x01be ; "LOCAL"
01af 0023 | # | .STRTAB 0x0023->0x01c0 ; "MAIL_1"
01b0 0027 | ' | .STRTAB 0x0027->0x01c3 ; "Nonexistent Queue"
01b1 0036 | 6 | .STRTAB 0x0036->0x01cc ; "Create Failed"
01b2 0041 | A | .STRTAB 0x0041->0x01d2 ; "Unhandled Exception"
01b3 0052 | R | .STRTAB 0x0052->0x01dc ; "Elaboration"
01b4 005b | [ | .STRTAB 0x005b->0x01e1 ; ".Carrier_Queues"
01b5 0068 | h | .STRTAB 0x0068->0x01e9 ; "."
01b6 0067 | g | .STRTAB 0x0067->0x01e9 ; "Queue for "
; "Queue for "
; "Queue for "
01b7 006f | o | .STRTAB 0x006f->0x01ee ; " carrier is missing; will be created."
; " carrier is missing; will be created."
01b8 0092 | | .STRTAB 0x0092->0x0201 ; " carrier was not created (Status = "
01b9 00b3 | | .STRTAB 0x00b3->0x0212 ; ")."
01ba 00b3 | | .STRTAB 0x00b3->0x0213 ; "Transfer.Carrier_Interface"
01bb 00cb | | .STREND 0x00cb->0x0220
01bc 534d 5450 |SMTP| .STRTAB_STRINGS
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug Table
0228 ; --------------------------------------------------------------------------------------
0228 0003 000a | | .CONST 0x0003,0x000a
022a 000b 027a | z| .DEBUG 0x000b,0x027a,0x8000,0x0000,0x004c,0x56e6,0x0000,0x0009
0232 001e 028e | | .DEBUG 0x001e,0x028e,0x8000,0x0000,0x004e,0xd7c5,0x0000,0x001f
023a 007b 02ac | { | .DEBUG 0x007b,0x02ac,0x0005,0x0000,0x004c,0x56e6,0x0000,0x000c
0242 0093 02ae | | .DEBUG 0x0093,0x02ae,0x0001,0x0000,0x004c,0x56e6,0x0000,0x001d
024a 00ab 02b8 | | .DEBUG 0x00ab,0x02b8,0x0001,0x0000,0x004c,0x56e6,0x0000,0x002b
0252 00cb 02c2 | | .DEBUG 0x00cb,0x02c2,0x0002,0x0000,0x004c,0x56e6,0x0000,0x003d
025a 00e3 02c8 | | .DEBUG 0x00e3,0x02c8,0x0002,0x0000,0x004c,0x56e6,0x0000,0x0048
0262 014b 02e2 | K | .DEBUG 0x014b,0x02e2,0x0005,0x0000,0x004e,0xd7c5,0x0000,0x0030
026a 0163 02e4 | c | .DEBUG 0x0163,0x02e4,0x0001,0x0000,0x004e,0xd7c5,0x0000,0x0072
0272 017b 02ee | { | .DEBUG 0x017b,0x02ee,0x0004,0x0000,0x004e,0xd7c5,0x0000,0x025b
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x0
027a ; --------------------------------------------------------------------------------------
027a 0009 0000 | | .DBG3TAB 0x0009,0x0000
027c 000b ffff | | .CONST 0x000b,0xffff
027e 0010 fffe | | .CONST 0x0010,0xfffe
0280 0013 fffd | | .CONST 0x0013,0xfffd
0282 0015 fffc | | .CONST 0x0015,0xfffc
0284 0017 fffb | | .CONST 0x0017,0xfffb
0286 0019 fffa | | .CONST 0x0019,0xfffa
0288 001b fff9 | | .CONST 0x001b,0xfff9
028a 001c fff8 | | .CONST 0x001c,0xfff8
028c 001d fff7 | | .CONST 0x001d,0xfff7
028e ; --------------------------------------------------------------------------------------
028e ; Debug3 Subtable 0x1
028e ; --------------------------------------------------------------------------------------
028e 000a 0004 | | .DBG3TAB 0x000a,0x0004
0290 001e ffff | | .CONST 0x001e,0xffff
0292 001f fffe | | .CONST 0x001f,0xfffe
0294 0038 fffd | 8 | .CONST 0x0038,0xfffd
0296 0040 fffc | @ | .CONST 0x0040,0xfffc
0298 0048 fffb | H | .CONST 0x0048,0xfffb
029a 0050 fffa | P | .CONST 0x0050,0xfffa
029c 0052 fff9 | R | .CONST 0x0052,0xfff9
029e 0054 fff8 | T | .CONST 0x0054,0xfff8
02a0 0056 fff7 | V | .CONST 0x0056,0xfff7
02a2 0058 fff6 | X | .CONST 0x0058,0xfff6
02a4 005c 0001 | \ | .CONST 0x005c,0x0001
02a6 0062 0002 | b | .CONST 0x0062,0x0002
02a8 0065 0003 | e | .CONST 0x0065,0x0003
02aa 006c 0004 | l | .CONST 0x006c,0x0004
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug3 Subtable 0x2
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0000 | | .DBG3TAB 0x0000,0x0000
02ae ; --------------------------------------------------------------------------------------
02ae ; Debug3 Subtable 0x3
02ae ; --------------------------------------------------------------------------------------
02ae 0000 0004 | | .DBG3TAB 0x0000,0x0004
02b0 0093 0001 | | .CONST 0x0093,0x0001
02b2 0098 0002 | | .CONST 0x0098,0x0002
02b4 009d 0003 | | .CONST 0x009d,0x0003
02b6 00a2 0004 | | .CONST 0x00a2,0x0004
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0x4
02b8 ; --------------------------------------------------------------------------------------
02b8 0000 0004 | | .DBG3TAB 0x0000,0x0004
02ba 00ab 0001 | | .CONST 0x00ab,0x0001
02bc 00b0 0002 | | .CONST 0x00b0,0x0002
02be 00b6 0003 | | .CONST 0x00b6,0x0003
02c0 00bc 0004 | | .CONST 0x00bc,0x0004
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug3 Subtable 0x5
02c2 ; --------------------------------------------------------------------------------------
02c2 0001 0001 | | .DBG3TAB 0x0001,0x0001
02c4 00cb ffff | | .CONST 0x00cb,0xffff
02c6 00d1 0001 | | .CONST 0x00d1,0x0001
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug3 Subtable 0x6
02c8 ; --------------------------------------------------------------------------------------
02c8 0002 000a | | .DBG3TAB 0x0002,0x000a
02ca 00e3 ffff | | .CONST 0x00e3,0xffff
02cc 00e5 fffe | | .CONST 0x00e5,0xfffe
02ce 00e6 0001 | | .CONST 0x00e6,0x0001
02d0 00eb 0002 | | .CONST 0x00eb,0x0002
02d2 00f1 0003 | | .CONST 0x00f1,0x0003
02d4 0100 0004 | | .CONST 0x0100,0x0004
02d6 010c 0005 | | .CONST 0x010c,0x0005
02d8 0115 0006 | | .CONST 0x0115,0x0006
02da 0117 0007 | | .CONST 0x0117,0x0007
02dc 012c 0008 | , | .CONST 0x012c,0x0008
02de 0132 0009 | 2 | .CONST 0x0132,0x0009
02e0 013b 000a | ; | .CONST 0x013b,0x000a
02e2 ; --------------------------------------------------------------------------------------
02e2 ; Debug3 Subtable 0x7
02e2 ; --------------------------------------------------------------------------------------
02e2 0000 0000 | | .DBG3TAB 0x0000,0x0000
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug3 Subtable 0x8
02e4 ; --------------------------------------------------------------------------------------
02e4 0001 0003 | | .DBG3TAB 0x0001,0x0003
02e6 0163 ffff | c | .CONST 0x0163,0xffff
02e8 0168 0001 | h | .CONST 0x0168,0x0001
02ea 0170 0002 | p | .CONST 0x0170,0x0002
02ec 0176 0003 | v | .CONST 0x0176,0x0003
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug3 Subtable 0x9
02ee ; --------------------------------------------------------------------------------------
02ee 0001 0005 | | .DBG3TAB 0x0001,0x0005
02f0 017b ffff | { | .CONST 0x017b,0xffff
02f2 017d 0001 | } | .CONST 0x017d,0x0001
02f4 018b 0002 | | .CONST 0x018b,0x0002
02f6 0197 0003 | | .CONST 0x0197,0x0003
02f8 01a0 0004 | | .CONST 0x01a0,0x0004
02fa 01a2 0005 | | .CONST 0x01a2,0x0005
02fc 0000 0000 | | .BLANK 0000[0x104]