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

⟦7628791e3⟧

    Length: 2048 (0x800)
    Notes: 00_class, 580b_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

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 580b       |X   |		.CONST	0x580b								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01d8       |    |		.CONST	0x01d8								; 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 0027       | '  |		.CONST	0x0027								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x023a,0x8000,0x0000,0x0039,0x3396,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x14,0xfffa
0016 00bf       |    |		Action	Accept_Activation
0017 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0017,0x0248,0x8000,0x0000,0x0039,0x33a6,0x0000,0x000b
													; Debug Table 0x1.0x0 = 0x17,0xffff
0018 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x19,0xfffd
001a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x1a,0xfffc
001b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x4 = 0x1b,0xfffb
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x5 = 0x1c,0xfffa
001d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x6 = 0x1d,0xfff9
001e 00c7       |    |		Action	Elaborate_Subprogram
001f 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x7 = 0x1f,0xfff8
0020 00c7       |    |		Action	Elaborate_Subprogram
0021 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x8 = 0x21,0xfff7
0022 00c7       |    |		Action	Elaborate_Subprogram
0023 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x9 = 0x23,0xfff6
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xa = 0x25,0xfff5
0026 00c7       |    |		Action	Elaborate_Subprogram
0027			BODY_0008:
0027 00bc       |    |		Action	Signal_Activated
0028 00bb       |    |		Action	Signal_Completion
0029 0000 0000  |    |		.BLANK	0000[0x7]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0042       | B  |		.CONST	0x0042								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0007       |    |		.CONST	0x0007								; Number of locals
0033			INIT_0030:
0033 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x2 = .DEBUG	0x0033,0x0260,0x0002,0x0000,0x0039,0x3396,0x0000,0x0010
													; Debug Table 0x2.0x0 = 0x33,0xffff
0034 00eb       |    |		Load_Encached	Diana_Cache
0035 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0036 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0037 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call				; Debug Table 0x2.0x1 = 0x37,0xfffe
0039 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x2.0x2 = 0x39,0xfffd
003a 00c6       |    |		Action	Check_Subprogram_Elaborated
003b 4803       |H   |		Short_Literal	0x3
003c 4802       |H   |		Short_Literal	0x2
003d 0099       |    |		Action	Reference_Dynamic
003e 6195       |a   |		Indirect_Literal	Discrete,0x1d4,{0x00000000, 0x003933a6}
003f 49d6       |I   |		Short_Literal	0x1d6
0040 4807       |H   |		Short_Literal	0x7
0041 0007       |    |		Action	Break_Optional
0042			BODY_0030:
0042 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x3 = 0x42,0x1
0043 e5fe       |    |		Load	0x2,-0x2
0044 e5ff       |    |		Load	0x2,-0x1
0045 4804       |H   |		Short_Literal	0x4
0046 4802       |H   |		Short_Literal	0x2
0047 0099       |    |		Action	Reference_Dynamic
0048 4805       |H   |		Short_Literal	0x5
0049 4802       |H   |		Short_Literal	0x2
004a 0099       |    |		Action	Reference_Dynamic
004b 8211       |    |		Call	0x1,0x11
004c e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x4 = 0x4c,0x2
004d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0062       | b  |		.CONST	0x0062								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0007       |    |		.CONST	0x0007								; Number of locals
0053			INIT_0050:
0053 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x3 = .DEBUG	0x0053,0x026c,0x0002,0x0000,0x0039,0x3396,0x0000,0x002b
													; Debug Table 0x3.0x0 = 0x53,0xffff
0054 00eb       |    |		Load_Encached	Diana_Cache
0055 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0056 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0057 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call				; Debug Table 0x3.0x1 = 0x57,0xfffe
0059 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x3.0x2 = 0x59,0xfffd
005a 00c6       |    |		Action	Check_Subprogram_Elaborated
005b 4803       |H   |		Short_Literal	0x3
005c 4802       |H   |		Short_Literal	0x2
005d 0099       |    |		Action	Reference_Dynamic
005e 6175       |au  |		Indirect_Literal	Discrete,0x1d4,{0x00000000, 0x003933a6}
005f 4a36       |J6  |		Short_Literal	0x236
0060 4807       |H   |		Short_Literal	0x7
0061 0007       |    |		Action	Break_Optional
0062			BODY_0050:
0062 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x3 = 0x62,0x1
0063 e5fe       |    |		Load	0x2,-0x2
0064 e5ff       |    |		Load	0x2,-0x1
0065 4804       |H   |		Short_Literal	0x4
0066 4802       |H   |		Short_Literal	0x2
0067 0099       |    |		Action	Reference_Dynamic
0068 4805       |H   |		Short_Literal	0x5
0069 4802       |H   |		Short_Literal	0x2
006a 0099       |    |		Action	Reference_Dynamic
006b 8211       |    |		Call	0x1,0x11
006c e402       |    |		Load	0x2,0x2								; Debug Table 0x3.0x4 = 0x6c,0x2
006d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
006e 0000 0000  |    |		.XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0082       |    |		.CONST	0x0082								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0007       |    |		.CONST	0x0007								; Number of locals
0073			INIT_0070:
0073 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x4 = .DEBUG	0x0073,0x0278,0x0002,0x0000,0x0039,0x3396,0x0000,0x0046
													; Debug Table 0x4.0x0 = 0x73,0xffff
0074 00eb       |    |		Load_Encached	Diana_Cache
0075 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0076 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0077 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call				; Debug Table 0x4.0x1 = 0x77,0xfffe
0079 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x4.0x2 = 0x79,0xfffd
007a 00c6       |    |		Action	Check_Subprogram_Elaborated
007b 4803       |H   |		Short_Literal	0x3
007c 4802       |H   |		Short_Literal	0x2
007d 0099       |    |		Action	Reference_Dynamic
007e 6155       |aU  |		Indirect_Literal	Discrete,0x1d4,{0x00000000, 0x003933a6}
007f 4a9e       |J   |		Short_Literal	0x29e
0080 4807       |H   |		Short_Literal	0x7
0081 0007       |    |		Action	Break_Optional
0082			BODY_0070:
0082 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x3 = 0x82,0x1
0083 e5fe       |    |		Load	0x2,-0x2
0084 e5ff       |    |		Load	0x2,-0x1
0085 4804       |H   |		Short_Literal	0x4
0086 4802       |H   |		Short_Literal	0x2
0087 0099       |    |		Action	Reference_Dynamic
0088 4805       |H   |		Short_Literal	0x5
0089 4802       |H   |		Short_Literal	0x2
008a 0099       |    |		Action	Reference_Dynamic
008b 8211       |    |		Call	0x1,0x11
008c e402       |    |		Load	0x2,0x2								; Debug Table 0x4.0x4 = 0x8c,0x2
008d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00a2       |    |		.CONST	0x00a2								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0007       |    |		.CONST	0x0007								; Number of locals
0093			INIT_0090:
0093 00ef       |    |		Load_Encached	Diana_Sequence_Cache					; Debug Table 0x5 = .DEBUG	0x0093,0x0284,0x0002,0x0000,0x0039,0x3396,0x0000,0x0061
													; Debug Table 0x5.0x0 = 0x93,0xffff
0094 00eb       |    |		Load_Encached	Diana_Cache
0095 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0096 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0097 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call				; Debug Table 0x5.0x1 = 0x97,0xfffe
0099 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x5.0x2 = 0x99,0xfffd
009a 00c6       |    |		Action	Check_Subprogram_Elaborated
009b 4803       |H   |		Short_Literal	0x3
009c 4802       |H   |		Short_Literal	0x2
009d 0099       |    |		Action	Reference_Dynamic
009e 6135       |a5  |		Indirect_Literal	Discrete,0x1d4,{0x00000000, 0x003933a6}
009f 4b0c       |K   |		Short_Literal	0x30c
00a0 4807       |H   |		Short_Literal	0x7
00a1 0007       |    |		Action	Break_Optional
00a2			BODY_0090:
00a2 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x5.0x3 = 0xa2,0x1
00a3 e5fe       |    |		Load	0x2,-0x2
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 4804       |H   |		Short_Literal	0x4
00a6 4802       |H   |		Short_Literal	0x2
00a7 0099       |    |		Action	Reference_Dynamic
00a8 4805       |H   |		Short_Literal	0x5
00a9 4802       |H   |		Short_Literal	0x2
00aa 0099       |    |		Action	Reference_Dynamic
00ab 8211       |    |		Call	0x1,0x11
00ac e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x4 = 0xac,0x2
00ad 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b6       |    |		.CONST	0x00b6								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 00ee       |    |		Load_Encached	Diana_Seq_Type_Cache					; Debug Table 0x6 = .DEBUG	0x00b3,0x0290,0x2801,0x0002,0x0039,0x3396,0x0000,0x007c
													; Debug Table 0x6.0x0 = 0xb3,0xffff
00b4 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call				; Debug Table 0x6.0x1 = 0xb4,0xfffe
00b6			BODY_00b0:
00b6 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x2 = 0xb6,0x1
00b7 00eb       |    |		Load_Encached	Diana_Cache
00b8 1883       |    |		Execute	Package,Field_Execute,Field_Number 0x83
00b9 4604       |F   |		Jump_Case	0x5
00ba 786b       |xk  |		Jump	0x126								; case 0x0
00bb 7803       |x   |		Jump	0xbf								; case 0x1
00bc 780f       |x   |		Jump	0xcc								; case 0x2
00bd 7827       |x'  |		Jump	0xe5								; case 0x3
00be 784b       |xK  |		Jump	0x10a								; case 0x4
00bf e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x3 = 0xbf,0x3
00c0 e5fc       |    |		Load	0x2,-0x4
00c1 e5fd       |    |		Load	0x2,-0x3
00c2 00eb       |    |		Load_Encached	Diana_Cache
00c3 1885       |    |		Execute	Package,Field_Execute,Field_Number 0x85
00c4 4ffe       |O   |		Short_Literal	-0x2
00c5 4802       |H   |		Short_Literal	0x2
00c6 0099       |    |		Action	Reference_Dynamic
00c7 4fff       |O   |		Short_Literal	-0x1
00c8 4802       |H   |		Short_Literal	0x2
00c9 0099       |    |		Action	Reference_Dynamic
00ca 8211       |    |		Call	0x1,0x11
00cb 785a       |xZ  |		Jump	0x126
00cc e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x4 = 0xcc,0x4
00cd e5fc       |    |		Load	0x2,-0x4
00ce e5fd       |    |		Load	0x2,-0x3
00cf 00eb       |    |		Load_Encached	Diana_Cache
00d0 1885       |    |		Execute	Package,Field_Execute,Field_Number 0x85
00d1 4ffe       |O   |		Short_Literal	-0x2
00d2 4802       |H   |		Short_Literal	0x2
00d3 0099       |    |		Action	Reference_Dynamic
00d4 4fff       |O   |		Short_Literal	-0x1
00d5 4802       |H   |		Short_Literal	0x2
00d6 0099       |    |		Action	Reference_Dynamic
00d7 8211       |    |		Call	0x1,0x11
00d8 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x5 = 0xd8,0x5
00d9 e5fc       |    |		Load	0x2,-0x4
00da e5fd       |    |		Load	0x2,-0x3
00db 00eb       |    |		Load_Encached	Diana_Cache
00dc 1886       |    |		Execute	Package,Field_Execute,Field_Number 0x86
00dd 4ffe       |O   |		Short_Literal	-0x2
00de 4802       |H   |		Short_Literal	0x2
00df 0099       |    |		Action	Reference_Dynamic
00e0 4fff       |O   |		Short_Literal	-0x1
00e1 4802       |H   |		Short_Literal	0x2
00e2 0099       |    |		Action	Reference_Dynamic
00e3 8211       |    |		Call	0x1,0x11
00e4 7841       |xA  |		Jump	0x126
00e5 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x6 = 0xe5,0x6
00e6 e5fc       |    |		Load	0x2,-0x4
00e7 e5fd       |    |		Load	0x2,-0x3
00e8 00eb       |    |		Load_Encached	Diana_Cache
00e9 1885       |    |		Execute	Package,Field_Execute,Field_Number 0x85
00ea 4ffe       |O   |		Short_Literal	-0x2
00eb 4802       |H   |		Short_Literal	0x2
00ec 0099       |    |		Action	Reference_Dynamic
00ed 4fff       |O   |		Short_Literal	-0x1
00ee 4802       |H   |		Short_Literal	0x2
00ef 0099       |    |		Action	Reference_Dynamic
00f0 8211       |    |		Call	0x1,0x11
00f1 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x7 = 0xf1,0x7
00f2 e5fc       |    |		Load	0x2,-0x4
00f3 e5fd       |    |		Load	0x2,-0x3
00f4 00eb       |    |		Load_Encached	Diana_Cache
00f5 1886       |    |		Execute	Package,Field_Execute,Field_Number 0x86
00f6 4ffe       |O   |		Short_Literal	-0x2
00f7 4802       |H   |		Short_Literal	0x2
00f8 0099       |    |		Action	Reference_Dynamic
00f9 4fff       |O   |		Short_Literal	-0x1
00fa 4802       |H   |		Short_Literal	0x2
00fb 0099       |    |		Action	Reference_Dynamic
00fc 8211       |    |		Call	0x1,0x11
00fd e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x8 = 0xfd,0x8
00fe e5fc       |    |		Load	0x2,-0x4
00ff e5fd       |    |		Load	0x2,-0x3
0100 00eb       |    |		Load_Encached	Diana_Cache
0101 1887       |    |		Execute	Package,Field_Execute,Field_Number 0x87
0102 4ffe       |O   |		Short_Literal	-0x2
0103 4802       |H   |		Short_Literal	0x2
0104 0099       |    |		Action	Reference_Dynamic
0105 4fff       |O   |		Short_Literal	-0x1
0106 4802       |H   |		Short_Literal	0x2
0107 0099       |    |		Action	Reference_Dynamic
0108 8211       |    |		Call	0x1,0x11
0109 781c       |x   |		Jump	0x126
010a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x9 = 0x10a,0x9
010b 00eb       |    |		Load_Encached	Diana_Cache
010c 1888       |    |		Execute	Package,Field_Execute,Field_Number 0x88
010d 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
010e 00cf       |    |		Action	Mark_Auxiliary
010f 7811       |x   |		Jump	0x121
0110 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0xa = 0x110,0xb
0111 e5fc       |    |		Load	0x2,-0x4
0112 e402       |    |		Load	0x2,0x2
0113 00eb       |    |		Load_Encached	Diana_Cache
0114 1859       | Y  |		Execute	Package,Field_Execute,Field_Number 0x59
0115 4ffe       |O   |		Short_Literal	-0x2
0116 4802       |H   |		Short_Literal	0x2
0117 0099       |    |		Action	Reference_Dynamic
0118 4fff       |O   |		Short_Literal	-0x1
0119 4802       |H   |		Short_Literal	0x2
011a 0099       |    |		Action	Reference_Dynamic
011b 8211       |    |		Call	0x1,0x11
011c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0xb = 0x11c,0xc
011d 00eb       |    |		Load_Encached	Diana_Cache
011e 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
011f 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0120 00c9       |    |		Action	Pop_Auxiliary_Loop
0121 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0xc = 0x121,0xa
0122 00eb       |    |		Load_Encached	Diana_Cache
0123 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0124 6feb       |o   |		Jump_Zero	0x110
0125 00ce       |    |		Action	Pop_Auxiliary
0126 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0xd = 0x126,0xd
0127 00eb       |    |		Load_Encached	Diana_Cache
0128 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0129 6812       |h   |		Jump_Zero	0x13c
012a e5fd       |    |		Load	0x2,-0x3
012b 00eb       |    |		Load_Encached	Diana_Cache
012c 18ec       |    |		Execute	Package,Field_Execute,Field_Number 0xec
012d e001       |    |		Load	0x0,0x1
012e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
012f 680c       |h   |		Jump_Zero	0x13c
0130 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0xe = 0x130,0xe
0131 e001       |    |		Load	0x0,0x1
0132 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0133 6803       |h   |		Jump_Zero	0x137
0134 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0xf = 0x134,0xf
0135 8403       |    |		Call	0x2,0x3
0136 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0137 e002       |    |		Load	0x0,0x2								; Debug Table 0x6.0x10 = 0x137,0x10
0138 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0139 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
013a e5fd       |    |		Load	0x2,-0x3
013b 85fe       |    |		Call	0x2,-0x2
013c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
013d 0000 0000  |    |		.XXX[0x3]
013f 0000       |    |
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 e402       |    |		Load	0x2,0x2								; Debug Table 0x7 = .DEBUG	0x0143,0x02b4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x01bb
													; Debug Table 0x7.0x0 = 0x143,0x1
0144 00db       |    |		Load_Top	At_Offset_3
0145 4975       |Iu  |		Short_Literal	0x175
0146 00eb       |    |		Load_Encached	Diana_Cache
0147 0098       |    |		Execute	Package,Field_Read_Dynamic
0148 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0149 c402       |    |		Store	0x2,0x2
014a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014b 0000 0000  |    |		.BLANK	0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8 = .DEBUG	0x0153,0x02b8,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0211
													; Debug Table 0x8.0x0 = 0x153,0x1
0154 e002       |    |		Load	0x0,0x2
0155 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0156 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0157 012f       | /  |		Execute	Any,Equal
0158 7007       |p   |		Jump_Nonzero	0x160
0159 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x1 = 0x159,0x2
015a 00db       |    |		Load_Top	At_Offset_3
015b 4975       |Iu  |		Short_Literal	0x175
015c 00eb       |    |		Load_Encached	Diana_Cache
015d 0098       |    |		Execute	Package,Field_Read_Dynamic
015e 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
015f c402       |    |		Store	0x2,0x2
0160 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0161 0000 0000  |    |		.BLANK	0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9 = .DEBUG	0x016b,0x02be,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0271
													; Debug Table 0x9.0x0 = 0x16b,0x1
016c e002       |    |		Load	0x0,0x2
016d 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
016e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
016f 012f       | /  |		Execute	Any,Equal
0170 700c       |p   |		Jump_Nonzero	0x17d
0171 00db       |    |		Load_Top	At_Offset_3
0172 e002       |    |		Load	0x0,0x2
0173 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0174 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0175 6807       |h   |		Jump_Zero	0x17d
0176 e402       |    |		Load	0x2,0x2								; Debug Table 0x9.0x1 = 0x176,0x2
0177 00db       |    |		Load_Top	At_Offset_3
0178 4975       |Iu  |		Short_Literal	0x175
0179 00eb       |    |		Load_Encached	Diana_Cache
017a 0098       |    |		Execute	Package,Field_Read_Dynamic
017b 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
017c c402       |    |		Store	0x2,0x2
017d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xa = .DEBUG	0x0183,0x02c4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x02d9
													; Debug Table 0xa.0x0 = 0x183,0x1
0184 e002       |    |		Load	0x0,0x2
0185 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0186 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0187 012f       | /  |		Execute	Any,Equal
0188 700d       |p   |		Jump_Nonzero	0x196
0189 00db       |    |		Load_Top	At_Offset_3
018a e002       |    |		Load	0x0,0x2
018b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
018c 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
018d 0d04       |    |		Execute_Immediate	Less,0x4
018e 6807       |h   |		Jump_Zero	0x196
018f e402       |    |		Load	0x2,0x2								; Debug Table 0xa.0x1 = 0x18f,0x2
0190 00db       |    |		Load_Top	At_Offset_3
0191 4975       |Iu  |		Short_Literal	0x175
0192 00eb       |    |		Load_Encached	Diana_Cache
0193 0098       |    |		Execute	Package,Field_Read_Dynamic
0194 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0195 c402       |    |		Store	0x2,0x2
0196 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0197 0000       |    |		.XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01ab       |    |		.CONST	0x01ab								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0004       |    |		.CONST	0x0004								; Number of locals
019b			INIT_0198:
019b e003       |    |		Load	0x0,0x3								; Debug Table 0xb = .DEBUG	0x019b,0x02ca,0x0801,0x0002,0x0039,0x33a6,0x0000,0x0076
													; Debug Table 0xb.0x0 = 0x19b,0xffff
019c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
019d e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x1 = 0x19d,0xfffe
019e 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
019f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a0 02c7       |    |		Declare_Variable	Any
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a3 e002       |    |		Load	0x0,0x2								; Debug Table 0xb.0x2 = 0x1a3,0xfffd
01a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01a5 02ff       |    |		Declare_Variable	Variant_Record
01a6 e7ff       |    |		Load	0x3,-0x1
01a7 e001       |    |		Load	0x0,0x1
01a8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a9 00d9       |    |		Load_Top	At_Offset_1
01aa 016d       | m  |		Execute	Variant_Record,Structure_Write
01ab			BODY_0198:
01ab e003       |    |		Load	0x0,0x3								; Debug Table 0xb.0x3 = 0x1ab,0x1
01ac 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
01ad 00da       |    |		Load_Top	At_Offset_2
01ae 0120       |    |		Execute	Any,Is_Value
01af 6804       |h   |		Jump_Zero	0x1b4
01b0 e002       |    |		Load	0x0,0x2
01b1 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
01b2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b3 7801       |x   |		Jump	0x1b5
01b4 00da       |    |		Load_Top	At_Offset_2
01b5 e5fb       |    |		Load	0x2,-0x5
01b6 4800       |H   |		Short_Literal	0x0
01b7 4800       |H   |		Short_Literal	0x0
01b8 e604       |    |		Load	0x3,0x4
01b9 e002       |    |		Load	0x0,0x2
01ba 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01bb c603       |    |		Store	0x3,0x3
01bc 005b       | [  |		Store_Top	Discrete,At_Offset_3
01bd 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x4 = 0x1bd,0x2
01be 7012       |p   |		Jump_Nonzero	0x1d1
01bf e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xb.0x5 = 0x1bf,0x3
01c0 700d       |p   |		Jump_Nonzero	0x1ce
01c1 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xb.0x6 = 0x1c1,0x4
01c2 e5fc       |    |		Load	0x2,-0x4
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 e002       |    |		Load	0x0,0x2
01c5 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
01c6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c7 4ffe       |O   |		Short_Literal	-0x2
01c8 4802       |H   |		Short_Literal	0x2
01c9 0099       |    |		Action	Reference_Dynamic
01ca 4fff       |O   |		Short_Literal	-0x1
01cb 4802       |H   |		Short_Literal	0x2
01cc 0099       |    |		Action	Reference_Dynamic
01cd 8211       |    |		Call	0x1,0x11
01ce 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x7 = 0x1ce,0x5
01cf e7ff       |    |		Load	0x3,-0x1
01d0 85fe       |    |		Call	0x2,-0x2
01d1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d2 0000 0000  |    |		.XXX[0x2]
01d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x003933a6}
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0003 000c  |    |		.CONST	0x0003,0x000c
01da 000b 023a  |   :|		.DEBUG	0x000b,0x023a,0x8000,0x0000,0x0039,0x3396,0x0000,0x0009
01e2 0017 0248  |   H|		.DEBUG	0x0017,0x0248,0x8000,0x0000,0x0039,0x33a6,0x0000,0x000b
01ea 0033 0260  | 3 `|		.DEBUG	0x0033,0x0260,0x0002,0x0000,0x0039,0x3396,0x0000,0x0010
01f2 0053 026c  | S l|		.DEBUG	0x0053,0x026c,0x0002,0x0000,0x0039,0x3396,0x0000,0x002b
01fa 0073 0278  | s x|		.DEBUG	0x0073,0x0278,0x0002,0x0000,0x0039,0x3396,0x0000,0x0046
0202 0093 0284  |    |		.DEBUG	0x0093,0x0284,0x0002,0x0000,0x0039,0x3396,0x0000,0x0061
020a 00b3 0290  |    |		.DEBUG	0x00b3,0x0290,0x2801,0x0002,0x0039,0x3396,0x0000,0x007c
0212 0143 02b4  | C  |		.DEBUG	0x0143,0x02b4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x01bb
021a 0153 02b8  | S  |		.DEBUG	0x0153,0x02b8,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0211
0222 016b 02be  | k  |		.DEBUG	0x016b,0x02be,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0271
022a 0183 02c4  |    |		.DEBUG	0x0183,0x02c4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x02d9
0232 019b 02ca  |    |		.DEBUG	0x019b,0x02ca,0x0801,0x0002,0x0039,0x33a6,0x0000,0x0076
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x0
023a ; --------------------------------------------------------------------------------------
023a 0006 0000  |    |		.DBG3TAB	0x0006,0x0000
023c 000b ffff  |    |		.CONST	0x000b,0xffff
023e 000c fffe  |    |		.CONST	0x000c,0xfffe
0240 000e fffd  |    |		.CONST	0x000e,0xfffd
0242 0010 fffc  |    |		.CONST	0x0010,0xfffc
0244 0012 fffb  |    |		.CONST	0x0012,0xfffb
0246 0014 fffa  |    |		.CONST	0x0014,0xfffa
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug3 Subtable 0x1
0248 ; --------------------------------------------------------------------------------------
0248 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
024a 0017 ffff  |    |		.CONST	0x0017,0xffff
024c 0018 fffe  |    |		.CONST	0x0018,0xfffe
024e 0019 fffd  |    |		.CONST	0x0019,0xfffd
0250 001a fffc  |    |		.CONST	0x001a,0xfffc
0252 001b fffb  |    |		.CONST	0x001b,0xfffb
0254 001c fffa  |    |		.CONST	0x001c,0xfffa
0256 001d fff9  |    |		.CONST	0x001d,0xfff9
0258 001f fff8  |    |		.CONST	0x001f,0xfff8
025a 0021 fff7  | !  |		.CONST	0x0021,0xfff7
025c 0023 fff6  | #  |		.CONST	0x0023,0xfff6
025e 0025 fff5  | %  |		.CONST	0x0025,0xfff5
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug3 Subtable 0x2
0260 ; --------------------------------------------------------------------------------------
0260 0003 0002  |    |		.DBG3TAB	0x0003,0x0002
0262 0033 ffff  | 3  |		.CONST	0x0033,0xffff
0264 0037 fffe  | 7  |		.CONST	0x0037,0xfffe
0266 0039 fffd  | 9  |		.CONST	0x0039,0xfffd
0268 0042 0001  | B  |		.CONST	0x0042,0x0001
026a 004c 0002  | L  |		.CONST	0x004c,0x0002
026c ; --------------------------------------------------------------------------------------
026c ; Debug3 Subtable 0x3
026c ; --------------------------------------------------------------------------------------
026c 0003 0002  |    |		.DBG3TAB	0x0003,0x0002
026e 0053 ffff  | S  |		.CONST	0x0053,0xffff
0270 0057 fffe  | W  |		.CONST	0x0057,0xfffe
0272 0059 fffd  | Y  |		.CONST	0x0059,0xfffd
0274 0062 0001  | b  |		.CONST	0x0062,0x0001
0276 006c 0002  | l  |		.CONST	0x006c,0x0002
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug3 Subtable 0x4
0278 ; --------------------------------------------------------------------------------------
0278 0003 0002  |    |		.DBG3TAB	0x0003,0x0002
027a 0073 ffff  | s  |		.CONST	0x0073,0xffff
027c 0077 fffe  | w  |		.CONST	0x0077,0xfffe
027e 0079 fffd  | y  |		.CONST	0x0079,0xfffd
0280 0082 0001  |    |		.CONST	0x0082,0x0001
0282 008c 0002  |    |		.CONST	0x008c,0x0002
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug3 Subtable 0x5
0284 ; --------------------------------------------------------------------------------------
0284 0003 0002  |    |		.DBG3TAB	0x0003,0x0002
0286 0093 ffff  |    |		.CONST	0x0093,0xffff
0288 0097 fffe  |    |		.CONST	0x0097,0xfffe
028a 0099 fffd  |    |		.CONST	0x0099,0xfffd
028c 00a2 0001  |    |		.CONST	0x00a2,0x0001
028e 00ac 0002  |    |		.CONST	0x00ac,0x0002
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x6
0290 ; --------------------------------------------------------------------------------------
0290 0002 000f  |    |		.DBG3TAB	0x0002,0x000f
0292 00b3 ffff  |    |		.CONST	0x00b3,0xffff
0294 00b4 fffe  |    |		.CONST	0x00b4,0xfffe
0296 00b6 0001  |    |		.CONST	0x00b6,0x0001
0298 00bf 0003  |    |		.CONST	0x00bf,0x0003
029a 00cc 0004  |    |		.CONST	0x00cc,0x0004
029c 00d8 0005  |    |		.CONST	0x00d8,0x0005
029e 00e5 0006  |    |		.CONST	0x00e5,0x0006
02a0 00f1 0007  |    |		.CONST	0x00f1,0x0007
02a2 00fd 0008  |    |		.CONST	0x00fd,0x0008
02a4 010a 0009  |    |		.CONST	0x010a,0x0009
02a6 0110 000b  |    |		.CONST	0x0110,0x000b
02a8 011c 000c  |    |		.CONST	0x011c,0x000c
02aa 0121 000a  | !  |		.CONST	0x0121,0x000a
02ac 0126 000d  | &  |		.CONST	0x0126,0x000d
02ae 0130 000e  | 0  |		.CONST	0x0130,0x000e
02b0 0134 000f  | 4  |		.CONST	0x0134,0x000f
02b2 0137 0010  | 7  |		.CONST	0x0137,0x0010
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug3 Subtable 0x7
02b4 ; --------------------------------------------------------------------------------------
02b4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
02b6 0143 0001  | C  |		.CONST	0x0143,0x0001
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0x8
02b8 ; --------------------------------------------------------------------------------------
02b8 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02ba 0153 0001  | S  |		.CONST	0x0153,0x0001
02bc 0159 0002  | Y  |		.CONST	0x0159,0x0002
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0x9
02be ; --------------------------------------------------------------------------------------
02be 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02c0 016b 0001  | k  |		.CONST	0x016b,0x0001
02c2 0176 0002  | v  |		.CONST	0x0176,0x0002
02c4 ; --------------------------------------------------------------------------------------
02c4 ; Debug3 Subtable 0xa
02c4 ; --------------------------------------------------------------------------------------
02c4 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02c6 0183 0001  |    |		.CONST	0x0183,0x0001
02c8 018f 0002  |    |		.CONST	0x018f,0x0002
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0xb
02ca ; --------------------------------------------------------------------------------------
02ca 0003 0005  |    |		.DBG3TAB	0x0003,0x0005
02cc 019b ffff  |    |		.CONST	0x019b,0xffff
02ce 019d fffe  |    |		.CONST	0x019d,0xfffe
02d0 01a3 fffd  |    |		.CONST	0x01a3,0xfffd
02d2 01ab 0001  |    |		.CONST	0x01ab,0x0001
02d4 01bd 0002  |    |		.CONST	0x01bd,0x0002
02d6 01bf 0003  |    |		.CONST	0x01bf,0x0003
02d8 01c1 0004  |    |		.CONST	0x01c1,0x0004
02da 01ce 0005  |    |		.CONST	0x01ce,0x0005
02dc 0000 0000  |    |		.BLANK	0000[0x124]