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

⟦40ab27568⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0198       |    |		.CONST	0x0198								; 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 001c       |    |		.CONST	0x001c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x01ea,0x0000,0x0000,0x0057,0x79c5,0x0000,0x03e4
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 00bf       |    |		Action	Accept_Activation
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1 = .DEBUG	0x0014,0x01f4,0x0000,0x0000,0x0057,0x7f05,0x0000,0x0004
													; Debug Table 0x1.0x0 = 0x14,0xffff
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x1 = 0x16,0xfffe
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x2 = 0x18,0xfffd
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x3 = 0x1a,0xfffc
001b 00c7       |    |		Action	Elaborate_Subprogram
001c			BODY_0008:
001c 00bc       |    |		Action	Signal_Activated
001d 00bb       |    |		Action	Signal_Completion
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 003a       | :  |		.CONST	0x003a								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 000e       |    |		.CONST	0x000e								; Number of locals
0023			INIT_0020:
0023 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call				; Debug Table 0x2 = .DEBUG	0x0023,0x01fe,0x0002,0x0000,0x0057,0x79c5,0x0000,0x03e5
													; Debug Table 0x2.0x0 = 0x23,0xffff
0025 a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x2.0x1 = 0x25,0xfffe
0026 00c6       |    |		Action	Check_Subprogram_Elaborated
0027 e002       |    |		Load	0x0,0x2
0028 e003       |    |		Load	0x0,0x3
0029 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
002a e004       |    |		Load	0x0,0x4
002b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
002c e004       |    |		Load	0x0,0x4
002d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
002e e003       |    |		Load	0x0,0x3
002f 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0030 4802       |H   |		Short_Literal	0x2
0031 4802       |H   |		Short_Literal	0x2
0032 0099       |    |		Action	Reference_Dynamic
0033 e004       |    |		Load	0x0,0x4
0034 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
0035 a005       |    |		Store_Unchecked	0x0,0x5
0036 a006       |    |		Store_Unchecked	0x0,0x6
0037 6158       |aX  |		Indirect_Literal	Discrete,0x190,{0x00000000, 0x00577f05}
0038 486f       |Ho  |		Short_Literal	0x6f
0039 480e       |H   |		Short_Literal	0xe
003a			BODY_0020:
003a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x2 = 0x3a,0x1
003b e403       |    |		Load	0x2,0x3
003c e404       |    |		Load	0x2,0x4
003d e405       |    |		Load	0x2,0x5
003e e406       |    |		Load	0x2,0x6
003f e407       |    |		Load	0x2,0x7
0040 4808       |H   |		Short_Literal	0x8
0041 4802       |H   |		Short_Literal	0x2
0042 0099       |    |		Action	Reference_Dynamic
0043 4809       |H   |		Short_Literal	0x9
0044 4802       |H   |		Short_Literal	0x2
0045 0099       |    |		Action	Reference_Dynamic
0046 480a       |H   |		Short_Literal	0xa
0047 4802       |H   |		Short_Literal	0x2
0048 0099       |    |		Action	Reference_Dynamic
0049 480b       |H   |		Short_Literal	0xb
004a 4802       |H   |		Short_Literal	0x2
004b 0099       |    |		Action	Reference_Dynamic
004c 480c       |H   |		Short_Literal	0xc
004d 4802       |H   |		Short_Literal	0x2
004e 0099       |    |		Action	Reference_Dynamic
004f 8001       |    |		Call	0x0,0x1
0050 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0051 0000 0000  |    |		.BLANK	0000[0x7]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0072       | r  |		.CONST	0x0072								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 000e       |    |		.CONST	0x000e								; Number of locals
005b			INIT_0058:
005b 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call				; Debug Table 0x3 = .DEBUG	0x005b,0x0206,0x0002,0x0000,0x0057,0x79c5,0x0000,0x03f2
													; Debug Table 0x3.0x0 = 0x5b,0xffff
005d a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x3.0x1 = 0x5d,0xfffe
005e 00c6       |    |		Action	Check_Subprogram_Elaborated
005f e002       |    |		Load	0x0,0x2
0060 e003       |    |		Load	0x0,0x3
0061 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0062 e004       |    |		Load	0x0,0x4
0063 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0064 e004       |    |		Load	0x0,0x4
0065 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0066 e003       |    |		Load	0x0,0x3
0067 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
0068 4802       |H   |		Short_Literal	0x2
0069 4802       |H   |		Short_Literal	0x2
006a 0099       |    |		Action	Reference_Dynamic
006b e004       |    |		Load	0x0,0x4
006c 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
006d a005       |    |		Store_Unchecked	0x0,0x5
006e a006       |    |		Store_Unchecked	0x0,0x6
006f 6120       |a   |		Indirect_Literal	Discrete,0x190,{0x00000000, 0x00577f05}
0070 48f7       |H   |		Short_Literal	0xf7
0071 480e       |H   |		Short_Literal	0xe
0072			BODY_0058:
0072 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x2 = 0x72,0x1
0073 e403       |    |		Load	0x2,0x3
0074 e404       |    |		Load	0x2,0x4
0075 e405       |    |		Load	0x2,0x5
0076 e406       |    |		Load	0x2,0x6
0077 e407       |    |		Load	0x2,0x7
0078 4808       |H   |		Short_Literal	0x8
0079 4802       |H   |		Short_Literal	0x2
007a 0099       |    |		Action	Reference_Dynamic
007b 4809       |H   |		Short_Literal	0x9
007c 4802       |H   |		Short_Literal	0x2
007d 0099       |    |		Action	Reference_Dynamic
007e 480a       |H   |		Short_Literal	0xa
007f 4802       |H   |		Short_Literal	0x2
0080 0099       |    |		Action	Reference_Dynamic
0081 480b       |H   |		Short_Literal	0xb
0082 4802       |H   |		Short_Literal	0x2
0083 0099       |    |		Action	Reference_Dynamic
0084 480c       |H   |		Short_Literal	0xc
0085 4802       |H   |		Short_Literal	0x2
0086 0099       |    |		Action	Reference_Dynamic
0087 8001       |    |		Call	0x0,0x1
0088 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0089 0000 0000  |    |		.BLANK	0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00aa       |    |		.CONST	0x00aa								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 000e       |    |		.CONST	0x000e								; Number of locals
0093			INIT_0090:
0093 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call				; Debug Table 0x4 = .DEBUG	0x0093,0x020e,0x0002,0x0000,0x0057,0x79c5,0x0000,0x03ff
													; Debug Table 0x4.0x0 = 0x93,0xffff
0095 a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x4.0x1 = 0x95,0xfffe
0096 00c6       |    |		Action	Check_Subprogram_Elaborated
0097 e007       |    |		Load	0x0,0x7
0098 e003       |    |		Load	0x0,0x3
0099 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
009a e008       |    |		Load	0x0,0x8
009b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
009c e008       |    |		Load	0x0,0x8
009d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
009e e003       |    |		Load	0x0,0x3
009f 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
00a0 4802       |H   |		Short_Literal	0x2
00a1 4802       |H   |		Short_Literal	0x2
00a2 0099       |    |		Action	Reference_Dynamic
00a3 e008       |    |		Load	0x0,0x8
00a4 191d       |    |		Execute	Package,Field_Reference,Field_Number 0x1d
00a5 a009       |    |		Store_Unchecked	0x0,0x9
00a6 a00a       |    |		Store_Unchecked	0x0,0xa
00a7 60e8       |`   |		Indirect_Literal	Discrete,0x190,{0x00000000, 0x00577f05}
00a8 4930       |I0  |		Short_Literal	0x130
00a9 480e       |H   |		Short_Literal	0xe
00aa			BODY_0090:
00aa e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x2 = 0xaa,0x1
00ab e403       |    |		Load	0x2,0x3
00ac e404       |    |		Load	0x2,0x4
00ad e405       |    |		Load	0x2,0x5
00ae e406       |    |		Load	0x2,0x6
00af e407       |    |		Load	0x2,0x7
00b0 4808       |H   |		Short_Literal	0x8
00b1 4802       |H   |		Short_Literal	0x2
00b2 0099       |    |		Action	Reference_Dynamic
00b3 4809       |H   |		Short_Literal	0x9
00b4 4802       |H   |		Short_Literal	0x2
00b5 0099       |    |		Action	Reference_Dynamic
00b6 480a       |H   |		Short_Literal	0xa
00b7 4802       |H   |		Short_Literal	0x2
00b8 0099       |    |		Action	Reference_Dynamic
00b9 480b       |H   |		Short_Literal	0xb
00ba 4802       |H   |		Short_Literal	0x2
00bb 0099       |    |		Action	Reference_Dynamic
00bc 480c       |H   |		Short_Literal	0xc
00bd 4802       |H   |		Short_Literal	0x2
00be 0099       |    |		Action	Reference_Dynamic
00bf 8001       |    |		Call	0x0,0x1
00c0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c1 0000 0000  |    |		.BLANK	0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00e2       |    |		.CONST	0x00e2								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 000e       |    |		.CONST	0x000e								; Number of locals
00cb			INIT_00c8:
00cb 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call				; Debug Table 0x5 = .DEBUG	0x00cb,0x0216,0x0002,0x0000,0x0057,0x79c5,0x0000,0x0408
													; Debug Table 0x5.0x0 = 0xcb,0xffff
00cd a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x5.0x1 = 0xcd,0xfffe
00ce 00c6       |    |		Action	Check_Subprogram_Elaborated
00cf e007       |    |		Load	0x0,0x7
00d0 e003       |    |		Load	0x0,0x3
00d1 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
00d2 e008       |    |		Load	0x0,0x8
00d3 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00d4 e008       |    |		Load	0x0,0x8
00d5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00d6 e003       |    |		Load	0x0,0x3
00d7 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
00d8 4802       |H   |		Short_Literal	0x2
00d9 4802       |H   |		Short_Literal	0x2
00da 0099       |    |		Action	Reference_Dynamic
00db e008       |    |		Load	0x0,0x8
00dc 191d       |    |		Execute	Package,Field_Reference,Field_Number 0x1d
00dd a009       |    |		Store_Unchecked	0x0,0x9
00de a00a       |    |		Store_Unchecked	0x0,0xa
00df 60b0       |`   |		Indirect_Literal	Discrete,0x190,{0x00000000, 0x00577f05}
00e0 4969       |Ii  |		Short_Literal	0x169
00e1 480e       |H   |		Short_Literal	0xe
00e2			BODY_00c8:
00e2 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x2 = 0xe2,0x1
00e3 e403       |    |		Load	0x2,0x3
00e4 e404       |    |		Load	0x2,0x4
00e5 e405       |    |		Load	0x2,0x5
00e6 e406       |    |		Load	0x2,0x6
00e7 e407       |    |		Load	0x2,0x7
00e8 4808       |H   |		Short_Literal	0x8
00e9 4802       |H   |		Short_Literal	0x2
00ea 0099       |    |		Action	Reference_Dynamic
00eb 4809       |H   |		Short_Literal	0x9
00ec 4802       |H   |		Short_Literal	0x2
00ed 0099       |    |		Action	Reference_Dynamic
00ee 480a       |H   |		Short_Literal	0xa
00ef 4802       |H   |		Short_Literal	0x2
00f0 0099       |    |		Action	Reference_Dynamic
00f1 480b       |H   |		Short_Literal	0xb
00f2 4802       |H   |		Short_Literal	0x2
00f3 0099       |    |		Action	Reference_Dynamic
00f4 480c       |H   |		Short_Literal	0xc
00f5 4802       |H   |		Short_Literal	0x2
00f6 0099       |    |		Action	Reference_Dynamic
00f7 8001       |    |		Call	0x0,0x1
00f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f9 0000 0000  |    |		.BLANK	0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0112       |    |		.CONST	0x0112								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0004       |    |		.CONST	0x0004								; Number of locals
0103			INIT_0100:
0103 e004       |    |		Load	0x0,0x4								; Debug Table 0x6 = .DEBUG	0x0103,0x021e,0x0002,0x0000,0x0057,0x7f05,0x0000,0x0011
													; Debug Table 0x6.0x0 = 0x103,0xffff
0104 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0105 02c7       |    |		Declare_Variable	Any
0106 00d8       |    |		Load_Top	At_Offset_0
0107 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0108 e008       |    |		Load	0x0,0x8								; Debug Table 0x6.0x1 = 0x108,0xfffe
0109 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010a 02c7       |    |		Declare_Variable	Any
010b 00d8       |    |		Load_Top	At_Offset_0
010c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010d e008       |    |		Load	0x0,0x8								; Debug Table 0x6.0x2 = 0x10d,0xfffd
010e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
010f 0322       | "  |		Declare_Variable	Record
0110 00d8       |    |		Load_Top	At_Offset_0
0111 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0112			BODY_0100:
0112 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x6.0x3 = 0x112,0x1
0113 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0114 e5ff       |    |		Load	0x2,-0x1
0115 0217       |    |		Execute	Heap_Access,All_Reference
0116 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0117 e5ff       |    |		Load	0x2,-0x1
0118 0217       |    |		Execute	Heap_Access,All_Reference
0119 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011a 0217       |    |		Execute	Heap_Access,All_Reference
011b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011c e004       |    |		Load	0x0,0x4
011d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
011e c602       |    |		Store	0x3,0x2
011f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x4 = 0x11f,0x2
0120 e004       |    |		Load	0x0,0x4
0121 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0122 6803       |h   |		Jump_Zero	0x126
0123 e003       |    |		Load	0x0,0x3								; Debug Table 0x6.0x5 = 0x123,0x3
0124 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0125 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0126 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x6 = 0x126,0x4
0127 e5ff       |    |		Load	0x2,-0x1
0128 0217       |    |		Execute	Heap_Access,All_Reference
0129 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
012a 0217       |    |		Execute	Heap_Access,All_Reference
012b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
012c e004       |    |		Load	0x0,0x4
012d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
012e c603       |    |		Store	0x3,0x3
012f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x7 = 0x12f,0x5
0130 00da       |    |		Load_Top	At_Offset_2
0131 e5ff       |    |		Load	0x2,-0x1
0132 0217       |    |		Execute	Heap_Access,All_Reference
0133 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0134 0217       |    |		Execute	Heap_Access,All_Reference
0135 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0136 e008       |    |		Load	0x0,0x8
0137 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0138 00d1       |    |		Pop_Control	Pop_Count_1
0139 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x8 = 0x139,0x6
013a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0152       | R  |		.CONST	0x0152								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0004       |    |		.CONST	0x0004								; Number of locals
0143			INIT_0140:
0143 e004       |    |		Load	0x0,0x4								; Debug Table 0x7 = .DEBUG	0x0143,0x0232,0x0002,0x0000,0x0057,0x7f05,0x0000,0x0099
													; Debug Table 0x7.0x0 = 0x143,0xffff
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 02c7       |    |		Declare_Variable	Any
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148 e008       |    |		Load	0x0,0x8								; Debug Table 0x7.0x1 = 0x148,0xfffe
0149 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014a 02c7       |    |		Declare_Variable	Any
014b 00d8       |    |		Load_Top	At_Offset_0
014c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
014d e008       |    |		Load	0x0,0x8								; Debug Table 0x7.0x2 = 0x14d,0xfffd
014e 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
014f 0322       | "  |		Declare_Variable	Record
0150 00d8       |    |		Load_Top	At_Offset_0
0151 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0152			BODY_0140:
0152 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x7.0x3 = 0x152,0x1
0153 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0154 e5ff       |    |		Load	0x2,-0x1
0155 0217       |    |		Execute	Heap_Access,All_Reference
0156 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0157 e5ff       |    |		Load	0x2,-0x1
0158 0217       |    |		Execute	Heap_Access,All_Reference
0159 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
015a 0217       |    |		Execute	Heap_Access,All_Reference
015b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015c e004       |    |		Load	0x0,0x4
015d 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
015e c602       |    |		Store	0x3,0x2
015f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x4 = 0x15f,0x2
0160 e004       |    |		Load	0x0,0x4
0161 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0162 6803       |h   |		Jump_Zero	0x166
0163 e003       |    |		Load	0x0,0x3								; Debug Table 0x7.0x5 = 0x163,0x3
0164 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0165 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0166 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x6 = 0x166,0x4
0167 e5ff       |    |		Load	0x2,-0x1
0168 0217       |    |		Execute	Heap_Access,All_Reference
0169 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
016a 0217       |    |		Execute	Heap_Access,All_Reference
016b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
016c e004       |    |		Load	0x0,0x4
016d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
016e c603       |    |		Store	0x3,0x3
016f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x7 = 0x16f,0x5
0170 00da       |    |		Load_Top	At_Offset_2
0171 e5ff       |    |		Load	0x2,-0x1
0172 0217       |    |		Execute	Heap_Access,All_Reference
0173 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0174 0217       |    |		Execute	Heap_Access,All_Reference
0175 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0176 e008       |    |		Load	0x0,0x8
0177 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0178 00d1       |    |		Pop_Control	Pop_Count_1
0179 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x8 = 0x179,0x6
017a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
017b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
017c 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x8 = .DEBUG	0x0183,0x0246,0x0002,0x0000,0x0057,0x7f05,0x0000,0x011d
													; Debug Table 0x8.0x0 = 0x183,0x1
0184 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0185 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x018b,0x024a,0x0002,0x0000,0x0057,0x7f05,0x0000,0x0156
													; Debug Table 0x9.0x0 = 0x18b,0x1
018c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0000 0000  |    |		.XXX[0x2]
0190 0000 0000  |    |		.LITERAL	{0x00000000, 0x00577f05}
0194 0000 0000  |    |		.BLANK	0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0003 000a  |    |		.CONST	0x0003,0x000a
019a 000b 01ea  |    |		.DEBUG	0x000b,0x01ea,0x0000,0x0000,0x0057,0x79c5,0x0000,0x03e4
01a2 0014 01f4  |    |		.DEBUG	0x0014,0x01f4,0x0000,0x0000,0x0057,0x7f05,0x0000,0x0004
01aa 0023 01fe  | #  |		.DEBUG	0x0023,0x01fe,0x0002,0x0000,0x0057,0x79c5,0x0000,0x03e5
01b2 005b 0206  | [  |		.DEBUG	0x005b,0x0206,0x0002,0x0000,0x0057,0x79c5,0x0000,0x03f2
01ba 0093 020e  |    |		.DEBUG	0x0093,0x020e,0x0002,0x0000,0x0057,0x79c5,0x0000,0x03ff
01c2 00cb 0216  |    |		.DEBUG	0x00cb,0x0216,0x0002,0x0000,0x0057,0x79c5,0x0000,0x0408
01ca 0103 021e  |    |		.DEBUG	0x0103,0x021e,0x0002,0x0000,0x0057,0x7f05,0x0000,0x0011
01d2 0143 0232  | C 2|		.DEBUG	0x0143,0x0232,0x0002,0x0000,0x0057,0x7f05,0x0000,0x0099
01da 0183 0246  |   F|		.DEBUG	0x0183,0x0246,0x0002,0x0000,0x0057,0x7f05,0x0000,0x011d
01e2 018b 024a  |   J|		.DEBUG	0x018b,0x024a,0x0002,0x0000,0x0057,0x7f05,0x0000,0x0156
01ea ; --------------------------------------------------------------------------------------
01ea ; Debug3 Subtable 0x0
01ea ; --------------------------------------------------------------------------------------
01ea 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
01ec 000b ffff  |    |		.CONST	0x000b,0xffff
01ee 000d fffe  |    |		.CONST	0x000d,0xfffe
01f0 000f fffd  |    |		.CONST	0x000f,0xfffd
01f2 0011 fffc  |    |		.CONST	0x0011,0xfffc
01f4 ; --------------------------------------------------------------------------------------
01f4 ; Debug3 Subtable 0x1
01f4 ; --------------------------------------------------------------------------------------
01f4 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
01f6 0014 ffff  |    |		.CONST	0x0014,0xffff
01f8 0016 fffe  |    |		.CONST	0x0016,0xfffe
01fa 0018 fffd  |    |		.CONST	0x0018,0xfffd
01fc 001a fffc  |    |		.CONST	0x001a,0xfffc
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug3 Subtable 0x2
01fe ; --------------------------------------------------------------------------------------
01fe 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0200 0023 ffff  | #  |		.CONST	0x0023,0xffff
0202 0025 fffe  | %  |		.CONST	0x0025,0xfffe
0204 003a 0001  | :  |		.CONST	0x003a,0x0001
0206 ; --------------------------------------------------------------------------------------
0206 ; Debug3 Subtable 0x3
0206 ; --------------------------------------------------------------------------------------
0206 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0208 005b ffff  | [  |		.CONST	0x005b,0xffff
020a 005d fffe  | ]  |		.CONST	0x005d,0xfffe
020c 0072 0001  | r  |		.CONST	0x0072,0x0001
020e ; --------------------------------------------------------------------------------------
020e ; Debug3 Subtable 0x4
020e ; --------------------------------------------------------------------------------------
020e 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0210 0093 ffff  |    |		.CONST	0x0093,0xffff
0212 0095 fffe  |    |		.CONST	0x0095,0xfffe
0214 00aa 0001  |    |		.CONST	0x00aa,0x0001
0216 ; --------------------------------------------------------------------------------------
0216 ; Debug3 Subtable 0x5
0216 ; --------------------------------------------------------------------------------------
0216 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0218 00cb ffff  |    |		.CONST	0x00cb,0xffff
021a 00cd fffe  |    |		.CONST	0x00cd,0xfffe
021c 00e2 0001  |    |		.CONST	0x00e2,0x0001
021e ; --------------------------------------------------------------------------------------
021e ; Debug3 Subtable 0x6
021e ; --------------------------------------------------------------------------------------
021e 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
0220 0103 ffff  |    |		.CONST	0x0103,0xffff
0222 0108 fffe  |    |		.CONST	0x0108,0xfffe
0224 010d fffd  |    |		.CONST	0x010d,0xfffd
0226 0112 0001  |    |		.CONST	0x0112,0x0001
0228 011f 0002  |    |		.CONST	0x011f,0x0002
022a 0123 0003  | #  |		.CONST	0x0123,0x0003
022c 0126 0004  | &  |		.CONST	0x0126,0x0004
022e 012f 0005  | /  |		.CONST	0x012f,0x0005
0230 0139 0006  | 9  |		.CONST	0x0139,0x0006
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x7
0232 ; --------------------------------------------------------------------------------------
0232 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
0234 0143 ffff  | C  |		.CONST	0x0143,0xffff
0236 0148 fffe  | H  |		.CONST	0x0148,0xfffe
0238 014d fffd  | M  |		.CONST	0x014d,0xfffd
023a 0152 0001  | R  |		.CONST	0x0152,0x0001
023c 015f 0002  | _  |		.CONST	0x015f,0x0002
023e 0163 0003  | c  |		.CONST	0x0163,0x0003
0240 0166 0004  | f  |		.CONST	0x0166,0x0004
0242 016f 0005  | o  |		.CONST	0x016f,0x0005
0244 0179 0006  | y  |		.CONST	0x0179,0x0006
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x8
0246 ; --------------------------------------------------------------------------------------
0246 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0248 0183 0001  |    |		.CONST	0x0183,0x0001
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x9
024a ; --------------------------------------------------------------------------------------
024a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
024c 018b 0001  |    |		.CONST	0x018b,0x0001
024e 0000 0000  |    |		.BLANK	0000[0x1b2]