|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »991251.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »991251.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »991251.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »991251.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »991251.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »991251.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0260 | ` | .CONST 0x0260 ; 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 0101 | | .CONST 0x0101 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0076 | v | .CONST 0x0076 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x02ea,0x8000,0x0000,0x0037,0x0554,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029c 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible ; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0xf,0xfffc
0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x10,0xfffb
0011 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x11,0xfffa
0012 4900 |I | Short_Literal 0x100
0013 00e3 | | Load_Encached Natural_Cache
0014 03f9 | | Declare_Type Discrete,Constrained,Visible
0015 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x15,0xfff9
0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x16,0xfff8
0017 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x17,0xfff7
0018 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x18,0xfff6
0019 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x19,0xfff5
001a 4808 |H | Short_Literal 0x8 ; Debug Table 0x0.0xb = 0x1a,0xfff4
001b 480f |H | Short_Literal 0xf
001c 00da | | Load_Top At_Offset_2
001d 03f9 | | Declare_Type Discrete,Constrained,Visible
001e 4810 |H | Short_Literal 0x10 ; Debug Table 0x0.0xc = 0x1e,0xfff3
001f 4900 |I | Short_Literal 0x100
0020 00db | | Load_Top At_Offset_3
0021 03f9 | | Declare_Type Discrete,Constrained,Visible
0022 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0x22,0xfff2
0023 4801 |H | Short_Literal 0x1
0024 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0026 03fe | | Declare_Type Discrete,Defined,Visible
0027 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xe = 0x27,0xfff1
0028 4802 |H | Short_Literal 0x2
0029 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
002b 03fe | | Declare_Type Discrete,Defined,Visible
002c 6157 |aW | Indirect_Literal Discrete,0x184,{0x00000000, 0x37055401} ; Debug Table 0x0.0xf = 0x2c,0xfff0
002d 0129 | ) | Execute Any,Make_Visible
002e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x10 = 0x2e,0xffef
002f 480c |H | Short_Literal 0xc
0030 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0032 03fe | | Declare_Type Discrete,Defined,Visible
0033 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x11 = 0x33,0xffee
0034 4804 |H | Short_Literal 0x4
0035 00da | | Load_Top At_Offset_2
0036 03f9 | | Declare_Type Discrete,Constrained,Visible
0037 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x12 = 0x37,0xffed
0038 4801 |H | Short_Literal 0x1
0039 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
003b 03fe | | Declare_Type Discrete,Defined,Visible
003c e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x13 = 0x3c,0xffec
003d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
003f 0129 | ) | Execute Any,Make_Visible
0040 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x14 = 0x40,0xffeb
0041 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0042 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0043 0129 | ) | Execute Any,Make_Visible
0044 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x15 = 0x44,0xffea
0045 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0046 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0047 0129 | ) | Execute Any,Make_Visible
0048 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x16 = 0x48,0xffe9
0049 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
004b 0129 | ) | Execute Any,Make_Visible
004c 0007 | | Action Break_Optional ; Debug Table 0x0.0x17 = 0x4c,0xffe8
004d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x18 = 0x4d,0xffe7
004e 4801 |H | Short_Literal 0x1
004f 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0051 03fe | | Declare_Type Discrete,Defined,Visible
0052 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x19 = 0x52,0xffe6
0053 4801 |H | Short_Literal 0x1
0054 e20e | | Load 0x1,0xe
0055 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0057 4801 |H | Short_Literal 0x1
0058 4800 |H | Short_Literal 0x0
0059 4801 |H | Short_Literal 0x1
005a 4800 |H | Short_Literal 0x0
005b 4801 |H | Short_Literal 0x1
005c 031e | | Declare_Type Variant_Record,Defined,Visible
005d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1a = 0x5d,0xffe5
005f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1b = 0x5f,0xffe4
0060 4803 |H | Short_Literal 0x3
0061 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0063 03fe | | Declare_Type Discrete,Defined,Visible
0064 611b |a | Indirect_Literal Discrete,0x180,{0x00000000, 0x37055402} ; Debug Table 0x0.0x1c = 0x64,0xffe3
0065 0129 | ) | Execute Any,Make_Visible
0066 00bf | | Action Accept_Activation
0067 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x0067,0x0326,0x8000,0x0000,0x0037,0x1084,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x67,0xffff
0068 6113 |a | Indirect_Literal Discrete,0x17c,{0x000f2013, 0x00001a30} ; 0xf2013 = PORT_DEFINITIONS
0069 02a0 | | Declare_Subprogram Null_Subprogram
006a 037d | } | Declare_Type Task,Defined
006b 036f | o | Declare_Variable Task
006c 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x1 = 0x6c,0xfffe
006d 610a |a | Indirect_Literal Discrete,0x178,{0x000f2013, 0x000018b0} ; 0xf2013 = PORT_DEFINITIONS
006e 02a0 | | Declare_Subprogram Null_Subprogram
006f 037d | } | Declare_Type Task,Defined
0070 036f | o | Declare_Variable Task
0071 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x71,0xfffd
0072 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x72,0xfffc
0073 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x73,0xfffb
0074 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x5 = 0x74,0xfffa
0075 00c7 | | Action Elaborate_Subprogram
0076 BODY_0008:
0076 00be | | Action Activate_Tasks
0077 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x6 = 0x77,0x1
0078 00da | | Load_Top At_Offset_2
0079 170d | | Execute Task,Entry_Call,Field_Number 0xd
007a 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x7 = 0x7a,0x2
007b 00d9 | | Load_Top At_Offset_1
007c 170d | | Execute Task,Entry_Call,Field_Number 0xd
007d 00bc | | Action Signal_Activated
007e 00bb | | Action Signal_Completion
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4900 |I | Short_Literal 0x100 ; Debug Table 0x2 = .DEBUG 0x0083,0x0338,0x0002,0x0000,0x0037,0x0554,0x0000,0x0015
; Debug Table 0x2.0x0 = 0x83,0x1
0084 00ca | | Action Exit_Nullary_Function
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x008b,0x033c,0x0005,0x0000,0x0037,0x0554,0x0000,0x0068
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7802 |x | Jump 0x90 ; case 0x1
008e 7805 |x | Jump 0x94 ; case 0x2
008f 7809 |x | Jump 0x99 ; case 0x3
0090 00da | | Load_Top At_Offset_2
0091 0091 01b4 | | Action Push_String_Extended_Indexed,0x1b4 ; "TRANSMIT"
0093 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0094 00db | | Load_Top At_Offset_3
0095 00db | | Load_Top At_Offset_3
0096 00e0 | | Load_Encached Standard_Cache
0097 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0098 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0099 00da | | Load_Top At_Offset_2
009a 00e0 | | Load_Encached Standard_Cache
009b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
009c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x00a3,0x033e,0x0005,0x0000,0x0037,0x0554,0x0000,0x006e
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7802 |x | Jump 0xa8 ; case 0x1
00a6 7805 |x | Jump 0xac ; case 0x2
00a7 7809 |x | Jump 0xb1 ; case 0x3
00a8 00da | | Load_Top At_Offset_2
00a9 0091 01b6 | | Action Push_String_Extended_Indexed,0x1b6 ; "OK"
00ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ac 00db | | Load_Top At_Offset_3
00ad 00db | | Load_Top At_Offset_3
00ae 00e0 | | Load_Encached Standard_Cache
00af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b1 00da | | Load_Top At_Offset_2
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x5 = .DEBUG 0x00bb,0x0340,0x0005,0x0000,0x0037,0x0554,0x0000,0x0078
00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00bd 7802 |x | Jump 0xc0 ; case 0x1
00be 7805 |x | Jump 0xc4 ; case 0x2
00bf 7809 |x | Jump 0xc9 ; case 0x3
00c0 00da | | Load_Top At_Offset_2
00c1 0091 01b9 | | Action Push_String_Extended_Indexed,0x1b9 ; "DATA"
00c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c4 00db | | Load_Top At_Offset_3
00c5 00db | | Load_Top At_Offset_3
00c6 00e0 | | Load_Encached Standard_Cache
00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 00da | | Load_Top At_Offset_2
00ca 00e0 | | Load_Encached Standard_Cache
00cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4603 |F | Jump_Case 0x4 ; Debug Table 0x6 = .DEBUG 0x00d3,0x0342,0x0005,0x0000,0x0037,0x0554,0x0000,0x0090
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7802 |x | Jump 0xd8 ; case 0x1
00d6 7805 |x | Jump 0xdc ; case 0x2
00d7 7809 |x | Jump 0xe1 ; case 0x3
00d8 00da | | Load_Top At_Offset_2
00d9 0091 01c6 | | Action Push_String_Extended_Indexed,0x1c6 ; "OK"
00db 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00dc 00db | | Load_Top At_Offset_3
00dd 00db | | Load_Top At_Offset_3
00de 00e0 | | Load_Encached Standard_Cache
00df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e1 00da | | Load_Top At_Offset_2
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4603 |F | Jump_Case 0x4 ; Debug Table 0x7 = .DEBUG 0x00eb,0x0344,0x0005,0x0000,0x0037,0x0554,0x0000,0x00c6
00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ed 7802 |x | Jump 0xf0 ; case 0x1
00ee 7805 |x | Jump 0xf4 ; case 0x2
00ef 7809 |x | Jump 0xf9 ; case 0x3
00f0 00da | | Load_Top At_Offset_2
00f1 0091 01c8 | | Action Push_String_Extended_Indexed,0x1c8 ; "SOFTWARE_OVERRUN"
00f3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f4 00db | | Load_Top At_Offset_3
00f5 00db | | Load_Top At_Offset_3
00f6 00e0 | | Load_Encached Standard_Cache
00f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f9 00da | | Load_Top At_Offset_2
00fa 00e0 | | Load_Encached Standard_Cache
00fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00fc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x0103,0x0346,0x0005,0x0000,0x0037,0x0554,0x0000,0x00cc
0104 7808 |x | Jump 0x10d ; case 0x0
0105 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0106 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0107 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0108 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0109 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
010a 7817 |x | Jump 0x122 ; case 0x6
010b 781c |x | Jump 0x128 ; case 0x7
010c 7825 |x% | Jump 0x132 ; case 0x8
010d 00da | | Load_Top At_Offset_2
010e 016c | l | Execute Variant_Record,Is_Constrained
010f 7009 |p | Jump_Nonzero 0x119
0110 00cf | | Action Mark_Auxiliary
0111 4800 |H | Short_Literal 0x0
0112 e5ff | | Load 0x2,-0x1
0113 1c08 | | Execute_Immediate Run_Utility,0x8
0114 00d8 | | Load_Top At_Offset_0
0115 1c00 | | Execute_Immediate Run_Utility,0x0
0116 c5ff | | Store 0x2,-0x1
0117 00ce | | Action Pop_Auxiliary
0118 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0119 00da | | Load_Top At_Offset_2
011a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
011b 4601 |F | Jump_Case 0x2
011c 7801 |x | Jump 0x11e ; case 0x0
011d 7800 |x | Jump 0x11e ; case 0x1
011e 4800 |H | Short_Literal 0x0
011f 00db | | Load_Top At_Offset_3
0120 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0121 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0122 00db | | Load_Top At_Offset_3
0123 4601 |F | Jump_Case 0x2
0124 7801 |x | Jump 0x126 ; case 0x0
0125 7800 |x | Jump 0x126 ; case 0x1
0126 4801 |H | Short_Literal 0x1
0127 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0128 00db | | Load_Top At_Offset_3
0129 e5fe | | Load 0x2,-0x2
012a 4601 |F | Jump_Case 0x2
012b 7801 |x | Jump 0x12d ; case 0x0
012c 7800 |x | Jump 0x12d ; case 0x1
012d 4801 |H | Short_Literal 0x1
012e 7800 |x | Jump 0x12f
012f e5ff | | Load 0x2,-0x1
0130 031b | | Declare_Type Variant_Record,Constrained
0131 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0132 00db | | Load_Top At_Offset_3
0133 e5fe | | Load 0x2,-0x2
0134 e5ff | | Load 0x2,-0x1
0135 1c06 | | Execute_Immediate Run_Utility,0x6
0136 e5ff | | Load 0x2,-0x1
0137 02fc | | Declare_Variable Variant_Record,With_Constraint
0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 0092 01ce | | Action Push_String_Extended,0x1ce ; "PORT_MANAGER: "
; Debug Table 0x9 = .DEBUG 0x0143,0x0348,0x2801,0x0002,0x0037,0x0554,0x0000,0x00f2
; Debug Table 0x9.0x0 = 0x143,0x1
0145 e5fd | | Load 0x2,-0x3
0146 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0147 e21b | | Load 0x1,0x1b
0148 025e | ^ | Execute Discrete,Convert
0149 1c01 | | Execute_Immediate Run_Utility,0x1
014a 01cc | | Execute Vector,Catenate
014b 85fe | | Call 0x2,-0x2
014c e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x1 = 0x14c,0x2
014d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
014e 4601 |F | Jump_Case 0x2
014f 7801 |x | Jump 0x151 ; case 0x0
0150 7800 |x | Jump 0x151 ; case 0x1
0151 0092 01cf | | Action Push_String_Extended,0x1cf ; " PORT =>"
; Debug Table 0x9.0x2 = 0x151,0x3
0153 e5fd | | Load 0x2,-0x3
0154 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0155 00e0 | | Load_Encached Standard_Cache
0156 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0157 01cc | | Execute Vector,Catenate
0158 85fe | | Call 0x2,-0x2
0159 4504 |E | Exit_Suprogram New_Top_Offset 0x4
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4603 |F | Jump_Case 0x4 ; Debug Table 0xa = .DEBUG 0x0163,0x0350,0x0005,0x0000,0x0037,0x0554,0x0000,0x0104
0164 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0165 7802 |x | Jump 0x168 ; case 0x1
0166 7805 |x | Jump 0x16c ; case 0x2
0167 7809 |x | Jump 0x171 ; case 0x3
0168 00da | | Load_Top At_Offset_2
0169 0091 01ca | | Action Push_String_Extended_Indexed,0x1ca ; "NONE"
016b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
016c 00db | | Load_Top At_Offset_3
016d 00db | | Load_Top At_Offset_3
016e 00e0 | | Load_Encached Standard_Cache
016f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0170 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0171 00da | | Load_Top At_Offset_2
0172 00e0 | | Load_Encached Standard_Cache
0173 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0174 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 000f 2013 | | .LITERAL {0x000f2013, 0x000018b0}
017c 000f 2013 | | .LITERAL {0x000f2013, 0x00001a30}
0180 0000 0000 | | .LITERAL {0x00000000, 0x37055402}
0184 0000 0000 | | .LITERAL {0x00000000, 0x37055401}
0188 0192 0004 | | .XXX[0x3]
018a 000e | |
018b 4800 |H | Short_Literal 0x0 ; Debug Table 0xb = .DEBUG 0x018b,0x0352,0x0000,0x0000,0x0037,0x1084,0x0000,0x000c
018c 02cb | | Declare_Variable Entry
018d 00bf | | Action Accept_Activation
018e 480d |H | Short_Literal 0xd ; Debug Table 0xc = .DEBUG 0x018e,0x0354,0x0000,0x0000,0x0037,0x1084,0x0000,0x001e
018f 0299 019b | | Declare_Subprogram INIT_0198,For_Accept
0191 00bc | | Action Signal_Activated
0192 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0xc.0x0 = 0x192,0x1
0193 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0194 0137 | 7 | Execute Entry,Rendezvous
0195 00bb | | Action Signal_Completion
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4100 |A | End_Rendezvous 0x0 ; Debug Table 0xd = .DEBUG 0x019b,0x0358,0x0003,0x0000,0x0037,0x1084,0x0000,0x0023
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 01aa 0004 | | .XXX[0x3]
01a2 000e | |
01a3 4800 |H | Short_Literal 0x0 ; Debug Table 0xe = .DEBUG 0x01a3,0x035a,0x0000,0x0000,0x0037,0x1084,0x0000,0x0004
01a4 02cb | | Declare_Variable Entry
01a5 00bf | | Action Accept_Activation
01a6 480d |H | Short_Literal 0xd ; Debug Table 0xf = .DEBUG 0x01a6,0x035c,0x0000,0x0000,0x0037,0x1084,0x0000,0x0014
01a7 0299 01b3 | | Declare_Subprogram INIT_01b0,For_Accept
01a9 00bc | | Action Signal_Activated
01aa 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0xf.0x0 = 0x1aa,0x1
01ab 1d0d | | Execute_Immediate Reference_Lex_1,0xd
01ac 0137 | 7 | Execute Entry,Rendezvous
01ad 00bb | | Action Signal_Completion
01ae 0000 0000 | | .XXX[0x2]
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 4100 |A | End_Rendezvous 0x0 ; Debug Table 0x10 = .DEBUG 0x01b3,0x0360,0x0003,0x0000,0x0037,0x1084,0x0000,0x0019
01b4 ; --------------------------------------------------------------------------------------
01b4 ; STRING TABLE
01b4 ; --------------------------------------------------------------------------------------
01b4 003a | : | .STRTAB 0x003a->0x01d1 ; "TRANSMIT"
01b5 0040 | @ | .STRTAB 0x0040->0x01d5 ; "RECEIVE"
01b6 0045 | E | .STRTAB 0x0045->0x01d8 ; "OK"
01b7 0045 | E | .STRTAB 0x0045->0x01d9 ; "INSUFFICIENT_RESOURCES"
01b8 0059 | Y | .STRTAB 0x0059->0x01e4 ; "TOO_MANY_CLIENTS"
01b9 0067 | g | .STRTAB 0x0067->0x01ec ; "DATA"
01ba 0069 | i | .STRTAB 0x0069->0x01ee ; "ERROR"
01bb 006c | l | .STRTAB 0x006c->0x01f1 ; "BREAK"
01bc 006f | o | .STRTAB 0x006f->0x01f3 ; "OVERRUN"
01bd 0074 | t | .STRTAB 0x0074->0x01f7 ; "DISCONNECT"
01be 007c | | | .STRTAB 0x007c->0x01fc ; "CONFIGURE"
01bf 0083 | | .STRTAB 0x0083->0x0200 ; "RAISE_RTS"
01c0 008a | | .STRTAB 0x008a->0x0205 ; "LOWER_RTS"
01c1 0091 | | .STRTAB 0x0091->0x0209 ; "RAISE_DTR"
01c2 0098 | | .STRTAB 0x0098->0x020e ; "LOWER_DTR"
01c3 009f | | .STRTAB 0x009f->0x0212 ; "ENABLE_FLOW_CONTROL"
01c4 00b0 | | .STRTAB 0x00b0->0x021c ; "DISABLE_FLOW_CONTROL"
01c5 00c2 | | .STRTAB 0x00c2->0x0226 ; "WAIT_FOR_TRANSMISSION"
01c6 00d5 | | .STRTAB 0x00d5->0x0230 ; "OK"
01c7 00d5 | | .STRTAB 0x00d5->0x0231 ; "NOT_CONFIGURABLE"
01c8 00e3 | | .STRTAB 0x00e3->0x0239 ; "SOFTWARE_OVERRUN"
01c9 00f1 | | .STRTAB 0x00f1->0x0241 ; "HARDWARE_OVERRUN"
01ca 00ff | | .STRTAB 0x00ff->0x0249 ; "NONE"
01cb 0101 | | .STRTAB 0x0101->0x024b ; "XON_XOFF"
01cc 0107 | | .STRTAB 0x0107->0x024f ; "DTR"
01cd 0108 | | .STRTAB 0x0108->0x0251 ; "RTS"
01ce 0109 | | .STRTAB 0x0109->0x0252 ; "PORT_MANAGER: "
01cf 0115 | | .STRTAB 0x0115->0x0259 ; " PORT =>"
01d0 011e | | .STREND 0x011e->0x025f
01d1 5452 414e |TRAN| .STRTAB_STRINGS
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0003 0011 | | .CONST 0x0003,0x0011
0262 000b 02ea | | .DEBUG 0x000b,0x02ea,0x8000,0x0000,0x0037,0x0554,0x0000,0x0007
026a 0067 0326 | g &| .DEBUG 0x0067,0x0326,0x8000,0x0000,0x0037,0x1084,0x0000,0x0003
0272 0083 0338 | 8| .DEBUG 0x0083,0x0338,0x0002,0x0000,0x0037,0x0554,0x0000,0x0015
027a 008b 033c | <| .DEBUG 0x008b,0x033c,0x0005,0x0000,0x0037,0x0554,0x0000,0x0068
0282 00a3 033e | >| .DEBUG 0x00a3,0x033e,0x0005,0x0000,0x0037,0x0554,0x0000,0x006e
028a 00bb 0340 | @| .DEBUG 0x00bb,0x0340,0x0005,0x0000,0x0037,0x0554,0x0000,0x0078
0292 00d3 0342 | B| .DEBUG 0x00d3,0x0342,0x0005,0x0000,0x0037,0x0554,0x0000,0x0090
029a 00eb 0344 | D| .DEBUG 0x00eb,0x0344,0x0005,0x0000,0x0037,0x0554,0x0000,0x00c6
02a2 0103 0346 | F| .DEBUG 0x0103,0x0346,0x0005,0x0000,0x0037,0x0554,0x0000,0x00cc
02aa 0143 0348 | C H| .DEBUG 0x0143,0x0348,0x2801,0x0002,0x0037,0x0554,0x0000,0x00f2
02b2 0163 0350 | c P| .DEBUG 0x0163,0x0350,0x0005,0x0000,0x0037,0x0554,0x0000,0x0104
02ba 018b 0352 | R| .DEBUG 0x018b,0x0352,0x0000,0x0000,0x0037,0x1084,0x0000,0x000c
02c2 018e 0354 | T| .DEBUG 0x018e,0x0354,0x0000,0x0000,0x0037,0x1084,0x0000,0x001e
02ca 019b 0358 | X| .DEBUG 0x019b,0x0358,0x0003,0x0000,0x0037,0x1084,0x0000,0x0023
02d2 01a3 035a | Z| .DEBUG 0x01a3,0x035a,0x0000,0x0000,0x0037,0x1084,0x0000,0x0004
02da 01a6 035c | \| .DEBUG 0x01a6,0x035c,0x0000,0x0000,0x0037,0x1084,0x0000,0x0014
02e2 01b3 0360 | `| .DEBUG 0x01b3,0x0360,0x0003,0x0000,0x0037,0x1084,0x0000,0x0019
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug3 Subtable 0x0
02ea ; --------------------------------------------------------------------------------------
02ea 001d 0000 | | .DBG3TAB 0x001d,0x0000
02ec 000b ffff | | .CONST 0x000b,0xffff
02ee 000c fffe | | .CONST 0x000c,0xfffe
02f0 000d fffd | | .CONST 0x000d,0xfffd
02f2 000f fffc | | .CONST 0x000f,0xfffc
02f4 0010 fffb | | .CONST 0x0010,0xfffb
02f6 0011 fffa | | .CONST 0x0011,0xfffa
02f8 0015 fff9 | | .CONST 0x0015,0xfff9
02fa 0016 fff8 | | .CONST 0x0016,0xfff8
02fc 0017 fff7 | | .CONST 0x0017,0xfff7
02fe 0018 fff6 | | .CONST 0x0018,0xfff6
0300 0019 fff5 | | .CONST 0x0019,0xfff5
0302 001a fff4 | | .CONST 0x001a,0xfff4
0304 001e fff3 | | .CONST 0x001e,0xfff3
0306 0022 fff2 | " | .CONST 0x0022,0xfff2
0308 0027 fff1 | ' | .CONST 0x0027,0xfff1
030a 002c fff0 | , | .CONST 0x002c,0xfff0
030c 002e ffef | . | .CONST 0x002e,0xffef
030e 0033 ffee | 3 | .CONST 0x0033,0xffee
0310 0037 ffed | 7 | .CONST 0x0037,0xffed
0312 003c ffec | < | .CONST 0x003c,0xffec
0314 0040 ffeb | @ | .CONST 0x0040,0xffeb
0316 0044 ffea | D | .CONST 0x0044,0xffea
0318 0048 ffe9 | H | .CONST 0x0048,0xffe9
031a 004c ffe8 | L | .CONST 0x004c,0xffe8
031c 004d ffe7 | M | .CONST 0x004d,0xffe7
031e 0052 ffe6 | R | .CONST 0x0052,0xffe6
0320 005d ffe5 | ] | .CONST 0x005d,0xffe5
0322 005f ffe4 | _ | .CONST 0x005f,0xffe4
0324 0064 ffe3 | d | .CONST 0x0064,0xffe3
0326 ; --------------------------------------------------------------------------------------
0326 ; Debug3 Subtable 0x1
0326 ; --------------------------------------------------------------------------------------
0326 0006 0002 | | .DBG3TAB 0x0006,0x0002
0328 0067 ffff | g | .CONST 0x0067,0xffff
032a 006c fffe | l | .CONST 0x006c,0xfffe
032c 0071 fffd | q | .CONST 0x0071,0xfffd
032e 0072 fffc | r | .CONST 0x0072,0xfffc
0330 0073 fffb | s | .CONST 0x0073,0xfffb
0332 0074 fffa | t | .CONST 0x0074,0xfffa
0334 0077 0001 | w | .CONST 0x0077,0x0001
0336 007a 0002 | z | .CONST 0x007a,0x0002
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug3 Subtable 0x2
0338 ; --------------------------------------------------------------------------------------
0338 0000 0001 | | .DBG3TAB 0x0000,0x0001
033a 0083 0001 | | .CONST 0x0083,0x0001
033c ; --------------------------------------------------------------------------------------
033c ; Debug3 Subtable 0x3
033c ; --------------------------------------------------------------------------------------
033c 0000 0000 | | .DBG3TAB 0x0000,0x0000
033e ; --------------------------------------------------------------------------------------
033e ; Debug3 Subtable 0x4
033e ; --------------------------------------------------------------------------------------
033e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug3 Subtable 0x5
0340 ; --------------------------------------------------------------------------------------
0340 0000 0000 | | .DBG3TAB 0x0000,0x0000
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug3 Subtable 0x6
0342 ; --------------------------------------------------------------------------------------
0342 0000 0000 | | .DBG3TAB 0x0000,0x0000
0344 ; --------------------------------------------------------------------------------------
0344 ; Debug3 Subtable 0x7
0344 ; --------------------------------------------------------------------------------------
0344 0000 0000 | | .DBG3TAB 0x0000,0x0000
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug3 Subtable 0x8
0346 ; --------------------------------------------------------------------------------------
0346 0000 0000 | | .DBG3TAB 0x0000,0x0000
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug3 Subtable 0x9
0348 ; --------------------------------------------------------------------------------------
0348 0000 0003 | | .DBG3TAB 0x0000,0x0003
034a 0143 0001 | C | .CONST 0x0143,0x0001
034c 014c 0002 | L | .CONST 0x014c,0x0002
034e 0151 0003 | Q | .CONST 0x0151,0x0003
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0xa
0350 ; --------------------------------------------------------------------------------------
0350 0000 0000 | | .DBG3TAB 0x0000,0x0000
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug3 Subtable 0xb
0352 ; --------------------------------------------------------------------------------------
0352 0000 0000 | | .DBG3TAB 0x0000,0x0000
0354 ; --------------------------------------------------------------------------------------
0354 ; Debug3 Subtable 0xc
0354 ; --------------------------------------------------------------------------------------
0354 0000 0001 | | .DBG3TAB 0x0000,0x0001
0356 0192 0001 | | .CONST 0x0192,0x0001
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug3 Subtable 0xd
0358 ; --------------------------------------------------------------------------------------
0358 0000 0000 | | .DBG3TAB 0x0000,0x0000
035a ; --------------------------------------------------------------------------------------
035a ; Debug3 Subtable 0xe
035a ; --------------------------------------------------------------------------------------
035a 0000 0000 | | .DBG3TAB 0x0000,0x0000
035c ; --------------------------------------------------------------------------------------
035c ; Debug3 Subtable 0xf
035c ; --------------------------------------------------------------------------------------
035c 0000 0001 | | .DBG3TAB 0x0000,0x0001
035e 01aa 0001 | | .CONST 0x01aa,0x0001
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug3 Subtable 0x10
0360 ; --------------------------------------------------------------------------------------
0360 0000 0000 | | .DBG3TAB 0x0000,0x0000
0362 0000 0000 | | .BLANK 0000[0x9e]