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

⟦928ed032b⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0188       |    |		.CONST	0x0188								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0023       | #  |		.CONST	0x0023								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0009       |    |		.CONST	0x0009								; Number of locals
000b			INIT_0008:
000b e5fd       |    |		Load	0x2,-0x3
000c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
000d e28f       |    |		Load	0x1,0x8f
000e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
000f 00d8       |    |		Load_Top	At_Offset_0
0010 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0011 029e 0043  |   C|		Declare_Subprogram	INIT_0040,For_Call,Unelaborated
0013 4803       |H   |		Short_Literal	0x3
0014 4802       |H   |		Short_Literal	0x2
0015 0099       |    |		Action	Reference_Dynamic
0016 00c7       |    |		Action	Elaborate_Subprogram
0017 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
0019 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
001b 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
001d 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
001f 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0021 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
0023			BODY_0008:
0023 e5fd       |    |		Load	0x2,-0x3
0024 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0025 4606       |F   |		Jump_Case	0x7
0026 7808       |x   |		Jump	0x2f								; case 0x0
0027 7809       |x   |		Jump	0x31								; case 0x1
0028 780a       |x   |		Jump	0x33								; case 0x2
0029 780b       |x   |		Jump	0x35								; case 0x3
002a 780e       |x   |		Jump	0x39								; case 0x4
002b 780b       |x   |		Jump	0x37								; case 0x5
002c 7800       |x   |		Jump	0x2d								; case 0x6
002d 8409       |    |		Call	0x2,0x9
002e 780b       |x   |		Jump	0x3a
002f e290       |    |		Load	0x1,0x90
0030 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0031 8404       |    |		Call	0x2,0x4
0032 7807       |x   |		Jump	0x3a
0033 8405       |    |		Call	0x2,0x5
0034 7805       |x   |		Jump	0x3a
0035 8406       |    |		Call	0x2,0x6
0036 7803       |x   |		Jump	0x3a
0037 8407       |    |		Call	0x2,0x7
0038 7801       |x   |		Jump	0x3a
0039 8408       |    |		Call	0x2,0x8
003a e402       |    |		Load	0x2,0x2
003b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
003c 0000 0000  |    |		.BLANK	0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0052       | R  |		.CONST	0x0052								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0004       |    |		.CONST	0x0004								; Number of locals
0043			INIT_0040:
0043 e7fa       |    |		Load	0x3,-0x6
0044 0227       | '  |		Execute	Access,All_Reference
0045 01da       |    |		Execute	Vector,Bounds
0046 e7fd       |    |		Load	0x3,-0x3
0047 035b       | [  |		Declare_Type	Array,Constrained
0048 0337       | 7  |		Declare_Variable	Array
0049 00d8       |    |		Load_Top	At_Offset_0
004a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004b 00d8       |    |		Load_Top	At_Offset_0
004c 01dd       |    |		Execute	Vector,First
004d e7fc       |    |		Load	0x3,-0x4
004e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
004f 00d8       |    |		Load_Top	At_Offset_0
0050 e7fc       |    |		Load	0x3,-0x4
0051 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0052			BODY_0040:
0052 4800       |H   |		Short_Literal	0x0
0053 a7f8       |    |		Store_Unchecked	0x3,-0x8
0054 00cf       |    |		Action	Mark_Auxiliary
0055 e7fa       |    |		Load	0x3,-0x6
0056 0227       | '  |		Execute	Access,All_Reference
0057 01d9       |    |		Execute	Vector,Reverse_Bounds
0058 0263       | c  |		Execute	Discrete,Above_Bound
0059 7014       |p   |		Jump_Nonzero	0x6e
005a 00d8       |    |		Load_Top	At_Offset_0
005b e5fd       |    |		Load	0x2,-0x3
005c 822f       | /  |		Call	0x1,0x2f
005d 85fe       |    |		Call	0x2,-0x2
005e 700d       |p   |		Jump_Nonzero	0x6c
005f 00d8       |    |		Load_Top	At_Offset_0
0060 e7fa       |    |		Load	0x3,-0x6
0061 0227       | '  |		Execute	Access,All_Reference
0062 01d7       |    |		Execute	Vector,Field_Read
0063 e604       |    |		Load	0x3,0x4
0064 e602       |    |		Load	0x3,0x2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 00db       |    |		Load_Top	At_Offset_3
0067 0a01       |    |		Execute_Immediate	Plus,0x1
0068 c604       |    |		Store	0x3,0x4
0069 e7f8       |    |		Load	0x3,-0x8
006a 0a01       |    |		Execute_Immediate	Plus,0x1
006b c7f8       |    |		Store	0x3,-0x8
006c 00c8       |    |		Action	Pop_Auxiliary_Range
006d 3fec       |?   |		Loop_Increasing	0x5a
006e 00ce       |    |		Action	Pop_Auxiliary
006f 00d8       |    |		Load_Top	At_Offset_0
0070 00da       |    |		Load_Top	At_Offset_2
0071 027f       |    |		Execute	Discrete,Equal
0072 6810       |h   |		Jump_Zero	0x83
0073 00d9       |    |		Load_Top	At_Offset_1
0074 0a01       |    |		Execute_Immediate	Plus,0x1
0075 e7fc       |    |		Load	0x3,-0x4
0076 0122       | "  |		Execute	Any,Make_Root_Type
0077 00d9       |    |		Load_Top	At_Offset_1
0078 00d0       |    |		Action	Swap_Control
0079 0260       | `  |		Execute	Discrete,In_Type
007a 7001       |p   |		Jump_Nonzero	0x7c
007b 0801       |    |		Execute_Immediate	Raise,0x1
007c 00da       |    |		Load_Top	At_Offset_2
007d e602       |    |		Load	0x3,0x2
007e 01cf       |    |		Execute	Vector,Slice_Read
007f e7fe       |    |		Load	0x3,-0x2
0080 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0081 a7f9       |    |		Store_Unchecked	0x3,-0x7
0082 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0083 00d9       |    |		Load_Top	At_Offset_1
0084 00d9       |    |		Load_Top	At_Offset_1
0085 0aff       |    |		Execute_Immediate	Plus,-0x1
0086 e7fc       |    |		Load	0x3,-0x4
0087 0122       | "  |		Execute	Any,Make_Root_Type
0088 00d9       |    |		Load_Top	At_Offset_1
0089 00d0       |    |		Action	Swap_Control
008a 0260       | `  |		Execute	Discrete,In_Type
008b 7001       |p   |		Jump_Nonzero	0x8d
008c 0801       |    |		Execute_Immediate	Raise,0x1
008d e602       |    |		Load	0x3,0x2
008e 01cf       |    |		Execute	Vector,Slice_Read
008f e7fe       |    |		Load	0x3,-0x2
0090 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0091 a7f9       |    |		Store_Unchecked	0x3,-0x7
0092 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0093 0000 0000  |    |		.BLANK	0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a8       |    |		.CONST	0x00a8								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0008       |    |		.CONST	0x0008								; Number of locals
009b			INIT_0098:
009b 4803       |H   |		Short_Literal	0x3
009c 4802       |H   |		Short_Literal	0x2
009d 0099       |    |		Action	Reference_Dynamic
009e 00c6       |    |		Action	Check_Subprogram_Elaborated
009f e009       |    |		Load	0x0,0x9
00a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a1 e224       | $  |		Load	0x1,0x24
00a2 e24a       | J  |		Load	0x1,0x4a
00a3 e24b       | K  |		Load	0x1,0x4b
00a4 e045       | E  |		Load	0x0,0x45
00a5 e046       | F  |		Load	0x0,0x46
00a6 4808       |H   |		Short_Literal	0x8
00a7 0007       |    |		Action	Break_Optional
00a8			BODY_0098:
00a8 e402       |    |		Load	0x2,0x2
00a9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00aa e605       |    |		Load	0x3,0x5
00ab e402       |    |		Load	0x2,0x2
00ac 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00ad 00d1       |    |		Pop_Control	Pop_Count_1
00ae e5fd       |    |		Load	0x2,-0x3
00af 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00b0 e602       |    |		Load	0x3,0x2
00b1 e603       |    |		Load	0x3,0x3
00b2 e604       |    |		Load	0x3,0x4
00b3 e605       |    |		Load	0x3,0x5
00b4 4806       |H   |		Short_Literal	0x6
00b5 4803       |H   |		Short_Literal	0x3
00b6 0099       |    |		Action	Reference_Dynamic
00b7 8403       |    |		Call	0x2,0x3
00b8 e402       |    |		Load	0x2,0x2
00b9 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ba e402       |    |		Load	0x2,0x2
00bb 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00bc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d2       |    |		.CONST	0x00d2								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0008       |    |		.CONST	0x0008								; Number of locals
00c3			INIT_00c0:
00c3 4803       |H   |		Short_Literal	0x3
00c4 4802       |H   |		Short_Literal	0x2
00c5 0099       |    |		Action	Reference_Dynamic
00c6 00c6       |    |		Action	Check_Subprogram_Elaborated
00c7 e004       |    |		Load	0x0,0x4
00c8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00c9 e004       |    |		Load	0x0,0x4
00ca 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00cb e004       |    |		Load	0x0,0x4
00cc 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
00cd e24c       | L  |		Load	0x1,0x4c
00ce e047       | G  |		Load	0x0,0x47
00cf e048       | H  |		Load	0x0,0x48
00d0 4808       |H   |		Short_Literal	0x8
00d1 0007       |    |		Action	Break_Optional
00d2			BODY_00c0:
00d2 e402       |    |		Load	0x2,0x2
00d3 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00d4 e605       |    |		Load	0x3,0x5
00d5 e402       |    |		Load	0x2,0x2
00d6 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00d7 00d1       |    |		Pop_Control	Pop_Count_1
00d8 e5fd       |    |		Load	0x2,-0x3
00d9 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00da e602       |    |		Load	0x3,0x2
00db e603       |    |		Load	0x3,0x3
00dc e604       |    |		Load	0x3,0x4
00dd e605       |    |		Load	0x3,0x5
00de 4806       |H   |		Short_Literal	0x6
00df 4803       |H   |		Short_Literal	0x3
00e0 0099       |    |		Action	Reference_Dynamic
00e1 8403       |    |		Call	0x2,0x3
00e2 e402       |    |		Load	0x2,0x2
00e3 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00e4 e402       |    |		Load	0x2,0x2
00e5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e7 0000       |    |		.XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00fa       |    |		.CONST	0x00fa								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0008       |    |		.CONST	0x0008								; Number of locals
00eb			INIT_00e8:
00eb 4803       |H   |		Short_Literal	0x3
00ec 4802       |H   |		Short_Literal	0x2
00ed 0099       |    |		Action	Reference_Dynamic
00ee 00c6       |    |		Action	Check_Subprogram_Elaborated
00ef e005       |    |		Load	0x0,0x5
00f0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00f1 e005       |    |		Load	0x0,0x5
00f2 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00f3 e005       |    |		Load	0x0,0x5
00f4 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00f5 e24d       | M  |		Load	0x1,0x4d
00f6 e049       | I  |		Load	0x0,0x49
00f7 e04a       | J  |		Load	0x0,0x4a
00f8 4808       |H   |		Short_Literal	0x8
00f9 0007       |    |		Action	Break_Optional
00fa			BODY_00e8:
00fa e402       |    |		Load	0x2,0x2
00fb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00fc e605       |    |		Load	0x3,0x5
00fd e402       |    |		Load	0x2,0x2
00fe 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
00ff 00d1       |    |		Pop_Control	Pop_Count_1
0100 e5fd       |    |		Load	0x2,-0x3
0101 2e05       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0102 e602       |    |		Load	0x3,0x2
0103 e603       |    |		Load	0x3,0x3
0104 e604       |    |		Load	0x3,0x4
0105 e605       |    |		Load	0x3,0x5
0106 4806       |H   |		Short_Literal	0x6
0107 4803       |H   |		Short_Literal	0x3
0108 0099       |    |		Action	Reference_Dynamic
0109 8403       |    |		Call	0x2,0x3
010a e402       |    |		Load	0x2,0x2
010b 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
010c e402       |    |		Load	0x2,0x2
010d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
010e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0122       | "  |		.CONST	0x0122								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0008       |    |		.CONST	0x0008								; Number of locals
0113			INIT_0110:
0113 4803       |H   |		Short_Literal	0x3
0114 4802       |H   |		Short_Literal	0x2
0115 0099       |    |		Action	Reference_Dynamic
0116 00c6       |    |		Action	Check_Subprogram_Elaborated
0117 e007       |    |		Load	0x0,0x7
0118 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0119 e007       |    |		Load	0x0,0x7
011a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
011b e007       |    |		Load	0x0,0x7
011c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
011d e24e       | N  |		Load	0x1,0x4e
011e e04b       | K  |		Load	0x0,0x4b
011f e04c       | L  |		Load	0x0,0x4c
0120 4808       |H   |		Short_Literal	0x8
0121 0007       |    |		Action	Break_Optional
0122			BODY_0110:
0122 e402       |    |		Load	0x2,0x2
0123 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0124 e605       |    |		Load	0x3,0x5
0125 e402       |    |		Load	0x2,0x2
0126 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0127 00d1       |    |		Pop_Control	Pop_Count_1
0128 e5fd       |    |		Load	0x2,-0x3
0129 2e06       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
012a e602       |    |		Load	0x3,0x2
012b e603       |    |		Load	0x3,0x3
012c e604       |    |		Load	0x3,0x4
012d e605       |    |		Load	0x3,0x5
012e 4806       |H   |		Short_Literal	0x6
012f 4803       |H   |		Short_Literal	0x3
0130 0099       |    |		Action	Reference_Dynamic
0131 8403       |    |		Call	0x2,0x3
0132 e402       |    |		Load	0x2,0x2
0133 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0134 e402       |    |		Load	0x2,0x2
0135 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0136 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014a       | J  |		.CONST	0x014a								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0008       |    |		.CONST	0x0008								; Number of locals
013b			INIT_0138:
013b 4803       |H   |		Short_Literal	0x3
013c 4802       |H   |		Short_Literal	0x2
013d 0099       |    |		Action	Reference_Dynamic
013e 00c6       |    |		Action	Check_Subprogram_Elaborated
013f e006       |    |		Load	0x0,0x6
0140 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0141 e006       |    |		Load	0x0,0x6
0142 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0143 e006       |    |		Load	0x0,0x6
0144 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0145 e24f       | O  |		Load	0x1,0x4f
0146 e04d       | M  |		Load	0x0,0x4d
0147 e04e       | N  |		Load	0x0,0x4e
0148 4808       |H   |		Short_Literal	0x8
0149 0007       |    |		Action	Break_Optional
014a			BODY_0138:
014a e402       |    |		Load	0x2,0x2
014b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014c e605       |    |		Load	0x3,0x5
014d e402       |    |		Load	0x2,0x2
014e 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
014f 00d1       |    |		Pop_Control	Pop_Count_1
0150 e5fd       |    |		Load	0x2,-0x3
0151 2e07       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0152 e602       |    |		Load	0x3,0x2
0153 e603       |    |		Load	0x3,0x3
0154 e604       |    |		Load	0x3,0x4
0155 e605       |    |		Load	0x3,0x5
0156 4806       |H   |		Short_Literal	0x6
0157 4803       |H   |		Short_Literal	0x3
0158 0099       |    |		Action	Reference_Dynamic
0159 8403       |    |		Call	0x2,0x3
015a e402       |    |		Load	0x2,0x2
015b 2a07       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
015c e402       |    |		Load	0x2,0x2
015d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
015e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
015f 0000       |    |		.XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0172       | r  |		.CONST	0x0172								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0008       |    |		.CONST	0x0008								; Number of locals
0163			INIT_0160:
0163 4803       |H   |		Short_Literal	0x3
0164 4802       |H   |		Short_Literal	0x2
0165 0099       |    |		Action	Reference_Dynamic
0166 00c6       |    |		Action	Check_Subprogram_Elaborated
0167 e008       |    |		Load	0x0,0x8
0168 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0169 e008       |    |		Load	0x0,0x8
016a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
016b e008       |    |		Load	0x0,0x8
016c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
016d e250       | P  |		Load	0x1,0x50
016e e04f       | O  |		Load	0x0,0x4f
016f e050       | P  |		Load	0x0,0x50
0170 4808       |H   |		Short_Literal	0x8
0171 0007       |    |		Action	Break_Optional
0172			BODY_0160:
0172 e402       |    |		Load	0x2,0x2
0173 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0174 e605       |    |		Load	0x3,0x5
0175 e402       |    |		Load	0x2,0x2
0176 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0177 00d1       |    |		Pop_Control	Pop_Count_1
0178 e5fd       |    |		Load	0x2,-0x3
0179 2e08       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
017a e602       |    |		Load	0x3,0x2
017b e603       |    |		Load	0x3,0x3
017c e604       |    |		Load	0x3,0x4
017d e605       |    |		Load	0x3,0x5
017e 4806       |H   |		Short_Literal	0x6
017f 4803       |H   |		Short_Literal	0x3
0180 0099       |    |		Action	Reference_Dynamic
0181 8403       |    |		Call	0x2,0x3
0182 e402       |    |		Load	0x2,0x2
0183 2a08       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0184 e402       |    |		Load	0x2,0x2
0185 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0186 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0187 0000       |    |		.XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xfc70,0x0000,0x0001,0x0000
018e 0000 0000  |    |		.BLANK	0000[0x72]