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

⟦7bda0bdc8⟧

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

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 01c8       |    |		.CONST	0x01c8								; 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 0014       |    |		.CONST	0x0014								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0011 00c7       |    |		Action	Elaborate_Subprogram
0012 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0013 00c7       |    |		Action	Elaborate_Subprogram
0014			BODY_0008:
0014 00bc       |    |		Action	Signal_Activated
0015 00bb       |    |		Action	Signal_Completion
0016 0000 0000  |    |		.XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001b       |    |		.CONST	0x001b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
001d 00ca       |    |		Action	Exit_Nullary_Function
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0075       | u  |		.CONST	0x0075								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0017       |    |		.CONST	0x0017								; Number of locals
0023			INIT_0020:
0023 e002       |    |		Load	0x0,0x2
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 02c7       |    |		Declare_Variable	Any
0026 e002       |    |		Load	0x0,0x2
0027 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0028 a402       |    |		Store_Unchecked	0x2,0x2
0029 e002       |    |		Load	0x0,0x2
002a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002b 02c7       |    |		Declare_Variable	Any
002c 00d8       |    |		Load_Top	At_Offset_0
002d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002e e5f8       |    |		Load	0x2,-0x8
002f 0266       | f  |		Execute	Discrete,Bounds
0030 00e2       |    |		Load_Encached	Integer_Cache
0031 02a0       |    |		Declare_Subprogram	Null_Subprogram
0032 4801       |H   |		Short_Literal	0x1
0033 035d       | ]  |		Declare_Type	Array,Defined
0034 00d8       |    |		Load_Top	At_Offset_0
0035 0337       | 7  |		Declare_Variable	Array
0036 e003       |    |		Load	0x0,0x3
0037 e004       |    |		Load	0x0,0x4
0038 00da       |    |		Load_Top	At_Offset_2
0039 01db       |    |		Execute	Vector,Length
003a 00d8       |    |		Load_Top	At_Offset_0
003b 00e4       |    |		Load_Encached	Positive_Cache
003c 0260       | `  |		Execute	Discrete,In_Type
003d 7001       |p   |		Jump_Nonzero	0x3f
003e 0801       |    |		Execute_Immediate	Raise,0x1
003f 0092 0189  |    |		Action	Push_String_Extended,0x189					; " "
0041 e005       |    |		Load	0x0,0x5
0042 0387       |    |		Declare_Variable	Package
0043 00d8       |    |		Load_Top	At_Offset_0
0044 020f       |    |		Execute	Module,Activate
0045 4801       |H   |		Short_Literal	0x1
0046 e5f8       |    |		Load	0x2,-0x8
0047 0269       | i  |		Execute	Discrete,Last
0048 0a01       |    |		Execute_Immediate	Plus,0x1
0049 00d8       |    |		Load_Top	At_Offset_0
004a 00e2       |    |		Load_Encached	Integer_Cache
004b 0260       | `  |		Execute	Discrete,In_Type
004c 7001       |p   |		Jump_Nonzero	0x4e
004d 0801       |    |		Execute_Immediate	Raise,0x1
004e 00da       |    |		Load_Top	At_Offset_2
004f 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0050 035b       | [  |		Declare_Type	Array,Constrained
0051 0337       | 7  |		Declare_Variable	Array
0052 00e1       |    |		Load_Encached	Boolean_Cache
0053 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0054 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
0056 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
0058 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
005a e001       |    |		Load	0x0,0x1
005b 1928       | (  |		Execute	Package,Field_Reference,Field_Number 0x28
005c 00c6       |    |		Action	Check_Subprogram_Elaborated
005d 00e1       |    |		Load_Encached	Boolean_Cache
005e 480a       |H   |		Short_Literal	0xa
005f 4802       |H   |		Short_Literal	0x2
0060 0099       |    |		Action	Reference_Dynamic
0061 480b       |H   |		Short_Literal	0xb
0062 4802       |H   |		Short_Literal	0x2
0063 0099       |    |		Action	Reference_Dynamic
0064 e006       |    |		Load	0x0,0x6
0065 e007       |    |		Load	0x0,0x7
0066 4811       |H   |		Short_Literal	0x11
0067 0007       |    |		Action	Break_Optional
0068 029f 014b  |   K|		Declare_Subprogram	INIT_0148,For_Call
006a 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
006c a008       |    |		Store_Unchecked	0x0,0x8
006d 00c6       |    |		Action	Check_Subprogram_Elaborated
006e 4813       |H   |		Short_Literal	0x13
006f 4802       |H   |		Short_Literal	0x2
0070 0099       |    |		Action	Reference_Dynamic
0071 e009       |    |		Load	0x0,0x9
0072 e00a       |    |		Load	0x0,0xa
0073 4817       |H   |		Short_Literal	0x17
0074 0007       |    |		Action	Break_Optional
0075			BODY_0020:
0075 e5f6       |    |		Load	0x2,-0xa
0076 e002       |    |		Load	0x0,0x2
0077 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0078 c403       |    |		Store	0x2,0x3
0079 e403       |    |		Load	0x2,0x3
007a e002       |    |		Load	0x0,0x2
007b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
007c 00cf       |    |		Action	Mark_Auxiliary
007d e5f8       |    |		Load	0x2,-0x8
007e 0265       | e  |		Execute	Discrete,Reverse_Bounds
007f 0263       | c  |		Execute	Discrete,Above_Bound
0080 7017       |p   |		Jump_Nonzero	0x98
0081 00d8       |    |		Load_Top	At_Offset_0
0082 0a01       |    |		Execute_Immediate	Plus,0x1
0083 00d9       |    |		Load_Top	At_Offset_1
0084 0a01       |    |		Execute_Immediate	Plus,0x1
0085 e407       |    |		Load	0x2,0x7
0086 01d6       |    |		Execute	Vector,Field_Write
0087 00d8       |    |		Load_Top	At_Offset_0
0088 00d8       |    |		Load_Top	At_Offset_0
0089 e5f8       |    |		Load	0x2,-0x8
008a 0260       | `  |		Execute	Discrete,In_Type
008b 7001       |p   |		Jump_Nonzero	0x8d
008c 0801       |    |		Execute_Immediate	Raise,0x1
008d 85f9       |    |		Call	0x2,-0x7
008e 4800       |H   |		Short_Literal	0x0
008f 00da       |    |		Load_Top	At_Offset_2
0090 e5f8       |    |		Load	0x2,-0x8
0091 0122       | "  |		Execute	Any,Make_Root_Type
0092 011c       |    |		Execute	Any,Convert_Unchecked
0093 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0094 e406       |    |		Load	0x2,0x6
0095 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0096 00c8       |    |		Action	Pop_Auxiliary_Range
0097 3fe9       |?   |		Loop_Increasing	0x81
0098 00ce       |    |		Action	Pop_Auxiliary
0099 0092 018a  |    |		Action	Push_String_Extended,0x18a					; "Traversing units..."
009b e00b       |    |		Load	0x0,0xb
009c 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
009d e5f5       |    |		Load	0x2,-0xb
009e 4814       |H   |		Short_Literal	0x14
009f 4802       |H   |		Short_Literal	0x2
00a0 0099       |    |		Action	Reference_Dynamic
00a1 4815       |H   |		Short_Literal	0x15
00a2 4802       |H   |		Short_Literal	0x2
00a3 0099       |    |		Action	Reference_Dynamic
00a4 8008       |    |		Call	0x0,0x8
00a5 c5f5       |    |		Store	0x2,-0xb
00a6 85fe       |    |		Call	0x2,-0x2
00a7 8412       |    |		Call	0x2,0x12
00a8 0092 018b  |    |		Action	Push_String_Extended,0x18b					; "Building abstract_document..."
00aa e00b       |    |		Load	0x0,0xb
00ab 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
00ac e407       |    |		Load	0x2,0x7
00ad e406       |    |		Load	0x2,0x6
00ae 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00af e5f4       |    |		Load	0x2,-0xc
00b0 e5fd       |    |		Load	0x2,-0x3
00b1 e406       |    |		Load	0x2,0x6
00b2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00b3 c5f4       |    |		Store	0x2,-0xc
00b4 e402       |    |		Load	0x2,0x2
00b5 e002       |    |		Load	0x0,0x2
00b6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00b7 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c5       |    |		.CONST	0x00c5								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb e001       |    |		Load	0x0,0x1
00bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00bd 02c7       |    |		Declare_Variable	Any
00be 00d8       |    |		Load_Top	At_Offset_0
00bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c0 e001       |    |		Load	0x0,0x1
00c1 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00c2 02c7       |    |		Declare_Variable	Any
00c3 00d8       |    |		Load_Top	At_Offset_0
00c4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c5			BODY_00b8:
00c5 00cf       |    |		Action	Mark_Auxiliary
00c6 e5f8       |    |		Load	0x2,-0x8
00c7 0265       | e  |		Execute	Discrete,Reverse_Bounds
00c8 0263       | c  |		Execute	Discrete,Above_Bound
00c9 7034       |p4  |		Jump_Nonzero	0xfe
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 0120       |    |		Execute	Any,Is_Value
00cc 6803       |h   |		Jump_Zero	0xd0
00cd e001       |    |		Load	0x0,0x1
00ce 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00cf 7801       |x   |		Jump	0xd1
00d0 00db       |    |		Load_Top	At_Offset_3
00d1 e602       |    |		Load	0x3,0x2
00d2 0120       |    |		Execute	Any,Is_Value
00d3 6803       |h   |		Jump_Zero	0xd7
00d4 e001       |    |		Load	0x0,0x1
00d5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d6 7801       |x   |		Jump	0xd8
00d7 e602       |    |		Load	0x3,0x2
00d8 e7ff       |    |		Load	0x3,-0x1
00d9 00db       |    |		Load_Top	At_Offset_3
00da 00d8       |    |		Load_Top	At_Offset_0
00db e5f8       |    |		Load	0x2,-0x8
00dc 0260       | `  |		Execute	Discrete,In_Type
00dd 7001       |p   |		Jump_Nonzero	0xdf
00de 0801       |    |		Execute_Immediate	Raise,0x1
00df 85fc       |    |		Call	0x2,-0x4
00e0 c602       |    |		Store	0x3,0x2
00e1 c603       |    |		Store	0x3,0x3
00e2 e7ff       |    |		Load	0x3,-0x1
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 00d8       |    |		Load_Top	At_Offset_0
00e5 e5f8       |    |		Load	0x2,-0x8
00e6 0260       | `  |		Execute	Discrete,In_Type
00e7 7001       |p   |		Jump_Nonzero	0xe9
00e8 0801       |    |		Execute_Immediate	Raise,0x1
00e9 85fb       |    |		Call	0x2,-0x5
00ea e00c       |    |		Load	0x0,0xc
00eb 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ec 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00ed e00c       |    |		Load	0x0,0xc
00ee 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ef 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f0 e603       |    |		Load	0x3,0x3
00f1 e602       |    |		Load	0x3,0x2
00f2 e7ff       |    |		Load	0x3,-0x1
00f3 e606       |    |		Load	0x3,0x6
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 e5f8       |    |		Load	0x2,-0x8
00f6 0260       | `  |		Execute	Discrete,In_Type
00f7 7001       |p   |		Jump_Nonzero	0xf9
00f8 0801       |    |		Execute_Immediate	Raise,0x1
00f9 85fa       |    |		Call	0x2,-0x6
00fa e406       |    |		Load	0x2,0x6
00fb 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00fc 00c8       |    |		Action	Pop_Auxiliary_Range
00fd 3fcc       |?   |		Loop_Increasing	0xca
00fe 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ff 0000       |    |		.XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 010b       |    |		.CONST	0x010b								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 85f7       |    |		Call	0x2,-0x9
0105 6802       |h   |		Jump_Zero	0x108
0106 00da       |    |		Load_Top	At_Offset_2
0107 8409       |    |		Call	0x2,0x9
0108 4800       |H   |		Short_Literal	0x0
0109 a7fd       |    |		Store_Unchecked	0x3,-0x3
010a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010b			TRAP_0100:
010b 0007       |    |		Action	Break_Optional
010c e002       |    |		Load	0x0,0x2
010d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
010e 4807       |H   |		Short_Literal	0x7
010f 0092 018c  |    |		Action	Push_String_Extended,0x18c					; "UNEXPECTED ERROR, EXCEPTION:"
0111 4800       |H   |		Short_Literal	0x0
0112 4801       |H   |		Short_Literal	0x1
0113 e00d       |    |		Load	0x0,0xd
0114 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0115 01cc       |    |		Execute	Vector,Catenate
0116 e00e       |    |		Load	0x0,0xe
0117 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0118 e002       |    |		Load	0x0,0x2
0119 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011a 4807       |H   |		Short_Literal	0x7
011b 0092 018d  |    |		Action	Push_String_Extended,0x18d					; "DIAGNOSIS: "
011d e001       |    |		Load	0x0,0x1
011e 185b       | [  |		Execute	Package,Field_Execute,Field_Number 0x5b
011f 01cc       |    |		Execute	Vector,Catenate
0120 e00e       |    |		Load	0x0,0xe
0121 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0122 e002       |    |		Load	0x0,0x2
0123 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0124 4807       |H   |		Short_Literal	0x7
0125 0092 018e  |    |		Action	Push_String_Extended,0x18e					; "UNIT: "
0127 e7ff       |    |		Load	0x3,-0x1
0128 e00f       |    |		Load	0x0,0xf
0129 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
012a e001       |    |		Load	0x0,0x1
012b 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
012c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
012d 01cc       |    |		Execute	Vector,Catenate
012e e00e       |    |		Load	0x0,0xe
012f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0130 e002       |    |		Load	0x0,0x2
0131 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0132 4807       |H   |		Short_Literal	0x7
0133 0092 018f  |    |		Action	Push_String_Extended,0x18f					; "On line: "
0135 e7ff       |    |		Load	0x3,-0x1
0136 e001       |    |		Load	0x0,0x1
0137 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0138 00e0       |    |		Load_Encached	Standard_Cache
0139 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
013a 01cc       |    |		Execute	Vector,Catenate
013b e00e       |    |		Load	0x0,0xe
013c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
013d 4800       |H   |		Short_Literal	0x0
013e a7fd       |    |		Store_Unchecked	0x3,-0x3
013f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 4800       |H   |		Short_Literal	0x0
0144 a7fd       |    |		Store_Unchecked	0x3,-0x3
0145 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0146 0000 0000  |    |		.XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150       | P  |		.CONST	0x0150								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b e001       |    |		Load	0x0,0x1
014c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
014d 02c7       |    |		Declare_Variable	Any
014e 00d8       |    |		Load_Top	At_Offset_0
014f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0150			BODY_0148:
0150 00d8       |    |		Load_Top	At_Offset_0
0151 0120       |    |		Execute	Any,Is_Value
0152 6803       |h   |		Jump_Zero	0x156
0153 e001       |    |		Load	0x0,0x1
0154 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0155 7801       |x   |		Jump	0x157
0156 00d8       |    |		Load_Top	At_Offset_0
0157 e7ff       |    |		Load	0x3,-0x1
0158 e001       |    |		Load	0x0,0x1
0159 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
015a c602       |    |		Store	0x3,0x2
015b 00cf       |    |		Action	Mark_Auxiliary
015c 7809       |x   |		Jump	0x166
015d 00d9       |    |		Load_Top	At_Offset_1
015e e001       |    |		Load	0x0,0x1
015f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0160 8409       |    |		Call	0x2,0x9
0161 00d9       |    |		Load_Top	At_Offset_1
0162 e001       |    |		Load	0x0,0x1
0163 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0164 c602       |    |		Store	0x3,0x2
0165 00c9       |    |		Action	Pop_Auxiliary_Loop
0166 00d9       |    |		Load_Top	At_Offset_1
0167 e001       |    |		Load	0x0,0x1
0168 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0169 6ff3       |o   |		Jump_Zero	0x15d
016a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e408       |    |		Load	0x2,0x8
0174 4800       |H   |		Short_Literal	0x0
0175 e010       |    |		Load	0x0,0x10
0176 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0177 e7ff       |    |		Load	0x3,-0x1
0178 e001       |    |		Load	0x0,0x1
0179 1b58       | X  |		Execute	Package,Field_Read,Field_Number 0x58
017a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
017b e40c       |    |		Load	0x2,0xc
017c 480d       |H   |		Short_Literal	0xd
017d 4802       |H   |		Short_Literal	0x2
017e 0099       |    |		Action	Reference_Dynamic
017f 480e       |H   |		Short_Literal	0xe
0180 4802       |H   |		Short_Literal	0x2
0181 0099       |    |		Action	Reference_Dynamic
0182 480f       |H   |		Short_Literal	0xf
0183 4802       |H   |		Short_Literal	0x2
0184 0099       |    |		Action	Reference_Dynamic
0185 e001       |    |		Load	0x0,0x1
0186 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0187 c408       |    |		Store	0x2,0x8
0188 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0189 ; --------------------------------------------------------------------------------------
0189 ; STRING TABLE
0189 ; --------------------------------------------------------------------------------------
0189 0010       |    |		.STRTAB	0x0010->0x0191							; " "
018a 000f       |    |		.STRTAB	0x000f->0x0191							; "Traversing units..."
018b 0020       |    |		.STRTAB	0x0020->0x019b							; "Building abstract_document..."
018c 003b       | ;  |		.STRTAB	0x003b->0x01a9							; "UNEXPECTED ERROR, EXCEPTION:"
018d 0055       | U  |		.STRTAB	0x0055->0x01b7							; "DIAGNOSIS: "
018e 005e       | ^  |		.STRTAB	0x005e->0x01bd							; "UNIT: "
018f 0062       | b  |		.STRTAB	0x0062->0x01c0							; "On line: "
0190 0069       | i  |		.STREND 0x0069->0x01c4
0191 2054 7261  | Tra|		.STRTAB_STRINGS
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2f8b,0x0000,0x0001,0x0009
01ce 000b 01f2  |    |		.DBG4T	0x000b,0x01f2,0x8000,0x0000
01d2 0010 01f6  |    |		.DBG4T	0x0010,0x01f6,0x8000,0x0000
01d6 001b 01fa  |    |		.DBG4T	0x001b,0x01fa,0x0002,0x0000
01da 0023 01fd  | #  |		.DBG4T	0x0023,0x01fd,0x2801,0x0002
01de 00bb 0218  |    |		.DBG4T	0x00bb,0x0218,0x0801,0x0002
01e2 0103 021f  |    |		.DBG4T	0x0103,0x021f,0x0801,0x0002
01e6 0143 0229  | C )|		.DBG4T	0x0143,0x0229,0x0801,0x0002
01ea 014b 022c  | K ,|		.DBG4T	0x014b,0x022c,0x0801,0x4002
01ee 0173 0237  | s 7|		.DBG4T	0x0173,0x0237,0x0801,0x0002
01f2 ; --------------------------------------------------------------------------------------
01f2 ; Debug chain
01f2 ; --------------------------------------------------------------------------------------
01f2 0002 0000  |    |		.DBGLEN	0x0002,0x0000
01f4 000b 000d  |    |		.DBGLNO	0x000b,0x000d
01f6 ; --------------------------------------------------------------------------------------
01f6 ; Debug chain
01f6 ; --------------------------------------------------------------------------------------
01f6 0002 0000  |    |		.DBGLEN	0x0002,0x0000
01f8 0010 0012  |    |		.DBGLNO	0x0010,0x0012
01fa ; --------------------------------------------------------------------------------------
01fa ; Debug chain
01fa ; --------------------------------------------------------------------------------------
01fa 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01fc 001b       |    |		.DBGLNO	0x001b
01fd ; --------------------------------------------------------------------------------------
01fd ; Debug chain
01fd ; --------------------------------------------------------------------------------------
01fd 000d 000c  |    |		.DBGLEN	0x000d,0x000c
01ff 0023 0029  | # )|		.DBGLNO	0x0023,0x0029,0x002e,0x0036,0x0045,0x0052,0x0054,0x0056,0x0058,0x005a,0x0068,0x006a,0x006c,0x0075,0x0079,0x007d,0x0081,0x0087,0x0099,0x009d,0x00a6,0x00a8,0x00ac,0x00af,0x00b4
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug chain
0218 ; --------------------------------------------------------------------------------------
0218 0002 0003  |    |		.DBGLEN	0x0002,0x0003
021a 00bb 00c0  |    |		.DBGLNO	0x00bb,0x00c0,0x00c6,0x00ca,0x00e2
021f ; --------------------------------------------------------------------------------------
021f ; Debug chain
021f ; --------------------------------------------------------------------------------------
021f 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0221 0103 0106  |    |		.DBGLNO	0x0103,0x0106,0x0108,0x010c,0x0118,0x0122,0x0130,0x013d
0229 ; --------------------------------------------------------------------------------------
0229 ; Debug chain
0229 ; --------------------------------------------------------------------------------------
0229 0000 0001  |    |		.DBGLEN	0x0000,0x0001
022b 0143       | C  |		.DBGLNO	0x0143
022c ; --------------------------------------------------------------------------------------
022c ; Debug chain
022c ; --------------------------------------------------------------------------------------
022c 0001 0004  |    |		.DBGLEN	0x0001,0x0004
022e 014b 0150  | K P|		.DBGLNO	0x014b,0x0150,0x015d,0x0161,0x0166
0233 0001 0003  |    |		.XXX[0x4]
0235 0004 0002  |    |
0237 ; --------------------------------------------------------------------------------------
0237 ; Debug chain
0237 ; --------------------------------------------------------------------------------------
0237 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0239 0173       | s  |		.DBGLNO	0x0173
023a 0000 0000  |    |		.BLANK	0000[0x1c6]