|
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: »7187.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »7187.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »7187.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »7187.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »7187.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »7187.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 0228 | ( | .CONST 0x0228 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0101 | | .CONST 0x0101 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0065 | e | .CONST 0x0065 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0282,0x8000,0x0000,0x0035,0xdb74,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 000d 0129 | ) | Execute Any,Make_Visible 000e 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 0129 | ) | Execute Any,Make_Visible 0010 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x10,0xfffd 0012 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x12,0xfffc 0014 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x14,0xfffb 0015 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0016 0129 | ) | Execute Any,Make_Visible 0017 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x17,0xfffa 0018 4803 |H | Short_Literal 0x3 0019 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 001b 03fe | | Declare_Type Discrete,Defined,Visible 001c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x1c,0xfff9 001d 4801 |H | Short_Literal 0x1 001e 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0020 03fe | | Declare_Type Discrete,Defined,Visible 0021 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x7 = 0x21,0xfff8 0022 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0024 4800 |H | Short_Literal 0x0 0025 4800 |H | Short_Literal 0x0 0026 4800 |H | Short_Literal 0x0 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 031e | | Declare_Type Variant_Record,Defined,Visible 002a 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x2a,0xfff7 002b 4804 |H | Short_Literal 0x4 002c 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 002e 03fe | | Declare_Type Discrete,Defined,Visible 002f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x2f,0xfff6 0030 4808 |H | Short_Literal 0x8 0031 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0033 03fe | | Declare_Type Discrete,Defined,Visible 0034 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xa = 0x34,0xfff5 0035 4801 |H | Short_Literal 0x1 0036 00e7 | | Load_Encached Duration_Cache 0037 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0039 4801 |H | Short_Literal 0x1 003a 4800 |H | Short_Literal 0x0 003b 4801 |H | Short_Literal 0x1 003c 4800 |H | Short_Literal 0x0 003d 4801 |H | Short_Literal 0x1 003e 031e | | Declare_Type Variant_Record,Defined,Visible 003f 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0xb = 0x3f,0xfff4 0040 4801 |H | Short_Literal 0x1 0041 00da | | Load_Top At_Offset_2 0042 4801 |H | Short_Literal 0x1 0043 00e3 | | Load_Encached Natural_Cache 0044 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0046 4802 |H | Short_Literal 0x2 0047 4800 |H | Short_Literal 0x0 0048 4802 |H | Short_Literal 0x2 0049 4800 |H | Short_Literal 0x0 004a 4801 |H | Short_Literal 0x1 004b 031e | | Declare_Type Variant_Record,Defined,Visible 004c e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xc = 0x4c,0xfff3 004d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004e 0129 | ) | Execute Any,Make_Visible 004f 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0xd = 0x4f,0xfff2 0050 4800 |H | Short_Literal 0x0 0051 e001 | | Load 0x0,0x1 0052 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0053 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0054 4801 |H | Short_Literal 0x1 0055 4800 |H | Short_Literal 0x0 0056 e001 | | Load 0x0,0x1 0057 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0058 0334 | 4 | Declare_Variable Array,With_Constraint 0059 00d9 | | Load_Top At_Offset_1 005a 01d4 | | Execute Vector,Structure_Write 005b 00bf | | Action Accept_Activation 005c 4801 |H | Short_Literal 0x1 ; Debug Table 0x1 = .DEBUG 0x005c,0x02a0,0x8000,0x0000,0x0035,0xdc44,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x5c,0xffff 005d 4801 |H | Short_Literal 0x1 005e e001 | | Load 0x0,0x1 005f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0060 035b | [ | Declare_Type Array,Constrained 0061 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x61,0xfffe 0062 00c7 | | Action Elaborate_Subprogram 0063 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x2 = 0x63,0xfffd 0064 00c7 | | Action Elaborate_Subprogram 0065 BODY_0008: 0065 00bc | | Action Signal_Activated 0066 00bb | | Action Signal_Completion 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 ; Debug Table 0x2 = .DEBUG 0x006b,0x02a8,0x0002,0x0000,0x0035,0xdb74,0x0000,0x0014 ; Debug Table 0x2.0x0 = 0x6b,0x1 006c 4800 |H | Short_Literal 0x0 006d 48ff |H | Short_Literal 0xff 006e 0262 | b | Execute Discrete,In_Range 006f 7002 |p | Jump_Nonzero 0x72 0070 4887 |H | Short_Literal 0x87 0071 0257 | W | Execute Discrete,Raise 0072 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x1 = 0x72,0x2 0073 4801 |H | Short_Literal 0x1 0074 e001 | | Load 0x0,0x1 0075 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0076 0334 | 4 | Declare_Variable Array,With_Constraint 0077 00db | | Load_Top At_Offset_3 0078 00d8 | | Load_Top At_Offset_0 0079 e001 | | Load 0x0,0x1 007a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007b 0122 | " | Execute Any,Make_Root_Type 007c 0260 | ` | Execute Discrete,In_Type 007d 7002 |p | Jump_Nonzero 0x80 007e 48e0 |H | Short_Literal 0xe0 007f 0257 | W | Execute Discrete,Raise 0080 4801 |H | Short_Literal 0x1 0081 00da | | Load_Top At_Offset_2 0082 01d6 | | Execute Vector,Field_Write 0083 e21b | | Load 0x1,0x1b 0084 01c3 | | Execute Vector,Check_In_Type 0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0086 0000 0000 | | .XXX[0x2] 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 ; Debug Table 0x3 = .DEBUG 0x008b,0x02ae,0x0001,0x0000,0x0035,0xdb74,0x0000,0x001f ; Debug Table 0x3.0x0 = 0x8b,0x1 008c 01dd | | Execute Vector,First 008d 00db | | Load_Top At_Offset_3 008e 01d7 | | Execute Vector,Field_Read 008f 00d8 | | Load_Top At_Offset_0 0090 e20e | | Load 0x1,0xe 0091 0122 | " | Execute Any,Make_Root_Type 0092 0260 | ` | Execute Discrete,In_Type 0093 7002 |p | Jump_Nonzero 0x96 0094 48e0 |H | Short_Literal 0xe0 0095 0257 | W | Execute Discrete,Raise 0096 a5fe | | Store_Unchecked 0x2,-0x2 0097 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1 = 0x97,0x2 0098 a5fd | | Store_Unchecked 0x2,-0x3 0099 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009a 0000 0000 | | .BLANK 0000[0x6] 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,0x02b4,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0037 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 01a5 | | Action Push_String_Extended_Indexed,0x1a5 ; "DISCONNECTED" 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,0x02b6,0x0005,0x0000,0x0035,0xdb74,0x0000,0x003f 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 01a9 | | Action Push_String_Extended_Indexed,0x1a9 ; "CONNECT" 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x00d3,0x02b8,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0045 00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00da 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00db 7801 |x | Jump 0xdd ; case 0x7 00dc 7804 |x | Jump 0xe1 ; case 0x8 00dd 00db | | Load_Top At_Offset_3 00de e5ff | | Load 0x2,-0x1 00df 031b | | Declare_Type Variant_Record,Constrained 00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e1 00db | | Load_Top At_Offset_3 00e2 00db | | Load_Top At_Offset_3 00e3 02fc | | Declare_Variable Variant_Record,With_Constraint 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 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,0x02ba,0x0005,0x0000,0x0035,0xdb74,0x0000,0x004e 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 01ab | | Action Push_String_Extended_Indexed,0x1ab ; "CONNECT" 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x8 = .DEBUG 0x0103,0x02bc,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0057 0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0105 7802 |x | Jump 0x108 ; case 0x1 0106 7805 |x | Jump 0x10c ; case 0x2 0107 7809 |x | Jump 0x111 ; case 0x3 0108 00da | | Load_Top At_Offset_2 0109 0091 01b0 | | Action Push_String_Extended_Indexed,0x1b0 ; "NOT_CONNECTED" 010b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 010c 00db | | Load_Top At_Offset_3 010d 00db | | Load_Top At_Offset_3 010e 00e0 | | Load_Encached Standard_Cache 010f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0110 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0111 00da | | Load_Top At_Offset_2 0112 00e0 | | Load_Encached Standard_Cache 0113 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0114 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4608 |F | Jump_Case 0x9 ; Debug Table 0x9 = .DEBUG 0x011b,0x02be,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0064 011c 7808 |x | Jump 0x125 ; case 0x0 011d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 011e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 011f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0120 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0121 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0122 7814 |x | Jump 0x137 ; case 0x6 0123 781c |x | Jump 0x140 ; case 0x7 0124 7827 |x' | Jump 0x14c ; case 0x8 0125 00da | | Load_Top At_Offset_2 0126 016c | l | Execute Variant_Record,Is_Constrained 0127 7009 |p | Jump_Nonzero 0x131 0128 00cf | | Action Mark_Auxiliary 0129 4800 |H | Short_Literal 0x0 012a e5ff | | Load 0x2,-0x1 012b 1c08 | | Execute_Immediate Run_Utility,0x8 012c 00d8 | | Load_Top At_Offset_0 012d 1c00 | | Execute_Immediate Run_Utility,0x0 012e c5ff | | Store 0x2,-0x1 012f 00ce | | Action Pop_Auxiliary 0130 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0131 00da | | Load_Top At_Offset_2 0132 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0133 0b08 | | Execute_Immediate Case_Compare,0x8 0134 7000 |p | Jump_Nonzero 0x135 0135 00d1 | | Pop_Control Pop_Count_1 0136 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0137 00db | | Load_Top At_Offset_3 0138 0b08 | | Execute_Immediate Case_Compare,0x8 0139 7002 |p | Jump_Nonzero 0x13c 013a 48ff |H | Short_Literal 0xff 013b 7801 |x | Jump 0x13d 013c 4801 |H | Short_Literal 0x1 013d 00d0 | | Action Swap_Control 013e 00d1 | | Pop_Control Pop_Count_1 013f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0140 00db | | Load_Top At_Offset_3 0141 e5fe | | Load 0x2,-0x2 0142 0b08 | | Execute_Immediate Case_Compare,0x8 0143 7003 |p | Jump_Nonzero 0x147 0144 00d1 | | Pop_Control Pop_Count_1 0145 48ff |H | Short_Literal 0xff 0146 7802 |x | Jump 0x149 0147 00d1 | | Pop_Control Pop_Count_1 0148 4801 |H | Short_Literal 0x1 0149 e5ff | | Load 0x2,-0x1 014a 031b | | Declare_Type Variant_Record,Constrained 014b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 014c 00db | | Load_Top At_Offset_3 014d e5fe | | Load 0x2,-0x2 014e e5ff | | Load 0x2,-0x1 014f 1c06 | | Execute_Immediate Run_Utility,0x6 0150 e5ff | | Load 0x2,-0x1 0151 02fc | | Declare_Variable Variant_Record,With_Constraint 0152 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4608 |F | Jump_Case 0x9 ; Debug Table 0xa = .DEBUG 0x015b,0x02c0,0x0005,0x0000,0x0035,0xdb74,0x0000,0x007e 015c 7808 |x | Jump 0x165 ; case 0x0 015d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 015e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 015f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0160 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0161 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0162 781e |x | Jump 0x181 ; case 0x6 0163 782a |x* | Jump 0x18e ; case 0x7 0164 7839 |x9 | Jump 0x19e ; case 0x8 0165 00da | | Load_Top At_Offset_2 0166 016c | l | Execute Variant_Record,Is_Constrained 0167 7009 |p | Jump_Nonzero 0x171 0168 00cf | | Action Mark_Auxiliary 0169 4801 |H | Short_Literal 0x1 016a e5ff | | Load 0x2,-0x1 016b 1c08 | | Execute_Immediate Run_Utility,0x8 016c 00d8 | | Load_Top At_Offset_0 016d 1c00 | | Execute_Immediate Run_Utility,0x0 016e c5ff | | Store 0x2,-0x1 016f 00ce | | Action Pop_Auxiliary 0170 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0171 00da | | Load_Top At_Offset_2 0172 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0173 4604 |F | Jump_Case 0x5 0174 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0175 7803 |x | Jump 0x179 ; case 0x1 0176 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0177 7805 |x | Jump 0x17d ; case 0x3 0178 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0179 00da | | Load_Top At_Offset_2 017a 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 017b 1c00 | | Execute_Immediate Run_Utility,0x0 017c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 017d 4800 |H | Short_Literal 0x0 017e 00db | | Load_Top At_Offset_3 017f 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0180 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0181 00db | | Load_Top At_Offset_3 0182 4604 |F | Jump_Case 0x5 0183 7808 |x | Jump 0x18c ; case 0x0 0184 7803 |x | Jump 0x188 ; case 0x1 0185 7806 |x | Jump 0x18c ; case 0x2 0186 7803 |x | Jump 0x18a ; case 0x3 0187 7804 |x | Jump 0x18c ; case 0x4 0188 4801 |H | Short_Literal 0x1 0189 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018a 4802 |H | Short_Literal 0x2 018b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018c 48ff |H | Short_Literal 0xff 018d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018e 00db | | Load_Top At_Offset_3 018f e5fe | | Load 0x2,-0x2 0190 4604 |F | Jump_Case 0x5 0191 7808 |x | Jump 0x19a ; case 0x0 0192 7803 |x | Jump 0x196 ; case 0x1 0193 7806 |x | Jump 0x19a ; case 0x2 0194 7803 |x | Jump 0x198 ; case 0x3 0195 7804 |x | Jump 0x19a ; case 0x4 0196 4801 |H | Short_Literal 0x1 0197 7803 |x | Jump 0x19b 0198 4802 |H | Short_Literal 0x2 0199 7801 |x | Jump 0x19b 019a 48ff |H | Short_Literal 0xff 019b e5ff | | Load 0x2,-0x1 019c 031b | | Declare_Type Variant_Record,Constrained 019d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019e 00db | | Load_Top At_Offset_3 019f e5fe | | Load 0x2,-0x2 01a0 e5ff | | Load 0x2,-0x1 01a1 1c06 | | Execute_Immediate Run_Utility,0x6 01a2 e5ff | | Load 0x2,-0x1 01a3 02fc | | Declare_Variable Variant_Record,With_Constraint 01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a5 ; -------------------------------------------------------------------------------------- 01a5 ; STRING TABLE 01a5 ; -------------------------------------------------------------------------------------- 01a5 002a | * | .STRTAB 0x002a->0x01ba ; "DISCONNECTED" 01a6 0034 | 4 | .STRTAB 0x0034->0x01c0 ; "CONNECTING" 01a7 003c | < | .STRTAB 0x003c->0x01c5 ; "CONNECTED" 01a8 0043 | C | .STRTAB 0x0043->0x01c9 ; "DISCONNECTING" 01a9 004e | N | .STRTAB 0x004e->0x01d0 ; "CONNECT" 01aa 0053 | S | .STRTAB 0x0053->0x01d3 ; "DISCONNECT" 01ab 005b | [ | .STRTAB 0x005b->0x01d8 ; "CONNECT" 01ac 0060 | ` | .STRTAB 0x0060->0x01dc ; "DISCONNECT" 01ad 0068 | h | .STRTAB 0x0068->0x01e1 ; "DATA_LOST" 01ae 006f | o | .STRTAB 0x006f->0x01e5 ; "OVERRUN" 01af 0074 | t | .STRTAB 0x0074->0x01e9 ; "GARBAGE" 01b0 0079 | y | .STRTAB 0x0079->0x01ec ; "NOT_CONNECTED" 01b1 0084 | | .STRTAB 0x0084->0x01f3 ; "FROM_REMOTE" 01b2 008d | | .STRTAB 0x008d->0x01f8 ; "CIRCUIT_DISCONNECTED" 01b3 009f | | .STRTAB 0x009f->0x0202 ; "LOCAL_PROCEDURE_ERROR" 01b4 00b2 | | .STRTAB 0x00b2->0x020d ; "NO_DIAL_TONE" 01b5 00bc | | .STRTAB 0x00bc->0x0213 ; "NO_ANSWER" 01b6 00c3 | | .STRTAB 0x00c3->0x0217 ; "BUSY" 01b7 00c5 | | .STRTAB 0x00c5->0x0219 ; "WAIT_FOR_CALL" 01b8 00d0 | | .STRTAB 0x00d0->0x0220 ; "CALL_BACK_LATER" 01b9 00dd | | .STREND 0x00dd->0x0227 01ba 4449 5343 |DISC| .STRTAB_STRINGS 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug Table 0228 ; -------------------------------------------------------------------------------------- 0228 0003 000b | | .CONST 0x0003,0x000b 022a 000b 0282 | | .DEBUG 0x000b,0x0282,0x8000,0x0000,0x0035,0xdb74,0x0000,0x0005 0232 005c 02a0 | \ | .DEBUG 0x005c,0x02a0,0x8000,0x0000,0x0035,0xdc44,0x0000,0x0003 023a 006b 02a8 | k | .DEBUG 0x006b,0x02a8,0x0002,0x0000,0x0035,0xdb74,0x0000,0x0014 0242 008b 02ae | | .DEBUG 0x008b,0x02ae,0x0001,0x0000,0x0035,0xdb74,0x0000,0x001f 024a 00a3 02b4 | | .DEBUG 0x00a3,0x02b4,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0037 0252 00bb 02b6 | | .DEBUG 0x00bb,0x02b6,0x0005,0x0000,0x0035,0xdb74,0x0000,0x003f 025a 00d3 02b8 | | .DEBUG 0x00d3,0x02b8,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0045 0262 00eb 02ba | | .DEBUG 0x00eb,0x02ba,0x0005,0x0000,0x0035,0xdb74,0x0000,0x004e 026a 0103 02bc | | .DEBUG 0x0103,0x02bc,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0057 0272 011b 02be | | .DEBUG 0x011b,0x02be,0x0005,0x0000,0x0035,0xdb74,0x0000,0x0064 027a 015b 02c0 | [ | .DEBUG 0x015b,0x02c0,0x0005,0x0000,0x0035,0xdb74,0x0000,0x007e 0282 ; -------------------------------------------------------------------------------------- 0282 ; Debug3 Subtable 0x0 0282 ; -------------------------------------------------------------------------------------- 0282 000e 0000 | | .DBG3TAB 0x000e,0x0000 0284 000b ffff | | .CONST 0x000b,0xffff 0286 000e fffe | | .CONST 0x000e,0xfffe 0288 0010 fffd | | .CONST 0x0010,0xfffd 028a 0012 fffc | | .CONST 0x0012,0xfffc 028c 0014 fffb | | .CONST 0x0014,0xfffb 028e 0017 fffa | | .CONST 0x0017,0xfffa 0290 001c fff9 | | .CONST 0x001c,0xfff9 0292 0021 fff8 | ! | .CONST 0x0021,0xfff8 0294 002a fff7 | * | .CONST 0x002a,0xfff7 0296 002f fff6 | / | .CONST 0x002f,0xfff6 0298 0034 fff5 | 4 | .CONST 0x0034,0xfff5 029a 003f fff4 | ? | .CONST 0x003f,0xfff4 029c 004c fff3 | L | .CONST 0x004c,0xfff3 029e 004f fff2 | O | .CONST 0x004f,0xfff2 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug3 Subtable 0x1 02a0 ; -------------------------------------------------------------------------------------- 02a0 0003 0000 | | .DBG3TAB 0x0003,0x0000 02a2 005c ffff | \ | .CONST 0x005c,0xffff 02a4 0061 fffe | a | .CONST 0x0061,0xfffe 02a6 0063 fffd | c | .CONST 0x0063,0xfffd 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug3 Subtable 0x2 02a8 ; -------------------------------------------------------------------------------------- 02a8 0000 0002 | | .DBG3TAB 0x0000,0x0002 02aa 006b 0001 | k | .CONST 0x006b,0x0001 02ac 0072 0002 | r | .CONST 0x0072,0x0002 02ae ; -------------------------------------------------------------------------------------- 02ae ; Debug3 Subtable 0x3 02ae ; -------------------------------------------------------------------------------------- 02ae 0000 0002 | | .DBG3TAB 0x0000,0x0002 02b0 008b 0001 | | .CONST 0x008b,0x0001 02b2 0097 0002 | | .CONST 0x0097,0x0002 02b4 ; -------------------------------------------------------------------------------------- 02b4 ; Debug3 Subtable 0x4 02b4 ; -------------------------------------------------------------------------------------- 02b4 0000 0000 | | .DBG3TAB 0x0000,0x0000 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug3 Subtable 0x5 02b6 ; -------------------------------------------------------------------------------------- 02b6 0000 0000 | | .DBG3TAB 0x0000,0x0000 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug3 Subtable 0x6 02b8 ; -------------------------------------------------------------------------------------- 02b8 0000 0000 | | .DBG3TAB 0x0000,0x0000 02ba ; -------------------------------------------------------------------------------------- 02ba ; Debug3 Subtable 0x7 02ba ; -------------------------------------------------------------------------------------- 02ba 0000 0000 | | .DBG3TAB 0x0000,0x0000 02bc ; -------------------------------------------------------------------------------------- 02bc ; Debug3 Subtable 0x8 02bc ; -------------------------------------------------------------------------------------- 02bc 0000 0000 | | .DBG3TAB 0x0000,0x0000 02be ; -------------------------------------------------------------------------------------- 02be ; Debug3 Subtable 0x9 02be ; -------------------------------------------------------------------------------------- 02be 0000 0000 | | .DBG3TAB 0x0000,0x0000 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; Debug3 Subtable 0xa 02c0 ; -------------------------------------------------------------------------------------- 02c0 0000 0000 | | .DBG3TAB 0x0000,0x0000 02c2 0000 0000 | | .BLANK 0000[0x13e]