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

⟦50bc655d5⟧

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

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 0190       |    |		.CONST	0x0190								; 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 0039       | 9  |		.CONST	0x0039								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000d e001       |    |		Load	0x0,0x1
000e e002       |    |		Load	0x0,0x2
000f 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0010 e003       |    |		Load	0x0,0x3
0011 0386       |    |		Declare_Variable	Package,Visible
0012 00d8       |    |		Load_Top	At_Offset_0
0013 020f       |    |		Execute	Module,Activate
0014 603b       |`;  |		Indirect_Literal	Discrete,0x50,{0x00000000, 0x7fffffff}
0015 e004       |    |		Load	0x0,0x4
0016 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0017 e004       |    |		Load	0x0,0x4
0018 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0019 00db       |    |		Load_Top	At_Offset_3
001a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
001b 00d9       |    |		Load_Top	At_Offset_1
001c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
001d 011e       |    |		Execute	Any,Convert
001e 0129       | )  |		Execute	Any,Make_Visible
001f 00d9       |    |		Load_Top	At_Offset_1
0020 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
0021 0129       | )  |		Execute	Any,Make_Visible
0022 00bf       |    |		Action	Accept_Activation
0023 029d 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call
0025 e005       |    |		Load	0x0,0x5
0026 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0027 00c6       |    |		Action	Check_Subprogram_Elaborated
0028 482d       |H-  |		Short_Literal	0x2d
0029 e006       |    |		Load	0x0,0x6
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b 0322       | "  |		Declare_Variable	Record
002c 4800       |H   |		Short_Literal	0x0
002d 00d9       |    |		Load_Top	At_Offset_1
002e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
002f 601c       |`   |		Indirect_Literal	Discrete,0x4c,{0x00000000, 0x00007fff}
0030 00d9       |    |		Load_Top	At_Offset_1
0031 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0032 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0033 e007       |    |		Load	0x0,0x7
0034 e008       |    |		Load	0x0,0x8
0035 4800       |H   |		Short_Literal	0x0
0036 0007       |    |		Action	Break_Optional
0037 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0038 00c7       |    |		Action	Elaborate_Subprogram
0039			BODY_0008:
0039 00bc       |    |		Action	Signal_Activated
003a 00bb       |    |		Action	Signal_Completion
003b 0000 0000  |    |		.BLANK	0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 00da       |    |		Load_Top	At_Offset_2
0044 e212       |    |		Load	0x1,0x12
0045 e213       |    |		Load	0x1,0x13
0046 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0047 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0048 e005       |    |		Load	0x0,0x5
0049 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
004a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
004b 0000       |    |		.XXX[0x1]
004c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00007fff}
0050 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0054 0000 0000  |    |		.BLANK	0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0069       | i  |		.CONST	0x0069								; Address of begin
0059 0089       |    |		.CONST	0x0089								; Address of exception handler
005a 0008       |    |		.CONST	0x0008								; Number of locals
005b			INIT_0058:
005b 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
005d 029f 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Call
005f 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0061 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0063 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0065 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
0067 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
0069			BODY_0058:
0069 e5fc       |    |		Load	0x2,-0x4
006a 00d8       |    |		Load_Top	At_Offset_0
006b 4800       |H   |		Short_Literal	0x0
006c 4806       |H   |		Short_Literal	0x6
006d 0262       | b  |		Execute	Discrete,In_Range
006e 6816       |h   |		Jump_Zero	0x85
006f 4606       |F   |		Jump_Case	0x7
0070 7808       |x   |		Jump	0x79								; case 0x0
0071 7809       |x   |		Jump	0x7b								; case 0x1
0072 780a       |x   |		Jump	0x7d								; case 0x2
0073 780b       |x   |		Jump	0x7f								; case 0x3
0074 780c       |x   |		Jump	0x81								; case 0x4
0075 780d       |x   |		Jump	0x83								; case 0x5
0076 7800       |x   |		Jump	0x77								; case 0x6
0077 8408       |    |		Call	0x2,0x8
0078 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0079 8402       |    |		Call	0x2,0x2
007a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
007b 8403       |    |		Call	0x2,0x3
007c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
007d 8404       |    |		Call	0x2,0x4
007e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
007f 8405       |    |		Call	0x2,0x5
0080 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0081 8406       |    |		Call	0x2,0x6
0082 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0083 8407       |    |		Call	0x2,0x7
0084 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0085 00d1       |    |		Pop_Control	Pop_Count_1
0086 e006       |    |		Load	0x0,0x6
0087 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0088 0257       | W  |		Execute	Discrete,Raise
0089			TRAP_0058:
0089 e009       |    |		Load	0x0,0x9
008a 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
008b 010f       |    |		Execute	Exception,Equal
008c 6806       |h   |		Jump_Zero	0x93
008d 4801       |H   |		Short_Literal	0x1
008e e5fe       |    |		Load	0x2,-0x2
008f e5ff       |    |		Load	0x2,-0x1
0090 e005       |    |		Load	0x0,0x5
0091 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0092 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0093 e009       |    |		Load	0x0,0x9
0094 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0095 010f       |    |		Execute	Exception,Equal
0096 6806       |h   |		Jump_Zero	0x9d
0097 4802       |H   |		Short_Literal	0x2
0098 e5fe       |    |		Load	0x2,-0x2
0099 e5ff       |    |		Load	0x2,-0x1
009a e005       |    |		Load	0x0,0x5
009b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
009c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
009d 0100       |    |		Execute	Exception,Raise
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a8       |    |		.CONST	0x00a8								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0004       |    |		.CONST	0x0004								; Number of locals
00a3			INIT_00a0:
00a3 00e6       |    |		Load_Encached	Float_Cache
00a4 03d8       |    |		Declare_Variable	Float,Duplicate
00a5 e004       |    |		Load	0x0,0x4
00a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00a7 0322       | "  |		Declare_Variable	Record
00a8			BODY_00a0:
00a8 e00a       |    |		Load	0x0,0xa
00a9 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00aa e5ff       |    |		Load	0x2,-0x1
00ab e00b       |    |		Load	0x0,0xb
00ac 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00ad 004b       | K  |		Store_Top	Float,At_Offset_3
00ae e00a       |    |		Load	0x0,0xa
00af 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 e00b       |    |		Load	0x0,0xb
00b2 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00b3 004a       | J  |		Store_Top	Float,At_Offset_2
00b4 00d9       |    |		Load_Top	At_Offset_1
00b5 00db       |    |		Load_Top	At_Offset_3
00b6 e009       |    |		Load	0x0,0x9
00b7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 017d       | }  |		Execute	Record,Structure_Write
00ba e5fe       |    |		Load	0x2,-0x2
00bb e5ff       |    |		Load	0x2,-0x1
00bc e005       |    |		Load	0x0,0x5
00bd 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00be 00d8       |    |		Load_Top	At_Offset_0
00bf e5ff       |    |		Load	0x2,-0x1
00c0 e00c       |    |		Load	0x0,0xc
00c1 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c3 0000 0000  |    |		.BLANK	0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf       |    |		.CONST	0x00cf								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0003       |    |		.CONST	0x0003								; Number of locals
00cb			INIT_00c8:
00cb e004       |    |		Load	0x0,0x4
00cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00cd 0322       | "  |		Declare_Variable	Record
00ce 00e6       |    |		Load_Encached	Float_Cache
00cf			BODY_00c8:
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 e00c       |    |		Load	0x0,0xc
00d2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00d3 00d1       |    |		Pop_Control	Pop_Count_1
00d4 00d9       |    |		Load_Top	At_Offset_1
00d5 e009       |    |		Load	0x0,0x9
00d6 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00d7 0041       | A  |		Store_Top_Unchecked	Float,At_Offset_1
00d8 e5fe       |    |		Load	0x2,-0x2
00d9 e5ff       |    |		Load	0x2,-0x1
00da e005       |    |		Load	0x0,0x5
00db 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00dc 00d8       |    |		Load_Top	At_Offset_0
00dd 00d8       |    |		Load_Top	At_Offset_0
00de e00a       |    |		Load	0x0,0xa
00df 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00e0 0234       | 4  |		Execute	Float,In_Type
00e1 7001       |p   |		Jump_Nonzero	0xe3
00e2 0801       |    |		Execute_Immediate	Raise,0x1
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 e00b       |    |		Load	0x0,0xb
00e5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e7 0000       |    |		.XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ef       |    |		.CONST	0x00ef								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0003       |    |		.CONST	0x0003								; Number of locals
00eb			INIT_00e8:
00eb e004       |    |		Load	0x0,0x4
00ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ed 0322       | "  |		Declare_Variable	Record
00ee 00e6       |    |		Load_Encached	Float_Cache
00ef			BODY_00e8:
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 e5ff       |    |		Load	0x2,-0x1
00f1 e00c       |    |		Load	0x0,0xc
00f2 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f3 00d1       |    |		Pop_Control	Pop_Count_1
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 e009       |    |		Load	0x0,0x9
00f6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00f7 0041       | A  |		Store_Top_Unchecked	Float,At_Offset_1
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 e5ff       |    |		Load	0x2,-0x1
00fa e005       |    |		Load	0x0,0x5
00fb 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00fc 00d8       |    |		Load_Top	At_Offset_0
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe e00a       |    |		Load	0x0,0xa
00ff 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0100 0234       | 4  |		Execute	Float,In_Type
0101 7001       |p   |		Jump_Nonzero	0x103
0102 0801       |    |		Execute_Immediate	Raise,0x1
0103 e5ff       |    |		Load	0x2,-0x1
0104 e00b       |    |		Load	0x0,0xb
0105 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0106 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0107 0000       |    |		.XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0113       |    |		.CONST	0x0113								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0004       |    |		.CONST	0x0004								; Number of locals
010b			INIT_0108:
010b e004       |    |		Load	0x0,0x4
010c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010d 0322       | "  |		Declare_Variable	Record
010e 00d8       |    |		Load_Top	At_Offset_0
010f 0322       | "  |		Declare_Variable	Record
0110 e004       |    |		Load	0x0,0x4
0111 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0112 0322       | "  |		Declare_Variable	Record
0113			BODY_0108:
0113 00da       |    |		Load_Top	At_Offset_2
0114 e5ff       |    |		Load	0x2,-0x1
0115 e00c       |    |		Load	0x0,0xc
0116 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0117 00d1       |    |		Pop_Control	Pop_Count_1
0118 00d9       |    |		Load_Top	At_Offset_1
0119 e5ff       |    |		Load	0x2,-0x1
011a e00c       |    |		Load	0x0,0xc
011b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
011c 00d1       |    |		Pop_Control	Pop_Count_1
011d 00d9       |    |		Load_Top	At_Offset_1
011e 00db       |    |		Load_Top	At_Offset_3
011f e009       |    |		Load	0x0,0x9
0120 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0121 00d9       |    |		Load_Top	At_Offset_1
0122 017d       | }  |		Execute	Record,Structure_Write
0123 e5fe       |    |		Load	0x2,-0x2
0124 e5ff       |    |		Load	0x2,-0x1
0125 e005       |    |		Load	0x0,0x5
0126 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0127 00d8       |    |		Load_Top	At_Offset_0
0128 e5ff       |    |		Load	0x2,-0x1
0129 e00c       |    |		Load	0x0,0xc
012a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
012b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012c 0000 0000  |    |		.BLANK	0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013b       | ;  |		.CONST	0x013b								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0004       |    |		.CONST	0x0004								; Number of locals
0133			INIT_0130:
0133 e004       |    |		Load	0x0,0x4
0134 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0135 0322       | "  |		Declare_Variable	Record
0136 00d8       |    |		Load_Top	At_Offset_0
0137 0322       | "  |		Declare_Variable	Record
0138 e004       |    |		Load	0x0,0x4
0139 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013a 0322       | "  |		Declare_Variable	Record
013b			BODY_0130:
013b 00da       |    |		Load_Top	At_Offset_2
013c e5ff       |    |		Load	0x2,-0x1
013d e00c       |    |		Load	0x0,0xc
013e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
013f 00d1       |    |		Pop_Control	Pop_Count_1
0140 00d9       |    |		Load_Top	At_Offset_1
0141 e5ff       |    |		Load	0x2,-0x1
0142 e00c       |    |		Load	0x0,0xc
0143 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0144 00d1       |    |		Pop_Control	Pop_Count_1
0145 00d9       |    |		Load_Top	At_Offset_1
0146 00db       |    |		Load_Top	At_Offset_3
0147 e009       |    |		Load	0x0,0x9
0148 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0149 00d9       |    |		Load_Top	At_Offset_1
014a 017d       | }  |		Execute	Record,Structure_Write
014b e5fe       |    |		Load	0x2,-0x2
014c e5ff       |    |		Load	0x2,-0x1
014d e005       |    |		Load	0x0,0x5
014e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
014f 00d8       |    |		Load_Top	At_Offset_0
0150 e5ff       |    |		Load	0x2,-0x1
0151 e00c       |    |		Load	0x0,0xc
0152 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0153 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0160       | `  |		.CONST	0x0160								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0003       |    |		.CONST	0x0003								; Number of locals
015b			INIT_0158:
015b e004       |    |		Load	0x0,0x4
015c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015d 0322       | "  |		Declare_Variable	Record
015e 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0160			BODY_0158:
0160 00d9       |    |		Load_Top	At_Offset_1
0161 e5ff       |    |		Load	0x2,-0x1
0162 e00c       |    |		Load	0x0,0xc
0163 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0164 00d1       |    |		Pop_Control	Pop_Count_1
0165 8603       |    |		Call	0x3,0x3
0166 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0171       | q  |		.CONST	0x0171								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0003       |    |		.CONST	0x0003								; Number of locals
016b			INIT_0168:
016b e5ff       |    |		Load	0x2,-0x1
016c e00b       |    |		Load	0x0,0xb
016d 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
016e e004       |    |		Load	0x0,0x4
016f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0170 0322       | "  |		Declare_Variable	Record
0171			BODY_0168:
0171 00d9       |    |		Load_Top	At_Offset_1
0172 e009       |    |		Load	0x0,0x9
0173 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0174 00d9       |    |		Load_Top	At_Offset_1
0175 017d       | }  |		Execute	Record,Structure_Write
0176 e5fe       |    |		Load	0x2,-0x2
0177 e5ff       |    |		Load	0x2,-0x1
0178 e005       |    |		Load	0x0,0x5
0179 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
017a 00d8       |    |		Load_Top	At_Offset_0
017b e5ff       |    |		Load	0x2,-0x1
017c e00c       |    |		Load	0x0,0xc
017d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
017e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017f 0000       |    |		.XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0186       |    |		.CONST	0x0186								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 e602       |    |		Load	0x3,0x2
0184 e009       |    |		Load	0x0,0x9
0185 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0186			BODY_0180:
0186 e5fe       |    |		Load	0x2,-0x2
0187 e5ff       |    |		Load	0x2,-0x1
0188 e005       |    |		Load	0x0,0x5
0189 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
018a 00d8       |    |		Load_Top	At_Offset_0
018b e5ff       |    |		Load	0x2,-0x1
018c e00b       |    |		Load	0x0,0xb
018d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
018e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018f 0000       |    |		.XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x7435,0x0000,0x0001,0x000c
0196 000b 01c6  |    |		.DBG4T	0x000b,0x01c6,0x8000,0x0000
019a 0023 01cc  | #  |		.DBG4T	0x0023,0x01cc,0x8000,0x0000
019e 0043 01d1  | C  |		.DBG4T	0x0043,0x01d1,0x0001,0x0000
01a2 005b 01d4  | [  |		.DBG4T	0x005b,0x01d4,0x0001,0x4000
01a6 00a3 01ec  |    |		.DBG4T	0x00a3,0x01ec,0x0004,0x0000
01aa 00cb 01f5  |    |		.DBG4T	0x00cb,0x01f5,0x0004,0x0000
01ae 00eb 01fd  |    |		.DBG4T	0x00eb,0x01fd,0x0004,0x0000
01b2 010b 0205  |    |		.DBG4T	0x010b,0x0205,0x0004,0x0000
01b6 0133 020e  | 3  |		.DBG4T	0x0133,0x020e,0x0004,0x0000
01ba 015b 0217  | [  |		.DBG4T	0x015b,0x0217,0x0004,0x0000
01be 016b 021c  | k  |		.DBG4T	0x016b,0x021c,0x0004,0x0000
01c2 0183 0223  |   #|		.DBG4T	0x0183,0x0223,0x0004,0x0000
01c6 ; --------------------------------------------------------------------------------------
01c6 ; Debug chain
01c6 ; --------------------------------------------------------------------------------------
01c6 0004 0000  |    |		.DBGLEN	0x0004,0x0000
01c8 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x0014,0x001f
01cc ; --------------------------------------------------------------------------------------
01cc ; Debug chain
01cc ; --------------------------------------------------------------------------------------
01cc 0003 0000  |    |		.DBGLEN	0x0003,0x0000
01ce 0023 0025  | # %|		.DBGLNO	0x0023,0x0025,0x0037
01d1 ; --------------------------------------------------------------------------------------
01d1 ; Debug chain
01d1 ; --------------------------------------------------------------------------------------
01d1 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01d3 0043       | C  |		.DBGLNO	0x0043
01d4 ; --------------------------------------------------------------------------------------
01d4 ; Debug chain
01d4 ; --------------------------------------------------------------------------------------
01d4 0000 000b  |    |		.DBGLEN	0x0000,0x000b
01d6 0069 0077  | i w|		.DBGLNO	0x0069,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0086,0x008d,0x0097
01e1 0001 0008  |    |		.XXX[0xb]
01e3 0002 0003  |    |
01e5 0004 0005  |    |
01e7 0006 0007  |    |
01e9 0009 000a  |    |
01eb 000b       |    |
01ec ; --------------------------------------------------------------------------------------
01ec ; Debug chain
01ec ; --------------------------------------------------------------------------------------
01ec 0002 0005  |    |		.DBGLEN	0x0002,0x0005
01ee 00a3 00a5  |    |		.DBGLNO	0x00a3,0x00a5,0x00a8,0x00ae,0x00b4,0x00ba,0x00be
01f5 ; --------------------------------------------------------------------------------------
01f5 ; Debug chain
01f5 ; --------------------------------------------------------------------------------------
01f5 0002 0004  |    |		.DBGLEN	0x0002,0x0004
01f7 00cb 00ce  |    |		.DBGLNO	0x00cb,0x00ce,0x00cf,0x00d4,0x00d8,0x00dc
01fd ; --------------------------------------------------------------------------------------
01fd ; Debug chain
01fd ; --------------------------------------------------------------------------------------
01fd 0002 0004  |    |		.DBGLEN	0x0002,0x0004
01ff 00eb 00ee  |    |		.DBGLNO	0x00eb,0x00ee,0x00ef,0x00f4,0x00f8,0x00fc
0205 ; --------------------------------------------------------------------------------------
0205 ; Debug chain
0205 ; --------------------------------------------------------------------------------------
0205 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0207 010b 0110  |    |		.DBGLNO	0x010b,0x0110,0x0113,0x0118,0x011d,0x0123,0x0127
020e ; --------------------------------------------------------------------------------------
020e ; Debug chain
020e ; --------------------------------------------------------------------------------------
020e 0002 0005  |    |		.DBGLEN	0x0002,0x0005
0210 0133 0138  | 3 8|		.DBGLNO	0x0133,0x0138,0x013b,0x0140,0x0145,0x014b,0x014f
0217 ; --------------------------------------------------------------------------------------
0217 ; Debug chain
0217 ; --------------------------------------------------------------------------------------
0217 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0219 015b 0160  | [ `|		.DBGLNO	0x015b,0x0160,0x0165
021c ; --------------------------------------------------------------------------------------
021c ; Debug chain
021c ; --------------------------------------------------------------------------------------
021c 0002 0003  |    |		.DBGLEN	0x0002,0x0003
021e 016b 016e  | k n|		.DBGLNO	0x016b,0x016e,0x0171,0x0176,0x017a
0223 ; --------------------------------------------------------------------------------------
0223 ; Debug chain
0223 ; --------------------------------------------------------------------------------------
0223 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0225 0183 0186  |    |		.DBGLNO	0x0183,0x0186,0x018a
0228 0000 0000  |    |		.BLANK	0000[0x1d8]