DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦b215f508f⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »18451.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »18451.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »18451.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »18451.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »18451.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »18451.SEG« 

Disassembly

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 03a8       |    |		.CONST	0x03a8								; 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 0102       |    |		.CONST	0x0102								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003f       | ?  |		.CONST	0x003f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001a       |    |		.CONST	0x001a								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x041a,0xc000,0x0000,0x0035,0xdb94,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
000d 0129       | )  |		Execute	Any,Make_Visible
000e 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xe,0xfffe
0010 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x10,0xfffd
0012 00bf       |    |		Action	Accept_Activation
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0013,0x0422,0xc000,0x0000,0x0035,0xdc34,0x0000,0x000d
													; Debug Table 0x1.0x0 = 0x13,0xffff
0014 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x14,0xfffe
0015 0092 02c4  |    |		Action	Push_String_Extended,0x2c4					; "diagnostic modem: "
													; Debug Table 0x1.0x2 = 0x15,0xfffd
0017 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x17,0xfffc
0018 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x18,0xffff
0019 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x19,0xfffe
001a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x1a,0xfffa
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x1b,0xffff
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x8 = 0x1c,0xfffe
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x9 = 0x1d,0xfffd
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xa = 0x1e,0xfffc
001f 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xb = 0x1f,0xfff8
0020 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xc = 0x20,0xffff
0021 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xd = 0x21,0xfff6
0022 029d 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call			; Debug Table 0x1.0xe = 0x22,0xfff5
0024 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xf = 0x24,0xfff4
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x10 = 0x26,0xfff3
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 029d 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call			; Debug Table 0x1.0x11 = 0x28,0xfff2
002a 029d 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call			; Debug Table 0x1.0x12 = 0x2a,0xfff1
002c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x13 = 0x2c,0xfff0
002d 615e       |a^  |		Indirect_Literal	Discrete,0x18c,{0x00004813, 0x00001930}		; 0x4813 = ABSTRACT_PORT
002e 02a0       |    |		Declare_Subprogram	Null_Subprogram
002f 037d       | }  |		Declare_Type	Task,Defined
0030 036f       | o  |		Declare_Variable	Task
0031 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x14 = 0x31,0xffef
0032 e003       |    |		Load	0x0,0x3
0033 00b6       |    |		Action	Make_Scope
0034 e004       |    |		Load	0x0,0x4
0035 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0036 e216       |    |		Load	0x1,0x16
0037 e001       |    |		Load	0x0,0x1
0038 e005       |    |		Load	0x0,0x5
0039 e006       |    |		Load	0x0,0x6
003a e007       |    |		Load	0x0,0x7
003b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
003c 480b       |H   |		Short_Literal	0xb
003d e21a       |    |		Load	0x1,0x1a
003e 020e       |    |		Execute	Module,Augment_Imports
003f			BODY_0008:
003f 00be       |    |		Action	Activate_Tasks
0040 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x15 = 0x40,0x1
0041 00d9       |    |		Load_Top	At_Offset_1
0042 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
0043 00bc       |    |		Action	Signal_Activated
0044 00bb       |    |		Action	Signal_Completion
0045 0000 0000  |    |		.XXX[0x3]
0047 0000       |    |
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0054       | T  |		.CONST	0x0054								; Address of begin
0049 0077       | w  |		.CONST	0x0077								; Address of exception handler
004a 0003       |    |		.CONST	0x0003								; Number of locals
004b			INIT_0048:
004b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2 = .DEBUG	0x004b,0x0450,0x1001,0x0000,0x0035,0xdb94,0x0000,0x0036
													; Debug Table 0x2.0x0 = 0x4b,0xffff
004c e004       |    |		Load	0x0,0x4
004d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
004f 00d8       |    |		Load_Top	At_Offset_0
0050 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0051 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call				; Debug Table 0x2.0x1 = 0x51,0xfffe
0053 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x2 = 0x53,0xfffd
0054			BODY_0048:
0054 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x3 = 0x54,0x1
0055 e216       |    |		Load	0x1,0x16
0056 0092 02c5  |    |		Action	Push_String_Extended,0x2c5					; "transmit "
0058 01cc       |    |		Execute	Vector,Catenate
0059 e5ff       |    |		Load	0x2,-0x1
005a 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
005b e001       |    |		Load	0x0,0x1
005c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
005d 025e       | ^  |		Execute	Discrete,Convert
005e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
005f 01cc       |    |		Execute	Vector,Catenate
0060 0092 02c6  |    |		Action	Push_String_Extended,0x2c6					; " packet"
0062 01cc       |    |		Execute	Vector,Catenate
0063 e004       |    |		Load	0x0,0x4
0064 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0065 00d1       |    |		Pop_Control	Pop_Count_1
0066 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x4 = 0x66,0x2
0067 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0068 4601       |F   |		Jump_Case	0x2
0069 7801       |x   |		Jump	0x6b								; case 0x0
006a 7807       |x   |		Jump	0x72								; case 0x1
006b 8403       |    |		Call	0x2,0x3								; Debug Table 0x2.0x5 = 0x6b,0x3
006c e5fe       |    |		Load	0x2,-0x2
006d 01cc       |    |		Execute	Vector,Catenate
006e e211       |    |		Load	0x1,0x11
006f e007       |    |		Load	0x0,0x7
0070 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0071 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0072 e213       |    |		Load	0x1,0x13							; Debug Table 0x2.0x6 = 0x72,0x4
0073 e211       |    |		Load	0x1,0x11
0074 e007       |    |		Load	0x0,0x7
0075 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0076 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0077			TRAP_0048:
0077 0007       |    |		Action	Break_Optional
0078 0092 02c7  |    |		Action	Push_String_Extended,0x2c7					; "exception raised in Transmit_Command"
													; Debug Table 0x2.0x7 = 0x78,0x5
007a 8217       |    |		Call	0x1,0x17
007b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x8 = 0x7b,0x6
007c 0101       |    |		Execute	Exception,Reraise
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0088       |    |		.CONST	0x0088								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0083,0x0464,0x1001,0x0000,0x0035,0xdb94,0x0000,0x0047
													; Debug Table 0x3.0x0 = 0x83,0x1
0084 e211       |    |		Load	0x1,0x11
0085 e007       |    |		Load	0x0,0x7
0086 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0087 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0088			TRAP_0080:
0088 0007       |    |		Action	Break_Optional
0089 0092 02c8  |    |		Action	Push_String_Extended,0x2c8					; "exception raised in TRANSMIT_BYTES"
													; Debug Table 0x3.0x1 = 0x89,0x2
008b 8217       |    |		Call	0x1,0x17
008c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x2 = 0x8c,0x3
008d 0101       |    |		Execute	Exception,Reraise
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099       |    |		.CONST	0x0099								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 4801       |H   |		Short_Literal	0x1							; Debug Table 0x4 = .DEBUG	0x0093,0x046c,0x1001,0x0000,0x0035,0xdc34,0x0000,0x007d
													; Debug Table 0x4.0x0 = 0x93,0xffff
0094 e004       |    |		Load	0x0,0x4
0095 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0096 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0097 00d8       |    |		Load_Top	At_Offset_0
0098 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0099			BODY_0090:
0099 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x1 = 0x99,0x1
009a e216       |    |		Load	0x1,0x16
009b 0092 02c9  |    |		Action	Push_String_Extended,0x2c9					; "Abstract_Port.Panic ("
009d 01cc       |    |		Execute	Vector,Catenate
009e e5ff       |    |		Load	0x2,-0x1
009f 01cc       |    |		Execute	Vector,Catenate
00a0 0092 02ca  |    |		Action	Push_String_Extended,0x2ca					; ")"
00a2 01cc       |    |		Execute	Vector,Catenate
00a3 e004       |    |		Load	0x0,0x4
00a4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00a5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e213       |    |		Load	0x1,0x13							; Debug Table 0x5 = .DEBUG	0x00ab,0x0472,0x1001,0x0000,0x0035,0xdc34,0x0000,0x0194
													; Debug Table 0x5.0x0 = 0xab,0x1
00ac 4801       |H   |		Short_Literal	0x1
00ad e001       |    |		Load	0x0,0x1
00ae 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00af 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00b0 8214       |    |		Call	0x1,0x14
00b1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b2 0000 0000  |    |		.BLANK	0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c3       |    |		.CONST	0x00c3								; Address of begin
00b9 0153       | S  |		.CONST	0x0153								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x6 = .DEBUG	0x00bb,0x0476,0x1001,0x0000,0x0035,0xdc34,0x0000,0x01a6
													; Debug Table 0x6.0x0 = 0xbb,0xffff
00bc 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x1 = 0xbc,0xfffe
00bd 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x2 = 0xbd,0xfffd
00be e004       |    |		Load	0x0,0x4
00bf 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00c0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00c1 00d8       |    |		Load_Top	At_Offset_0
00c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c3			BODY_00b8:
00c3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x3 = 0xc3,0x1
00c4 0ba5       |    |		Execute_Immediate	Case_Compare,0xa5
00c5 700f       |p   |		Jump_Nonzero	0xd5
00c6 0bc3       |    |		Execute_Immediate	Case_Compare,0xc3
00c7 7010       |p   |		Jump_Nonzero	0xd8
00c8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x4 = 0xc8,0x13
00c9 e216       |    |		Load	0x1,0x16
00ca 0092 02cb  |    |		Action	Push_String_Extended,0x2cb					; "received packet kind =>"
00cc 01cc       |    |		Execute	Vector,Catenate
00cd e5ff       |    |		Load	0x2,-0x1
00ce 00e0       |    |		Load_Encached	Standard_Cache
00cf 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d0 01cc       |    |		Execute	Vector,Catenate
00d1 e004       |    |		Load	0x0,0x4
00d2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00d3 00d1       |    |		Pop_Control	Pop_Count_1
00d4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d5 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x5 = 0xd5,0x2
00d6 820f       |    |		Call	0x1,0xf
00d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x6 = 0xd8,0x3
00d9 e216       |    |		Load	0x1,0x16
00da 0092 02cc  |    |		Action	Push_String_Extended,0x2cc					; "received CONNECT_ACK packet: "
00dc 01cc       |    |		Execute	Vector,Catenate
00dd e004       |    |		Load	0x0,0x4
00de 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00df 00d1       |    |		Pop_Control	Pop_Count_1
00e0 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x7 = 0xe0,0x4
00e1 01dd       |    |		Execute	Vector,First
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 01d7       |    |		Execute	Vector,Field_Read
00e4 0b00       |    |		Execute_Immediate	Case_Compare,0x0
00e5 701e       |p   |		Jump_Nonzero	0x104
00e6 0b03       |    |		Execute_Immediate	Case_Compare,0x3
00e7 7028       |p(  |		Jump_Nonzero	0x110
00e8 0b02       |    |		Execute_Immediate	Case_Compare,0x2
00e9 7039       |p9  |		Jump_Nonzero	0x123
00ea 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x8 = 0xea,0x10
00eb 0092 02cd  |    |		Action	Push_String_Extended,0x2cd					; "unknown kind => "
00ed e5fe       |    |		Load	0x2,-0x2
00ee 01dd       |    |		Execute	Vector,First
00ef e5fe       |    |		Load	0x2,-0x2
00f0 01d7       |    |		Execute	Vector,Field_Read
00f1 00e0       |    |		Load_Encached	Standard_Cache
00f2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f3 01cc       |    |		Execute	Vector,Catenate
00f4 e004       |    |		Load	0x0,0x4
00f5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f6 00d1       |    |		Pop_Control	Pop_Count_1
00f7 8218       |    |		Call	0x1,0x18							; Debug Table 0x6.0x9 = 0xf7,0x11
00f8 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0xa = 0xf8,0x12
00f9 e001       |    |		Load	0x0,0x1
00fa 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00fb 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00fc 4801       |H   |		Short_Literal	0x1
00fd e001       |    |		Load	0x0,0x1
00fe 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00ff 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0100 00d9       |    |		Load_Top	At_Offset_1
0101 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0102 8210       |    |		Call	0x1,0x10
0103 784d       |xM  |		Jump	0x151
0104 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0xb = 0x104,0x5
0105 0092 02ce  |    |		Action	Push_String_Extended,0x2ce					; "connection accepted"
0107 e004       |    |		Load	0x0,0x4
0108 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0109 00d1       |    |		Pop_Control	Pop_Count_1
010a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0xc = 0x10a,0x6
010b e001       |    |		Load	0x0,0x1
010c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
010d 1c08       |    |		Execute_Immediate	Run_Utility,0x8
010e 8210       |    |		Call	0x1,0x10
010f 7841       |xA  |		Jump	0x151
0110 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0xd = 0x110,0x7
0111 0092 02cf  |    |		Action	Push_String_Extended,0x2cf					; "wait for call back"
0113 e004       |    |		Load	0x0,0x4
0114 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0115 00d1       |    |		Pop_Control	Pop_Count_1
0116 8218       |    |		Call	0x1,0x18							; Debug Table 0x6.0xe = 0x116,0x8
0117 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0xf = 0x117,0x9
0118 e001       |    |		Load	0x0,0x1
0119 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
011a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
011b 4807       |H   |		Short_Literal	0x7
011c e001       |    |		Load	0x0,0x1
011d 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
011e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
011f 00d9       |    |		Load_Top	At_Offset_1
0120 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0121 8210       |    |		Call	0x1,0x10
0122 782e       |x.  |		Jump	0x151
0123 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x10 = 0x123,0xa
0124 0092 02d0  |    |		Action	Push_String_Extended,0x2d0					; "call back later"
0126 e004       |    |		Load	0x0,0x4
0127 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0128 00d1       |    |		Pop_Control	Pop_Count_1
0129 8218       |    |		Call	0x1,0x18							; Debug Table 0x6.0x11 = 0x129,0xb
012a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x12 = 0x12a,0xc
012b 01db       |    |		Execute	Vector,Length
012c 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
012d 6811       |h   |		Jump_Zero	0x13f
012e e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x13 = 0x12e,0xd
012f 01dd       |    |		Execute	Vector,First
0130 0a01       |    |		Execute_Immediate	Plus,0x1
0131 0248       | H  |		Execute	Discrete,Check_In_Integer
0132 e5fe       |    |		Load	0x2,-0x2
0133 01d7       |    |		Execute	Vector,Field_Read
0134 0908       |    |		Execute_Immediate	Binary_Scale,0x8
0135 0248       | H  |		Execute	Discrete,Check_In_Integer
0136 e5fe       |    |		Load	0x2,-0x2
0137 01dd       |    |		Execute	Vector,First
0138 0a02       |    |		Execute_Immediate	Plus,0x2
0139 0248       | H  |		Execute	Discrete,Check_In_Integer
013a e5fe       |    |		Load	0x2,-0x2
013b 01d7       |    |		Execute	Vector,Field_Read
013c 0273       | s  |		Execute	Discrete,Plus
013d c402       |    |		Store	0x2,0x2
013e 7802       |x   |		Jump	0x141
013f 480a       |H   |		Short_Literal	0xa							; Debug Table 0x6.0x14 = 0x13f,0xe
0140 a402       |    |		Store_Unchecked	0x2,0x2
0141 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x15 = 0x141,0xf
0142 e001       |    |		Load	0x0,0x1
0143 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0144 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0145 4808       |H   |		Short_Literal	0x8
0146 e001       |    |		Load	0x0,0x1
0147 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0148 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0149 e402       |    |		Load	0x2,0x2
014a 603d       |`=  |		Indirect_Literal	Discrete,0x188,{0x00000000, 0x001e0000}
014b 0271       | q  |		Execute	Discrete,Times
014c 00d9       |    |		Load_Top	At_Offset_1
014d 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
014e 00d9       |    |		Load_Top	At_Offset_1
014f 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0150 8210       |    |		Call	0x1,0x10
0151 00d1       |    |		Pop_Control	Pop_Count_1
0152 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0153			TRAP_00b8:
0153 0007       |    |		Action	Break_Optional
0154 0092 02d1  |    |		Action	Push_String_Extended,0x2d1					; "exception raised in RECEIVE_PACKET"
													; Debug Table 0x6.0x16 = 0x154,0x14
0156 8217       |    |		Call	0x1,0x17
0157 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x17 = 0x157,0x15
0158 0101       |    |		Execute	Exception,Reraise
0159 0000 0000  |    |		.BLANK	0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016d       | m  |		.CONST	0x016d								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0003       |    |		.CONST	0x0003								; Number of locals
0163			INIT_0160:
0163 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7 = .DEBUG	0x0163,0x04a8,0x1002,0x0000,0x0035,0xdc34,0x0000,0x00c5
													; Debug Table 0x7.0x0 = 0x163,0xffff
0164 4805       |H   |		Short_Literal	0x5
0165 e002       |    |		Load	0x0,0x2
0166 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0167 0334       | 4  |		Declare_Variable	Array,With_Constraint
0168 e008       |    |		Load	0x0,0x8								; Debug Table 0x7.0x1 = 0x168,0xfffe
0169 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
016a e008       |    |		Load	0x0,0x8
016b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016c 03f1       |    |		Declare_Variable	Discrete,With_Value
016d			BODY_0160:
016d 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x7.0x2 = 0x16d,0xfffd
016e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7.0x3 = 0x16e,0x1
016f 4804       |H   |		Short_Literal	0x4
0170 0007       |    |		Action	Break_Optional
0171 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x4 = 0x171,0x2
0172 48ff       |H   |		Short_Literal	0xff
0173 0279       | y  |		Execute	Discrete,And
0174 e002       |    |		Load	0x0,0x2
0175 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0176 025b       | [  |		Execute	Discrete,Check_In_Type
0177 00d9       |    |		Load_Top	At_Offset_1
0178 e602       |    |		Load	0x3,0x2
0179 01d6       |    |		Execute	Vector,Field_Write
017a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x5 = 0x17a,0x3
017b 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
017c a603       |    |		Store_Unchecked	0x3,0x3
017d 00c8       |    |		Action	Pop_Auxiliary_Range
017e 37f2       |7   |		Loop_Decreasing	0x171
017f 00ce       |    |		Action	Pop_Auxiliary
0180 4802       |H   |		Short_Literal	0x2							; Debug Table 0x7.0x6 = 0x180,0x4
0181 4805       |H   |		Short_Literal	0x5
0182 00db       |    |		Load_Top	At_Offset_3
0183 01d6       |    |		Execute	Vector,Field_Write
0184 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x7 = 0x184,0x5
0185 00ca       |    |		Action	Exit_Nullary_Function
0186 0000 0000  |    |		.XXX[0x2]
0188 0000 0000  |    |		.LITERAL	{0x00000000, 0x001e0000}
018c 0000 4813  |  H |		.LITERAL	{0x00004813, 0x00001930}
0190 01ba 0004  |    |		.XXX[0x3]
0192 0019       |    |
0193 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8 = .DEBUG	0x0193,0x04ba,0x0000,0x0000,0x0035,0xdc34,0x0000,0x02ec
0194 02cb       |    |		Declare_Variable	Entry
0195 00bf       |    |		Action	Accept_Activation
0196 0007       |    |		Action	Break_Optional							; Debug Table 0x9 = .DEBUG	0x0196,0x04bc,0x0000,0x0000,0x0035,0xdc34,0x0000,0x02f4
													; Debug Table 0x9.0x0 = 0x196,0xffff
0197 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x1 = 0x197,0xfffe
0198 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0199 4803       |H   |		Short_Literal	0x3							; Debug Table 0x9.0x2 = 0x199,0xfffd
019a 4902       |I   |		Short_Literal	0x102
019b e001       |    |		Load	0x0,0x1
019c 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
019d 0334       | 4  |		Declare_Variable	Array,With_Constraint
019e 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x9.0x3 = 0x19e,0xfffc
019f 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x9.0x4 = 0x19f,0xfffb
01a0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01a1 029d 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call			; Debug Table 0x9.0x5 = 0x1a1,0xfffa
01a3 029d 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call			; Debug Table 0x9.0x6 = 0x1a3,0xfff9
01a5 e002       |    |		Load	0x0,0x2								; Debug Table 0x9.0x7 = 0x1a5,0xfff8
01a6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01a7 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x8 = 0x1a7,0xfff7
01a8 e003       |    |		Load	0x0,0x3
01a9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01aa e001       |    |		Load	0x0,0x1
01ab 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01ac 0334       | 4  |		Declare_Variable	Array,With_Constraint
01ad 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x9.0x9 = 0x1ad,0xfff6
01ae 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0xa = 0x1ae,0xfff5
01af e004       |    |		Load	0x0,0x4
01b0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01b1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b2 00d8       |    |		Load_Top	At_Offset_0
01b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b4 480d       |H   |		Short_Literal	0xd
01b5 0299 0223  |   #|		Declare_Subprogram	INIT_0220,For_Accept
01b7 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
01b9 00bc       |    |		Action	Signal_Activated
01ba 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x9.0xb = 0x1ba,0x1
01bb 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
01bc 0137       | 7  |		Execute	Entry,Rendezvous
01bd 00cf       |    |		Action	Mark_Auxiliary
01be 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0xc = 0x1be,0x2
01bf 8219       |    |		Call	0x1,0x19							; Debug Table 0x9.0xd = 0x1bf,0x3
01c0 00c9       |    |		Action	Pop_Auxiliary_Loop
01c1 7ffd       |    |		Jump	0x1bf
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb e211       |    |		Load	0x1,0x11							; Debug Table 0xa = .DEBUG	0x01cb,0x04da,0x0001,0x0000,0x0035,0xdc34,0x0000,0x0320
													; Debug Table 0xa.0x0 = 0x1cb,0x1
01cc 0a01       |    |		Execute_Immediate	Plus,0x1
01cd c211       |    |		Store	0x1,0x11
01ce e211       |    |		Load	0x1,0x11							; Debug Table 0xa.0x1 = 0x1ce,0x2
01cf 0b01       |    |		Execute_Immediate	Case_Compare,0x1
01d0 7013       |p   |		Jump_Nonzero	0x1e4
01d1 0b02       |    |		Execute_Immediate	Case_Compare,0x2
01d2 7014       |p   |		Jump_Nonzero	0x1e7
01d3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x2 = 0x1d3,0x5
01d4 e211       |    |		Load	0x1,0x11
01d5 e20f       |    |		Load	0x1,0xf
01d6 01d6       |    |		Execute	Vector,Field_Write
01d7 e211       |    |		Load	0x1,0x11							; Debug Table 0xa.0x3 = 0x1d7,0x6
01d8 e210       |    |		Load	0x1,0x10
01d9 027f       |    |		Execute	Discrete,Equal
01da 6808       |h   |		Jump_Zero	0x1e3
01db 4803       |H   |		Short_Literal	0x3							; Debug Table 0xa.0x4 = 0x1db,0x7
01dc e211       |    |		Load	0x1,0x11
01dd e20f       |    |		Load	0x1,0xf
01de 01cf       |    |		Execute	Vector,Slice_Read
01df e20e       |    |		Load	0x1,0xe
01e0 8005       |    |		Call	0x0,0x5
01e1 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x5 = 0x1e1,0x8
01e2 a211       |    |		Store_Unchecked	0x1,0x11
01e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x6 = 0x1e4,0x3
01e5 a20e       |    |		Store_Unchecked	0x1,0xe
01e6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01e7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa.0x7 = 0x1e7,0x4
01e8 0a02       |    |		Execute_Immediate	Plus,0x2
01e9 c210       |    |		Store	0x1,0x10
01ea 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01eb 0000 0000  |    |		.BLANK	0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fa       |    |		.CONST	0x01fa								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0002       |    |		.CONST	0x0002								; Number of locals
01f3			INIT_01f0:
01f3 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb = .DEBUG	0x01f3,0x04ec,0x0001,0x0000,0x0035,0xdc34,0x0000,0x036d
													; Debug Table 0xb.0x0 = 0x1f3,0xffff
01f4 e004       |    |		Load	0x0,0x4
01f5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01f6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f9 0007       |    |		Action	Break_Optional							; Debug Table 0xb.0x1 = 0x1f9,0xfffe
01fa			BODY_01f0:
01fa 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x2 = 0x1fa,0x1
01fb 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fc 0f02       |    |		Execute_Immediate	Equal,0x2
01fd 700f       |p   |		Jump_Nonzero	0x20d
01fe 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x3 = 0x1fe,0x2
01ff e006       |    |		Load	0x0,0x6
0200 0092 02d2  |    |		Action	Push_String_Extended,0x2d2					; "received DISCONNECT: reason => "
0202 01cc       |    |		Execute	Vector,Catenate
0203 e5ff       |    |		Load	0x2,-0x1
0204 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0205 e007       |    |		Load	0x0,0x7
0206 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0207 025e       | ^  |		Execute	Discrete,Convert
0208 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0209 01cc       |    |		Execute	Vector,Catenate
020a e004       |    |		Load	0x0,0x4
020b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020c 00d1       |    |		Pop_Control	Pop_Count_1
020d 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x4 = 0x20d,0x3
020e e007       |    |		Load	0x0,0x7
020f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0210 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0211 e5ff       |    |		Load	0x2,-0x1
0212 00d9       |    |		Load_Top	At_Offset_1
0213 2a02       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0214 e003       |    |		Load	0x0,0x3
0215 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0216 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x5 = 0x216,0x4
0217 a211       |    |		Store_Unchecked	0x1,0x11
0218 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0219 0000 0000  |    |		.BLANK	0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 e001       |    |		Load	0x0,0x1								; Debug Table 0xc = .DEBUG	0x0223,0x04fa,0x0003,0x0000,0x0035,0xdc34,0x0000,0x0406
													; Debug Table 0xc.0x0 = 0x223,0x1
0224 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0225 480f       |H   |		Short_Literal	0xf
0226 4801       |H   |		Short_Literal	0x1
0227 4800       |H   |		Short_Literal	0x0
0228 4805       |H   |		Short_Literal	0x5
0229 4800       |H   |		Short_Literal	0x0
022a e008       |    |		Load	0x0,0x8
022b 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
022c 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x1 = 0x22c,0x2
022d e009       |    |		Load	0x0,0x9
022e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
022f 4100       |A   |		End_Rendezvous	0x0
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 02b5       |    |		.CONST	0x02b5								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 e215       |    |		Load	0x1,0x15							; Debug Table 0xd = .DEBUG	0x0233,0x0500,0x0004,0x0000,0x0035,0xdc34,0x0000,0x04f8
													; Debug Table 0xd.0x0 = 0x233,0x1
0234 00e3       |    |		Load_Encached	Natural_Cache
0235 e002       |    |		Load	0x0,0x2
0236 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0237 5888       |X   |		Indirect_Literal	Float,0x2c0,4294967296.0
0238 5883       |X   |		Indirect_Literal	Float,0x2bc,3.0517578125e-05
0239 023a       | :  |		Execute	Float,Divide
023a 0236       | 6  |		Execute	Float,Truncate_To_Discrete
023b e003       |    |		Load	0x0,0x3
023c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
023d e00a       |    |		Load	0x0,0xa
023e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
023f c214       |    |		Store	0x1,0x14
0240 c216       |    |		Store	0x1,0x16
0241 00d1       |    |		Pop_Control	Pop_Count_1
0242 e214       |    |		Load	0x1,0x14							; Debug Table 0xd.0x1 = 0x242,0x2
0243 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0244 701c       |p   |		Jump_Nonzero	0x261
0245 0b05       |    |		Execute_Immediate	Case_Compare,0x5
0246 7012       |p   |		Jump_Nonzero	0x259
0247 e217       |    |		Load	0x1,0x17							; Debug Table 0xd.0x2 = 0x247,0x5
0248 e006       |    |		Load	0x0,0x6
0249 0092 02d3  |    |		Action	Push_String_Extended,0x2d3					; "received "
024b 01cc       |    |		Execute	Vector,Catenate
024c e214       |    |		Load	0x1,0x14
024d e002       |    |		Load	0x0,0x2
024e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
024f 025e       | ^  |		Execute	Discrete,Convert
0250 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0251 01cc       |    |		Execute	Vector,Catenate
0252 0092 02d4  |    |		Action	Push_String_Extended,0x2d4					; " event"
0254 01cc       |    |		Execute	Vector,Catenate
0255 e004       |    |		Load	0x0,0x4
0256 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0257 00d1       |    |		Pop_Control	Pop_Count_1
0258 7808       |x   |		Jump	0x261
0259 e217       |    |		Load	0x1,0x17							; Debug Table 0xd.0x3 = 0x259,0x4
025a e006       |    |		Load	0x0,0x6
025b 0092 02d5  |    |		Action	Push_String_Extended,0x2d5					; "received a telephone call"
025d 01cc       |    |		Execute	Vector,Catenate
025e e004       |    |		Load	0x0,0x4
025f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0260 00d1       |    |		Pop_Control	Pop_Count_1
0261 00d1       |    |		Pop_Control	Pop_Count_1
0262 e214       |    |		Load	0x1,0x14							; Debug Table 0xd.0x4 = 0x262,0x6
0263 460c       |F   |		Jump_Case	0xd
0264 780c       |x   |		Jump	0x271								; case 0x0
0265 7844       |xD  |		Jump	0x2aa								; case 0x1
0266 7843       |xC  |		Jump	0x2aa								; case 0x2
0267 7842       |xB  |		Jump	0x2aa								; case 0x3
0268 7823       |x#  |		Jump	0x28c								; case 0x4
0269 7817       |x   |		Jump	0x281								; case 0x5
026a 7816       |x   |		Jump	0x281								; case 0x6
026b 7826       |x&  |		Jump	0x292								; case 0x7
026c 782b       |x+  |		Jump	0x298								; case 0x8
026d 7830       |x0  |		Jump	0x29e								; case 0x9
026e 7835       |x5  |		Jump	0x2a4								; case 0xa
026f 783a       |x:  |		Jump	0x2aa								; case 0xb
0270 7839       |x9  |		Jump	0x2aa								; case 0xc
0271 00cf       |    |		Action	Mark_Auxiliary
0272 e216       |    |		Load	0x1,0x16							; Debug Table 0xd.0x5 = 0x272,0x7
0273 4801       |H   |		Short_Literal	0x1
0274 0263       | c  |		Execute	Discrete,Above_Bound
0275 7009       |p   |		Jump_Nonzero	0x27f
0276 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x6 = 0x276,0x8
0277 0a01       |    |		Execute_Immediate	Plus,0x1
0278 0aff       |    |		Execute_Immediate	Plus,-0x1
0279 0248       | H  |		Execute	Discrete,Check_In_Integer
027a e215       |    |		Load	0x1,0x15
027b 01d7       |    |		Execute	Vector,Field_Read
027c 8212       |    |		Call	0x1,0x12
027d 00c8       |    |		Action	Pop_Auxiliary_Range
027e 3ff7       |?   |		Loop_Increasing	0x276
027f 00ce       |    |		Action	Pop_Auxiliary
0280 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0281 e003       |    |		Load	0x0,0x3								; Debug Table 0xd.0x7 = 0x281,0x9
0282 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0283 4800       |H   |		Short_Literal	0x0
0284 e007       |    |		Load	0x0,0x7
0285 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0286 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0287 e003       |    |		Load	0x0,0x3
0288 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0289 4800       |H   |		Short_Literal	0x0							; Debug Table 0xd.0x8 = 0x289,0xa
028a a211       |    |		Store_Unchecked	0x1,0x11
028b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
028c 4802       |H   |		Short_Literal	0x2							; Debug Table 0xd.0x9 = 0x28c,0xb
028d e007       |    |		Load	0x0,0x7
028e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
028f 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0290 8213       |    |		Call	0x1,0x13
0291 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0292 4803       |H   |		Short_Literal	0x3							; Debug Table 0xd.0xa = 0x292,0xc
0293 e007       |    |		Load	0x0,0x7
0294 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0295 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0296 8213       |    |		Call	0x1,0x13
0297 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0298 4804       |H   |		Short_Literal	0x4							; Debug Table 0xd.0xb = 0x298,0xd
0299 e007       |    |		Load	0x0,0x7
029a 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
029b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
029c 8213       |    |		Call	0x1,0x13
029d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
029e 4806       |H   |		Short_Literal	0x6							; Debug Table 0xd.0xc = 0x29e,0xe
029f e007       |    |		Load	0x0,0x7
02a0 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02a1 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02a2 8213       |    |		Call	0x1,0x13
02a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02a4 4805       |H   |		Short_Literal	0x5							; Debug Table 0xd.0xd = 0x2a4,0xf
02a5 e007       |    |		Load	0x0,0x7
02a6 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02a7 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02a8 8213       |    |		Call	0x1,0x13
02a9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02aa 0092 02d6  |    |		Action	Push_String_Extended,0x2d6					; "bad port_manager receive status "
													; Debug Table 0xd.0xe = 0x2aa,0x10
02ac e214       |    |		Load	0x1,0x14
02ad e002       |    |		Load	0x0,0x2
02ae 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02af 025e       | ^  |		Execute	Discrete,Convert
02b0 1c01       |    |		Execute_Immediate	Run_Utility,0x1
02b1 01cc       |    |		Execute	Vector,Catenate
02b2 800b       |    |		Call	0x0,0xb
02b3 4887       |H   |		Short_Literal	0x87							; Debug Table 0xd.0xf = 0x2b3,0x11
02b4 0257       | W  |		Execute	Discrete,Raise
02b5			TRAP_0230:
02b5 0007       |    |		Action	Break_Optional
02b6 0092 02d7  |    |		Action	Push_String_Extended,0x2d7					; "exception raised in WORKER"
													; Debug Table 0xd.0x10 = 0x2b6,0x12
02b8 800b       |    |		Call	0x0,0xb
02b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ba 0000 0000  |    |		.XXX[0x2]
02bc 3f00 0000  |?   |		.DBL	3.0517578125e-05
02be 0000 0000  |    |
02c0 41f0 0000  |A   |		.DBL	4294967296.0
02c2 0000 0000  |    |
02c4 ; --------------------------------------------------------------------------------------
02c4 ; STRING TABLE
02c4 ; --------------------------------------------------------------------------------------
02c4 002a       | *  |		.STRTAB	0x002a->0x02d9							; "diagnostic modem: "
02c5 003a       | :  |		.STRTAB	0x003a->0x02e2							; "transmit "
02c6 0041       | A  |		.STRTAB	0x0041->0x02e6							; " packet"
02c7 0046       | F  |		.STRTAB	0x0046->0x02ea							; "exception raised in Transmit_Command"
02c8 0068       | h  |		.STRTAB	0x0068->0x02fc							; "exception raised in TRANSMIT_BYTES"
02c9 0088       |    |		.STRTAB	0x0088->0x030d							; "Abstract_Port.Panic ("
02ca 009b       |    |		.STRTAB	0x009b->0x0317							; ")"
02cb 009a       |    |		.STRTAB	0x009a->0x0318							; "received packet kind =>"
02cc 00af       |    |		.STRTAB	0x00af->0x0323							; "received CONNECT_ACK packet: "
02cd 00ca       |    |		.STRTAB	0x00ca->0x0332							; "unknown kind => "
02ce 00d8       |    |		.STRTAB	0x00d8->0x033a							; "connection accepted"
02cf 00e9       |    |		.STRTAB	0x00e9->0x0343							; "wait for call back"
02d0 00f9       |    |		.STRTAB	0x00f9->0x034c							; "call back later"
02d1 0106       |    |		.STRTAB	0x0106->0x0354							; "exception raised in RECEIVE_PACKET"
02d2 0126       | &  |		.STRTAB	0x0126->0x0365							; "received DISCONNECT: reason => "
02d3 0143       | C  |		.STRTAB	0x0143->0x0374							; "received "
02d4 014a       | J  |		.STRTAB	0x014a->0x0379							; " event"
02d5 014e       | N  |		.STRTAB	0x014e->0x037c							; "received a telephone call"
02d6 0165       | e  |		.STRTAB	0x0165->0x0388							; "bad port_manager receive status "
02d7 0183       |    |		.STRTAB	0x0183->0x0398							; "exception raised in WORKER"
02d8 019b       |    |		.STREND 0x019b->0x03a5
02d9 6469 6167  |diag|		.STRTAB_STRINGS
03a6 0000 0000  |    |		.XXX[0x2]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug Table
03a8 ; --------------------------------------------------------------------------------------
03a8 0003 000e  |    |		.CONST	0x0003,0x000e
03aa 000b 041a  |    |		.DEBUG	0x000b,0x041a,0xc000,0x0000,0x0035,0xdb94,0x0000,0x0009
03b2 0013 0422  |   "|		.DEBUG	0x0013,0x0422,0xc000,0x0000,0x0035,0xdc34,0x0000,0x000d
03ba 004b 0450  | K P|		.DEBUG	0x004b,0x0450,0x1001,0x0000,0x0035,0xdb94,0x0000,0x0036
03c2 0083 0464  |   d|		.DEBUG	0x0083,0x0464,0x1001,0x0000,0x0035,0xdb94,0x0000,0x0047
03ca 0093 046c  |   l|		.DEBUG	0x0093,0x046c,0x1001,0x0000,0x0035,0xdc34,0x0000,0x007d
03d2 00ab 0472  |   r|		.DEBUG	0x00ab,0x0472,0x1001,0x0000,0x0035,0xdc34,0x0000,0x0194
03da 00bb 0476  |   v|		.DEBUG	0x00bb,0x0476,0x1001,0x0000,0x0035,0xdc34,0x0000,0x01a6
03e2 0163 04a8  | c  |		.DEBUG	0x0163,0x04a8,0x1002,0x0000,0x0035,0xdc34,0x0000,0x00c5
03ea 0193 04ba  |    |		.DEBUG	0x0193,0x04ba,0x0000,0x0000,0x0035,0xdc34,0x0000,0x02ec
03f2 0196 04bc  |    |		.DEBUG	0x0196,0x04bc,0x0000,0x0000,0x0035,0xdc34,0x0000,0x02f4
03fa 01cb 04da  |    |		.DEBUG	0x01cb,0x04da,0x0001,0x0000,0x0035,0xdc34,0x0000,0x0320
0402 01f3 04ec  |    |		.DEBUG	0x01f3,0x04ec,0x0001,0x0000,0x0035,0xdc34,0x0000,0x036d
040a 0223 04fa  | #  |		.DEBUG	0x0223,0x04fa,0x0003,0x0000,0x0035,0xdc34,0x0000,0x0406
0412 0233 0500  | 3  |		.DEBUG	0x0233,0x0500,0x0004,0x0000,0x0035,0xdc34,0x0000,0x04f8
041a ; --------------------------------------------------------------------------------------
041a ; Debug3 Subtable 0x0
041a ; --------------------------------------------------------------------------------------
041a 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
041c 000b ffff  |    |		.CONST	0x000b,0xffff
041e 000e fffe  |    |		.CONST	0x000e,0xfffe
0420 0010 fffd  |    |		.CONST	0x0010,0xfffd
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0x1
0422 ; --------------------------------------------------------------------------------------
0422 0015 0001  |    |		.DBG3TAB	0x0015,0x0001
0424 0013 ffff  |    |		.CONST	0x0013,0xffff
0426 0014 fffe  |    |		.CONST	0x0014,0xfffe
0428 0015 fffd  |    |		.CONST	0x0015,0xfffd
042a 0017 fffc  |    |		.CONST	0x0017,0xfffc
042c 0018 ffff  |    |		.CONST	0x0018,0xffff
042e 0019 fffe  |    |		.CONST	0x0019,0xfffe
0430 001a fffa  |    |		.CONST	0x001a,0xfffa
0432 001b ffff  |    |		.CONST	0x001b,0xffff
0434 001c fffe  |    |		.CONST	0x001c,0xfffe
0436 001d fffd  |    |		.CONST	0x001d,0xfffd
0438 001e fffc  |    |		.CONST	0x001e,0xfffc
043a 001f fff8  |    |		.CONST	0x001f,0xfff8
043c 0020 ffff  |    |		.CONST	0x0020,0xffff
043e 0021 fff6  | !  |		.CONST	0x0021,0xfff6
0440 0022 fff5  | "  |		.CONST	0x0022,0xfff5
0442 0024 fff4  | $  |		.CONST	0x0024,0xfff4
0444 0026 fff3  | &  |		.CONST	0x0026,0xfff3
0446 0028 fff2  | (  |		.CONST	0x0028,0xfff2
0448 002a fff1  | *  |		.CONST	0x002a,0xfff1
044a 002c fff0  | ,  |		.CONST	0x002c,0xfff0
044c 0031 ffef  | 1  |		.CONST	0x0031,0xffef
044e 0040 0001  | @  |		.CONST	0x0040,0x0001
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug3 Subtable 0x2
0450 ; --------------------------------------------------------------------------------------
0450 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
0452 004b ffff  | K  |		.CONST	0x004b,0xffff
0454 0051 fffe  | Q  |		.CONST	0x0051,0xfffe
0456 0053 fffd  | S  |		.CONST	0x0053,0xfffd
0458 0054 0001  | T  |		.CONST	0x0054,0x0001
045a 0066 0002  | f  |		.CONST	0x0066,0x0002
045c 006b 0003  | k  |		.CONST	0x006b,0x0003
045e 0072 0004  | r  |		.CONST	0x0072,0x0004
0460 0078 0005  | x  |		.CONST	0x0078,0x0005
0462 007b 0006  | {  |		.CONST	0x007b,0x0006
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug3 Subtable 0x3
0464 ; --------------------------------------------------------------------------------------
0464 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0466 0083 0001  |    |		.CONST	0x0083,0x0001
0468 0089 0002  |    |		.CONST	0x0089,0x0002
046a 008c 0003  |    |		.CONST	0x008c,0x0003
046c ; --------------------------------------------------------------------------------------
046c ; Debug3 Subtable 0x4
046c ; --------------------------------------------------------------------------------------
046c 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
046e 0093 ffff  |    |		.CONST	0x0093,0xffff
0470 0099 0001  |    |		.CONST	0x0099,0x0001
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0x5
0472 ; --------------------------------------------------------------------------------------
0472 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0474 00ab 0001  |    |		.CONST	0x00ab,0x0001
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug3 Subtable 0x6
0476 ; --------------------------------------------------------------------------------------
0476 0003 0015  |    |		.DBG3TAB	0x0003,0x0015
0478 00bb ffff  |    |		.CONST	0x00bb,0xffff
047a 00bc fffe  |    |		.CONST	0x00bc,0xfffe
047c 00bd fffd  |    |		.CONST	0x00bd,0xfffd
047e 00c3 0001  |    |		.CONST	0x00c3,0x0001
0480 00c8 0013  |    |		.CONST	0x00c8,0x0013
0482 00d5 0002  |    |		.CONST	0x00d5,0x0002
0484 00d8 0003  |    |		.CONST	0x00d8,0x0003
0486 00e0 0004  |    |		.CONST	0x00e0,0x0004
0488 00ea 0010  |    |		.CONST	0x00ea,0x0010
048a 00f7 0011  |    |		.CONST	0x00f7,0x0011
048c 00f8 0012  |    |		.CONST	0x00f8,0x0012
048e 0104 0005  |    |		.CONST	0x0104,0x0005
0490 010a 0006  |    |		.CONST	0x010a,0x0006
0492 0110 0007  |    |		.CONST	0x0110,0x0007
0494 0116 0008  |    |		.CONST	0x0116,0x0008
0496 0117 0009  |    |		.CONST	0x0117,0x0009
0498 0123 000a  | #  |		.CONST	0x0123,0x000a
049a 0129 000b  | )  |		.CONST	0x0129,0x000b
049c 012a 000c  | *  |		.CONST	0x012a,0x000c
049e 012e 000d  | .  |		.CONST	0x012e,0x000d
04a0 013f 000e  | ?  |		.CONST	0x013f,0x000e
04a2 0141 000f  | A  |		.CONST	0x0141,0x000f
04a4 0154 0014  | T  |		.CONST	0x0154,0x0014
04a6 0157 0015  | W  |		.CONST	0x0157,0x0015
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug3 Subtable 0x7
04a8 ; --------------------------------------------------------------------------------------
04a8 0003 0005  |    |		.DBG3TAB	0x0003,0x0005
04aa 0163 ffff  | c  |		.CONST	0x0163,0xffff
04ac 0168 fffe  | h  |		.CONST	0x0168,0xfffe
04ae 016d fffd  | m  |		.CONST	0x016d,0xfffd
04b0 016e 0001  | n  |		.CONST	0x016e,0x0001
04b2 0171 0002  | q  |		.CONST	0x0171,0x0002
04b4 017a 0003  | z  |		.CONST	0x017a,0x0003
04b6 0180 0004  |    |		.CONST	0x0180,0x0004
04b8 0184 0005  |    |		.CONST	0x0184,0x0005
04ba ; --------------------------------------------------------------------------------------
04ba ; Debug3 Subtable 0x8
04ba ; --------------------------------------------------------------------------------------
04ba 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
04bc ; --------------------------------------------------------------------------------------
04bc ; Debug3 Subtable 0x9
04bc ; --------------------------------------------------------------------------------------
04bc 000b 0003  |    |		.DBG3TAB	0x000b,0x0003
04be 0196 ffff  |    |		.CONST	0x0196,0xffff
04c0 0197 fffe  |    |		.CONST	0x0197,0xfffe
04c2 0199 fffd  |    |		.CONST	0x0199,0xfffd
04c4 019e fffc  |    |		.CONST	0x019e,0xfffc
04c6 019f fffb  |    |		.CONST	0x019f,0xfffb
04c8 01a1 fffa  |    |		.CONST	0x01a1,0xfffa
04ca 01a3 fff9  |    |		.CONST	0x01a3,0xfff9
04cc 01a5 fff8  |    |		.CONST	0x01a5,0xfff8
04ce 01a7 fff7  |    |		.CONST	0x01a7,0xfff7
04d0 01ad fff6  |    |		.CONST	0x01ad,0xfff6
04d2 01ae fff5  |    |		.CONST	0x01ae,0xfff5
04d4 01ba 0001  |    |		.CONST	0x01ba,0x0001
04d6 01be 0002  |    |		.CONST	0x01be,0x0002
04d8 01bf 0003  |    |		.CONST	0x01bf,0x0003
04da ; --------------------------------------------------------------------------------------
04da ; Debug3 Subtable 0xa
04da ; --------------------------------------------------------------------------------------
04da 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
04dc 01cb 0001  |    |		.CONST	0x01cb,0x0001
04de 01ce 0002  |    |		.CONST	0x01ce,0x0002
04e0 01d3 0005  |    |		.CONST	0x01d3,0x0005
04e2 01d7 0006  |    |		.CONST	0x01d7,0x0006
04e4 01db 0007  |    |		.CONST	0x01db,0x0007
04e6 01e1 0008  |    |		.CONST	0x01e1,0x0008
04e8 01e4 0003  |    |		.CONST	0x01e4,0x0003
04ea 01e7 0004  |    |		.CONST	0x01e7,0x0004
04ec ; --------------------------------------------------------------------------------------
04ec ; Debug3 Subtable 0xb
04ec ; --------------------------------------------------------------------------------------
04ec 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
04ee 01f3 ffff  |    |		.CONST	0x01f3,0xffff
04f0 01f9 fffe  |    |		.CONST	0x01f9,0xfffe
04f2 01fa 0001  |    |		.CONST	0x01fa,0x0001
04f4 01fe 0002  |    |		.CONST	0x01fe,0x0002
04f6 020d 0003  |    |		.CONST	0x020d,0x0003
04f8 0216 0004  |    |		.CONST	0x0216,0x0004
04fa ; --------------------------------------------------------------------------------------
04fa ; Debug3 Subtable 0xc
04fa ; --------------------------------------------------------------------------------------
04fa 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
04fc 0223 0001  | #  |		.CONST	0x0223,0x0001
04fe 022c 0002  | ,  |		.CONST	0x022c,0x0002
0500 ; --------------------------------------------------------------------------------------
0500 ; Debug3 Subtable 0xd
0500 ; --------------------------------------------------------------------------------------
0500 0000 0011  |    |		.DBG3TAB	0x0000,0x0011
0502 0233 0001  | 3  |		.CONST	0x0233,0x0001
0504 0242 0002  | B  |		.CONST	0x0242,0x0002
0506 0247 0005  | G  |		.CONST	0x0247,0x0005
0508 0259 0004  | Y  |		.CONST	0x0259,0x0004
050a 0262 0006  | b  |		.CONST	0x0262,0x0006
050c 0272 0007  | r  |		.CONST	0x0272,0x0007
050e 0276 0008  | v  |		.CONST	0x0276,0x0008
0510 0281 0009  |    |		.CONST	0x0281,0x0009
0512 0289 000a  |    |		.CONST	0x0289,0x000a
0514 028c 000b  |    |		.CONST	0x028c,0x000b
0516 0292 000c  |    |		.CONST	0x0292,0x000c
0518 0298 000d  |    |		.CONST	0x0298,0x000d
051a 029e 000e  |    |		.CONST	0x029e,0x000e
051c 02a4 000f  |    |		.CONST	0x02a4,0x000f
051e 02aa 0010  |    |		.CONST	0x02aa,0x0010
0520 02b3 0011  |    |		.CONST	0x02b3,0x0011
0522 02b6 0012  |    |		.CONST	0x02b6,0x0012
0524 0000 0000  |    |		.BLANK	0000[0xdc]