|
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_6060f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 000e | | .DEBUG4 0x0004,0x000e,0xf423,0x0000,0x0001,0x0000
0226 3540 102e |5@ .| .XXX[0x40]
0228 4004 11d8 |@ |
022a 0c00 7020 | p |
022c 8000 66bb | f |
022e e998 9002 | |
0230 044a 0000 | J |
0232 0000 2071 | q|
0234 0008 1ff8 | |
0236 0000 0000 | |
0238 009d 8b80 | |
023a 205c 8000 | \ |
023c 0000 0190 | |
023e 3001 a403 |0 |
0240 3b17 0040 |; @|
0242 b900 0000 | |
0244 000d e060 | `|
0246 0390 7e11 | ~ |
0248 2600 8112 |& |
024a 8000 0000 | |
024c 0000 0404 | |
024e 0058 0000 | X |
0250 0000 0020 | |
0252 5c90 c940 |\ @|
0254 03f8 b800 | |
0256 0000 003f | ?|
0258 a340 0041 | @ A|
025a 6ec0 0000 |n |
025c 0000 0020 | |
025e 0020 bf60 | `|
0260 0000 0000 | |
0262 0000 0040 | @|
0264 0020 cf60 | `|
0266 0000 0000 | | .BLANK 0000[0x6]
026c 0020 db60 | `| .XXX[0x37]
026e 0003 fcf0 | |
0270 0000 0080 | |
0272 20e9 a007 | |
0274 e228 0118 | ( |
0276 3382 2000 |3 |
0278 63a2 0008 |c |
027a 4640 020f |F@ |
027c e400 8434 | 4|
027e 8000 a762 | b|
0280 e008 3b40 | ;@|
0282 0000 0001 | |
0284 b800 0000 | |
0286 0042 24c0 | B$ |
0288 1076 8000 | v |
028a 0000 0000 | |
028c 0083 b02d | -|
028e 0000 0000 | |
0290 0070 63d0 | pc |
0292 0c74 4000 | t@ |
0294 0000 0042 | B|
0296 6bc0 10af |k |
0298 4000 0000 |@ |
029a 0007 182c | ,|
029c 0042 42c0 | BB |
029e 10a9 e008 | |
02a0 0000 042b | +|
02a2 d000 | |
02a3 0000 0000 | | .BLANK 0000[0x4]
02a7 0002 135e | ^| .XXX[0xd1]
02a9 0016 0200 | |
02ab 3800 0000 |8 |
02ad 0000 0d7d | }|
02af 180b d802 | |
02b1 1216 0000 | |
02b3 0000 22b1 | " |
02b5 2004 3bae | ; |
02b7 34fc 008a |4 |
02b9 c480 0000 | |
02bb 0008 67d0 | g |
02bd 021a b200 | |
02bf 0000 2284 | " |
02c1 6008 67d0 |` g |
02c3 0000 0001 | |
02c5 e40a 0096 | |
02c7 9400 0000 | |
02c9 0000 0430 | 0|
02cb 0800 1400 | |
02cd 0000 0043 | C|
02cf 00a1 1200 | |
02d1 085b 7000 | [p |
02d3 0000 0086 | |
02d5 62cc c480 |b |
02d7 10b6 e000 | |
02d9 0000 010d | |
02db fd00 439d | C |
02dd 0000 0000 | |
02df 0004 ec5c | \|
02e1 010d 5900 | Y |
02e3 0000 002f | /|
02e5 8140 0d0c | @ |
02e7 a9d8 b802 | |
02e9 1ab2 0000 | |
02eb 0000 1b02 | |
02ed 8025 8980 | % |
02ef 0000 0234 | 4|
02f1 fc00 8ac4 | |
02f3 8000 0000 | |
02f5 0884 9002 | |
02f7 21e2 0089 |! |
02f9 41a2 8460 |A `|
02fb 0884 9000 | |
02fd 0000 0200 | |
02ff 0c00 7020 | p |
0301 8022 5060 | "P`|
0303 0004 3e68 | >h|
0305 000c 0000 | |
0307 0000 43e6 | C |
0309 a112 0008 | |
030b 7830 0000 |x0 |
030d 0000 882e | .|
030f ccc4 8010 | |
0311 f060 0000 | ` |
0313 0001 1195 | |
0315 0044 8300 | D |
0317 0000 0000 | |
0319 04ec 5c01 | \ |
031b 10f1 0000 | |
031d 0000 0c81 | |
031f 800d 2019 | |
0321 d8b8 0221 | !|
0323 e200 0000 | |
0325 0012 0300 | |
0327 1be0 d201 | |
0329 0004 3c18 | < |
032b 0115 3300 | 3 |
032d 44d0 8011 |D |
032f 4d40 3001 |M@0 |
0331 c082 0001 | |
0333 9b2c 2662 | ,&b|
0335 4008 9418 |@ |
0337 0000 0000 | |
0339 89f3 0022 | "|
033b 8ba0 0000 | |
033d 0000 0276 | v|
033f 2e00 89a1 |. |
0341 0000 0000 | |
0343 0640 c006 | @ |
0345 900c ec5c | \|
0347 0113 4200 | B |
0349 0000 0037 | 7|
034b 8180 0e41 | A|
034d f844 9802 | D |
034f 2506 0000 |% |
0351 0000 0000 | |
0353 1010 0160 | `|
0355 0000 0000 | |
0357 0089 a143 | C|
0359 2500 10af |% |
035b 4000 0000 |@ |
035d 010b 5300 | S |
035f 0116 1900 | |
0361 0000 0000 | |
0363 0100 008b | |
0365 2c80 0000 |, |
0367 0000 0000 | |
0369 0180 0000 | |
036b 0000 008b | |
036d 7c80 0000 || |
036f 0000 008b | |
0371 cb00 0000 | |
0373 0000 008b | |
0375 ac80 0010 | |
0377 c020 | |
0378 0000 0000 | | .BLANK 0000[0x6]
037e 045f d800 | _ | .XXX[0x37]
0380 0087 cd00 | |
0382 0000 1004 | |
0384 61a0 0109 |a |
0386 0b00 2529 | %)|
0388 d044 000c | D |
038a 7440 0119 |t@ |
038c e300 4643 | FC|
038e 4011 9840 |@ @|
0390 001c ec5c | \|
0392 0118 8300 | |
0394 0000 0037 | 7|
0396 0000 0000 | |
0398 0844 9802 | D |
039a 3106 0000 |1 |
039c 0000 0000 | |
039e 1076 05a0 | v |
03a0 0000 0000 | |
03a2 120c 7a01 | z |
03a4 8e88 0000 | |
03a6 0000 08d6 | |
03a8 5002 381e |P 8 |
03aa 0000 0000 | |
03ac 00e3 0580 | |
03ae 08d1 3002 | 0 |
03b0 3772 0108 |7r |
03b2 0000 8e07 | |
03b4 8000 | |
03b5 0000 0000 | | .BLANK 0000[0x4]
03b9 0046 b280 | F | .XXX[0x47]
03bb 0340 4007 | @@ |
03bd 0000 0000 | |
03bf 0001 afa3 | |
03c1 017b 0046 | { F|
03c3 8980 0000 | |
03c5 0004 9a90 | |
03c7 0090 0346 | F|
03c9 9f80 126a | j|
03cb 4000 0000 |@ |
03cd 011e 1500 | |
03cf 479d 0000 |G |
03d1 0004 508c | P |
03d3 011e 1500 | |
03d5 0000 0014 | |
03d7 81c0 0e4c | L|
03d9 c000 0000 | |
03db 0000 8e8e | |
03dd 8002 8000 | |
03df 0000 08e8 | |
03e1 ec22 4001 | "@ |
03e3 1c89 0000 | |
03e5 0000 11de | |
03e7 0998 9002 | |
03e9 3912 0000 |9 |
03eb 0000 23e3 | # |
03ed 0008 fc78 | x|
03ef 0000 0000 | |
03f1 009d 8b80 | |
03f3 23ce 8000 |# |
03f5 0000 0630 | 0|
03f7 3801 9ea1 |8 |
03f9 3b17 0047 |; G|
03fb 9d00 0000 | |
03fd 000f a070 | p|
03ff 038e | |