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

⟦c4a5c080a⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_43b46b

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 02e0       |    |		.CONST	0x02e0								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0031       | 1  |		.CONST	0x0031								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
000f 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0011 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0013 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
0015 029a 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call,Visible,Unelaborated
0017 029a 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call,Visible,Unelaborated
0019 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
001b 00bf       |    |		Action	Accept_Activation
001c e002       |    |		Load	0x0,0x2
001d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 4818       |H   |		Short_Literal	0x18
0020 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0021 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0022 00c7       |    |		Action	Elaborate_Subprogram
0023 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0026 00c7       |    |		Action	Elaborate_Subprogram
0027 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0028 00c7       |    |		Action	Elaborate_Subprogram
0029 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0030 00c7       |    |		Action	Elaborate_Subprogram
0031			BODY_0008:
0031 00bc       |    |		Action	Signal_Activated
0032 00bb       |    |		Action	Signal_Completion
0033 0000 0000  |    |		.BLANK	0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0040       | @  |		.CONST	0x0040								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0004       |    |		.CONST	0x0004								; Number of locals
003b			INIT_0038:
003b 00e1       |    |		Load_Encached	Boolean_Cache
003c e003       |    |		Load	0x0,0x3
003d 0322       | "  |		Declare_Variable	Record
003e e215       |    |		Load	0x1,0x15
003f 0007       |    |		Action	Break_Optional
0040			BODY_0038:
0040 00d9       |    |		Load_Top	At_Offset_1
0041 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0042 e5ff       |    |		Load	0x2,-0x1
0043 8004       |    |		Call	0x0,0x4
0044 00da       |    |		Load_Top	At_Offset_2
0045 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0046 00e1       |    |		Load_Encached	Boolean_Cache
0047 00da       |    |		Load_Top	At_Offset_2
0048 8005       |    |		Call	0x0,0x5
0049 00d1       |    |		Pop_Control	Pop_Count_1
004a 005b       | [  |		Store_Top	Discrete,At_Offset_3
004b 00da       |    |		Load_Top	At_Offset_2
004c 6876       |hv  |		Jump_Zero	0xc3
004d e215       |    |		Load	0x1,0x15
004e 03bc       |    |		Declare_Variable	Access,By_Allocation
004f 0039       | 9  |		Store_Top	Access,At_Offset_1
0050 00d8       |    |		Load_Top	At_Offset_0
0051 00d8       |    |		Load_Top	At_Offset_0
0052 0229       | )  |		Execute	Access,All_Read
0053 e5fe       |    |		Load	0x2,-0x2
0054 8004       |    |		Call	0x0,0x4
0055 00d9       |    |		Load_Top	At_Offset_1
0056 0228       | (  |		Execute	Access,All_Write
0057 00d1       |    |		Pop_Control	Pop_Count_1
0058 00d9       |    |		Load_Top	At_Offset_1
0059 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
005a 4607       |F   |		Jump_Case	0x8
005b 782c       |x,  |		Jump	0x88								; case 0x0
005c 7864       |xd  |		Jump	0xc1								; case 0x1
005d 7806       |x   |		Jump	0x64								; case 0x2
005e 7811       |x   |		Jump	0x70								; case 0x3
005f 781c       |x   |		Jump	0x7c								; case 0x4
0060 7860       |x`  |		Jump	0xc1								; case 0x5
0061 785f       |x_  |		Jump	0xc1								; case 0x6
0062 785e       |x^  |		Jump	0xc1								; case 0x7
0063 785d       |x]  |		.XXX[0x1]
0064 00d9       |    |		Load_Top	At_Offset_1
0065 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0066 0229       | )  |		Execute	Access,All_Read
0067 00d8       |    |		Load_Top	At_Offset_0
0068 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0069 00da       |    |		Load_Top	At_Offset_2
006a 0229       | )  |		Execute	Access,All_Read
006b 8006       |    |		Call	0x0,0x6
006c 00d9       |    |		Load_Top	At_Offset_1
006d 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
006e 00d1       |    |		Pop_Control	Pop_Count_1
006f 7851       |xQ  |		Jump	0xc1
0070 00d9       |    |		Load_Top	At_Offset_1
0071 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0072 0229       | )  |		Execute	Access,All_Read
0073 00d8       |    |		Load_Top	At_Offset_0
0074 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0075 00da       |    |		Load_Top	At_Offset_2
0076 0229       | )  |		Execute	Access,All_Read
0077 8006       |    |		Call	0x0,0x6
0078 00d9       |    |		Load_Top	At_Offset_1
0079 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
007a 00d1       |    |		Pop_Control	Pop_Count_1
007b 7845       |xE  |		Jump	0xc1
007c 00d9       |    |		Load_Top	At_Offset_1
007d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
007e 0229       | )  |		Execute	Access,All_Read
007f 00d8       |    |		Load_Top	At_Offset_0
0080 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0081 00da       |    |		Load_Top	At_Offset_2
0082 0229       | )  |		Execute	Access,All_Read
0083 8006       |    |		Call	0x0,0x6
0084 00d9       |    |		Load_Top	At_Offset_1
0085 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
0086 00d1       |    |		Pop_Control	Pop_Count_1
0087 7839       |x9  |		Jump	0xc1
0088 e5fd       |    |		Load	0x2,-0x3
0089 4603       |F   |		Jump_Case	0x4
008a 782a       |x*  |		Jump	0xb5								; case 0x0
008b 7803       |x   |		Jump	0x8f								; case 0x1
008c 780f       |x   |		Jump	0x9c								; case 0x2
008d 7833       |x3  |		Jump	0xc1								; case 0x3
008e 7832       |x2  |		.XXX[0x1]
008f 00d9       |    |		Load_Top	At_Offset_1
0090 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0091 0229       | )  |		Execute	Access,All_Read
0092 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0093 00d8       |    |		Load_Top	At_Offset_0
0094 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0095 00da       |    |		Load_Top	At_Offset_2
0096 0229       | )  |		Execute	Access,All_Read
0097 8006       |    |		Call	0x0,0x6
0098 00d9       |    |		Load_Top	At_Offset_1
0099 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
009a 00d1       |    |		Pop_Control	Pop_Count_1
009b 7825       |x%  |		Jump	0xc1
009c 00d9       |    |		Load_Top	At_Offset_1
009d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
009e 0229       | )  |		Execute	Access,All_Read
009f 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
00a0 00d8       |    |		Load_Top	At_Offset_0
00a1 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 0229       | )  |		Execute	Access,All_Read
00a4 8006       |    |		Call	0x0,0x6
00a5 00d9       |    |		Load_Top	At_Offset_1
00a6 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a7 00d1       |    |		Pop_Control	Pop_Count_1
00a8 00d9       |    |		Load_Top	At_Offset_1
00a9 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00aa 0229       | )  |		Execute	Access,All_Read
00ab 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00ac 00d8       |    |		Load_Top	At_Offset_0
00ad 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00ae 00da       |    |		Load_Top	At_Offset_2
00af 0229       | )  |		Execute	Access,All_Read
00b0 8006       |    |		Call	0x0,0x6
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00b3 00d1       |    |		Pop_Control	Pop_Count_1
00b4 780c       |x   |		Jump	0xc1
00b5 00d9       |    |		Load_Top	At_Offset_1
00b6 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00b7 0229       | )  |		Execute	Access,All_Read
00b8 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
00b9 00d8       |    |		Load_Top	At_Offset_0
00ba 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 0229       | )  |		Execute	Access,All_Read
00bd 8006       |    |		Call	0x0,0x6
00be 00d9       |    |		Load_Top	At_Offset_1
00bf 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00c0 00d1       |    |		Pop_Control	Pop_Count_1
00c1 00d9       |    |		Load_Top	At_Offset_1
00c2 8007       |    |		Call	0x0,0x7
00c3 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00ce       |    |		.CONST	0x00ce								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0003       |    |		.CONST	0x0003								; Number of locals
00cb			INIT_00c8:
00cb 00e1       |    |		Load_Encached	Boolean_Cache
00cc e003       |    |		Load	0x0,0x3
00cd 0322       | "  |		Declare_Variable	Record
00ce			BODY_00c8:
00ce 00d8       |    |		Load_Top	At_Offset_0
00cf 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 8004       |    |		Call	0x0,0x4
00d2 00d9       |    |		Load_Top	At_Offset_1
00d3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d4 00e1       |    |		Load_Encached	Boolean_Cache
00d5 00d9       |    |		Load_Top	At_Offset_1
00d6 8005       |    |		Call	0x0,0x5
00d7 00d1       |    |		Pop_Control	Pop_Count_1
00d8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00d9 00d9       |    |		Load_Top	At_Offset_1
00da 6864       |hd  |		Jump_Zero	0x13f
00db 00d8       |    |		Load_Top	At_Offset_0
00dc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00dd 4607       |F   |		Jump_Case	0x8
00de 7829       |x)  |		Jump	0x108								; case 0x0
00df 785d       |x]  |		Jump	0x13d								; case 0x1
00e0 7806       |x   |		Jump	0xe7								; case 0x2
00e1 7810       |x   |		Jump	0xf2								; case 0x3
00e2 781a       |x   |		Jump	0xfd								; case 0x4
00e3 7859       |xY  |		Jump	0x13d								; case 0x5
00e4 7858       |xX  |		Jump	0x13d								; case 0x6
00e5 7857       |xW  |		Jump	0x13d								; case 0x7
00e6 7856       |xV  |		.XXX[0x1]
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00e9 0229       | )  |		Execute	Access,All_Read
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
00ec e5fe       |    |		Load	0x2,-0x2
00ed 8008       |    |		Call	0x0,0x8
00ee 00d9       |    |		Load_Top	At_Offset_1
00ef 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
00f0 00d1       |    |		Pop_Control	Pop_Count_1
00f1 784b       |xK  |		Jump	0x13d
00f2 00d8       |    |		Load_Top	At_Offset_0
00f3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00f4 0229       | )  |		Execute	Access,All_Read
00f5 00d8       |    |		Load_Top	At_Offset_0
00f6 2e0a       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
00f7 e5fe       |    |		Load	0x2,-0x2
00f8 8008       |    |		Call	0x0,0x8
00f9 00d9       |    |		Load_Top	At_Offset_1
00fa 2a0a       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
00fb 00d1       |    |		Pop_Control	Pop_Count_1
00fc 7840       |x@  |		Jump	0x13d
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00ff 0229       | )  |		Execute	Access,All_Read
0100 00d8       |    |		Load_Top	At_Offset_0
0101 2e0e       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
0102 e5fe       |    |		Load	0x2,-0x2
0103 8008       |    |		Call	0x0,0x8
0104 00d9       |    |		Load_Top	At_Offset_1
0105 2a0e       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
0106 00d1       |    |		Pop_Control	Pop_Count_1
0107 7835       |x5  |		Jump	0x13d
0108 e5fd       |    |		Load	0x2,-0x3
0109 4603       |F   |		Jump_Case	0x4
010a 7827       |x'  |		Jump	0x132								; case 0x0
010b 7803       |x   |		Jump	0x10f								; case 0x1
010c 780e       |x   |		Jump	0x11b								; case 0x2
010d 782f       |x/  |		Jump	0x13d								; case 0x3
010e 782e       |x.  |		.XXX[0x1]
010f 00d8       |    |		Load_Top	At_Offset_0
0110 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0111 0229       | )  |		Execute	Access,All_Read
0112 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0113 00d8       |    |		Load_Top	At_Offset_0
0114 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0115 e5fe       |    |		Load	0x2,-0x2
0116 8008       |    |		Call	0x0,0x8
0117 00d9       |    |		Load_Top	At_Offset_1
0118 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0119 00d1       |    |		Pop_Control	Pop_Count_1
011a 7822       |x"  |		Jump	0x13d
011b 00d8       |    |		Load_Top	At_Offset_0
011c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
011d 0229       | )  |		Execute	Access,All_Read
011e 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
011f 00d8       |    |		Load_Top	At_Offset_0
0120 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0121 e5fe       |    |		Load	0x2,-0x2
0122 8008       |    |		Call	0x0,0x8
0123 00d9       |    |		Load_Top	At_Offset_1
0124 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0125 00d1       |    |		Pop_Control	Pop_Count_1
0126 00d8       |    |		Load_Top	At_Offset_0
0127 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0128 0229       | )  |		Execute	Access,All_Read
0129 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
012a 00d8       |    |		Load_Top	At_Offset_0
012b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
012c e5fe       |    |		Load	0x2,-0x2
012d 8008       |    |		Call	0x0,0x8
012e 00d9       |    |		Load_Top	At_Offset_1
012f 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0130 00d1       |    |		Pop_Control	Pop_Count_1
0131 780b       |x   |		Jump	0x13d
0132 00d8       |    |		Load_Top	At_Offset_0
0133 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0134 0229       | )  |		Execute	Access,All_Read
0135 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0136 00d8       |    |		Load_Top	At_Offset_0
0137 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0138 e5fe       |    |		Load	0x2,-0x2
0139 8008       |    |		Call	0x0,0x8
013a 00d9       |    |		Load_Top	At_Offset_1
013b 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
013c 00d1       |    |		Pop_Control	Pop_Count_1
013d 00d8       |    |		Load_Top	At_Offset_0
013e 8007       |    |		Call	0x0,0x7
013f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014a       | J  |		.CONST	0x014a								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0005       |    |		.CONST	0x0005								; Number of locals
0143			INIT_0140:
0143 e003       |    |		Load	0x0,0x3
0144 0322       | "  |		Declare_Variable	Record
0145 e009       |    |		Load	0x0,0x9
0146 0007       |    |		Action	Break_Optional
0147 00e1       |    |		Load_Encached	Boolean_Cache
0148 e003       |    |		Load	0x0,0x3
0149 0322       | "  |		Declare_Variable	Record
014a			BODY_0140:
014a 00d8       |    |		Load_Top	At_Offset_0
014b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014c e5ff       |    |		Load	0x2,-0x1
014d 8004       |    |		Call	0x0,0x4
014e 00d9       |    |		Load_Top	At_Offset_1
014f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0150 00e1       |    |		Load_Encached	Boolean_Cache
0151 00d9       |    |		Load_Top	At_Offset_1
0152 8005       |    |		Call	0x0,0x5
0153 00d1       |    |		Pop_Control	Pop_Count_1
0154 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0155 00d9       |    |		Load_Top	At_Offset_1
0156 6836       |h6  |		Jump_Zero	0x18d
0157 00db       |    |		Load_Top	At_Offset_3
0158 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0159 e5fe       |    |		Load	0x2,-0x2
015a 8004       |    |		Call	0x0,0x4
015b e402       |    |		Load	0x2,0x2
015c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
015d 00e1       |    |		Load_Encached	Boolean_Cache
015e e402       |    |		Load	0x2,0x2
015f 8005       |    |		Call	0x0,0x5
0160 00d1       |    |		Pop_Control	Pop_Count_1
0161 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0162 00d9       |    |		Load_Top	At_Offset_1
0163 6829       |h)  |		Jump_Zero	0x18d
0164 e009       |    |		Load	0x0,0x9
0165 03bc       |    |		Declare_Variable	Access,By_Allocation
0166 003b       | ;  |		Store_Top	Access,At_Offset_3
0167 00db       |    |		Load_Top	At_Offset_3
0168 00db       |    |		Load_Top	At_Offset_3
0169 0228       | (  |		Execute	Access,All_Write
016a 00d8       |    |		Load_Top	At_Offset_0
016b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
016c 4607       |F   |		Jump_Case	0x8
016d 781d       |x   |		Jump	0x18b								; case 0x0
016e 781c       |x   |		Jump	0x18b								; case 0x1
016f 781b       |x   |		Jump	0x18b								; case 0x2
0170 7810       |x   |		Jump	0x181								; case 0x3
0171 7804       |x   |		Jump	0x176								; case 0x4
0172 7818       |x   |		Jump	0x18b								; case 0x5
0173 7817       |x   |		Jump	0x18b								; case 0x6
0174 7816       |x   |		Jump	0x18b								; case 0x7
0175 7815       |x   |		.XXX[0x1]
0176 00d8       |    |		Load_Top	At_Offset_0
0177 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0178 0229       | )  |		Execute	Access,All_Read
0179 00d8       |    |		Load_Top	At_Offset_0
017a 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
017b e403       |    |		Load	0x2,0x3
017c 800a       |    |		Call	0x0,0xa
017d 00d9       |    |		Load_Top	At_Offset_1
017e 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
017f 00d1       |    |		Pop_Control	Pop_Count_1
0180 780a       |x   |		Jump	0x18b
0181 00d8       |    |		Load_Top	At_Offset_0
0182 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0183 0229       | )  |		Execute	Access,All_Read
0184 00d8       |    |		Load_Top	At_Offset_0
0185 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0186 e403       |    |		Load	0x2,0x3
0187 800b       |    |		Call	0x0,0xb
0188 00d9       |    |		Load_Top	At_Offset_1
0189 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
018a 00d1       |    |		Pop_Control	Pop_Count_1
018b 00d8       |    |		Load_Top	At_Offset_0
018c 8007       |    |		Call	0x0,0x7
018d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
018e 0000 0000  |    |		.XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019a       |    |		.CONST	0x019a								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0005       |    |		.CONST	0x0005								; Number of locals
0193			INIT_0190:
0193 e003       |    |		Load	0x0,0x3
0194 0322       | "  |		Declare_Variable	Record
0195 e009       |    |		Load	0x0,0x9
0196 0007       |    |		Action	Break_Optional
0197 00e1       |    |		Load_Encached	Boolean_Cache
0198 e003       |    |		Load	0x0,0x3
0199 0322       | "  |		Declare_Variable	Record
019a			BODY_0190:
019a 00d8       |    |		Load_Top	At_Offset_0
019b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
019c e5ff       |    |		Load	0x2,-0x1
019d 8004       |    |		Call	0x0,0x4
019e 00d9       |    |		Load_Top	At_Offset_1
019f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01a0 00e1       |    |		Load_Encached	Boolean_Cache
01a1 00d9       |    |		Load_Top	At_Offset_1
01a2 8005       |    |		Call	0x0,0x5
01a3 00d1       |    |		Pop_Control	Pop_Count_1
01a4 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01a5 00d9       |    |		Load_Top	At_Offset_1
01a6 6836       |h6  |		Jump_Zero	0x1dd
01a7 00db       |    |		Load_Top	At_Offset_3
01a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a9 e5fe       |    |		Load	0x2,-0x2
01aa 8004       |    |		Call	0x0,0x4
01ab e402       |    |		Load	0x2,0x2
01ac 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ad 00e1       |    |		Load_Encached	Boolean_Cache
01ae e402       |    |		Load	0x2,0x2
01af 8005       |    |		Call	0x0,0x5
01b0 00d1       |    |		Pop_Control	Pop_Count_1
01b1 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 6829       |h)  |		Jump_Zero	0x1dd
01b4 e009       |    |		Load	0x0,0x9
01b5 03bc       |    |		Declare_Variable	Access,By_Allocation
01b6 003b       | ;  |		Store_Top	Access,At_Offset_3
01b7 00db       |    |		Load_Top	At_Offset_3
01b8 00db       |    |		Load_Top	At_Offset_3
01b9 0228       | (  |		Execute	Access,All_Write
01ba 00d8       |    |		Load_Top	At_Offset_0
01bb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01bc 4607       |F   |		Jump_Case	0x8
01bd 781d       |x   |		Jump	0x1db								; case 0x0
01be 781c       |x   |		Jump	0x1db								; case 0x1
01bf 781b       |x   |		Jump	0x1db								; case 0x2
01c0 7810       |x   |		Jump	0x1d1								; case 0x3
01c1 7804       |x   |		Jump	0x1c6								; case 0x4
01c2 7818       |x   |		Jump	0x1db								; case 0x5
01c3 7817       |x   |		Jump	0x1db								; case 0x6
01c4 7816       |x   |		Jump	0x1db								; case 0x7
01c5 7815       |x   |		.XXX[0x1]
01c6 00d8       |    |		Load_Top	At_Offset_0
01c7 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01c8 0229       | )  |		Execute	Access,All_Read
01c9 00d8       |    |		Load_Top	At_Offset_0
01ca 2e0f       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
01cb e403       |    |		Load	0x2,0x3
01cc 800c       |    |		Call	0x0,0xc
01cd 00d9       |    |		Load_Top	At_Offset_1
01ce 2a0f       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
01cf 00d1       |    |		Pop_Control	Pop_Count_1
01d0 780a       |x   |		Jump	0x1db
01d1 00d8       |    |		Load_Top	At_Offset_0
01d2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01d3 0229       | )  |		Execute	Access,All_Read
01d4 00d8       |    |		Load_Top	At_Offset_0
01d5 2e0b       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
01d6 e403       |    |		Load	0x2,0x3
01d7 800d       |    |		Call	0x0,0xd
01d8 00d9       |    |		Load_Top	At_Offset_1
01d9 2a0b       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
01da 00d1       |    |		Pop_Control	Pop_Count_1
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 8007       |    |		Call	0x0,0x7
01dd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ea       |    |		.CONST	0x01ea								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0005       |    |		.CONST	0x0005								; Number of locals
01e3			INIT_01e0:
01e3 e003       |    |		Load	0x0,0x3
01e4 0322       | "  |		Declare_Variable	Record
01e5 e009       |    |		Load	0x0,0x9
01e6 0007       |    |		Action	Break_Optional
01e7 00e1       |    |		Load_Encached	Boolean_Cache
01e8 e003       |    |		Load	0x0,0x3
01e9 0322       | "  |		Declare_Variable	Record
01ea			BODY_01e0:
01ea 00d8       |    |		Load_Top	At_Offset_0
01eb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ec e5ff       |    |		Load	0x2,-0x1
01ed 8004       |    |		Call	0x0,0x4
01ee 00d9       |    |		Load_Top	At_Offset_1
01ef 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f0 00e1       |    |		Load_Encached	Boolean_Cache
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 8005       |    |		Call	0x0,0x5
01f3 00d1       |    |		Pop_Control	Pop_Count_1
01f4 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01f5 00d9       |    |		Load_Top	At_Offset_1
01f6 682c       |h,  |		Jump_Zero	0x223
01f7 00db       |    |		Load_Top	At_Offset_3
01f8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01f9 e5fe       |    |		Load	0x2,-0x2
01fa 8004       |    |		Call	0x0,0x4
01fb e402       |    |		Load	0x2,0x2
01fc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01fd 00e1       |    |		Load_Encached	Boolean_Cache
01fe e402       |    |		Load	0x2,0x2
01ff 8005       |    |		Call	0x0,0x5
0200 00d1       |    |		Pop_Control	Pop_Count_1
0201 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0202 00d9       |    |		Load_Top	At_Offset_1
0203 681f       |h   |		Jump_Zero	0x223
0204 e009       |    |		Load	0x0,0x9
0205 03bc       |    |		Declare_Variable	Access,By_Allocation
0206 003b       | ;  |		Store_Top	Access,At_Offset_3
0207 00db       |    |		Load_Top	At_Offset_3
0208 00db       |    |		Load_Top	At_Offset_3
0209 0228       | (  |		Execute	Access,All_Write
020a 00d8       |    |		Load_Top	At_Offset_0
020b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
020c 4607       |F   |		Jump_Case	0x8
020d 7813       |x   |		Jump	0x221								; case 0x0
020e 7812       |x   |		Jump	0x221								; case 0x1
020f 7811       |x   |		Jump	0x221								; case 0x2
0210 780b       |x   |		Jump	0x21c								; case 0x3
0211 7804       |x   |		Jump	0x216								; case 0x4
0212 780e       |x   |		Jump	0x221								; case 0x5
0213 780d       |x   |		Jump	0x221								; case 0x6
0214 780c       |x   |		Jump	0x221								; case 0x7
0215 780b       |x   |		.XXX[0x1]
0216 00da       |    |		Load_Top	At_Offset_2
0217 00d9       |    |		Load_Top	At_Offset_1
0218 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0219 0227       | '  |		Execute	Access,All_Reference
021a 2a0d       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
021b 7805       |x   |		Jump	0x221
021c 00da       |    |		Load_Top	At_Offset_2
021d 00d9       |    |		Load_Top	At_Offset_1
021e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
021f 0227       | '  |		Execute	Access,All_Reference
0220 2a09       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
0221 00d8       |    |		Load_Top	At_Offset_0
0222 8007       |    |		Call	0x0,0x7
0223 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0224 0000 0000  |    |		.BLANK	0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022e       | .  |		.CONST	0x022e								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0003       |    |		.CONST	0x0003								; Number of locals
022b			INIT_0228:
022b 00e1       |    |		Load_Encached	Boolean_Cache
022c e003       |    |		Load	0x0,0x3
022d 0322       | "  |		Declare_Variable	Record
022e			BODY_0228:
022e 00d8       |    |		Load_Top	At_Offset_0
022f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0230 e5ff       |    |		Load	0x2,-0x1
0231 8004       |    |		Call	0x0,0x4
0232 00d9       |    |		Load_Top	At_Offset_1
0233 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0234 00e1       |    |		Load_Encached	Boolean_Cache
0235 00d9       |    |		Load_Top	At_Offset_1
0236 8005       |    |		Call	0x0,0x5
0237 00d1       |    |		Pop_Control	Pop_Count_1
0238 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0239 00d9       |    |		Load_Top	At_Offset_1
023a 6864       |hd  |		Jump_Zero	0x29f
023b 00d8       |    |		Load_Top	At_Offset_0
023c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
023d 4607       |F   |		Jump_Case	0x8
023e 7829       |x)  |		Jump	0x268								; case 0x0
023f 785d       |x]  |		Jump	0x29d								; case 0x1
0240 7806       |x   |		Jump	0x247								; case 0x2
0241 7810       |x   |		Jump	0x252								; case 0x3
0242 781a       |x   |		Jump	0x25d								; case 0x4
0243 7859       |xY  |		Jump	0x29d								; case 0x5
0244 7858       |xX  |		Jump	0x29d								; case 0x6
0245 7857       |xW  |		Jump	0x29d								; case 0x7
0246 7856       |xV  |		.XXX[0x1]
0247 00d8       |    |		Load_Top	At_Offset_0
0248 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0249 0229       | )  |		Execute	Access,All_Read
024a 00d8       |    |		Load_Top	At_Offset_0
024b 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
024c e5fe       |    |		Load	0x2,-0x2
024d 8004       |    |		Call	0x0,0x4
024e 00d9       |    |		Load_Top	At_Offset_1
024f 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0250 00d1       |    |		Pop_Control	Pop_Count_1
0251 784b       |xK  |		Jump	0x29d
0252 00d8       |    |		Load_Top	At_Offset_0
0253 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0254 0229       | )  |		Execute	Access,All_Read
0255 00d8       |    |		Load_Top	At_Offset_0
0256 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0257 e5fe       |    |		Load	0x2,-0x2
0258 8004       |    |		Call	0x0,0x4
0259 00d9       |    |		Load_Top	At_Offset_1
025a 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
025b 00d1       |    |		Pop_Control	Pop_Count_1
025c 7840       |x@  |		Jump	0x29d
025d 00d8       |    |		Load_Top	At_Offset_0
025e 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
025f 0229       | )  |		Execute	Access,All_Read
0260 00d8       |    |		Load_Top	At_Offset_0
0261 2e0c       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0262 e5fe       |    |		Load	0x2,-0x2
0263 8004       |    |		Call	0x0,0x4
0264 00d9       |    |		Load_Top	At_Offset_1
0265 2a0c       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0266 00d1       |    |		Pop_Control	Pop_Count_1
0267 7835       |x5  |		Jump	0x29d
0268 e5fd       |    |		Load	0x2,-0x3
0269 4603       |F   |		Jump_Case	0x4
026a 7827       |x'  |		Jump	0x292								; case 0x0
026b 7803       |x   |		Jump	0x26f								; case 0x1
026c 780e       |x   |		Jump	0x27b								; case 0x2
026d 782f       |x/  |		Jump	0x29d								; case 0x3
026e 782e       |x.  |		.XXX[0x1]
026f 00d8       |    |		Load_Top	At_Offset_0
0270 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0271 0229       | )  |		Execute	Access,All_Read
0272 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0273 00d8       |    |		Load_Top	At_Offset_0
0274 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0275 e5fe       |    |		Load	0x2,-0x2
0276 8004       |    |		Call	0x0,0x4
0277 00d9       |    |		Load_Top	At_Offset_1
0278 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0279 00d1       |    |		Pop_Control	Pop_Count_1
027a 7822       |x"  |		Jump	0x29d
027b 00d8       |    |		Load_Top	At_Offset_0
027c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
027d 0229       | )  |		Execute	Access,All_Read
027e 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
027f 00d8       |    |		Load_Top	At_Offset_0
0280 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0281 e5fe       |    |		Load	0x2,-0x2
0282 8004       |    |		Call	0x0,0x4
0283 00d9       |    |		Load_Top	At_Offset_1
0284 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0285 00d1       |    |		Pop_Control	Pop_Count_1
0286 00d8       |    |		Load_Top	At_Offset_0
0287 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0288 0229       | )  |		Execute	Access,All_Read
0289 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
028a 00d8       |    |		Load_Top	At_Offset_0
028b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
028c e5fe       |    |		Load	0x2,-0x2
028d 8004       |    |		Call	0x0,0x4
028e 00d9       |    |		Load_Top	At_Offset_1
028f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0290 00d1       |    |		Pop_Control	Pop_Count_1
0291 780b       |x   |		Jump	0x29d
0292 00d8       |    |		Load_Top	At_Offset_0
0293 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0294 0229       | )  |		Execute	Access,All_Read
0295 2e02       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0296 00d8       |    |		Load_Top	At_Offset_0
0297 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0298 e5fe       |    |		Load	0x2,-0x2
0299 8004       |    |		Call	0x0,0x4
029a 00d9       |    |		Load_Top	At_Offset_1
029b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
029c 00d1       |    |		Pop_Control	Pop_Count_1
029d 00d8       |    |		Load_Top	At_Offset_0
029e 8007       |    |		Call	0x0,0x7
029f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a6       |    |		.CONST	0x02a6								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0003       |    |		.CONST	0x0003								; Number of locals
02a3			INIT_02a0:
02a3 00e1       |    |		Load_Encached	Boolean_Cache
02a4 e003       |    |		Load	0x0,0x3
02a5 0322       | "  |		Declare_Variable	Record
02a6			BODY_02a0:
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a8 e5ff       |    |		Load	0x2,-0x1
02a9 8004       |    |		Call	0x0,0x4
02aa 00d9       |    |		Load_Top	At_Offset_1
02ab 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ac 00e1       |    |		Load_Encached	Boolean_Cache
02ad 00d9       |    |		Load_Top	At_Offset_1
02ae 8005       |    |		Call	0x0,0x5
02af 00d1       |    |		Pop_Control	Pop_Count_1
02b0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02b1 00d9       |    |		Load_Top	At_Offset_1
02b2 680b       |h   |		Jump_Zero	0x2be
02b3 00d8       |    |		Load_Top	At_Offset_0
02b4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02b5 0f01       |    |		Execute_Immediate	Equal,0x1
02b6 6805       |h   |		Jump_Zero	0x2bc
02b7 e5fe       |    |		Load	0x2,-0x2
02b8 00d9       |    |		Load_Top	At_Offset_1
02b9 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02ba 0227       | '  |		Execute	Access,All_Reference
02bb 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
02bc 00d8       |    |		Load_Top	At_Offset_0
02bd 8007       |    |		Call	0x0,0x7
02be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02bf 0000       |    |		.XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c6       |    |		.CONST	0x02c6								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0003       |    |		.CONST	0x0003								; Number of locals
02c3			INIT_02c0:
02c3 00e1       |    |		Load_Encached	Boolean_Cache
02c4 e003       |    |		Load	0x0,0x3
02c5 0322       | "  |		Declare_Variable	Record
02c6			BODY_02c0:
02c6 00d8       |    |		Load_Top	At_Offset_0
02c7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c8 e5ff       |    |		Load	0x2,-0x1
02c9 8004       |    |		Call	0x0,0x4
02ca 00d9       |    |		Load_Top	At_Offset_1
02cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02cc 00e1       |    |		Load_Encached	Boolean_Cache
02cd 00d9       |    |		Load_Top	At_Offset_1
02ce 8005       |    |		Call	0x0,0x5
02cf 00d1       |    |		Pop_Control	Pop_Count_1
02d0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02d1 00d9       |    |		Load_Top	At_Offset_1
02d2 6805       |h   |		Jump_Zero	0x2d8
02d3 e5fe       |    |		Load	0x2,-0x2
02d4 00d9       |    |		Load_Top	At_Offset_1
02d5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02d6 00d8       |    |		Load_Top	At_Offset_0
02d7 8007       |    |		Call	0x0,0x7
02d8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02d9 0000 0000  |    |		.BLANK	0000[0x7]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug Table
02e0 ; --------------------------------------------------------------------------------------
02e0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0x83a6,0x0000,0x0001,0x000a
02e6 000b 030e  |    |		.DBG4T	0x000b,0x030e,0x8000,0x0000
02ea 001c 0318  |    |		.DBG4T	0x001c,0x0318,0x8000,0x0000
02ee 003b 0323  | ; #|		.DBG4T	0x003b,0x0323,0x0001,0x4000
02f2 00cb 0346  |   F|		.DBG4T	0x00cb,0x0346,0x0001,0x4000
02f6 0143 0364  | C d|		.DBG4T	0x0143,0x0364,0x0001,0x4000
02fa 0193 0382  |    |		.DBG4T	0x0193,0x0382,0x0001,0x4000
02fe 01e3 03a0  |    |		.DBG4T	0x01e3,0x03a0,0x0001,0x4000
0302 022b 03be  | +  |		.DBG4T	0x022b,0x03be,0x0001,0x4000
0306 02a3 03dc  |    |		.DBG4T	0x02a3,0x03dc,0x0001,0x0000
030a 02c3 03e6  |    |		.DBG4T	0x02c3,0x03e6,0x0001,0x0000
030e ; --------------------------------------------------------------------------------------
030e ; Debug chain
030e ; --------------------------------------------------------------------------------------
030e 0008 0000  |    |		.DBGLEN	0x0008,0x0000
0310 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug chain
0318 ; --------------------------------------------------------------------------------------
0318 0009 0000  |    |		.DBGLEN	0x0009,0x0000
031a 001c 0021  |   !|		.DBGLNO	0x001c,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f
0323 ; --------------------------------------------------------------------------------------
0323 ; Debug chain
0323 ; --------------------------------------------------------------------------------------
0323 0003 000f  |    |		.DBGLEN	0x0003,0x000f
0325 003b 003c  | ; <|		.DBGLNO	0x003b,0x003c,0x003e,0x0040,0x0046,0x004b,0x004d,0x0050,0x0058,0x0064,0x0070,0x007c,0x0088,0x008f,0x009c,0x00a8,0x00b5,0x00c1
0337 0001 0002  |    |		.XXX[0xf]
0339 0003 0004  |    |
033b 0005 0006  |    |
033d 000d 000e  |    |
033f 000f 0007  |    |
0341 0009 000a  |    |
0343 000b 0008  |    |
0345 0011       |    |
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug chain
0346 ; --------------------------------------------------------------------------------------
0346 0002 000d  |    |		.DBGLEN	0x0002,0x000d
0348 00cb 00cc  |    |		.DBGLNO	0x00cb,0x00cc,0x00ce,0x00d4,0x00d9,0x00db,0x00e7,0x00f2,0x00fd,0x0108,0x010f,0x011b,0x0126,0x0132,0x013d
0357 0001 0002  |    |		.XXX[0xd]
0359 0003 0004  |    |
035b 000b 000c  |    |
035d 000d 0005  |    |
035f 0007 0008  |    |
0361 0009 0006  |    |
0363 000f       |    |
0364 ; --------------------------------------------------------------------------------------
0364 ; Debug chain
0364 ; --------------------------------------------------------------------------------------
0364 0004 000c  |    |		.DBGLEN	0x0004,0x000c
0366 0143 0145  | C E|		.DBGLNO	0x0143,0x0145,0x0147,0x0148,0x014a,0x0150,0x0155,0x0157,0x015d,0x0162,0x0164,0x0167,0x016a,0x0176,0x0181,0x018b
0376 0001 0002  |    |		.XXX[0xc]
0378 0003 0004  |    |
037a 0005 0006  |    |
037c 0007 0008  |    |
037e 0009 000b  |    |
0380 000a 000d  |    |
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug chain
0382 ; --------------------------------------------------------------------------------------
0382 0004 000c  |    |		.DBGLEN	0x0004,0x000c
0384 0193 0195  |    |		.DBGLNO	0x0193,0x0195,0x0197,0x0198,0x019a,0x01a0,0x01a5,0x01a7,0x01ad,0x01b2,0x01b4,0x01b7,0x01ba,0x01c6,0x01d1,0x01db
0394 0001 0002  |    |		.XXX[0xc]
0396 0003 0004  |    |
0398 0005 0006  |    |
039a 0007 0008  |    |
039c 0009 000b  |    |
039e 000a 000d  |    |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug chain
03a0 ; --------------------------------------------------------------------------------------
03a0 0004 000c  |    |		.DBGLEN	0x0004,0x000c
03a2 01e3 01e5  |    |		.DBGLNO	0x01e3,0x01e5,0x01e7,0x01e8,0x01ea,0x01f0,0x01f5,0x01f7,0x01fd,0x0202,0x0204,0x0207,0x020a,0x0216,0x021c,0x0221
03b2 0001 0002  |    |		.XXX[0xc]
03b4 0003 0004  |    |
03b6 0005 0006  |    |
03b8 0007 0008  |    |
03ba 0009 000b  |    |
03bc 000a 000d  |    |
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 0002 000d  |    |		.DBGLEN	0x0002,0x000d
03c0 022b 022c  | + ,|		.DBGLNO	0x022b,0x022c,0x022e,0x0234,0x0239,0x023b,0x0247,0x0252,0x025d,0x0268,0x026f,0x027b,0x0286,0x0292,0x029d
03cf 0001 0002  |    |		.XXX[0xd]
03d1 0003 0004  |    |
03d3 000b 000c  |    |
03d5 000d 0005  |    |
03d7 0007 0008  |    |
03d9 0009 0006  |    |
03db 000f       |    |
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug chain
03dc ; --------------------------------------------------------------------------------------
03dc 0002 0006  |    |		.DBGLEN	0x0002,0x0006
03de 02a3 02a4  |    |		.DBGLNO	0x02a3,0x02a4,0x02a6,0x02ac,0x02b1,0x02b3,0x02b7,0x02bc
03e6 ; --------------------------------------------------------------------------------------
03e6 ; Debug chain
03e6 ; --------------------------------------------------------------------------------------
03e6 0002 0005  |    |		.DBGLEN	0x0002,0x0005
03e8 02c3 02c4  |    |		.DBGLNO	0x02c3,0x02c4,0x02c6,0x02cc,0x02d1,0x02d3,0x02d6
03ef 0000 0000  |    |		.BLANK	0000[0x11]