DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦100561a62⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6060f0

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01a8       |    |		.CONST	0x01a8								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001a       |    |		.CONST	0x001a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0011 00bf       |    |		Action	Accept_Activation
0012 029d 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0019 00c7       |    |		Action	Elaborate_Subprogram
001a			BODY_0008:
001a 00bc       |    |		Action	Signal_Activated
001b 00bb       |    |		Action	Signal_Completion
001c 0000 0000  |    |		.BLANK	0000[0x4]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0028       | (  |		.CONST	0x0028								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0004       |    |		.CONST	0x0004								; Number of locals
0023			INIT_0020:
0023 00e3       |    |		Load_Encached	Natural_Cache
0024 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0025 00e3       |    |		Load_Encached	Natural_Cache
0026 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0028			BODY_0020:
0028 e5ff       |    |		Load	0x2,-0x1
0029 0217       |    |		Execute	Heap_Access,All_Reference
002a 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
002b 7055       |pU  |		Jump_Nonzero	0x81
002c 00cf       |    |		Action	Mark_Auxiliary
002d 784c       |xL  |		Jump	0x7a
002e e5fe       |    |		Load	0x2,-0x2
002f 6822       |h"  |		Jump_Zero	0x52
0030 e5fd       |    |		Load	0x2,-0x3
0031 00d8       |    |		Load_Top	At_Offset_0
0032 01dd       |    |		Execute	Vector,First
0033 e402       |    |		Load	0x2,0x2
0034 0273       | s  |		Execute	Discrete,Plus
0035 00d8       |    |		Load_Top	At_Offset_0
0036 00e2       |    |		Load_Encached	Integer_Cache
0037 0260       | `  |		Execute	Discrete,In_Type
0038 7001       |p   |		Jump_Nonzero	0x3a
0039 0801       |    |		Execute_Immediate	Raise,0x1
003a e5fd       |    |		Load	0x2,-0x3
003b 01dc       |    |		Execute	Vector,Last
003c 00da       |    |		Load_Top	At_Offset_2
003d 035b       | [  |		Declare_Type	Array,Constrained
003e 00d0       |    |		Action	Swap_Control
003f 01cd       |    |		Execute	Vector,Slice_Reference
0040 e5ff       |    |		Load	0x2,-0x1
0041 0219       |    |		Execute	Heap_Access,All_Read
0042 00e3       |    |		Load_Encached	Natural_Cache
0043 00da       |    |		Load_Top	At_Offset_2
0044 e001       |    |		Load	0x0,0x1
0045 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0046 603d       |`=  |		Indirect_Literal	Discrete,0x84,{0x00007fff, 0xffffffff}
0047 e5ff       |    |		Load	0x2,-0x1
0048 0217       |    |		Execute	Heap_Access,All_Reference
0049 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
004a e002       |    |		Load	0x0,0x2
004b 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
004c 00db       |    |		Load_Top	At_Offset_3
004d 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
004e 00d1       |    |		Pop_Control	Pop_Count_1
004f c403       |    |		Store	0x2,0x3
0050 00d2       |    |		Pop_Control	Pop_Count_2
0051 781f       |x   |		Jump	0x71
0052 e5fd       |    |		Load	0x2,-0x3
0053 00d8       |    |		Load_Top	At_Offset_0
0054 01dd       |    |		Execute	Vector,First
0055 e402       |    |		Load	0x2,0x2
0056 0273       | s  |		Execute	Discrete,Plus
0057 00d8       |    |		Load_Top	At_Offset_0
0058 00e2       |    |		Load_Encached	Integer_Cache
0059 0260       | `  |		Execute	Discrete,In_Type
005a 7001       |p   |		Jump_Nonzero	0x5c
005b 0801       |    |		Execute_Immediate	Raise,0x1
005c e5fd       |    |		Load	0x2,-0x3
005d 01dc       |    |		Execute	Vector,Last
005e 00da       |    |		Load_Top	At_Offset_2
005f 035b       | [  |		Declare_Type	Array,Constrained
0060 00d0       |    |		Action	Swap_Control
0061 01cd       |    |		Execute	Vector,Slice_Reference
0062 e5ff       |    |		Load	0x2,-0x1
0063 0219       |    |		Execute	Heap_Access,All_Read
0064 00e3       |    |		Load_Encached	Natural_Cache
0065 00da       |    |		Load_Top	At_Offset_2
0066 e001       |    |		Load	0x0,0x1
0067 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0068 e5ff       |    |		Load	0x2,-0x1
0069 0217       |    |		Execute	Heap_Access,All_Reference
006a 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
006b 8210       |    |		Call	0x1,0x10
006c 00db       |    |		Load_Top	At_Offset_3
006d 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
006e 00d1       |    |		Pop_Control	Pop_Count_1
006f c403       |    |		Store	0x2,0x3
0070 00d2       |    |		Pop_Control	Pop_Count_2
0071 00db       |    |		Load_Top	At_Offset_3
0072 00db       |    |		Load_Top	At_Offset_3
0073 0273       | s  |		Execute	Discrete,Plus
0074 c402       |    |		Store	0x2,0x2
0075 e5ff       |    |		Load	0x2,-0x1
0076 0217       |    |		Execute	Heap_Access,All_Reference
0077 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0078 7006       |p   |		Jump_Nonzero	0x7f
0079 00c9       |    |		Action	Pop_Auxiliary_Loop
007a 00db       |    |		Load_Top	At_Offset_3
007b e5fd       |    |		Load	0x2,-0x3
007c 01db       |    |		Execute	Vector,Length
007d 027c       | |  |		Execute	Discrete,Less
007e 77af       |w   |		Jump_Nonzero	0x2e
007f 00ce       |    |		Action	Pop_Auxiliary
0080 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0081 8404       |    |		Call	0x2,0x4
0082 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0083 0000       |    |		.XXX[0x1]
0084 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0092       |    |		.CONST	0x0092								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0003       |    |		.CONST	0x0003								; Number of locals
008b			INIT_0088:
008b 4801       |H   |		Short_Literal	0x1
008c 4bf0       |K   |		Short_Literal	0x3f0
008d e003       |    |		Load	0x0,0x3
008e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008f 035b       | [  |		Declare_Type	Array,Constrained
0090 0337       | 7  |		Declare_Variable	Array
0091 00e3       |    |		Load_Encached	Natural_Cache
0092			BODY_0088:
0092 00cf       |    |		Action	Mark_Auxiliary
0093 e5fe       |    |		Load	0x2,-0x2
0094 6812       |h   |		Jump_Zero	0xa7
0095 e5ff       |    |		Load	0x2,-0x1
0096 0219       |    |		Execute	Heap_Access,All_Read
0097 00e3       |    |		Load_Encached	Natural_Cache
0098 e402       |    |		Load	0x2,0x2
0099 e001       |    |		Load	0x0,0x1
009a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
009b 67e8       |g   |		Indirect_Literal	Discrete,0x84,{0x00007fff, 0xffffffff}
009c e5ff       |    |		Load	0x2,-0x1
009d 0217       |    |		Execute	Heap_Access,All_Reference
009e 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
009f e002       |    |		Load	0x0,0x2
00a0 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00a1 00db       |    |		Load_Top	At_Offset_3
00a2 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00a3 00d1       |    |		Pop_Control	Pop_Count_1
00a4 005b       | [  |		Store_Top	Discrete,At_Offset_3
00a5 00d1       |    |		Pop_Control	Pop_Count_1
00a6 780f       |x   |		Jump	0xb6
00a7 e5ff       |    |		Load	0x2,-0x1
00a8 0219       |    |		Execute	Heap_Access,All_Read
00a9 00e3       |    |		Load_Encached	Natural_Cache
00aa e402       |    |		Load	0x2,0x2
00ab e001       |    |		Load	0x0,0x1
00ac 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00ad e5ff       |    |		Load	0x2,-0x1
00ae 0217       |    |		Execute	Heap_Access,All_Reference
00af 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00b0 8210       |    |		Call	0x1,0x10
00b1 00db       |    |		Load_Top	At_Offset_3
00b2 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00b3 00d1       |    |		Pop_Control	Pop_Count_1
00b4 005b       | [  |		Store_Top	Discrete,At_Offset_3
00b5 00d1       |    |		Pop_Control	Pop_Count_1
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 0217       |    |		Execute	Heap_Access,All_Reference
00ba 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00bb 0f00       |    |		Execute_Immediate	Equal,0x0
00bc 0f00       |    |		Execute_Immediate	Equal,0x0
00bd 0278       | x  |		Execute	Discrete,Or
00be 7002       |p   |		Jump_Nonzero	0xc1
00bf 00c9       |    |		Action	Pop_Auxiliary_Loop
00c0 7fd2       |    |		Jump	0x93
00c1 00ce       |    |		Action	Pop_Auxiliary
00c2 e5ff       |    |		Load	0x2,-0x1
00c3 0217       |    |		Execute	Heap_Access,All_Reference
00c4 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
00c5 680a       |h   |		Jump_Zero	0xd0
00c6 4804       |H   |		Short_Literal	0x4
00c7 4800       |H   |		Short_Literal	0x0
00c8 0092 0194  |    |		Action	Push_String_Extended,0x194					; " Received block "
00ca 4801       |H   |		Short_Literal	0x1
00cb e403       |    |		Load	0x2,0x3
00cc e402       |    |		Load	0x2,0x2
00cd 01cf       |    |		Execute	Vector,Slice_Read
00ce e004       |    |		Load	0x0,0x4
00cf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d0 4801       |H   |		Short_Literal	0x1
00d1 00d9       |    |		Load_Top	At_Offset_1
00d2 00db       |    |		Load_Top	At_Offset_3
00d3 01cf       |    |		Execute	Vector,Slice_Read
00d4 e005       |    |		Load	0x0,0x5
00d5 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00d6 01c6       |    |		Execute	Vector,Convert_To_Formal
00d7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00de       |    |		.CONST	0x00de								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0003       |    |		.CONST	0x0003								; Number of locals
00db			INIT_00d8:
00db 00e3       |    |		Load_Encached	Natural_Cache
00dc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00dd 00e3       |    |		Load_Encached	Natural_Cache
00de			BODY_00d8:
00de 00cf       |    |		Action	Mark_Auxiliary
00df e5ff       |    |		Load	0x2,-0x1
00e0 0219       |    |		Execute	Heap_Access,All_Read
00e1 00e3       |    |		Load_Encached	Natural_Cache
00e2 e001       |    |		Load	0x0,0x1
00e3 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00e4 4800       |H   |		Short_Literal	0x0
00e5 6036       |`6  |		Indirect_Literal	Discrete,0x11c,{0x00007fff, 0xffffffff}
00e6 e5fe       |    |		Load	0x2,-0x2
00e7 01dd       |    |		Execute	Vector,First
00e8 e402       |    |		Load	0x2,0x2
00e9 0273       | s  |		Execute	Discrete,Plus
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 00e2       |    |		Load_Encached	Integer_Cache
00ec 0260       | `  |		Execute	Discrete,In_Type
00ed 7001       |p   |		Jump_Nonzero	0xef
00ee 0801       |    |		Execute_Immediate	Raise,0x1
00ef e5fe       |    |		Load	0x2,-0x2
00f0 01dc       |    |		Execute	Vector,Last
00f1 e5fe       |    |		Load	0x2,-0x2
00f2 01cf       |    |		Execute	Vector,Slice_Read
00f3 e5ff       |    |		Load	0x2,-0x1
00f4 0217       |    |		Execute	Heap_Access,All_Reference
00f5 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00f6 e002       |    |		Load	0x0,0x2
00f7 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00f8 00da       |    |		Load_Top	At_Offset_2
00f9 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
00fa 005b       | [  |		Store_Top	Discrete,At_Offset_3
00fb 00d1       |    |		Pop_Control	Pop_Count_1
00fc 00da       |    |		Load_Top	At_Offset_2
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 0273       | s  |		Execute	Discrete,Plus
00ff 005b       | [  |		Store_Top	Discrete,At_Offset_3
0100 00da       |    |		Load_Top	At_Offset_2
0101 e5fe       |    |		Load	0x2,-0x2
0102 01db       |    |		Execute	Vector,Length
0103 027b       | {  |		Execute	Discrete,Greater_Equal
0104 e5ff       |    |		Load	0x2,-0x1
0105 0217       |    |		Execute	Heap_Access,All_Reference
0106 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0107 0f00       |    |		Execute_Immediate	Equal,0x0
0108 0f00       |    |		Execute_Immediate	Equal,0x0
0109 0278       | x  |		Execute	Discrete,Or
010a 7002       |p   |		Jump_Nonzero	0x10d
010b 00c9       |    |		Action	Pop_Auxiliary_Loop
010c 7fd2       |    |		Jump	0xdf
010d 00ce       |    |		Action	Pop_Auxiliary
010e e5ff       |    |		Load	0x2,-0x1
010f 0217       |    |		Execute	Heap_Access,All_Reference
0110 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0111 6807       |h   |		Jump_Zero	0x119
0112 4804       |H   |		Short_Literal	0x4
0113 4800       |H   |		Short_Literal	0x0
0114 0092 0195  |    |		Action	Push_String_Extended,0x195					; " Sent Block "
0116 e5fe       |    |		Load	0x2,-0x2
0117 e004       |    |		Load	0x0,0x4
0118 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0119 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
011a 0000 0000  |    |		.XXX[0x2]
011c 0000 7fff  |    |		.LITERAL	{0x00007fff, 0xffffffff}
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0131       | 1  |		.CONST	0x0131								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0005       |    |		.CONST	0x0005								; Number of locals
0123			INIT_0120:
0123 4801       |H   |		Short_Literal	0x1
0124 4803       |H   |		Short_Literal	0x3
0125 00e3       |    |		Load_Encached	Natural_Cache
0126 03f8       |    |		Declare_Type	Discrete,Constrained
0127 480a       |H   |		Short_Literal	0xa
0128 090f       |    |		Execute_Immediate	Binary_Scale,0xf
0129 00e7       |    |		Load_Encached	Duration_Cache
012a 025e       | ^  |		Execute	Discrete,Convert
012b 480a       |H   |		Short_Literal	0xa
012c 090f       |    |		Execute_Immediate	Binary_Scale,0xf
012d 00e7       |    |		Load_Encached	Duration_Cache
012e 025e       | ^  |		Execute	Discrete,Convert
012f e001       |    |		Load	0x0,0x1
0130 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0131			BODY_0120:
0131 00cf       |    |		Action	Mark_Auxiliary
0132 4803       |H   |		Short_Literal	0x3
0133 4801       |H   |		Short_Literal	0x1
0134 0007       |    |		Action	Break_Optional
0135 00e3       |    |		Load_Encached	Natural_Cache
0136 e5fd       |    |		Load	0x2,-0x3
0137 e001       |    |		Load	0x0,0x1
0138 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0139 e404       |    |		Load	0x2,0x4
013a e5ff       |    |		Load	0x2,-0x1
013b e002       |    |		Load	0x0,0x2
013c 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
013d c405       |    |		Store	0x2,0x5
013e 00d1       |    |		Pop_Control	Pop_Count_1
013f c5fc       |    |		Store	0x2,-0x4
0140 00db       |    |		Load_Top	At_Offset_3
0141 0f07       |    |		Execute_Immediate	Equal,0x7
0142 7002       |p   |		Jump_Nonzero	0x145
0143 00d2       |    |		Pop_Control	Pop_Count_2
0144 7807       |x   |		Jump	0x14c
0145 00d8       |    |		Load_Top	At_Offset_0
0146 0e03       |    |		Execute_Immediate	Not_Equal,0x3
0147 6802       |h   |		Jump_Zero	0x14a
0148 e403       |    |		Load	0x2,0x3
0149 00ba       |    |		Action	Initiate_Delay
014a 00c8       |    |		Action	Pop_Auxiliary_Range
014b 3fe9       |?   |		Loop_Increasing	0x135
014c 00ce       |    |		Action	Pop_Auxiliary
014d 00d8       |    |		Load_Top	At_Offset_0
014e a5fe       |    |		Store_Unchecked	0x2,-0x2
014f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0159       | Y  |		.CONST	0x0159								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 e5fd       |    |		Load	0x2,-0x3
0154 01da       |    |		Execute	Vector,Bounds
0155 e003       |    |		Load	0x0,0x3
0156 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0157 035b       | [  |		Declare_Type	Array,Constrained
0158 0337       | 7  |		Declare_Variable	Array
0159			BODY_0150:
0159 00cf       |    |		Action	Mark_Auxiliary
015a 7828       |x(  |		Jump	0x183
015b 00d9       |    |		Load_Top	At_Offset_1
015c e5fd       |    |		Load	0x2,-0x3
015d 01dd       |    |		Execute	Vector,First
015e e402       |    |		Load	0x2,0x2
015f 0273       | s  |		Execute	Discrete,Plus
0160 00d8       |    |		Load_Top	At_Offset_0
0161 00e2       |    |		Load_Encached	Integer_Cache
0162 0260       | `  |		Execute	Discrete,In_Type
0163 7001       |p   |		Jump_Nonzero	0x165
0164 0801       |    |		Execute_Immediate	Raise,0x1
0165 e5fd       |    |		Load	0x2,-0x3
0166 01dc       |    |		Execute	Vector,Last
0167 00da       |    |		Load_Top	At_Offset_2
0168 035b       | [  |		Declare_Type	Array,Constrained
0169 00d0       |    |		Action	Swap_Control
016a 01cd       |    |		Execute	Vector,Slice_Reference
016b e5ff       |    |		Load	0x2,-0x1
016c 0219       |    |		Execute	Heap_Access,All_Read
016d 00e3       |    |		Load_Encached	Natural_Cache
016e 00da       |    |		Load_Top	At_Offset_2
016f e001       |    |		Load	0x0,0x1
0170 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0171 e5ff       |    |		Load	0x2,-0x1
0172 0217       |    |		Execute	Heap_Access,All_Reference
0173 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0174 8210       |    |		Call	0x1,0x10
0175 00db       |    |		Load_Top	At_Offset_3
0176 2804       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0177 00d1       |    |		Pop_Control	Pop_Count_1
0178 c403       |    |		Store	0x2,0x3
0179 00d2       |    |		Pop_Control	Pop_Count_2
017a e402       |    |		Load	0x2,0x2
017b e403       |    |		Load	0x2,0x3
017c 0273       | s  |		Execute	Discrete,Plus
017d c402       |    |		Store	0x2,0x2
017e e5ff       |    |		Load	0x2,-0x1
017f 0217       |    |		Execute	Heap_Access,All_Reference
0180 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0181 7006       |p   |		Jump_Nonzero	0x188
0182 00c9       |    |		Action	Pop_Auxiliary_Loop
0183 e402       |    |		Load	0x2,0x2
0184 e5fd       |    |		Load	0x2,-0x3
0185 01db       |    |		Execute	Vector,Length
0186 027c       | |  |		Execute	Discrete,Less
0187 77d3       |w   |		Jump_Nonzero	0x15b
0188 00ce       |    |		Action	Pop_Auxiliary
0189 00d8       |    |		Load_Top	At_Offset_0
018a e5fd       |    |		Load	0x2,-0x3
018b 01d4       |    |		Execute	Vector,Structure_Write
018c 4804       |H   |		Short_Literal	0x4
018d 4800       |H   |		Short_Literal	0x0
018e 0092 0194  |    |		Action	Push_String_Extended,0x194					; " Received block "
0190 00db       |    |		Load_Top	At_Offset_3
0191 e004       |    |		Load	0x0,0x4
0192 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0193 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0194 ; --------------------------------------------------------------------------------------
0194 ; STRING TABLE
0194 ; --------------------------------------------------------------------------------------
0194 0006       |    |		.STRTAB	0x0006->0x0197							; " Received block "
0195 0014       |    |		.STRTAB	0x0014->0x019f							; " Sent Block "
0196 001e       |    |		.STREND 0x001e->0x01a5
0197 2052 6563  | Rec|		.STRTAB_STRINGS
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug Table
01a8 ; --------------------------------------------------------------------------------------
01a8 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0xf42b,0x0000,0x0001,0x0000
01ae 0000 0610  |    |		.XXX[0x1a]
01b0 93d3 d311  |    |
01b2 5053 97d1  |PS  |
01b4 5614 1491  |V   |
01b6 54d4 d253  |T  S|
01b8 d394 c9d0  |    |
01ba 93d1 1640  |   @|
01bc 1a25 a9c0  | %  |
01be 0014 b280  |    |
01c0 353b 7d00  |5;} |
01c2 3540 2500  |5@% |
01c4 1a9f 4680  |  F |
01c6 0014 b300  |    |
01c8 0000 0000  |    |		.BLANK	0000[0x6]
01ce 1a9f 4680  |  F |		.XXX[0x1e]
01d0 0000 0000  |    |
01d2 0000 0040  |   @|
01d4 0000 0550  |   P|
01d6 93d5 5391  |  S |
01d8 14d7 d555  |   U|
01da 1253 1255  | S U|
01dc 1251 54c9  | QT |
01de d093 d116  |    |
01e0 401a 2611  |@ & |
01e2 c000 14b3  |    |
01e4 8035 3e1d  | 5> |
01e6 0035 3f41  | 5?A|
01e8 001a 9fd8  |    |
01ea 8000 14b4  |    |
01ec 0000 0000  |    |		.BLANK	0000[0x6]
01f2 001a 9fd8  |    |		.XXX[0xe]
01f4 8005 9247  |   G|
01f6 0000 0000  |    |
01f8 4000 0005  |@   |
01fa 5094 9053  |P  S|
01fc 90d2 17d5  |    |
01fe 5512 5312  |U S |