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

⟦a8ad52102⟧ SEG

    Length: 2048 (0x800)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »1047571.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »1047571.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »1047571.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »1047571.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »1047571.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »1047571.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 0180       |    |		.CONST	0x0180								; 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 0044       | D  |		.CONST	0x0044								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0 = .DEBUG	0x000b,0x01c2,0x8000,0x0000,0x0037,0x1694,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4841       |HA  |		Short_Literal	0x41
000d 00e2       |    |		Load_Encached	Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x1 = 0xf,0xfffe
0010 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0011 0129       | )  |		Execute	Any,Make_Visible
0012 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x2 = 0x12,0xfffd
0013 e002       |    |		Load	0x0,0x2
0014 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 4802       |H   |		Short_Literal	0x2
0017 032e       | .  |		Declare_Type	Record,Defined,Visible
0018 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x3 = 0x18,0xfffc
0019 0322       | "  |		Declare_Variable	Record
001a 4800       |H   |		Short_Literal	0x0
001b 00d9       |    |		Load_Top	At_Offset_1
001c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
001d e002       |    |		Load	0x0,0x2
001e 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
001f 00d9       |    |		Load_Top	At_Offset_1
0020 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0021 0129       | )  |		Execute	Any,Make_Visible
0022 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x4 = 0x22,0xfffb
0023 4801       |H   |		Short_Literal	0x1
0024 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0026 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0027 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x5 = 0x27,0xfffa
0028 4802       |H   |		Short_Literal	0x2
0029 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
002b 03fe       |    |		Declare_Type	Discrete,Defined,Visible
002c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x6 = 0x2c,0xfff9
002d 604e       |`N  |		Indirect_Literal	Discrete,0x7c,{0x000ffc13, 0x00000db0}		; 0xffc13 = MCP_PACKET_DEFS
002e 02a0       |    |		Declare_Subprogram	Null_Subprogram
002f 038f       |    |		Declare_Type	Package,Defined,Visible
0030 00b6       |    |		Action	Make_Scope
0031 4801       |H   |		Short_Literal	0x1
0032 00da       |    |		Load_Top	At_Offset_2
0033 020e       |    |		Execute	Module,Augment_Imports
0034 0386       |    |		Declare_Variable	Package,Visible
0035 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x7 = 0x35,0xfff8
0036 6041       |`A  |		Indirect_Literal	Discrete,0x78,{0x000ffc13, 0x00000830}		; 0xffc13 = MCP_PACKET_DEFS
0037 02a0       |    |		Declare_Subprogram	Null_Subprogram
0038 038f       |    |		Declare_Type	Package,Defined,Visible
0039 e001       |    |		Load	0x0,0x1
003a 00b6       |    |		Action	Make_Scope
003b 4802       |H   |		Short_Literal	0x2
003c 00db       |    |		Load_Top	At_Offset_3
003d 020e       |    |		Execute	Module,Augment_Imports
003e 0386       |    |		Declare_Variable	Package,Visible
003f 00bf       |    |		Action	Accept_Activation
0040 00d9       |    |		Load_Top	At_Offset_1
0041 020f       |    |		Execute	Module,Activate
0042 00d8       |    |		Load_Top	At_Offset_0
0043 020f       |    |		Execute	Module,Activate
0044			BODY_0008:
0044 00bc       |    |		Action	Signal_Activated
0045 00bb       |    |		Action	Signal_Completion
0046 0000 0000  |    |		.XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x1 = .DEBUG	0x004b,0x01d4,0x0005,0x0000,0x0037,0x1694,0x0000,0x0035
004c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
004d 7802       |x   |		Jump	0x50								; case 0x1
004e 7805       |x   |		Jump	0x54								; case 0x2
004f 7809       |x   |		Jump	0x59								; case 0x3
0050 00da       |    |		Load_Top	At_Offset_2
0051 0091 015c  |   \|		Action	Push_String_Extended_Indexed,0x15c				; "TRANSMIT"
0053 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0054 00db       |    |		Load_Top	At_Offset_3
0055 00db       |    |		Load_Top	At_Offset_3
0056 00e0       |    |		Load_Encached	Standard_Cache
0057 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0058 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0059 00da       |    |		Load_Top	At_Offset_2
005a 00e0       |    |		Load_Encached	Standard_Cache
005b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
005c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
005d 0000 0000  |    |		.XXX[0x3]
005f 0000       |    |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x0063,0x01d6,0x0005,0x0000,0x0037,0x1694,0x0000,0x003b
0064 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0065 7802       |x   |		Jump	0x68								; case 0x1
0066 7805       |x   |		Jump	0x6c								; case 0x2
0067 7809       |x   |		Jump	0x71								; case 0x3
0068 00da       |    |		Load_Top	At_Offset_2
0069 0091 015e  |   ^|		Action	Push_String_Extended_Indexed,0x15e				; "OK"
006b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
006c 00db       |    |		Load_Top	At_Offset_3
006d 00db       |    |		Load_Top	At_Offset_3
006e 00e0       |    |		Load_Encached	Standard_Cache
006f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0070 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0071 00da       |    |		Load_Top	At_Offset_2
0072 00e0       |    |		Load_Encached	Standard_Cache
0073 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0074 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 000f fc13  |    |		.LITERAL	{0x000ffc13, 0x00000830}
007c 000f fc13  |    |		.LITERAL	{0x000ffc13, 0x00000db0}
0080 00aa 0004  |    |		.XXX[0x3]
0082 000f       |    |
0083 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3 = .DEBUG	0x0083,0x01d8,0x0000,0x0000,0x0037,0x1694,0x0000,0x00cf
													; Debug Table 0x3.0x0 = 0x83,0xffff
0084 602b       |`+  |		Indirect_Literal	Discrete,0xb0,{0x000ffc13, 0x00000cb0}		; 0xffc13 = MCP_PACKET_DEFS
0085 02a0       |    |		Declare_Subprogram	Null_Subprogram
0086 038f       |    |		Declare_Type	Package,Defined,Visible
0087 e001       |    |		Load	0x0,0x1
0088 4801       |H   |		Short_Literal	0x1
0089 00da       |    |		Load_Top	At_Offset_2
008a 020e       |    |		Execute	Module,Augment_Imports
008b 0386       |    |		Declare_Variable	Package,Visible
008c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x1 = 0x8c,0xfffe
008d 601e       |`   |		Indirect_Literal	Discrete,0xac,{0x000ffc13, 0x00000bb0}		; 0xffc13 = MCP_PACKET_DEFS
008e 02a0       |    |		Declare_Subprogram	Null_Subprogram
008f 038f       |    |		Declare_Type	Package,Defined,Visible
0090 e001       |    |		Load	0x0,0x1
0091 4801       |H   |		Short_Literal	0x1
0092 00da       |    |		Load_Top	At_Offset_2
0093 020e       |    |		Execute	Module,Augment_Imports
0094 0386       |    |		Declare_Variable	Package,Visible
0095 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x2 = 0x95,0xfffd
0096 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0097 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0098 00e1       |    |		Load_Encached	Boolean_Cache
0099 00db       |    |		Load_Top	At_Offset_3
009a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009b e002       |    |		Load	0x0,0x2
009c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009d e002       |    |		Load	0x0,0x2
009e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
009f e20e       |    |		Load	0x1,0xe
00a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a1 00e3       |    |		Load_Encached	Natural_Cache
00a2 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a3 4807       |H   |		Short_Literal	0x7
00a4 032e       | .  |		Declare_Type	Record,Defined,Visible
00a5 00bf       |    |		Action	Accept_Activation
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 020f       |    |		Execute	Module,Activate
00a8 00d9       |    |		Load_Top	At_Offset_1
00a9 020f       |    |		Execute	Module,Activate
00aa 00bc       |    |		Action	Signal_Activated
00ab 00bb       |    |		Action	Signal_Completion
00ac 000f fc13  |    |		.LITERAL	{0x000ffc13, 0x00000bb0}
00b0 000f fc13  |    |		.LITERAL	{0x000ffc13, 0x00000cb0}
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 00c4 0004  |    |		.XXX[0x3]
00ba 000d       |    |
00bb e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x00bb,0x01e0,0x0000,0x0000,0x0037,0x1694,0x0000,0x00ed
													; Debug Table 0x4.0x0 = 0xbb,0xffff
00bc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00bd 0129       | )  |		Execute	Any,Make_Visible
00be 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x1 = 0xbe,0xfffe
00bf 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x2 = 0xbf,0xfffd
00c0 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x3 = 0xc0,0xfffc
00c1 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x4 = 0xc1,0xfffb
00c2 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0x5 = 0xc2,0xfffa
00c3 00bf       |    |		Action	Accept_Activation						; Debug Table 0x4.0x6 = 0xc3,0xfff9
00c4 00bc       |    |		Action	Signal_Activated
00c5 00bb       |    |		Action	Signal_Completion
00c6 0000 0000  |    |		.XXX[0x5]
00c8 00d1 0004  |    |
00ca 000d       |    |
00cb e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x00cb,0x01f0,0x0000,0x0000,0x0037,0x1694,0x0000,0x00d0
													; Debug Table 0x5.0x0 = 0xcb,0xffff
00cc 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00cd 0129       | )  |		Execute	Any,Make_Visible
00ce 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x1 = 0xce,0xfffe
00cf 0007       |    |		Action	Break_Optional							; Debug Table 0x5.0x2 = 0xcf,0xfffd
00d0 00bf       |    |		Action	Accept_Activation						; Debug Table 0x5.0x3 = 0xd0,0xfffc
00d1 00bc       |    |		Action	Signal_Activated
00d2 00bb       |    |		Action	Signal_Completion
00d3 0000 0000  |    |		.BLANK	0000[0x5]
00d8 0102 0004  |    |		.XXX[0x3]
00da 0010       |    |
00db 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6 = .DEBUG	0x00db,0x01fa,0x0000,0x0000,0x0037,0x1694,0x0000,0x0042
													; Debug Table 0x6.0x0 = 0xdb,0xffff
00dc 4806       |H   |		Short_Literal	0x6
00dd 00e2       |    |		Load_Encached	Integer_Cache
00de 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00df 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x1 = 0xdf,0xfffe
00e0 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x2 = 0xe0,0xfffd
00e1 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x3 = 0xe1,0xfffc
00e2 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x4 = 0xe2,0xfffb
00e3 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x5 = 0xe3,0xfffa
00e4 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x6 = 0xe4,0xfff9
00e5 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x7 = 0xe5,0xfff8
00e6 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0x8 = 0xe6,0xfff7
00e7 6070       |`p  |		Indirect_Literal	Discrete,0x158,{0x00000000, 0x00007fff}
00e8 00e2       |    |		Load_Encached	Integer_Cache
00e9 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00ea 0007       |    |		Action	Break_Optional							; Debug Table 0x6.0x9 = 0xea,0xfff6
00eb 4800       |H   |		Short_Literal	0x0							; Debug Table 0x6.0xa = 0xeb,0xfff5
00ec 6067       |`g  |		Indirect_Literal	Discrete,0x154,{0x00000000, 0x0000ffff}
00ed 00e2       |    |		Load_Encached	Integer_Cache
00ee 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
00ef 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0xb = 0xef,0xfff4
00f0 e001       |    |		Load	0x0,0x1
00f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f2 e001       |    |		Load	0x0,0x1
00f3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f4 4802       |H   |		Short_Literal	0x2
00f5 00e1       |    |		Load_Encached	Boolean_Cache
00f6 e20e       |    |		Load	0x1,0xe
00f7 4801       |H   |		Short_Literal	0x1
00f8 e20f       |    |		Load	0x1,0xf
00f9 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
00fb 4803       |H   |		Short_Literal	0x3
00fc 4802       |H   |		Short_Literal	0x2
00fd 4802       |H   |		Short_Literal	0x2
00fe 4800       |H   |		Short_Literal	0x0
00ff 4801       |H   |		Short_Literal	0x1
0100 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0101 00bf       |    |		Action	Accept_Activation
0102 00bc       |    |		Action	Signal_Activated
0103 00bb       |    |		Action	Signal_Completion
0104 0000 0000  |    |		.BLANK	0000[0x4]
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 0x7 = .DEBUG	0x010b,0x0214,0x0005,0x0000,0x0037,0x1694,0x0000,0x0098
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 7818       |x   |		Jump	0x12b								; case 0x6
0113 7826       |x&  |		Jump	0x13a								; case 0x7
0114 7838       |x8  |		Jump	0x14d								; 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 4800       |H   |		Short_Literal	0x0
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 0b03       |    |		Execute_Immediate	Case_Compare,0x3
0124 7004       |p   |		Jump_Nonzero	0x129
0125 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0126 7002       |p   |		Jump_Nonzero	0x129
0127 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0128 7000       |p   |		Jump_Nonzero	0x129
0129 00d1       |    |		Pop_Control	Pop_Count_1
012a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
012b 00db       |    |		Load_Top	At_Offset_3
012c 0b03       |    |		Execute_Immediate	Case_Compare,0x3
012d 7006       |p   |		Jump_Nonzero	0x134
012e 0b00       |    |		Execute_Immediate	Case_Compare,0x0
012f 7006       |p   |		Jump_Nonzero	0x136
0130 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0131 7004       |p   |		Jump_Nonzero	0x136
0132 48ff       |H   |		Short_Literal	0xff
0133 7803       |x   |		Jump	0x137
0134 4801       |H   |		Short_Literal	0x1
0135 7801       |x   |		Jump	0x137
0136 4802       |H   |		Short_Literal	0x2
0137 00d0       |    |		Action	Swap_Control
0138 00d1       |    |		Pop_Control	Pop_Count_1
0139 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013a 00db       |    |		Load_Top	At_Offset_3
013b e5fe       |    |		Load	0x2,-0x2
013c 0b03       |    |		Execute_Immediate	Case_Compare,0x3
013d 7007       |p   |		Jump_Nonzero	0x145
013e 0b00       |    |		Execute_Immediate	Case_Compare,0x0
013f 7008       |p   |		Jump_Nonzero	0x148
0140 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0141 7006       |p   |		Jump_Nonzero	0x148
0142 00d1       |    |		Pop_Control	Pop_Count_1
0143 48ff       |H   |		Short_Literal	0xff
0144 7805       |x   |		Jump	0x14a
0145 00d1       |    |		Pop_Control	Pop_Count_1
0146 4801       |H   |		Short_Literal	0x1
0147 7802       |x   |		Jump	0x14a
0148 00d1       |    |		Pop_Control	Pop_Count_1
0149 4802       |H   |		Short_Literal	0x2
014a e5ff       |    |		Load	0x2,-0x1
014b 031b       |    |		Declare_Type	Variant_Record,Constrained
014c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014d 00db       |    |		Load_Top	At_Offset_3
014e e5fe       |    |		Load	0x2,-0x2
014f e5ff       |    |		Load	0x2,-0x1
0150 1c06       |    |		Execute_Immediate	Run_Utility,0x6
0151 e5ff       |    |		Load	0x2,-0x1
0152 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
0153 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0154 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0158 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
015c ; --------------------------------------------------------------------------------------
015c ; STRING TABLE
015c ; --------------------------------------------------------------------------------------
015c 000c       |    |		.STRTAB	0x000c->0x0162							; "TRANSMIT"
015d 0012       |    |		.STRTAB	0x0012->0x0166							; "RECEIVE"
015e 0017       |    |		.STRTAB	0x0017->0x0169							; "OK"
015f 0017       |    |		.STRTAB	0x0017->0x016a							; "MAP_ENTRY_IN_USE"
0160 0025       | %  |		.STRTAB	0x0025->0x0172							; "NEED_PACKET_ID"
0161 0031       | 1  |		.STREND 0x0031->0x0179
0162 5452 414e  |TRAN|		.STRTAB_STRINGS
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0003 0008  |    |		.CONST	0x0003,0x0008
0182 000b 01c2  |    |		.DEBUG	0x000b,0x01c2,0x8000,0x0000,0x0037,0x1694,0x0000,0x0007
018a 004b 01d4  | K  |		.DEBUG	0x004b,0x01d4,0x0005,0x0000,0x0037,0x1694,0x0000,0x0035
0192 0063 01d6  | c  |		.DEBUG	0x0063,0x01d6,0x0005,0x0000,0x0037,0x1694,0x0000,0x003b
019a 0083 01d8  |    |		.DEBUG	0x0083,0x01d8,0x0000,0x0000,0x0037,0x1694,0x0000,0x00cf
01a2 00bb 01e0  |    |		.DEBUG	0x00bb,0x01e0,0x0000,0x0000,0x0037,0x1694,0x0000,0x00ed
01aa 00cb 01f0  |    |		.DEBUG	0x00cb,0x01f0,0x0000,0x0000,0x0037,0x1694,0x0000,0x00d0
01b2 00db 01fa  |    |		.DEBUG	0x00db,0x01fa,0x0000,0x0000,0x0037,0x1694,0x0000,0x0042
01ba 010b 0214  |    |		.DEBUG	0x010b,0x0214,0x0005,0x0000,0x0037,0x1694,0x0000,0x0098
01c2 ; --------------------------------------------------------------------------------------
01c2 ; Debug3 Subtable 0x0
01c2 ; --------------------------------------------------------------------------------------
01c2 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
01c4 000b ffff  |    |		.CONST	0x000b,0xffff
01c6 000f fffe  |    |		.CONST	0x000f,0xfffe
01c8 0012 fffd  |    |		.CONST	0x0012,0xfffd
01ca 0018 fffc  |    |		.CONST	0x0018,0xfffc
01cc 0022 fffb  | "  |		.CONST	0x0022,0xfffb
01ce 0027 fffa  | '  |		.CONST	0x0027,0xfffa
01d0 002c fff9  | ,  |		.CONST	0x002c,0xfff9
01d2 0035 fff8  | 5  |		.CONST	0x0035,0xfff8
01d4 ; --------------------------------------------------------------------------------------
01d4 ; Debug3 Subtable 0x1
01d4 ; --------------------------------------------------------------------------------------
01d4 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
01d6 ; --------------------------------------------------------------------------------------
01d6 ; Debug3 Subtable 0x2
01d6 ; --------------------------------------------------------------------------------------
01d6 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug3 Subtable 0x3
01d8 ; --------------------------------------------------------------------------------------
01d8 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
01da 0083 ffff  |    |		.CONST	0x0083,0xffff
01dc 008c fffe  |    |		.CONST	0x008c,0xfffe
01de 0095 fffd  |    |		.CONST	0x0095,0xfffd
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug3 Subtable 0x4
01e0 ; --------------------------------------------------------------------------------------
01e0 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
01e2 00bb ffff  |    |		.CONST	0x00bb,0xffff
01e4 00be fffe  |    |		.CONST	0x00be,0xfffe
01e6 00bf fffd  |    |		.CONST	0x00bf,0xfffd
01e8 00c0 fffc  |    |		.CONST	0x00c0,0xfffc
01ea 00c1 fffb  |    |		.CONST	0x00c1,0xfffb
01ec 00c2 fffa  |    |		.CONST	0x00c2,0xfffa
01ee 00c3 fff9  |    |		.CONST	0x00c3,0xfff9
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug3 Subtable 0x5
01f0 ; --------------------------------------------------------------------------------------
01f0 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
01f2 00cb ffff  |    |		.CONST	0x00cb,0xffff
01f4 00ce fffe  |    |		.CONST	0x00ce,0xfffe
01f6 00cf fffd  |    |		.CONST	0x00cf,0xfffd
01f8 00d0 fffc  |    |		.CONST	0x00d0,0xfffc
01fa ; --------------------------------------------------------------------------------------
01fa ; Debug3 Subtable 0x6
01fa ; --------------------------------------------------------------------------------------
01fa 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
01fc 00db ffff  |    |		.CONST	0x00db,0xffff
01fe 00df fffe  |    |		.CONST	0x00df,0xfffe
0200 00e0 fffd  |    |		.CONST	0x00e0,0xfffd
0202 00e1 fffc  |    |		.CONST	0x00e1,0xfffc
0204 00e2 fffb  |    |		.CONST	0x00e2,0xfffb
0206 00e3 fffa  |    |		.CONST	0x00e3,0xfffa
0208 00e4 fff9  |    |		.CONST	0x00e4,0xfff9
020a 00e5 fff8  |    |		.CONST	0x00e5,0xfff8
020c 00e6 fff7  |    |		.CONST	0x00e6,0xfff7
020e 00ea fff6  |    |		.CONST	0x00ea,0xfff6
0210 00eb fff5  |    |		.CONST	0x00eb,0xfff5
0212 00ef fff4  |    |		.CONST	0x00ef,0xfff4
0214 ; --------------------------------------------------------------------------------------
0214 ; Debug3 Subtable 0x7
0214 ; --------------------------------------------------------------------------------------
0214 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0216 0000 0000  |    |		.BLANK	0000[0x1ea]