|
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: »1054739.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1054739.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1054739.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1054739.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1054739.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1054739.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 01b8 | | .CONST 0x01b8 ; 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 004c | L | .CONST 0x004c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0222,0x8000,0x0000,0x0037,0x16f4,0x0000,0x000e
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
000f 0129 | ) | Execute Any,Make_Visible
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x3 = 0x10,0xfffc
0011 4802 |H | Short_Literal 0x2
0012 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x15,0xfffb
0017 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x17,0xfffa
0018 4803 |H | Short_Literal 0x3
0019 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
001b 03fe | | Declare_Type Discrete,Defined,Visible
001c 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1c,0xfff9
001e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x7 = 0x1e,0xfff8
001f 4802 |H | Short_Literal 0x2
0020 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0022 03fe | | Declare_Type Discrete,Defined,Visible
0023 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x23,0xfff7
0025 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x25,0xfff6
0026 4802 |H | Short_Literal 0x2
0027 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0029 03fe | | Declare_Type Discrete,Defined,Visible
002a 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x2a,0xfff5
002c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xb = 0x2c,0xfff4
002d 4803 |H | Short_Literal 0x3
002e 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0030 03fe | | Declare_Type Discrete,Defined,Visible
0031 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xc = 0x31,0xfff3
0032 4802 |H | Short_Literal 0x2
0033 e002 | | Load 0x0,0x2
0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0035 e003 | | Load 0x0,0x3
0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0037 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0039 4802 |H | Short_Literal 0x2
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 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x3f,0xfff2
0041 00bf | | Action Accept_Activation ; Debug Table 0x0.0xe = 0x41,0xfff1
0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1 = .DEBUG 0x0042,0x0242,0x8000,0x0000,0x0037,0x1784,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x42,0xffff
0043 00c7 | | Action Elaborate_Subprogram
0044 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x1 = 0x44,0xfffe
0045 00c7 | | Action Elaborate_Subprogram
0046 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x2 = 0x46,0xfffd
0047 00c7 | | Action Elaborate_Subprogram
0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x3 = 0x48,0xfffc
0049 00c7 | | Action Elaborate_Subprogram
004a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x4 = 0x4a,0xfffb
004b 00c7 | | Action Elaborate_Subprogram
004c BODY_0008:
004c 00bc | | Action Signal_Activated
004d 00bb | | Action Signal_Completion
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0053,0x024e,0x0005,0x0000,0x0037,0x16f4,0x0000,0x0021
0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0055 7802 |x | Jump 0x58 ; case 0x1
0056 7805 |x | Jump 0x5c ; case 0x2
0057 7809 |x | Jump 0x61 ; case 0x3
0058 00da | | Load_Top At_Offset_2
0059 0091 014f | O| Action Push_String_Extended_Indexed,0x14f ; "OK"
005b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
005c 00db | | Load_Top At_Offset_3
005d 00db | | Load_Top At_Offset_3
005e 00e0 | | Load_Encached Standard_Cache
005f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0060 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0061 00da | | Load_Top At_Offset_2
0062 00e0 | | Load_Encached Standard_Cache
0063 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0064 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
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 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x3 = .DEBUG 0x006b,0x0250,0x0001,0x0000,0x0037,0x16f4,0x0000,0x0028
; Debug Table 0x3.0x0 = 0x6b,0x1
006c e5fa | | Load 0x2,-0x6
006d e20e | | Load 0x1,0xe
006e e5fc | | Load 0x2,-0x4
006f e5fd | | Load 0x2,-0x3
0070 e5fe | | Load 0x2,-0x2
0071 e5ff | | Load 0x2,-0x1
0072 e004 | | Load 0x0,0x4
0073 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0074 c5fb | | Store 0x2,-0x5
0075 00d1 | | Pop_Control Pop_Count_1
0076 c5f9 | | Store 0x2,-0x7
0077 4505 |E | Exit_Suprogram New_Top_Offset 0x5
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x007b,0x0254,0x0005,0x0000,0x0037,0x16f4,0x0000,0x0058
007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
007d 7802 |x | Jump 0x80 ; case 0x1
007e 7805 |x | Jump 0x84 ; case 0x2
007f 7809 |x | Jump 0x89 ; case 0x3
0080 00da | | Load_Top At_Offset_2
0081 0091 0152 | R| Action Push_String_Extended_Indexed,0x152 ; "OK"
0083 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0084 00db | | Load_Top At_Offset_3
0085 00db | | Load_Top At_Offset_3
0086 00e0 | | Load_Encached Standard_Cache
0087 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0089 00da | | Load_Top At_Offset_2
008a 00e0 | | Load_Encached Standard_Cache
008b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5 = .DEBUG 0x0093,0x0256,0x0001,0x0000,0x0037,0x16f4,0x0000,0x0060
; Debug Table 0x5.0x0 = 0x93,0x1
0094 e5fa | | Load 0x2,-0x6
0095 e5fb | | Load 0x2,-0x5
0096 e5fc | | Load 0x2,-0x4
0097 e210 | | Load 0x1,0x10
0098 e5fe | | Load 0x2,-0x2
0099 e5ff | | Load 0x2,-0x1
009a e004 | | Load 0x0,0x4
009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009c c5fd | | Store 0x2,-0x3
009d 00d3 | | Pop_Control Pop_Count_3
009e c5f9 | | Store 0x2,-0x7
009f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 0x6 = .DEBUG 0x00a3,0x025a,0x0005,0x0000,0x0037,0x16f4,0x0000,0x008b
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 0156 | V| Action Push_String_Extended_Indexed,0x156 ; "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 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x7 = .DEBUG 0x00bb,0x025c,0x0001,0x0000,0x0037,0x16f4,0x0000,0x0092
; Debug Table 0x7.0x0 = 0xbb,0x1
00bc e212 | | Load 0x1,0x12
00bd e5fc | | Load 0x2,-0x4
00be e5fd | | Load 0x2,-0x3
00bf e5fe | | Load 0x2,-0x2
00c0 e5ff | | Load 0x2,-0x1
00c1 e004 | | Load 0x0,0x4
00c2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c3 c5fb | | Store 0x2,-0x5
00c4 c5fa | | Store 0x2,-0x6
00c5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4603 |F | Jump_Case 0x4 ; Debug Table 0x8 = .DEBUG 0x00cb,0x0260,0x0005,0x0000,0x0037,0x16f4,0x0000,0x00bc
00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00cd 7802 |x | Jump 0xd0 ; case 0x1
00ce 7805 |x | Jump 0xd4 ; case 0x2
00cf 7809 |x | Jump 0xd9 ; case 0x3
00d0 00da | | Load_Top At_Offset_2
00d1 0091 0159 | Y| Action Push_String_Extended_Indexed,0x159 ; "OK"
00d3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d4 00db | | Load_Top At_Offset_3
00d5 00db | | Load_Top At_Offset_3
00d6 00e0 | | Load_Encached Standard_Cache
00d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d9 00da | | Load_Top At_Offset_2
00da 00e0 | | Load_Encached Standard_Cache
00db 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00dc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x9 = .DEBUG 0x00e3,0x0262,0x0001,0x0000,0x0037,0x16f4,0x0000,0x00c3
; Debug Table 0x9.0x0 = 0xe3,0x1
00e4 e5fb | | Load 0x2,-0x5
00e5 e5fc | | Load 0x2,-0x4
00e6 e214 | | Load 0x1,0x14
00e7 e5fe | | Load 0x2,-0x2
00e8 e5ff | | Load 0x2,-0x1
00e9 e004 | | Load 0x0,0x4
00ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00eb c5fd | | Store 0x2,-0x3
00ec 00d2 | | Pop_Control Pop_Count_2
00ed c5fa | | Store 0x2,-0x6
00ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4603 |F | Jump_Case 0x4 ; Debug Table 0xa = .DEBUG 0x00f3,0x0266,0x0005,0x0000,0x0037,0x16f4,0x0000,0x00ea
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00f5 7802 |x | Jump 0xf8 ; case 0x1
00f6 7805 |x | Jump 0xfc ; case 0x2
00f7 7809 |x | Jump 0x101 ; case 0x3
00f8 00da | | Load_Top At_Offset_2
00f9 0091 015c | \| Action Push_String_Extended_Indexed,0x15c ; "CALL_SENT"
00fb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00fc 00db | | Load_Top At_Offset_3
00fd 00db | | Load_Top At_Offset_3
00fe 00e0 | | Load_Encached Standard_Cache
00ff 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0100 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0101 00da | | Load_Top At_Offset_2
0102 00e0 | | Load_Encached Standard_Cache
0103 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0104 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4608 |F | Jump_Case 0x9 ; Debug Table 0xb = .DEBUG 0x010b,0x0268,0x0005,0x0000,0x0037,0x16f4,0x0000,0x00f2
010c 7808 |x | Jump 0x115 ; case 0x0
010d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
010e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
010f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0110 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0111 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0112 7815 |x | Jump 0x128 ; case 0x6
0113 781e |x | Jump 0x132 ; case 0x7
0114 782a |x* | Jump 0x13f ; case 0x8
0115 00da | | Load_Top At_Offset_2
0116 016c | l | Execute Variant_Record,Is_Constrained
0117 7009 |p | Jump_Nonzero 0x121
0118 00cf | | Action Mark_Auxiliary
0119 4803 |H | Short_Literal 0x3
011a e5ff | | Load 0x2,-0x1
011b 1c08 | | Execute_Immediate Run_Utility,0x8
011c 00d8 | | Load_Top At_Offset_0
011d 1c00 | | Execute_Immediate Run_Utility,0x0
011e c5ff | | Store 0x2,-0x1
011f 00ce | | Action Pop_Auxiliary
0120 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0121 00da | | Load_Top At_Offset_2
0122 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0123 4603 |F | Jump_Case 0x4
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0126 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0127 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0128 00db | | Load_Top At_Offset_3
0129 4603 |F | Jump_Case 0x4
012a 7805 |x | Jump 0x130 ; case 0x0
012b 7804 |x | Jump 0x130 ; case 0x1
012c 7803 |x | Jump 0x130 ; case 0x2
012d 7800 |x | Jump 0x12e ; case 0x3
012e 48ff |H | Short_Literal 0xff
012f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0130 4801 |H | Short_Literal 0x1
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 4603 |F | Jump_Case 0x4
0135 7805 |x | Jump 0x13b ; case 0x0
0136 7804 |x | Jump 0x13b ; case 0x1
0137 7803 |x | Jump 0x13b ; case 0x2
0138 7800 |x | Jump 0x139 ; case 0x3
0139 48ff |H | Short_Literal 0xff
013a 7801 |x | Jump 0x13c
013b 4801 |H | Short_Literal 0x1
013c e5ff | | Load 0x2,-0x1
013d 031b | | Declare_Type Variant_Record,Constrained
013e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013f 00db | | Load_Top At_Offset_3
0140 e5fe | | Load 0x2,-0x2
0141 e5ff | | Load 0x2,-0x1
0142 1c06 | | Execute_Immediate Run_Utility,0x6
0143 e5ff | | Load 0x2,-0x1
0144 02fc | | Declare_Variable Variant_Record,With_Constraint
0145 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x014b,0x026a,0x0002,0x0000,0x0037,0x16f4,0x0000,0x0115
; Debug Table 0xc.0x0 = 0x14b,0x1
014c e004 | | Load 0x0,0x4
014d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014f ; --------------------------------------------------------------------------------------
014f ; STRING TABLE
014f ; --------------------------------------------------------------------------------------
014f 0024 | $ | .STRTAB 0x0024->0x0161 ; "OK"
0150 0024 | $ | .STRTAB 0x0024->0x0162 ; "LINE_DOWN"
0151 002b | + | .STRTAB 0x002b->0x0166 ; "NO_VIRTUAL_CIRCUITS"
0152 003c | < | .STRTAB 0x003c->0x0170 ; "OK"
0153 003c | < | .STRTAB 0x003c->0x0171 ; "LINE_DOWN"
0154 0043 | C | .STRTAB 0x0043->0x0175 ; "TIMED_OUT"
0155 004a | J | .STRTAB 0x004a->0x017a ; "NO_VIRTUAL_CIRCUITS"
0156 005b | [ | .STRTAB 0x005b->0x0183 ; "OK"
0157 005b | [ | .STRTAB 0x005b->0x0184 ; "TIMED_OUT"
0158 0062 | b | .STRTAB 0x0062->0x0189 ; "CIRCUIT_DISCONNECTED"
0159 0074 | t | .STRTAB 0x0074->0x0193 ; "OK"
015a 0074 | t | .STRTAB 0x0074->0x0194 ; "TIMED_OUT"
015b 007b | { | .STRTAB 0x007b->0x0198 ; "CIRCUIT_DISCONNECTED"
015c 008d | | .STRTAB 0x008d->0x01a2 ; "CALL_SENT"
015d 0094 | | .STRTAB 0x0094->0x01a7 ; "CALL_RECEIVED"
015e 009f | | .STRTAB 0x009f->0x01ad ; "CONNECTED"
015f 00a6 | | .STRTAB 0x00a6->0x01b2 ; "DISCONNECTED"
0160 00b0 | | .STREND 0x00b0->0x01b8
0161 4f4b 4c49 |OKLI| .STRTAB_STRINGS
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0003 000d | | .CONST 0x0003,0x000d
01ba 000b 0222 | "| .DEBUG 0x000b,0x0222,0x8000,0x0000,0x0037,0x16f4,0x0000,0x000e
01c2 0042 0242 | B B| .DEBUG 0x0042,0x0242,0x8000,0x0000,0x0037,0x1784,0x0000,0x0005
01ca 0053 024e | S N| .DEBUG 0x0053,0x024e,0x0005,0x0000,0x0037,0x16f4,0x0000,0x0021
01d2 006b 0250 | k P| .DEBUG 0x006b,0x0250,0x0001,0x0000,0x0037,0x16f4,0x0000,0x0028
01da 007b 0254 | { T| .DEBUG 0x007b,0x0254,0x0005,0x0000,0x0037,0x16f4,0x0000,0x0058
01e2 0093 0256 | V| .DEBUG 0x0093,0x0256,0x0001,0x0000,0x0037,0x16f4,0x0000,0x0060
01ea 00a3 025a | Z| .DEBUG 0x00a3,0x025a,0x0005,0x0000,0x0037,0x16f4,0x0000,0x008b
01f2 00bb 025c | \| .DEBUG 0x00bb,0x025c,0x0001,0x0000,0x0037,0x16f4,0x0000,0x0092
01fa 00cb 0260 | `| .DEBUG 0x00cb,0x0260,0x0005,0x0000,0x0037,0x16f4,0x0000,0x00bc
0202 00e3 0262 | b| .DEBUG 0x00e3,0x0262,0x0001,0x0000,0x0037,0x16f4,0x0000,0x00c3
020a 00f3 0266 | f| .DEBUG 0x00f3,0x0266,0x0005,0x0000,0x0037,0x16f4,0x0000,0x00ea
0212 010b 0268 | h| .DEBUG 0x010b,0x0268,0x0005,0x0000,0x0037,0x16f4,0x0000,0x00f2
021a 014b 026a | K j| .DEBUG 0x014b,0x026a,0x0002,0x0000,0x0037,0x16f4,0x0000,0x0115
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x0
0222 ; --------------------------------------------------------------------------------------
0222 000f 0000 | | .DBG3TAB 0x000f,0x0000
0224 000b ffff | | .CONST 0x000b,0xffff
0226 000c fffe | | .CONST 0x000c,0xfffe
0228 000d fffd | | .CONST 0x000d,0xfffd
022a 0010 fffc | | .CONST 0x0010,0xfffc
022c 0015 fffb | | .CONST 0x0015,0xfffb
022e 0017 fffa | | .CONST 0x0017,0xfffa
0230 001c fff9 | | .CONST 0x001c,0xfff9
0232 001e fff8 | | .CONST 0x001e,0xfff8
0234 0023 fff7 | # | .CONST 0x0023,0xfff7
0236 0025 fff6 | % | .CONST 0x0025,0xfff6
0238 002a fff5 | * | .CONST 0x002a,0xfff5
023a 002c fff4 | , | .CONST 0x002c,0xfff4
023c 0031 fff3 | 1 | .CONST 0x0031,0xfff3
023e 003f fff2 | ? | .CONST 0x003f,0xfff2
0240 0041 fff1 | A | .CONST 0x0041,0xfff1
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x1
0242 ; --------------------------------------------------------------------------------------
0242 0005 0000 | | .DBG3TAB 0x0005,0x0000
0244 0042 ffff | B | .CONST 0x0042,0xffff
0246 0044 fffe | D | .CONST 0x0044,0xfffe
0248 0046 fffd | F | .CONST 0x0046,0xfffd
024a 0048 fffc | H | .CONST 0x0048,0xfffc
024c 004a fffb | J | .CONST 0x004a,0xfffb
024e ; --------------------------------------------------------------------------------------
024e ; Debug3 Subtable 0x2
024e ; --------------------------------------------------------------------------------------
024e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug3 Subtable 0x3
0250 ; --------------------------------------------------------------------------------------
0250 0000 0001 | | .DBG3TAB 0x0000,0x0001
0252 006b 0001 | k | .CONST 0x006b,0x0001
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug3 Subtable 0x4
0254 ; --------------------------------------------------------------------------------------
0254 0000 0000 | | .DBG3TAB 0x0000,0x0000
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug3 Subtable 0x5
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001 | | .DBG3TAB 0x0000,0x0001
0258 0093 0001 | | .CONST 0x0093,0x0001
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x6
025a ; --------------------------------------------------------------------------------------
025a 0000 0000 | | .DBG3TAB 0x0000,0x0000
025c ; --------------------------------------------------------------------------------------
025c ; Debug3 Subtable 0x7
025c ; --------------------------------------------------------------------------------------
025c 0000 0001 | | .DBG3TAB 0x0000,0x0001
025e 00bb 0001 | | .CONST 0x00bb,0x0001
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug3 Subtable 0x8
0260 ; --------------------------------------------------------------------------------------
0260 0000 0000 | | .DBG3TAB 0x0000,0x0000
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug3 Subtable 0x9
0262 ; --------------------------------------------------------------------------------------
0262 0000 0001 | | .DBG3TAB 0x0000,0x0001
0264 00e3 0001 | | .CONST 0x00e3,0x0001
0266 ; --------------------------------------------------------------------------------------
0266 ; Debug3 Subtable 0xa
0266 ; --------------------------------------------------------------------------------------
0266 0000 0000 | | .DBG3TAB 0x0000,0x0000
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug3 Subtable 0xb
0268 ; --------------------------------------------------------------------------------------
0268 0000 0000 | | .DBG3TAB 0x0000,0x0000
026a ; --------------------------------------------------------------------------------------
026a ; Debug3 Subtable 0xc
026a ; --------------------------------------------------------------------------------------
026a 0000 0001 | | .DBG3TAB 0x0000,0x0001
026c 014b 0001 | K | .CONST 0x014b,0x0001
026e 0000 0000 | | .BLANK 0000[0x192]