|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0220 | | .CONST 0x0220 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f e001 | | Load 0x0,0x1 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0013 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0015 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0019 e002 | | Load 0x0,0x2 001a 0129 | ) | Execute Any,Make_Visible 001b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 001f 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0021 00bf | | Action Accept_Activation 0022 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0023 00c7 | | Action Elaborate_Subprogram 0024 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0025 00c7 | | Action Elaborate_Subprogram 0026 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 0028 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0029 00c7 | | Action Elaborate_Subprogram 002a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 002b 00c7 | | Action Elaborate_Subprogram 002c 1d18 | | Execute_Immediate Reference_Lex_1,0x18 002d 00c7 | | Action Elaborate_Subprogram 002e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 002f 00c7 | | Action Elaborate_Subprogram 0030 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0031 00c7 | | Action Elaborate_Subprogram 0032 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0033 00c7 | | Action Elaborate_Subprogram 0034 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0035 00c7 | | Action Elaborate_Subprogram 0036 BODY_0008: 0036 00bc | | Action Signal_Activated 0037 00bb | | Action Signal_Completion 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 003f | ? | .CONST 0x003f ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 00da | | Load_Top At_Offset_2 003c e003 | | Load 0x0,0x3 003d 180e | | Execute Package,Field_Execute,Field_Number 0xe 003e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 003f TRAP_0038: 003f e003 | | Load 0x0,0x3 0040 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0041 010f | | Execute Exception,Equal 0042 680b |h | Jump_Zero 0x4e 0043 e5fe | | Load 0x2,-0x2 0044 e20f | | Load 0x1,0xf 0045 0119 | | Execute Any,Check_In_Formal_Type 0046 4807 |H | Short_Literal 0x7 0047 e5ff | | Load 0x2,-0x1 0048 0092 01c5 | | Action Push_String_Extended,0x1c5 ; " is not a defined machine name." 004a 01cc | | Execute Vector,Catenate 004b 8210 | | Call 0x1,0x10 004c e215 | | Load 0x1,0x15 004d 0257 | W | Execute Discrete,Raise 004e 0100 | | Execute Exception,Raise 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0057 | W | .CONST 0x0057 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 e003 | | Load 0x0,0x3 0055 180d | | Execute Package,Field_Execute,Field_Number 0xd 0056 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0057 TRAP_0050: 0057 e003 | | Load 0x0,0x3 0058 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0059 010f | | Execute Exception,Equal 005a 680b |h | Jump_Zero 0x66 005b e5fe | | Load 0x2,-0x2 005c e20f | | Load 0x1,0xf 005d 0119 | | Execute Any,Check_In_Formal_Type 005e 4807 |H | Short_Literal 0x7 005f e5ff | | Load 0x2,-0x1 0060 0092 01c5 | | Action Push_String_Extended,0x1c5 ; " is not a defined machine name." 0062 01cc | | Execute Vector,Catenate 0063 8210 | | Call 0x1,0x10 0064 e215 | | Load 0x1,0x15 0065 0257 | W | Execute Discrete,Raise 0066 0100 | | Execute Exception,Raise 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c 6807 |h | Jump_Zero 0x74 006d 00db | | Load_Top At_Offset_3 006e e20f | | Load 0x1,0xf 006f 0119 | | Execute Any,Check_In_Formal_Type 0070 00db | | Load_Top At_Offset_3 0071 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "Open" 0073 821e | | Call 0x1,0x1e 0074 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 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 00da | | Load_Top At_Offset_2 007c 6807 |h | Jump_Zero 0x84 007d 00db | | Load_Top At_Offset_3 007e e20f | | Load 0x1,0xf 007f 0119 | | Execute Any,Check_In_Formal_Type 0080 00db | | Load_Top At_Offset_3 0081 0092 01c7 | | Action Push_String_Extended,0x1c7 ; "Connect" 0083 821e | | Call 0x1,0x1e 0084 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 6807 |h | Jump_Zero 0x94 008d 00db | | Load_Top At_Offset_3 008e e20f | | Load 0x1,0xf 008f 0119 | | Execute Any,Check_In_Formal_Type 0090 00db | | Load_Top At_Offset_3 0091 0092 01c8 | | Action Push_String_Extended,0x1c8 ; "Transmit" 0093 821e | | Call 0x1,0x1e 0094 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c 6807 |h | Jump_Zero 0xa4 009d 00db | | Load_Top At_Offset_3 009e e20f | | Load 0x1,0xf 009f 0119 | | Execute Any,Check_In_Formal_Type 00a0 00db | | Load_Top At_Offset_3 00a1 0092 01c9 | | Action Push_String_Extended,0x1c9 ; "Receive" 00a3 821e | | Call 0x1,0x1e 00a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00c0 | | .CONST 0x00c0 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0005 | | .CONST 0x0005 ; Number of locals 00ab INIT_00a8: 00ab e004 | | Load 0x0,0x4 00ac 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00ad 00db | | Load_Top At_Offset_3 00ae 01da | | Execute Vector,Bounds 00af e004 | | Load 0x0,0x4 00b0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b1 035b | [ | Declare_Type Array,Constrained 00b2 0337 | 7 | Declare_Variable Array 00b3 e5ff | | Load 0x2,-0x1 00b4 00d9 | | Load_Top At_Offset_1 00b5 01d4 | | Execute Vector,Structure_Write 00b6 e005 | | Load 0x0,0x5 00b7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b8 02c7 | | Declare_Variable Any 00b9 00d8 | | Load_Top At_Offset_0 00ba 1c00 | | Execute_Immediate Run_Utility,0x0 00bb e005 | | Load 0x0,0x5 00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bd 02c7 | | Declare_Variable Any 00be 00d8 | | Load_Top At_Offset_0 00bf 1c00 | | Execute_Immediate Run_Utility,0x0 00c0 BODY_00a8: 00c0 00be | | Action Activate_Tasks 00c1 00cf | | Action Mark_Auxiliary 00c2 e004 | | Load 0x0,0x4 00c3 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00c4 e5fc | | Load 0x2,-0x4 00c5 0120 | | Execute Any,Is_Value 00c6 6803 |h | Jump_Zero 0xca 00c7 e005 | | Load 0x0,0x5 00c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c9 7801 |x | Jump 0xcb 00ca e5fc | | Load 0x2,-0x4 00cb e403 | | Load 0x2,0x3 00cc e5fe | | Load 0x2,-0x2 00cd e005 | | Load 0x0,0x5 00ce 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00cf c5fc | | Store 0x2,-0x4 00d0 c402 | | Store 0x2,0x2 00d1 e5fd | | Load 0x2,-0x3 00d2 e20f | | Load 0x1,0xf 00d3 0119 | | Execute Any,Check_In_Formal_Type 00d4 e402 | | Load 0x2,0x2 00d5 8216 | | Call 0x1,0x16 00d6 00da | | Load_Top At_Offset_2 00d7 e005 | | Load 0x0,0x5 00d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d9 c404 | | Store 0x2,0x4 00da 00cf | | Action Mark_Auxiliary 00db 7817 |x | Jump 0xf3 00dc 00db | | Load_Top At_Offset_3 00dd e005 | | Load 0x0,0x5 00de 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00df c405 | | Store 0x2,0x5 00e0 00da | | Load_Top At_Offset_2 00e1 e005 | | Load 0x0,0x5 00e2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00e3 e403 | | Load 0x2,0x3 00e4 01df | | Execute Vector,Equal 00e5 6808 |h | Jump_Zero 0xee 00e6 00da | | Load_Top At_Offset_2 00e7 e5fc | | Load 0x2,-0x4 00e8 012f | / | Execute Any,Equal 00e9 7004 |p | Jump_Nonzero 0xee 00ea e5fc | | Load 0x2,-0x4 00eb e005 | | Load 0x0,0x5 00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ed 7809 |x | Jump 0xf7 00ee 00db | | Load_Top At_Offset_3 00ef e005 | | Load 0x0,0x5 00f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f1 c404 | | Store 0x2,0x4 00f2 00c9 | | Action Pop_Auxiliary_Loop 00f3 00db | | Load_Top At_Offset_3 00f4 e005 | | Load 0x0,0x5 00f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00f6 6fe5 |o | Jump_Zero 0xdc 00f7 00ce | | Action Pop_Auxiliary 00f8 e5fc | | Load 0x2,-0x4 00f9 e005 | | Load 0x0,0x5 00fa 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00fb 700e |p | Jump_Nonzero 0x10a 00fc e004 | | Load 0x0,0x4 00fd 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00fe e403 | | Load 0x2,0x3 00ff e006 | | Load 0x0,0x6 0100 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0101 00d1 | | Pop_Control Pop_Count_1 0102 c402 | | Store 0x2,0x2 0103 e5fd | | Load 0x2,-0x3 0104 e20f | | Load 0x1,0xf 0105 0119 | | Execute Any,Check_In_Formal_Type 0106 e402 | | Load 0x2,0x2 0107 8216 | | Call 0x1,0x16 0108 00c9 | | Action Pop_Auxiliary_Loop 0109 7fb8 | | Jump 0xc2 010a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0117 | | .CONST 0x0117 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 e004 | | Load 0x0,0x4 0114 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0115 00e3 | | Load_Encached Natural_Cache 0116 00e3 | | Load_Encached Natural_Cache 0117 BODY_0110: 0117 00e3 | | Load_Encached Natural_Cache 0118 e004 | | Load 0x0,0x4 0119 1b19 | | Execute Package,Field_Read,Field_Number 0x19 011a 4800 |H | Short_Literal 0x0 011b 6050 |`P | Indirect_Literal Discrete,0x16c,{0x00007fff, 0xffffffff} 011c e5fe | | Load 0x2,-0x2 011d e5ff | | Load 0x2,-0x1 011e e005 | | Load 0x0,0x5 011f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0120 c402 | | Store 0x2,0x2 0121 005a | Z | Store_Top Discrete,At_Offset_2 0122 e5fd | | Load 0x2,-0x3 0123 e20f | | Load 0x1,0xf 0124 0119 | | Execute Any,Check_In_Formal_Type 0125 00db | | Load_Top At_Offset_3 0126 8218 | | Call 0x1,0x18 0127 00cf | | Action Mark_Auxiliary 0128 7821 |x! | Jump 0x14a 0129 00e3 | | Load_Encached Natural_Cache 012a e004 | | Load 0x0,0x4 012b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 012c 4800 |H | Short_Literal 0x0 012d 603e |`> | Indirect_Literal Discrete,0x16c,{0x00007fff, 0xffffffff} 012e e5fe | | Load 0x2,-0x2 012f 01dd | | Execute Vector,First 0130 e403 | | Load 0x2,0x3 0131 0273 | s | Execute Discrete,Plus 0132 00d8 | | Load_Top At_Offset_0 0133 00e2 | | Load_Encached Integer_Cache 0134 0260 | ` | Execute Discrete,In_Type 0135 7001 |p | Jump_Nonzero 0x137 0136 0801 | | Execute_Immediate Raise,0x1 0137 e5fe | | Load 0x2,-0x2 0138 01dc | | Execute Vector,Last 0139 e5fe | | Load 0x2,-0x2 013a 01cf | | Execute Vector,Slice_Read 013b e5ff | | Load 0x2,-0x1 013c e005 | | Load 0x0,0x5 013d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 013e c402 | | Store 0x2,0x2 013f 005a | Z | Store_Top Discrete,At_Offset_2 0140 e5fd | | Load 0x2,-0x3 0141 e20f | | Load 0x1,0xf 0142 0119 | | Execute Any,Check_In_Formal_Type 0143 e402 | | Load 0x2,0x2 0144 8218 | | Call 0x1,0x18 0145 00da | | Load_Top At_Offset_2 0146 00da | | Load_Top At_Offset_2 0147 0273 | s | Execute Discrete,Plus 0148 005b | [ | Store_Top Discrete,At_Offset_3 0149 00c9 | | Action Pop_Auxiliary_Loop 014a 00da | | Load_Top At_Offset_2 014b e5fe | | Load 0x2,-0x2 014c 01db | | Execute Vector,Length 014d 027c | | | Execute Discrete,Less 014e 77da |w | Jump_Nonzero 0x129 014f 00ce | | Action Pop_Auxiliary 0150 e5fd | | Load 0x2,-0x3 0151 e20f | | Load 0x1,0xf 0152 0119 | | Execute Any,Check_In_Formal_Type 0153 8211 | | Call 0x1,0x11 0154 6814 |h | Jump_Zero 0x169 0155 e5fd | | Load 0x2,-0x3 0156 e20f | | Load 0x1,0xf 0157 0119 | | Execute Any,Check_In_Formal_Type 0158 0092 01ca | | Action Push_String_Extended,0x1ca ; "***TRANSMIT status => " 015a e402 | | Load 0x2,0x2 015b e004 | | Load 0x0,0x4 015c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 015d 01cc | | Execute Vector,Catenate 015e 8212 | | Call 0x1,0x12 015f e5fd | | Load 0x2,-0x3 0160 e20f | | Load 0x1,0xf 0161 0119 | | Execute Any,Check_In_Formal_Type 0162 0092 01cb | | Action Push_String_Extended,0x1cb ; "Transmitted data => " 0164 e5fe | | Load 0x2,-0x2 0165 e006 | | Load 0x0,0x6 0166 180f | | Execute Package,Field_Execute,Field_Number 0xf 0167 01cc | | Execute Vector,Catenate 0168 8212 | | Call 0x1,0x12 0169 4504 |E | Exit_Suprogram New_Top_Offset 0x4 016a 0000 0000 | | .XXX[0x2] 016c 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0175 | u | .CONST 0x0175 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e004 | | Load 0x0,0x4 0174 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0175 BODY_0170: 0175 00cf | | Action Mark_Auxiliary 0176 4814 |H | Short_Literal 0x14 0177 4801 |H | Short_Literal 0x1 0178 0007 | | Action Break_Optional 0179 e004 | | Load 0x0,0x4 017a 1b19 | | Execute Package,Field_Read,Field_Number 0x19 017b 67f0 |g | Indirect_Literal Discrete,0x16c,{0x00007fff, 0xffffffff} 017c e5fd | | Load 0x2,-0x3 017d e5fe | | Load 0x2,-0x2 017e e5ff | | Load 0x2,-0x1 017f e005 | | Load 0x0,0x5 0180 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0181 c402 | | Store 0x2,0x2 0182 00db | | Load_Top At_Offset_3 0183 0b0e | | Execute_Immediate Case_Compare,0xe 0184 7004 |p | Jump_Nonzero 0x189 0185 0f09 | | Execute_Immediate Equal,0x9 0186 7003 |p | Jump_Nonzero 0x18a 0187 00d2 | | Pop_Control Pop_Count_2 0188 7817 |x | Jump 0x1a0 0189 00d1 | | Pop_Control Pop_Count_1 018a e5fc | | Load 0x2,-0x4 018b e20f | | Load 0x1,0xf 018c 0119 | | Execute Any,Check_In_Formal_Type 018d 8211 | | Call 0x1,0x11 018e 680d |h | Jump_Zero 0x19c 018f e5fc | | Load 0x2,-0x4 0190 e20f | | Load 0x1,0xf 0191 0119 | | Execute Any,Check_In_Formal_Type 0192 0092 01cc | | Action Push_String_Extended,0x1cc ; "Didn't connect in " 0194 00da | | Load_Top At_Offset_2 0195 00e0 | | Load_Encached Standard_Cache 0196 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0197 01cc | | Execute Vector,Catenate 0198 0092 01cd | | Action Push_String_Extended,0x1cd ; " tries" 019a 01cc | | Execute Vector,Catenate 019b 8212 | | Call 0x1,0x12 019c 600b |` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x00018000} 019d 00ba | | Action Initiate_Delay 019e 00c8 | | Action Pop_Auxiliary_Range 019f 3fd9 |? | Loop_Increasing 0x179 01a0 00ce | | Action Pop_Auxiliary 01a1 e5fc | | Load 0x2,-0x4 01a2 e20f | | Load 0x1,0xf 01a3 0119 | | Execute Any,Check_In_Formal_Type 01a4 00d9 | | Load_Top At_Offset_1 01a5 8217 | | Call 0x1,0x17 01a6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01a7 0000 | | .XXX[0x1] 01a8 0000 0000 | | .LITERAL {0x00000000, 0x00018000} 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 e5fd | | Load 0x2,-0x3 01b4 e20f | | Load 0x1,0xf 01b5 0119 | | Execute Any,Check_In_Formal_Type 01b6 4807 |H | Short_Literal 0x7 01b7 0092 01ce | | Action Push_String_Extended,0x1ce ; "Transport." 01b9 e5ff | | Load 0x2,-0x1 01ba 01cc | | Execute Vector,Catenate 01bb 0092 01cf | | Action Push_String_Extended,0x1cf ; " returned status " 01bd 01cc | | Execute Vector,Catenate 01be e5fe | | Load 0x2,-0x2 01bf e004 | | Load 0x0,0x4 01c0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01c1 01cc | | Execute Vector,Catenate 01c2 8210 | | Call 0x1,0x10 01c3 e21a | | Load 0x1,0x1a 01c4 0257 | W | Execute Discrete,Raise 01c5 ; -------------------------------------------------------------------------------------- 01c5 ; STRING TABLE 01c5 ; -------------------------------------------------------------------------------------- 01c5 0018 | | .STRTAB 0x0018->0x01d1 ; " is not a defined machine name." 01c6 0035 | 5 | .STRTAB 0x0035->0x01e0 ; "Open" 01c7 0037 | 7 | .STRTAB 0x0037->0x01e2 ; "Connect" 01c8 003c | < | .STRTAB 0x003c->0x01e6 ; "Transmit" 01c9 0042 | B | .STRTAB 0x0042->0x01ea ; "Receive" 01ca 0047 | G | .STRTAB 0x0047->0x01ed ; "***TRANSMIT status => " 01cb 005b | [ | .STRTAB 0x005b->0x01f8 ; "Transmitted data => " 01cc 006f | o | .STRTAB 0x006f->0x0203 ; "Didn't connect in " 01cd 007f | | .STRTAB 0x007f->0x020c ; " tries" 01ce 0083 | | .STRTAB 0x0083->0x020f ; "Transport." 01cf 008b | | .STRTAB 0x008b->0x0214 ; " returned status " 01d0 009a | | .STREND 0x009a->0x021d 01d1 2069 7320 | is | .STRTAB_STRINGS 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc873,0x0000,0x0001,0x0000 0226 0000 0000 | | .BLANK 0000[0x1da]