|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1180de
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0200 | | .CONST 0x0200 ; 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 0045 | E | .CONST 0x0045 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4805 |H | Short_Literal 0x5
000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00d8 | | Load_Top At_Offset_0
0011 e001 | | Load 0x0,0x1
0012 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0013 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0015 4802 |H | Short_Literal 0x2
0016 032e | . | Declare_Type Record,Defined,Visible
0017 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0019 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
001b 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
001d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
001f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0021 00bf | | Action Accept_Activation
0022 e20e | | Load 0x1,0xe
0023 0322 | " | Declare_Variable Record
0024 4805 |H | Short_Literal 0x5
0025 00d9 | | Load_Top At_Offset_1
0026 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0027 4800 |H | Short_Literal 0x0
0028 00d9 | | Load_Top At_Offset_1
0029 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
002a 029b 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Unelaborated
002c 029b 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Unelaborated
002e a002 | | Store_Unchecked 0x0,0x2
002f 00c6 | | Action Check_Subprogram_Elaborated
0030 e003 | | Load 0x0,0x3
0031 195f | _ | Execute Package,Field_Reference,Field_Number 0x5f
0032 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0033 e004 | | Load 0x0,0x4
0034 e005 | | Load 0x0,0x5
0035 4800 |H | Short_Literal 0x0
0036 0007 | | Action Break_Optional
0037 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0038 00c7 | | Action Elaborate_Subprogram
0039 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003a 00c7 | | Action Elaborate_Subprogram
003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003c 00c7 | | Action Elaborate_Subprogram
003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003e 00c7 | | Action Elaborate_Subprogram
003f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0040 00c7 | | Action Elaborate_Subprogram
0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0042 00c7 | | Action Elaborate_Subprogram
0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0044 00c7 | | Action Elaborate_Subprogram
0045 BODY_0008:
0045 00bc | | Action Signal_Activated
0046 00bb | | Action Signal_Completion
0047 0000 | | .XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4607 |F | Jump_Case 0x8
004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
004d 7806 |x | Jump 0x54 ; case 0x1
004e 7809 |x | Jump 0x58 ; case 0x2
004f 780d |x | Jump 0x5d ; case 0x3
0050 7810 |x | Jump 0x61 ; case 0x4
0051 7811 |x | Jump 0x63 ; case 0x5
0052 7812 |x | Jump 0x65 ; case 0x6
0053 7815 |x | Jump 0x69 ; case 0x7
0054 00da | | Load_Top At_Offset_2
0055 0091 01ca | | Action Push_String_Extended_Indexed,0x1ca ; "HEADERS"
0057 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0058 00db | | Load_Top At_Offset_3
0059 00db | | Load_Top At_Offset_3
005a 00e0 | | Load_Encached Standard_Cache
005b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005d 00da | | Load_Top At_Offset_2
005e 00e0 | | Load_Encached Standard_Cache
005f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0060 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0061 00db | | Load_Top At_Offset_3
0062 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0063 00db | | Load_Top At_Offset_3
0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0065 e20d | | Load 0x1,0xd
0066 00dc | | Load_Top At_Offset_4
0067 0267 | g | Execute Discrete,Predecessor
0068 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0069 e20d | | Load 0x1,0xd
006a 00dc | | Load_Top At_Offset_4
006b 0268 | h | Execute Discrete,Successor
006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0075 | u | .CONST 0x0075 ; Address of begin
0071 007b | { | .CONST 0x007b ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0075 BODY_0070:
0075 0092 01d0 | | Action Push_String_Extended,0x1d0 ; "MM> "
0077 e003 | | Load 0x0,0x3
0078 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0079 8402 | | Call 0x2,0x2
007a 0831 | 1 | Execute_Immediate Raise,0x31
007b TRAP_0070:
007b 010e | | Execute Exception,Is_Constraint_Error
007c 6802 |h | Jump_Zero 0x7f
007d e214 | | Load 0x1,0x14
007e 00ca | | Action Exit_Nullary_Function
007f 0100 | | Execute Exception,Raise
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0091 | | .CONST 0x0091 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0004 | | .CONST 0x0004 ; Number of locals
0083 INIT_0080:
0083 e006 | | Load 0x0,0x6
0084 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0085 02c7 | | Declare_Variable Any
0086 e006 | | Load 0x0,0x6
0087 180f | | Execute Package,Field_Execute,Field_Number 0xf
0088 a402 | | Store_Unchecked 0x2,0x2
0089 e007 | | Load 0x0,0x7
008a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008b 02c7 | | Declare_Variable Any
008c e007 | | Load 0x0,0x7
008d 180f | | Execute Package,Field_Execute,Field_Number 0xf
008e a403 | | Store_Unchecked 0x2,0x3
008f 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0091 BODY_0080:
0091 0092 01d1 | | Action Push_String_Extended,0x1d1 ; "To: "
0093 e003 | | Load 0x0,0x3
0094 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0095 00da | | Load_Top At_Offset_2
0096 e003 | | Load 0x0,0x3
0097 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0098 e008 | | Load 0x0,0x8
0099 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009a e006 | | Load 0x0,0x6
009b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009c c402 | | Store 0x2,0x2
009d 00da | | Load_Top At_Offset_2
009e e009 | | Load 0x0,0x9
009f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a0 e006 | | Load 0x0,0x6
00a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a2 c402 | | Store 0x2,0x2
00a3 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "Subject: "
00a5 e003 | | Load 0x0,0x3
00a6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00a7 00da | | Load_Top At_Offset_2
00a8 e003 | | Load 0x0,0x3
00a9 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
00aa e006 | | Load 0x0,0x6
00ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ac c402 | | Store 0x2,0x2
00ad 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "Text: "
00af e003 | | Load 0x0,0x3
00b0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00b1 8404 | | Call 0x2,0x4
00b2 0831 | 1 | Execute_Immediate Raise,0x31
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00bd 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00be 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00bf 8002 | | Call 0x0,0x2
00c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00cf | | Action Mark_Auxiliary
00cc 00db | | Load_Top At_Offset_3
00cd e001 | | Load 0x0,0x1
00ce 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00cf 4801 |H | Short_Literal 0x1
00d0 0263 | c | Execute Discrete,Above_Bound
00d1 7020 |p | Jump_Nonzero 0xf2
00d2 00d8 | | Load_Top At_Offset_0
00d3 00e0 | | Load_Encached Standard_Cache
00d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d5 0092 01d4 | | Action Push_String_Extended,0x1d4 ; " "
00d7 01cc | | Execute Vector,Catenate
00d8 e003 | | Load 0x0,0x3
00d9 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00da e5ff | | Load 0x2,-0x1
00db 00d9 | | Load_Top At_Offset_1
00dc e001 | | Load 0x0,0x1
00dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00de 6804 |h | Jump_Zero 0xe3
00df 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "R "
00e1 e003 | | Load 0x0,0x3
00e2 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00e3 e5ff | | Load 0x2,-0x1
00e4 00d9 | | Load_Top At_Offset_1
00e5 e001 | | Load 0x0,0x1
00e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e7 e006 | | Load 0x0,0x6
00e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e9 e008 | | Load 0x0,0x8
00ea 180f | | Execute Package,Field_Execute,Field_Number 0xf
00eb e003 | | Load 0x0,0x3
00ec 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00ed 4801 |H | Short_Literal 0x1
00ee e003 | | Load 0x0,0x3
00ef 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00f0 00c8 | | Action Pop_Auxiliary_Range
00f1 3fe0 |? | Loop_Increasing 0xd2
00f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f3 0000 0000 | | .BLANK 0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 0092 01d6 | | Action Push_String_Extended,0x1d6 ; "message received from "
00fd 00db | | Load_Top At_Offset_3
00fe e008 | | Load 0x0,0x8
00ff 180f | | Execute Package,Field_Execute,Field_Number 0xf
0100 01cc | | Execute Vector,Catenate
0101 e5fe | | Load 0x2,-0x2
0102 e008 | | Load 0x0,0x8
0103 180f | | Execute Package,Field_Execute,Field_Number 0xf
0104 e00a | | Load 0x0,0xa
0105 180d | | Execute Package,Field_Execute,Field_Number 0xd
0106 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0115 | | .CONST 0x0115 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0004 | | .CONST 0x0004 ; Number of locals
010b INIT_0108:
010b 4801 |H | Short_Literal 0x1
010c e5fe | | Load 0x2,-0x2
010d 0092 01d4 | | Action Push_String_Extended,0x1d4 ; " "
010f e00b | | Load 0x0,0xb
0110 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0111 00e3 | | Load_Encached Natural_Cache
0112 03f1 | | Declare_Variable Discrete,With_Value
0113 00e3 | | Load_Encached Natural_Cache
0114 00e1 | | Load_Encached Boolean_Cache
0115 BODY_0108:
0115 00e1 | | Load_Encached Boolean_Cache
0116 00e2 | | Load_Encached Integer_Cache
0117 480a |H | Short_Literal 0xa
0118 e402 | | Load 0x2,0x2
0119 e5fe | | Load 0x2,-0x2
011a 01dc | | Execute Vector,Last
011b e5fe | | Load 0x2,-0x2
011c 01cf | | Execute Vector,Slice_Read
011d e00b | | Load 0x0,0xb
011e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011f 005b | [ | Store_Top Discrete,At_Offset_3
0120 0059 | Y | Store_Top Discrete,At_Offset_1
0121 00d8 | | Load_Top At_Offset_0
0122 7001 |p | Jump_Nonzero 0x124
0123 08e0 | | Execute_Immediate Raise,0xe0
0124 00d9 | | Load_Top At_Offset_1
0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4801 |H | Short_Literal 0x1
012c e003 | | Load 0x0,0x3
012d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013a | : | .CONST 0x013a ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 4820 |H | Short_Literal 0x20
0134 e003 | | Load 0x0,0x3
0135 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0136 e00b | | Load 0x0,0xb
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
013a BODY_0130:
013a 00cf | | Action Mark_Auxiliary
013b 4805 |H | Short_Literal 0x5
013c 4800 |H | Short_Literal 0x0
013d 0007 | | Action Break_Optional
013e 8603 | | Call 0x3,0x3
013f 00c8 | | Action Pop_Auxiliary_Range
0140 3ffd |? | Loop_Increasing 0x13e
0141 00ce | | Action Pop_Auxiliary
0142 e214 | | Load 0x1,0x14
0143 00cb | | Action Pop_Block_With_Result
0144 00ca | | Action Exit_Nullary_Function
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0151 | Q | .CONST 0x0151 ; Address of begin
0149 015a | Z | .CONST 0x015a ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e003 | | Load 0x0,0x3
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d 02c7 | | Declare_Variable Any
014e e003 | | Load 0x0,0x3
014f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0150 a602 | | Store_Unchecked 0x3,0x2
0151 BODY_0148:
0151 00cf | | Action Mark_Auxiliary
0152 e403 | | Load 0x2,0x3
0153 e003 | | Load 0x0,0x3
0154 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
0155 e007 | | Load 0x0,0x7
0156 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0157 c403 | | Store 0x2,0x3
0158 00c9 | | Action Pop_Auxiliary_Loop
0159 7ff8 | | Jump 0x152
015a TRAP_0148:
015a 00d8 | | Load_Top At_Offset_0
015b 0107 | | Execute Exception,Get_Name
015c 4950 |IP | Short_Literal 0x150
015d 495f |I_ | Short_Literal 0x15f
015e 0262 | b | Execute Discrete,In_Range
015f 680f |h | Jump_Zero 0x16f
0160 e402 | | Load 0x2,0x2
0161 e403 | | Load 0x2,0x3
0162 e006 | | Load 0x0,0x6
0163 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0164 c402 | | Store 0x2,0x2
0165 00d9 | | Load_Top At_Offset_1
0166 e003 | | Load 0x0,0x3
0167 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0168 c602 | | Store 0x3,0x2
0169 4801 |H | Short_Literal 0x1
016a e003 | | Load 0x0,0x3
016b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
016c e402 | | Load 0x2,0x2
016d 00cb | | Action Pop_Block_With_Result
016e 00ca | | Action Exit_Nullary_Function
016f 0100 | | Execute Exception,Raise
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 01ae | | .CONST 0x01ae ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4801 |H | Short_Literal 0x1
0174 e602 | | Load 0x3,0x2
0175 01dd | | Execute Vector,First
0176 e602 | | Load 0x3,0x2
0177 01dd | | Execute Vector,First
0178 e606 | | Load 0x3,0x6
0179 e20d | | Load 0x1,0xd
017a 011c | | Execute Any,Convert_Unchecked
017b 1c01 | | Execute_Immediate Run_Utility,0x1
017c 01db | | Execute Vector,Length
017d 0273 | s | Execute Discrete,Plus
017e 0aff | | Execute_Immediate Plus,-0x1
017f 00d8 | | Load_Top At_Offset_0
0180 00e2 | | Load_Encached Integer_Cache
0181 0260 | ` | Execute Discrete,In_Type
0182 7001 |p | Jump_Nonzero 0x184
0183 0801 | | Execute_Immediate Raise,0x1
0184 e602 | | Load 0x3,0x2
0185 01cf | | Execute Vector,Slice_Read
0186 e606 | | Load 0x3,0x6
0187 e20d | | Load 0x1,0xd
0188 011c | | Execute Any,Convert_Unchecked
0189 1c01 | | Execute_Immediate Run_Utility,0x1
018a e00b | | Load 0x0,0xb
018b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
018c 6820 |h | Jump_Zero 0x1ad
018d e606 | | Load 0x3,0x6
018e 4605 |F | Jump_Case 0x6
018f 7805 |x | Jump 0x195 ; case 0x0
0190 780f |x | Jump 0x1a0 ; case 0x1
0191 7803 |x | Jump 0x195 ; case 0x2
0192 780d |x | Jump 0x1a0 ; case 0x3
0193 7801 |x | Jump 0x195 ; case 0x4
0194 7800 |x | Jump 0x195 ; case 0x5
0195 e20e | | Load 0x1,0xe
0196 0322 | " | Declare_Variable Record
0197 e606 | | Load 0x3,0x6
0198 00d9 | | Load_Top At_Offset_1
0199 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019a 4800 |H | Short_Literal 0x0
019b 00d9 | | Load_Top At_Offset_1
019c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019d 00cb | | Action Pop_Block_With_Result
019e 00cb | | Action Pop_Block_With_Result
019f 00ca | | Action Exit_Nullary_Function
01a0 e20e | | Load 0x1,0xe
01a1 0322 | " | Declare_Variable Record
01a2 e606 | | Load 0x3,0x6
01a3 00d9 | | Load_Top At_Offset_1
01a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a5 e602 | | Load 0x3,0x2
01a6 e606 | | Load 0x3,0x6
01a7 8215 | | Call 0x1,0x15
01a8 00d9 | | Load_Top At_Offset_1
01a9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01aa 00cb | | Action Pop_Block_With_Result
01ab 00cb | | Action Pop_Block_With_Result
01ac 00ca | | Action Exit_Nullary_Function
01ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ae TRAP_0170:
01ae 010e | | Execute Exception,Is_Constraint_Error
01af 6801 |h | Jump_Zero 0x1b1
01b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b1 0100 | | Execute Exception,Raise
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4608 |F | Jump_Case 0x9
01bc 7808 |x | Jump 0x1c5 ; case 0x0
01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01be 780a |x | Jump 0x1c9 ; case 0x2
01bf 7809 |x | Jump 0x1c9 ; case 0x3
01c0 7808 |x | Jump 0x1c9 ; case 0x4
01c1 7807 |x | Jump 0x1c9 ; case 0x5
01c2 7806 |x | Jump 0x1c9 ; case 0x6
01c3 7805 |x | Jump 0x1c9 ; case 0x7
01c4 7804 |x | Jump 0x1c9 ; case 0x8
01c5 4800 |H | Short_Literal 0x0
01c6 00db | | Load_Top At_Offset_3
01c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01c9 0869 | i | Execute_Immediate Raise,0x69
01ca ; --------------------------------------------------------------------------------------
01ca ; STRING TABLE
01ca ; --------------------------------------------------------------------------------------
01ca 001c | | .STRTAB 0x001c->0x01d8 ; "HEADERS"
01cb 0021 | ! | .STRTAB 0x0021->0x01db ; "READ"
01cc 0023 | # | .STRTAB 0x0023->0x01dd ; "SEND"
01cd 0025 | % | .STRTAB 0x0025->0x01df ; "DELETE"
01ce 0029 | ) | .STRTAB 0x0029->0x01e2 ; "QUIT"
01cf 002b | + | .STRTAB 0x002b->0x01e4 ; "UNKNOWN"
01d0 0030 | 0 | .STRTAB 0x0030->0x01e8 ; "MM> "
01d1 0032 | 2 | .STRTAB 0x0032->0x01ea ; "To: "
01d2 0034 | 4 | .STRTAB 0x0034->0x01ec ; "Subject: "
01d3 003b | ; | .STRTAB 0x003b->0x01f0 ; "Text: "
01d4 003f | ? | .STRTAB 0x003f->0x01f3 ; " "
01d5 003e | > | .STRTAB 0x003e->0x01f4 ; "R "
01d6 003e | > | .STRTAB 0x003e->0x01f5 ; "message received from "
01d7 0052 | R | .STREND 0x0052->0x0200
01d8 4845 4144 |HEAD| .STRTAB_STRINGS
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0004 | | .DEBUG4 0x0004,0x0004,0x3f19,0x0000,0x0001,0x000e
0206 000b 023e | >| .DBG4T 0x000b,0x023e,0x8000,0x0000
020a 0022 0247 | " G| .DBG4T 0x0022,0x0247,0x8000,0x8000
020e 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000
0212 0073 025f | s _| .DBG4T 0x0073,0x025f,0x0002,0x0000
0216 0083 0264 | d| .DBG4T 0x0083,0x0264,0x0002,0x0000
021a 00bb 026f | o| .DBG4T 0x00bb,0x026f,0x0001,0x0000
021e 00cb 0272 | r| .DBG4T 0x00cb,0x0272,0x0001,0x0000
0222 00fb 027a | z| .DBG4T 0x00fb,0x027a,0x0001,0x0000
0226 010b 027d | }| .DBG4T 0x010b,0x027d,0x0002,0x0000
022a 012b 0286 | + | .DBG4T 0x012b,0x0286,0x0001,0x0000
022e 0133 0289 | 3 | .DBG4T 0x0133,0x0289,0x0004,0x0000
0232 014b 028f | K | .DBG4T 0x014b,0x028f,0x0004,0x4000
0236 0173 029c | s | .DBG4T 0x0173,0x029c,0x0004,0x0000
023a 01bb 0000 | | .DBG4T 0x01bb,0x0000,0x0005,0x0000
023e ; --------------------------------------------------------------------------------------
023e ; Debug chain
023e ; --------------------------------------------------------------------------------------
023e 0007 0000 | | .DBGLEN 0x0007,0x0000
0240 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0017,0x0019,0x001b,0x001d,0x001f
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 000b 0000 | | .DBGLEN 0x000b,0x0000
0249 0022 002a | " *| .DBGLNO 0x0022,0x002a,0x002c,0x002e,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043
0254 0003 0004 | | .XXX[0xb]
0256 0005 0006 | |
0258 0007 0008 | |
025a 0009 000a | |
025c 000b 000c | |
025e 000d | |
025f ; --------------------------------------------------------------------------------------
025f ; Debug chain
025f ; --------------------------------------------------------------------------------------
025f 0000 0003 | | .DBGLEN 0x0000,0x0003
0261 0075 0079 | u y| .DBGLNO 0x0075,0x0079,0x007d
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug chain
0264 ; --------------------------------------------------------------------------------------
0264 0002 0007 | | .DBGLEN 0x0002,0x0007
0266 0083 0089 | | .DBGLNO 0x0083,0x0089,0x0091,0x0095,0x009d,0x00a3,0x00a7,0x00ad,0x00b1
026f ; --------------------------------------------------------------------------------------
026f ; Debug chain
026f ; --------------------------------------------------------------------------------------
026f 0000 0001 | | .DBGLEN 0x0000,0x0001
0271 00bb | | .DBGLNO 0x00bb
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug chain
0272 ; --------------------------------------------------------------------------------------
0272 0000 0006 | | .DBGLEN 0x0000,0x0006
0274 00cc 00d2 | | .DBGLNO 0x00cc,0x00d2,0x00da,0x00df,0x00e3,0x00ed
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 0000 0001 | | .DBGLEN 0x0000,0x0001
027c 00fb | | .DBGLNO 0x00fb
027d ; --------------------------------------------------------------------------------------
027d ; Debug chain
027d ; --------------------------------------------------------------------------------------
027d 0003 0004 | | .DBGLEN 0x0003,0x0004
027f 010b 0113 | | .DBGLNO 0x010b,0x0113,0x0114,0x0115,0x0121,0x0123,0x0124
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug chain
0286 ; --------------------------------------------------------------------------------------
0286 0000 0001 | | .DBGLEN 0x0000,0x0001
0288 012b | + | .DBGLNO 0x012b
0289 ; --------------------------------------------------------------------------------------
0289 ; Debug chain
0289 ; --------------------------------------------------------------------------------------
0289 0001 0003 | | .DBGLEN 0x0001,0x0003
028b 0133 013b | 3 ;| .DBGLNO 0x0133,0x013b,0x013e,0x0142
028f ; --------------------------------------------------------------------------------------
028f ; Debug chain
028f ; --------------------------------------------------------------------------------------
028f 0001 0005 | | .DBGLEN 0x0001,0x0005
0291 014b 0152 | K R| .DBGLNO 0x014b,0x0152,0x0160,0x0165,0x0169,0x016c
0297 0002 0003 | | .XXX[0x5]
0299 0004 0005 | |
029b 0006 | |
029c ; --------------------------------------------------------------------------------------
029c ; Debug chain
029c ; --------------------------------------------------------------------------------------
029c 0000 0005 | | .DBGLEN 0x0000,0x0005
029e 0173 018d | s | .DBGLNO 0x0173,0x018d,0x0195,0x01a0,0x01b0
02a3 0000 0000 | | .BLANK 0000[0x15d]