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

⟦b61078072⟧

    Length: 3072 (0xc00)
    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 02a8       |    |		.CONST	0x02a8								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0067       | g  |		.CONST	0x0067								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x035a,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x047b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 00bf       |    |		Action	Accept_Activation
0016 e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x0016,0x0366,0x4000,0x0000,0x0056,0xdb75,0x0000,0x0006
													; Debug Table 0x1.0x0 = 0x16,0xffff
0017 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0018 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call			; Debug Table 0x1.0x1 = 0x18,0xfffe
001a 6289       |b   |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x0056db75}		; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 4827       |H'  |		Short_Literal	0x27
001c e210       |    |		Load	0x1,0x10
001d e002       |    |		Load	0x0,0x2
001e 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
001f 0387       |    |		Declare_Variable	Package
0020 00d8       |    |		Load_Top	At_Offset_0
0021 020f       |    |		Execute	Module,Activate
0022 6281       |b   |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x0056db75}		; Debug Table 0x1.0x3 = 0x22,0xfffc
0023 482f       |H/  |		Short_Literal	0x2f
0024 e210       |    |		Load	0x1,0x10
0025 e211       |    |		Load	0x1,0x11
0026 e002       |    |		Load	0x0,0x2
0027 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0028 0387       |    |		Declare_Variable	Package
0029 00d8       |    |		Load_Top	At_Offset_0
002a 020f       |    |		Execute	Module,Activate
002b 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call			; Debug Table 0x1.0x4 = 0x2b,0xfffb
002d 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call			; Debug Table 0x1.0x5 = 0x2d,0xfffa
002f 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call			; Debug Table 0x1.0x6 = 0x2f,0xfff9
0031 029d 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call			; Debug Table 0x1.0x7 = 0x31,0xfff8
0033 029d 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call			; Debug Table 0x1.0x8 = 0x33,0xfff7
0035 029d 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call			; Debug Table 0x1.0x9 = 0x35,0xfff6
0037 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call			; Debug Table 0x1.0xa = 0x37,0xfff5
0039 029d 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call			; Debug Table 0x1.0xb = 0x39,0xfff4
003b 029d 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call			; Debug Table 0x1.0xc = 0x3b,0xfff3
003d 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call			; Debug Table 0x1.0xd = 0x3d,0xfff2
003f 6264       |bd  |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x0056db75}		; Debug Table 0x1.0xe = 0x3f,0xfff1
0040 4999       |I   |		Short_Literal	0x199
0041 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0042 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0043 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0044 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0045 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0046 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0047 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0048 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0049 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
004a 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
004b e212       |    |		Load	0x1,0x12
004c e003       |    |		Load	0x0,0x3
004d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004e 0335       | 5  |		Declare_Variable	Array,Duplicate
004f 00d0       |    |		Action	Swap_Control
0050 00d1       |    |		Pop_Control	Pop_Count_1
0051 e213       |    |		Load	0x1,0x13
0052 0335       | 5  |		Declare_Variable	Array,Duplicate
0053 00d0       |    |		Action	Swap_Control
0054 00d1       |    |		Pop_Control	Pop_Count_1
0055 4800       |H   |		Short_Literal	0x0
0056 e003       |    |		Load	0x0,0x3
0057 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0058 e004       |    |		Load	0x0,0x4
0059 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
005a 0387       |    |		Declare_Variable	Package
005b 00d8       |    |		Load_Top	At_Offset_0
005c 020f       |    |		Execute	Module,Activate
005d 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0xf = 0x5d,0xfff0
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x10 = 0x5f,0xffef
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e				; Debug Table 0x1.0x11 = 0x61,0xffee
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f				; Debug Table 0x1.0x12 = 0x63,0xffed
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20				; Debug Table 0x1.0x13 = 0x65,0xffec
0066 00c7       |    |		Action	Elaborate_Subprogram
0067			BODY_0008:
0067 00cf       |    |		Action	Mark_Auxiliary
0068 e20f       |    |		Load	0x1,0xf								; Debug Table 0x1.0x14 = 0x68,0x1
0069 0265       | e  |		Execute	Discrete,Reverse_Bounds
006a 0263       | c  |		Execute	Discrete,Above_Bound
006b 700f       |p   |		Jump_Nonzero	0x7b
006c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x15 = 0x6c,0x2
006d 00e3       |    |		Load_Encached	Natural_Cache
006e 025b       | [  |		Execute	Discrete,Check_In_Type
006f 00d9       |    |		Load_Top	At_Offset_1
0070 e20f       |    |		Load	0x1,0xf
0071 0122       | "  |		Execute	Any,Make_Root_Type
0072 025e       | ^  |		Execute	Discrete,Convert
0073 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0074 e003       |    |		Load	0x0,0x3
0075 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0076 e212       |    |		Load	0x1,0x12
0077 e22f       | /  |		Load	0x1,0x2f
0078 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0079 00c8       |    |		Action	Pop_Auxiliary_Range
007a 3ff1       |?   |		Loop_Increasing	0x6c
007b 00ce       |    |		Action	Pop_Auxiliary
007c 00bc       |    |		Action	Signal_Activated
007d 00bb       |    |		Action	Signal_Completion
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008c       |    |		.CONST	0x008c								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0004       |    |		.CONST	0x0004								; Number of locals
0083			INIT_0080:
0083 e005       |    |		Load	0x0,0x5								; Debug Table 0x2 = .DEBUG	0x0083,0x0394,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x04fd
													; Debug Table 0x2.0x0 = 0x83,0xffff
0084 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0085 0322       | "  |		Declare_Variable	Record
0086 00d8       |    |		Load_Top	At_Offset_0
0087 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0088 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call				; Debug Table 0x2.0x1 = 0x88,0xfffe
008a 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
008c			BODY_0080:
008c 00be       |    |		Action	Activate_Tasks
008d 0007       |    |		Action	Break_Optional							; Debug Table 0x2.0x2 = 0x8d,0x1
008e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x3 = 0x8e,0x401
008f e006       |    |		Load	0x0,0x6
0090 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0091 0f00       |    |		Execute_Immediate	Equal,0x0
0092 6809       |h   |		Jump_Zero	0x9c							; Debug Table 0x2.0x4 = 0x92,0x1
0093 e219       |    |		Load	0x1,0x19							; Debug Table 0x2.0x5 = 0x93,0x2
0094 00d8       |    |		Load_Top	At_Offset_0
0095 0120       |    |		Execute	Any,Is_Value
0096 7002       |p   |		Jump_Nonzero	0x99
0097 00d8       |    |		Load_Top	At_Offset_0
0098 011e       |    |		Execute	Any,Convert
0099 e210       |    |		Load	0x1,0x10
009a 0119       |    |		Execute	Any,Check_In_Formal_Type
009b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
009c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x6 = 0x9c,0x3
009d e5fd       |    |		Load	0x2,-0x3
009e e5fe       |    |		Load	0x2,-0x2
009f 4800       |H   |		Short_Literal	0x0
00a0 e5ff       |    |		Load	0x2,-0x1
00a1 8007       |    |		Call	0x0,0x7
00a2 00d1       |    |		Pop_Control	Pop_Count_1
00a3 8404       |    |		Call	0x2,0x4								; Debug Table 0x2.0x7 = 0xa3,0x4
00a4 4831       |H1  |		Short_Literal	0x31
00a5 0257       | W  |		Execute	Discrete,Raise
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0       |    |		.CONST	0x00b0								; Address of begin
00a9 00c7       |    |		.CONST	0x00c7								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab e005       |    |		Load	0x0,0x5								; Debug Table 0x3 = .DEBUG	0x00ab,0x03a6,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x0516
													; Debug Table 0x3.0x0 = 0xab,0xffff
00ac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ad 0322       | "  |		Declare_Variable	Record
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b0			BODY_00a8:
00b0 00be       |    |		Action	Activate_Tasks
00b1 0007       |    |		Action	Break_Optional							; Debug Table 0x3.0x1 = 0xb1,0x1
00b2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x2 = 0xb2,0x401
00b3 e006       |    |		Load	0x0,0x6
00b4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b5 0f00       |    |		Execute_Immediate	Equal,0x0
00b6 700f       |p   |		Jump_Nonzero	0xc6							; Debug Table 0x3.0x3 = 0xb6,0x1
00b7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x4 = 0xb7,0x2
00b8 e5fc       |    |		Load	0x2,-0x4
00b9 e5fd       |    |		Load	0x2,-0x3
00ba 4802       |H   |		Short_Literal	0x2
00bb e5ff       |    |		Load	0x2,-0x1
00bc 8007       |    |		Call	0x0,0x7
00bd 00d1       |    |		Pop_Control	Pop_Count_1
00be e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x3.0x5 = 0xbe,0x3
00bf e210       |    |		Load	0x1,0x10
00c0 0119       |    |		Execute	Any,Check_In_Formal_Type
00c1 00d9       |    |		Load_Top	At_Offset_1
00c2 8220       |    |		Call	0x1,0x20
00c3 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0xc3,0x4
00c4 8008       |    |		Call	0x0,0x8
00c5 00d1       |    |		Pop_Control	Pop_Count_1
00c6 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00c7			TRAP_00a8:
00c7 0007       |    |		Action	Break_Optional
00c8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x7 = 0xc8,0x5
00c9 8008       |    |		Call	0x0,0x8
00ca 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5       |    |		.CONST	0x00d5								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 e009       |    |		Load	0x0,0x9								; Debug Table 0x4 = .DEBUG	0x00d3,0x03b8,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x0532
													; Debug Table 0x4.0x0 = 0xd3,0xffff
00d4 0007       |    |		Action	Break_Optional
00d5			BODY_00d0:
00d5 8222       | "  |		Call	0x1,0x22							; Debug Table 0x4.0x1 = 0xd5,0x1
00d6 800a       |    |		Call	0x0,0xa
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 800b       |    |		Call	0x0,0xb
00d9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00da 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x2 = 0xda,0x2
00db 7009       |p   |		Jump_Nonzero	0xe5
00dc e219       |    |		Load	0x1,0x19							; Debug Table 0x4.0x3 = 0xdc,0x3
00dd 00d8       |    |		Load_Top	At_Offset_0
00de 0120       |    |		Execute	Any,Is_Value
00df 7002       |p   |		Jump_Nonzero	0xe2
00e0 00d8       |    |		Load_Top	At_Offset_0
00e1 011e       |    |		Execute	Any,Convert
00e2 e210       |    |		Load	0x1,0x10
00e3 0119       |    |		Execute	Any,Check_In_Formal_Type
00e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x4 = 0xe5,0x4
00e6 0217       |    |		Execute	Heap_Access,All_Reference
00e7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e8 e5ff       |    |		Load	0x2,-0x1
00e9 e223       | #  |		Load	0x1,0x23
00ea 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00eb e210       |    |		Load	0x1,0x10
00ec 0119       |    |		Execute	Any,Check_In_Formal_Type
00ed 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ee 0000 0000  |    |		.XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5       |    |		.CONST	0x00f5								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 e009       |    |		Load	0x0,0x9								; Debug Table 0x5 = .DEBUG	0x00f3,0x03c4,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x053b
													; Debug Table 0x5.0x0 = 0xf3,0xffff
00f4 0007       |    |		Action	Break_Optional
00f5			BODY_00f0:
00f5 8222       | "  |		Call	0x1,0x22							; Debug Table 0x5.0x1 = 0xf5,0x1
00f6 800a       |    |		Call	0x0,0xa
00f7 e5ff       |    |		Load	0x2,-0x1
00f8 800b       |    |		Call	0x0,0xb
00f9 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00fa 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x2 = 0xfa,0x2
00fb 700a       |p   |		Jump_Nonzero	0x106
00fc e219       |    |		Load	0x1,0x19							; Debug Table 0x5.0x3 = 0xfc,0x3
00fd e210       |    |		Load	0x1,0x10
00fe 0119       |    |		Execute	Any,Check_In_Formal_Type
00ff e5ff       |    |		Load	0x2,-0x1
0100 8220       |    |		Call	0x1,0x20
0101 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0x4 = 0x101,0x4
0102 821f       |    |		Call	0x1,0x1f
0103 e211       |    |		Load	0x1,0x11
0104 0213       |    |		Execute	Heap_Access,Check_In_Type
0105 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0106 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x5 = 0x106,0x5
0107 0217       |    |		Execute	Heap_Access,All_Reference
0108 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0109 e5ff       |    |		Load	0x2,-0x1
010a e224       | $  |		Load	0x1,0x24
010b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
010c e211       |    |		Load	0x1,0x11
010d 0213       |    |		Execute	Heap_Access,Check_In_Type
010e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0115       |    |		.CONST	0x0115								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0002       |    |		.CONST	0x0002								; Number of locals
0113			INIT_0110:
0113 e009       |    |		Load	0x0,0x9								; Debug Table 0x6 = .DEBUG	0x0113,0x03d2,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x0544
													; Debug Table 0x6.0x0 = 0x113,0xffff
0114 0007       |    |		Action	Break_Optional
0115			BODY_0110:
0115 8222       | "  |		Call	0x1,0x22							; Debug Table 0x6.0x1 = 0x115,0x1
0116 800a       |    |		Call	0x0,0xa
0117 e5ff       |    |		Load	0x2,-0x1
0118 800b       |    |		Call	0x0,0xb
0119 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
011a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x2 = 0x11a,0x2
011b 700d       |p   |		Jump_Nonzero	0x129
011c e009       |    |		Load	0x0,0x9								; Debug Table 0x6.0x3 = 0x11c,0x3
011d 8222       | "  |		Call	0x1,0x22
011e 800a       |    |		Call	0x0,0xa
011f e5ff       |    |		Load	0x2,-0x1
0120 800c       |    |		Call	0x0,0xc
0121 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0122 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x4 = 0x122,0x4
0123 e002       |    |		Load	0x0,0x2
0124 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0125 00d9       |    |		Load_Top	At_Offset_1
0126 0217       |    |		Execute	Heap_Access,All_Reference
0127 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0128 7826       |x&  |		Jump	0x14f
0129 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x5 = 0x129,0x5
012a 011f       |    |		Execute	Any,Is_Scalar
012b 6802       |h   |		Jump_Zero	0x12e
012c e210       |    |		Load	0x1,0x10
012d 7801       |x   |		Jump	0x12f
012e e5fe       |    |		Load	0x2,-0x2
012f 012c       | ,  |		Execute	Any,Size
0130 00d9       |    |		Load_Top	At_Offset_1
0131 0217       |    |		Execute	Heap_Access,All_Reference
0132 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0133 800d       |    |		Call	0x0,0xd
0134 00d9       |    |		Load_Top	At_Offset_1
0135 0217       |    |		Execute	Heap_Access,All_Reference
0136 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0137 e5ff       |    |		Load	0x2,-0x1
0138 e223       | #  |		Load	0x1,0x23
0139 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
013a e002       |    |		Load	0x0,0x2
013b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
013c 6812       |h   |		Jump_Zero	0x14f
013d 00db       |    |		Load_Top	At_Offset_3
013e e002       |    |		Load	0x0,0x2
013f 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0140 00d9       |    |		Load_Top	At_Offset_1
0141 0217       |    |		Execute	Heap_Access,All_Reference
0142 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0143 e5ff       |    |		Load	0x2,-0x1
0144 e223       | #  |		Load	0x1,0x23
0145 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0146 e002       |    |		Load	0x0,0x2
0147 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0148 6806       |h   |		Jump_Zero	0x14f
0149 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x6 = 0x149,0x6
014a e002       |    |		Load	0x0,0x2
014b 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
014c 00d9       |    |		Load_Top	At_Offset_1
014d 0217       |    |		Execute	Heap_Access,All_Reference
014e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
014f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6.0x7 = 0x14f,0x7
0150 e005       |    |		Load	0x0,0x5
0151 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0152 e212       |    |		Load	0x1,0x12
0153 027e       | ~  |		Execute	Discrete,Not_Equal
0154 6803       |h   |		Jump_Zero	0x158
0155 e005       |    |		Load	0x0,0x5								; Debug Table 0x6.0x8 = 0x155,0x8
0156 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0157 0257       | W  |		Execute	Discrete,Raise
0158 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x9 = 0x158,0x9
0159 e210       |    |		Load	0x1,0x10
015a 0119       |    |		Execute	Any,Check_In_Formal_Type
015b 00d9       |    |		Load_Top	At_Offset_1
015c 0217       |    |		Execute	Heap_Access,All_Reference
015d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
015e e5ff       |    |		Load	0x2,-0x1
015f e223       | #  |		Load	0x1,0x23
0160 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0161 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0162 0000 0000  |    |		.BLANK	0000[0x6]
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 e221       | !  |		Load	0x1,0x21							; Debug Table 0x7 = .DEBUG	0x016b,0x03e8,0x1002,0x0000,0x0056,0xdb75,0x0000,0x000d
													; Debug Table 0x7.0x0 = 0x16b,0x1
016c 7004       |p   |		Jump_Nonzero	0x171
016d e213       |    |		Load	0x1,0x13							; Debug Table 0x7.0x1 = 0x16d,0x2
016e 800a       |    |		Call	0x0,0xa
016f 800e       |    |		Call	0x0,0xe
0170 a221       | !  |		Store_Unchecked	0x1,0x21
0171 e221       | !  |		Load	0x1,0x21							; Debug Table 0x7.0x2 = 0x171,0x3
0172 00ca       |    |		Action	Exit_Nullary_Function
0173 0000 0000  |    |		.BLANK	0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 8222       | "  |		Call	0x1,0x22							; Debug Table 0x8 = .DEBUG	0x017b,0x03f0,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0038
													; Debug Table 0x8.0x0 = 0x17b,0x1
017c 800a       |    |		Call	0x0,0xa
017d e5ff       |    |		Load	0x2,-0x1
017e 800b       |    |		Call	0x0,0xb
017f 021c       |    |		Execute	Heap_Access,Not_Null
0180 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0181 0000 0000  |    |		.BLANK	0000[0x7]
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,0x03f4,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0054
													; Debug Table 0x9.0x0 = 0x18b,0x1
018c 00d8       |    |		Load_Top	At_Offset_0
018d e20f       |    |		Load	0x1,0xf
018e 0122       | "  |		Execute	Any,Make_Root_Type
018f 0260       | `  |		Execute	Discrete,In_Type
0190 7002       |p   |		Jump_Nonzero	0x193
0191 48e0       |H   |		Short_Literal	0xe0
0192 0257       | W  |		Execute	Discrete,Raise
0193 e20f       |    |		Load	0x1,0xf
0194 025b       | [  |		Execute	Discrete,Check_In_Type
0195 e219       |    |		Load	0x1,0x19
0196 e210       |    |		Load	0x1,0x10
0197 0119       |    |		Execute	Any,Check_In_Formal_Type
0198 8214       |    |		Call	0x1,0x14
0199 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019a 0000 0000  |    |		.BLANK	0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 e219       |    |		Load	0x1,0x19							; Debug Table 0xa = .DEBUG	0x01a3,0x03f8,0x1002,0x0000,0x0056,0xdb75,0x0000,0x006b
													; Debug Table 0xa.0x0 = 0x1a3,0x1
01a4 e5fe       |    |		Load	0x2,-0x2
01a5 e5ff       |    |		Load	0x2,-0x1
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 e20f       |    |		Load	0x1,0xf
01a8 0122       | "  |		Execute	Any,Make_Root_Type
01a9 0260       | `  |		Execute	Discrete,In_Type
01aa 7002       |p   |		Jump_Nonzero	0x1ad
01ab 48e0       |H   |		Short_Literal	0xe0
01ac 0257       | W  |		Execute	Discrete,Raise
01ad e20f       |    |		Load	0x1,0xf
01ae 025b       | [  |		Execute	Discrete,Check_In_Type
01af e219       |    |		Load	0x1,0x19
01b0 e210       |    |		Load	0x1,0x10
01b1 0119       |    |		Execute	Any,Check_In_Formal_Type
01b2 8215       |    |		Call	0x1,0x15
01b3 012f       | /  |		Execute	Any,Equal
01b4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb = .DEBUG	0x01bb,0x03fc,0x1002,0x0000,0x0056,0xdb75,0x0000,0x008d
													; Debug Table 0xb.0x0 = 0x1bb,0x1
01bc 00d8       |    |		Load_Top	At_Offset_0
01bd e20f       |    |		Load	0x1,0xf
01be 0122       | "  |		Execute	Any,Make_Root_Type
01bf 0260       | `  |		Execute	Discrete,In_Type
01c0 7002       |p   |		Jump_Nonzero	0x1c3
01c1 48e0       |H   |		Short_Literal	0xe0
01c2 0257       | W  |		Execute	Discrete,Raise
01c3 e20f       |    |		Load	0x1,0xf
01c4 025b       | [  |		Execute	Discrete,Check_In_Type
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 821e       |    |		Call	0x1,0x1e
01c7 e210       |    |		Load	0x1,0x10
01c8 0119       |    |		Execute	Any,Check_In_Formal_Type
01c9 8214       |    |		Call	0x1,0x14
01ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01cb 0000 0000  |    |		.BLANK	0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d7       |    |		.CONST	0x01d7								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0003       |    |		.CONST	0x0003								; Number of locals
01d3			INIT_01d0:
01d3 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call				; Debug Table 0xc = .DEBUG	0x01d3,0x0400,0x1001,0x0000,0x0056,0xdb75,0x0000,0x00ab
													; Debug Table 0xc.0x0 = 0x1d3,0xffff
01d5 029f 028b  |    |		Declare_Subprogram	INIT_0288,For_Call				; Debug Table 0xc.0x1 = 0x1d5,0xfffe
01d7			BODY_01d0:
01d7 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xc.0x2 = 0x1d7,0x1
01d8 821e       |    |		Call	0x1,0x1e
01d9 e210       |    |		Load	0x1,0x10
01da 0119       |    |		Execute	Any,Check_In_Formal_Type
01db 8403       |    |		Call	0x2,0x3
01dc e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xc.0x3 = 0x1dc,0x2
01dd e5fe       |    |		Load	0x2,-0x2
01de e5ff       |    |		Load	0x2,-0x1
01df e002       |    |		Load	0x0,0x2
01e0 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01e1 821b       |    |		Call	0x1,0x1b
01e2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01e3 0000 0000  |    |		.BLANK	0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd = .DEBUG	0x01eb,0x040a,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0107
													; Debug Table 0xd.0x0 = 0x1eb,0x1
01ec 00d8       |    |		Load_Top	At_Offset_0
01ed e20f       |    |		Load	0x1,0xf
01ee 0122       | "  |		Execute	Any,Make_Root_Type
01ef 0260       | `  |		Execute	Discrete,In_Type
01f0 7002       |p   |		Jump_Nonzero	0x1f3
01f1 48e0       |H   |		Short_Literal	0xe0
01f2 0257       | W  |		Execute	Discrete,Raise
01f3 e20f       |    |		Load	0x1,0xf
01f4 025b       | [  |		Execute	Discrete,Check_In_Type
01f5 8218       |    |		Call	0x1,0x18
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 0000       |    |		.XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xe = .DEBUG	0x01fb,0x040e,0x1002,0x0000,0x0056,0xdb75,0x0000,0x011f
													; Debug Table 0xe.0x0 = 0x1fb,0x1
01fc 00d8       |    |		Load_Top	At_Offset_0
01fd e20f       |    |		Load	0x1,0xf
01fe 0122       | "  |		Execute	Any,Make_Root_Type
01ff 0260       | `  |		Execute	Discrete,In_Type
0200 7002       |p   |		Jump_Nonzero	0x203
0201 48e0       |H   |		Short_Literal	0xe0
0202 0257       | W  |		Execute	Discrete,Raise
0203 e20f       |    |		Load	0x1,0xf
0204 025b       | [  |		Execute	Discrete,Check_In_Type
0205 8217       |    |		Call	0x1,0x17
0206 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0207 0000       |    |		.XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xf = .DEBUG	0x020b,0x0412,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0137
													; Debug Table 0xf.0x0 = 0x20b,0x1
020c 00db       |    |		Load_Top	At_Offset_3
020d 00d8       |    |		Load_Top	At_Offset_0
020e e20f       |    |		Load	0x1,0xf
020f 0122       | "  |		Execute	Any,Make_Root_Type
0210 0260       | `  |		Execute	Discrete,In_Type
0211 7002       |p   |		Jump_Nonzero	0x214
0212 48e0       |H   |		Short_Literal	0xe0
0213 0257       | W  |		Execute	Discrete,Raise
0214 e20f       |    |		Load	0x1,0xf
0215 0122       | "  |		Execute	Any,Make_Root_Type
0216 025e       | ^  |		Execute	Discrete,Convert
0217 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0218 821a       |    |		Call	0x1,0x1a
0219 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021a 0000 0000  |    |		.BLANK	0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223       | #  |		.CONST	0x0223								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0001       |    |		.CONST	0x0001								; Number of locals
0223			BODY_0220:
0223			INIT_0220:
0223 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10 = .DEBUG	0x0223,0x0416,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0156
													; Debug Table 0x10.0x0 = 0x223,0x1
0224 00d8       |    |		Load_Top	At_Offset_0
0225 e20f       |    |		Load	0x1,0xf
0226 0122       | "  |		Execute	Any,Make_Root_Type
0227 0260       | `  |		Execute	Discrete,In_Type
0228 7002       |p   |		Jump_Nonzero	0x22b
0229 48e0       |H   |		Short_Literal	0xe0
022a 0257       | W  |		Execute	Discrete,Raise
022b e20f       |    |		Load	0x1,0xf
022c 025b       | [  |		Execute	Discrete,Check_In_Type
022d e5fe       |    |		Load	0x2,-0x2
022e e5ff       |    |		Load	0x2,-0x1
022f 00d8       |    |		Load_Top	At_Offset_0
0230 e20f       |    |		Load	0x1,0xf
0231 0122       | "  |		Execute	Any,Make_Root_Type
0232 0260       | `  |		Execute	Discrete,In_Type
0233 7002       |p   |		Jump_Nonzero	0x236
0234 48e0       |H   |		Short_Literal	0xe0
0235 0257       | W  |		Execute	Discrete,Raise
0236 e20f       |    |		Load	0x1,0xf
0237 025b       | [  |		Execute	Discrete,Check_In_Type
0238 e219       |    |		Load	0x1,0x19
0239 e210       |    |		Load	0x1,0x10
023a 0119       |    |		Execute	Any,Check_In_Formal_Type
023b 8215       |    |		Call	0x1,0x15
023c e210       |    |		Load	0x1,0x10
023d 0119       |    |		Execute	Any,Check_In_Formal_Type
023e 8214       |    |		Call	0x1,0x14
023f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x11 = .DEBUG	0x0243,0x041a,0x1002,0x0000,0x0056,0xdb75,0x0000,0x017e
													; Debug Table 0x11.0x0 = 0x243,0x1
0244 00db       |    |		Load_Top	At_Offset_3
0245 00d8       |    |		Load_Top	At_Offset_0
0246 e20f       |    |		Load	0x1,0xf
0247 0122       | "  |		Execute	Any,Make_Root_Type
0248 0260       | `  |		Execute	Discrete,In_Type
0249 7002       |p   |		Jump_Nonzero	0x24c
024a 48e0       |H   |		Short_Literal	0xe0
024b 0257       | W  |		Execute	Discrete,Raise
024c e20f       |    |		Load	0x1,0xf
024d 025b       | [  |		Execute	Discrete,Check_In_Type
024e 8216       |    |		Call	0x1,0x16
024f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 e402       |    |		Load	0x2,0x2								; Debug Table 0x12 = .DEBUG	0x0253,0x041e,0x1002,0x0000,0x0056,0xdb75,0x0000,0x01ec
													; Debug Table 0x12.0x0 = 0x253,0x1
0254 8008       |    |		Call	0x0,0x8
0255 00d1       |    |		Pop_Control	Pop_Count_1
0256 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x12.0x1 = 0x256,0x2
0257 e210       |    |		Load	0x1,0x10
0258 0119       |    |		Execute	Any,Check_In_Formal_Type
0259 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025a 0000 0000  |    |		.BLANK	0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 026c       | l  |		.CONST	0x026c								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 e402       |    |		Load	0x2,0x2								; Debug Table 0x13 = .DEBUG	0x0263,0x0424,0x1004,0x0000,0x0056,0xdb75,0x0000,0x0228
													; Debug Table 0x13.0x0 = 0x263,0x1
0264 821e       |    |		Call	0x1,0x1e
0265 e210       |    |		Load	0x1,0x10
0266 0119       |    |		Execute	Any,Check_In_Formal_Type
0267 8403       |    |		Call	0x2,0x3
0268 e210       |    |		Load	0x1,0x10
0269 0119       |    |		Execute	Any,Check_In_Formal_Type
026a 00cb       |    |		Action	Pop_Block_With_Result
026b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
026c			TRAP_0260:
026c 0007       |    |		Action	Break_Optional
026d e402       |    |		Load	0x2,0x2								; Debug Table 0x13.0x1 = 0x26d,0x2
026e 8008       |    |		Call	0x0,0x8
026f 00d1       |    |		Pop_Control	Pop_Count_1
0270 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x2 = 0x270,0x3
0271 0101       |    |		Execute	Exception,Reraise
0272 0000 0000  |    |		.BLANK	0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b       | {  |		.CONST	0x027b								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0001       |    |		.CONST	0x0001								; Number of locals
027b			BODY_0278:
027b			INIT_0278:
027b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14 = .DEBUG	0x027b,0x042c,0x1001,0x0000,0x0056,0xdb75,0x0000,0x00ba
													; Debug Table 0x14.0x0 = 0x27b,0x1
027c e7fe       |    |		Load	0x3,-0x2
027d 012e       | .  |		Execute	Any,Not_Equal
027e 6805       |h   |		Jump_Zero	0x284
027f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14.0x1 = 0x27f,0x2
0280 e210       |    |		Load	0x1,0x10
0281 0119       |    |		Execute	Any,Check_In_Formal_Type
0282 e5ff       |    |		Load	0x2,-0x1
0283 8220       |    |		Call	0x1,0x20
0284 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x15 = .DEBUG	0x028b,0x0432,0x1001,0x0000,0x0056,0xdb75,0x0000,0x00d4
													; Debug Table 0x15.0x0 = 0x28b,0x1
028c e210       |    |		Load	0x1,0x10
028d 0119       |    |		Execute	Any,Check_In_Formal_Type
028e e5fd       |    |		Load	0x2,-0x3
028f e5fe       |    |		Load	0x2,-0x2
0290 00d8       |    |		Load_Top	At_Offset_0
0291 e20f       |    |		Load	0x1,0xf
0292 0122       | "  |		Execute	Any,Make_Root_Type
0293 0260       | `  |		Execute	Discrete,In_Type
0294 7002       |p   |		Jump_Nonzero	0x297
0295 48e0       |H   |		Short_Literal	0xe0
0296 0257       | W  |		Execute	Discrete,Raise
0297 e20f       |    |		Load	0x1,0xf
0298 025b       | [  |		Execute	Discrete,Check_In_Type
0299 e7ff       |    |		Load	0x3,-0x1
029a e210       |    |		Load	0x1,0x10
029b 0119       |    |		Execute	Any,Check_In_Formal_Type
029c 8215       |    |		Call	0x1,0x15
029d e210       |    |		Load	0x1,0x10
029e 0119       |    |		Execute	Any,Check_In_Formal_Type
029f 8402       |    |		Call	0x2,0x2
02a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02a1 0000 0000  |    |		.XXX[0x3]
02a3 0000       |    |
02a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056db75}
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0003 0016  |    |		.CONST	0x0003,0x0016
02aa 000b 035a  |   Z|		.DEBUG	0x000b,0x035a,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x047b
02b2 0016 0366  |   f|		.DEBUG	0x0016,0x0366,0x4000,0x0000,0x0056,0xdb75,0x0000,0x0006
02ba 0083 0394  |    |		.DEBUG	0x0083,0x0394,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x04fd
02c2 00ab 03a6  |    |		.DEBUG	0x00ab,0x03a6,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x0516
02ca 00d3 03b8  |    |		.DEBUG	0x00d3,0x03b8,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x0532
02d2 00f3 03c4  |    |		.DEBUG	0x00f3,0x03c4,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x053b
02da 0113 03d2  |    |		.DEBUG	0x0113,0x03d2,0x1001,0x0000,0x0056,0xd9e5,0x0000,0x0544
02e2 016b 03e8  | k  |		.DEBUG	0x016b,0x03e8,0x1002,0x0000,0x0056,0xdb75,0x0000,0x000d
02ea 017b 03f0  | {  |		.DEBUG	0x017b,0x03f0,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0038
02f2 018b 03f4  |    |		.DEBUG	0x018b,0x03f4,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0054
02fa 01a3 03f8  |    |		.DEBUG	0x01a3,0x03f8,0x1002,0x0000,0x0056,0xdb75,0x0000,0x006b
0302 01bb 03fc  |    |		.DEBUG	0x01bb,0x03fc,0x1002,0x0000,0x0056,0xdb75,0x0000,0x008d
030a 01d3 0400  |    |		.DEBUG	0x01d3,0x0400,0x1001,0x0000,0x0056,0xdb75,0x0000,0x00ab
0312 01eb 040a  |    |		.DEBUG	0x01eb,0x040a,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0107
031a 01fb 040e  |    |		.DEBUG	0x01fb,0x040e,0x1002,0x0000,0x0056,0xdb75,0x0000,0x011f
0322 020b 0412  |    |		.DEBUG	0x020b,0x0412,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0137
032a 0223 0416  | #  |		.DEBUG	0x0223,0x0416,0x1002,0x0000,0x0056,0xdb75,0x0000,0x0156
0332 0243 041a  | C  |		.DEBUG	0x0243,0x041a,0x1002,0x0000,0x0056,0xdb75,0x0000,0x017e
033a 0253 041e  | S  |		.DEBUG	0x0253,0x041e,0x1002,0x0000,0x0056,0xdb75,0x0000,0x01ec
0342 0263 0424  | c $|		.DEBUG	0x0263,0x0424,0x1004,0x0000,0x0056,0xdb75,0x0000,0x0228
034a 027b 042c  | { ,|		.DEBUG	0x027b,0x042c,0x1001,0x0000,0x0056,0xdb75,0x0000,0x00ba
0352 028b 0432  |   2|		.DEBUG	0x028b,0x0432,0x1001,0x0000,0x0056,0xdb75,0x0000,0x00d4
035a ; --------------------------------------------------------------------------------------
035a ; Debug3 Subtable 0x0
035a ; --------------------------------------------------------------------------------------
035a 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
035c 000b ffff  |    |		.CONST	0x000b,0xffff
035e 000d fffe  |    |		.CONST	0x000d,0xfffe
0360 000f fffd  |    |		.CONST	0x000f,0xfffd
0362 0011 fffc  |    |		.CONST	0x0011,0xfffc
0364 0013 fffb  |    |		.CONST	0x0013,0xfffb
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug3 Subtable 0x1
0366 ; --------------------------------------------------------------------------------------
0366 0014 0002  |    |		.DBG3TAB	0x0014,0x0002
0368 0016 ffff  |    |		.CONST	0x0016,0xffff
036a 0018 fffe  |    |		.CONST	0x0018,0xfffe
036c 001a fffd  |    |		.CONST	0x001a,0xfffd
036e 0022 fffc  | "  |		.CONST	0x0022,0xfffc
0370 002b fffb  | +  |		.CONST	0x002b,0xfffb
0372 002d fffa  | -  |		.CONST	0x002d,0xfffa
0374 002f fff9  | /  |		.CONST	0x002f,0xfff9
0376 0031 fff8  | 1  |		.CONST	0x0031,0xfff8
0378 0033 fff7  | 3  |		.CONST	0x0033,0xfff7
037a 0035 fff6  | 5  |		.CONST	0x0035,0xfff6
037c 0037 fff5  | 7  |		.CONST	0x0037,0xfff5
037e 0039 fff4  | 9  |		.CONST	0x0039,0xfff4
0380 003b fff3  | ;  |		.CONST	0x003b,0xfff3
0382 003d fff2  | =  |		.CONST	0x003d,0xfff2
0384 003f fff1  | ?  |		.CONST	0x003f,0xfff1
0386 005d fff0  | ]  |		.CONST	0x005d,0xfff0
0388 005f ffef  | _  |		.CONST	0x005f,0xffef
038a 0061 ffee  | a  |		.CONST	0x0061,0xffee
038c 0063 ffed  | c  |		.CONST	0x0063,0xffed
038e 0065 ffec  | e  |		.CONST	0x0065,0xffec
0390 0068 0001  | h  |		.CONST	0x0068,0x0001
0392 006c 0002  | l  |		.CONST	0x006c,0x0002
0394 ; --------------------------------------------------------------------------------------
0394 ; Debug3 Subtable 0x2
0394 ; --------------------------------------------------------------------------------------
0394 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0396 0083 ffff  |    |		.CONST	0x0083,0xffff
0398 0088 fffe  |    |		.CONST	0x0088,0xfffe
039a 008d 0001  |    |		.CONST	0x008d,0x0001
039c 008e 0401  |    |		.CONST	0x008e,0x0401
039e 0092 0001  |    |		.CONST	0x0092,0x0001
03a0 0093 0002  |    |		.CONST	0x0093,0x0002
03a2 009c 0003  |    |		.CONST	0x009c,0x0003
03a4 00a3 0004  |    |		.CONST	0x00a3,0x0004
03a6 ; --------------------------------------------------------------------------------------
03a6 ; Debug3 Subtable 0x3
03a6 ; --------------------------------------------------------------------------------------
03a6 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
03a8 00ab ffff  |    |		.CONST	0x00ab,0xffff
03aa 00b1 0001  |    |		.CONST	0x00b1,0x0001
03ac 00b2 0401  |    |		.CONST	0x00b2,0x0401
03ae 00b6 0001  |    |		.CONST	0x00b6,0x0001
03b0 00b7 0002  |    |		.CONST	0x00b7,0x0002
03b2 00be 0003  |    |		.CONST	0x00be,0x0003
03b4 00c3 0004  |    |		.CONST	0x00c3,0x0004
03b6 00c8 0005  |    |		.CONST	0x00c8,0x0005
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug3 Subtable 0x4
03b8 ; --------------------------------------------------------------------------------------
03b8 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
03ba 00d3 ffff  |    |		.CONST	0x00d3,0xffff
03bc 00d5 0001  |    |		.CONST	0x00d5,0x0001
03be 00da 0002  |    |		.CONST	0x00da,0x0002
03c0 00dc 0003  |    |		.CONST	0x00dc,0x0003
03c2 00e5 0004  |    |		.CONST	0x00e5,0x0004
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0x5
03c4 ; --------------------------------------------------------------------------------------
03c4 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
03c6 00f3 ffff  |    |		.CONST	0x00f3,0xffff
03c8 00f5 0001  |    |		.CONST	0x00f5,0x0001
03ca 00fa 0002  |    |		.CONST	0x00fa,0x0002
03cc 00fc 0003  |    |		.CONST	0x00fc,0x0003
03ce 0101 0004  |    |		.CONST	0x0101,0x0004
03d0 0106 0005  |    |		.CONST	0x0106,0x0005
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug3 Subtable 0x6
03d2 ; --------------------------------------------------------------------------------------
03d2 0001 0009  |    |		.DBG3TAB	0x0001,0x0009
03d4 0113 ffff  |    |		.CONST	0x0113,0xffff
03d6 0115 0001  |    |		.CONST	0x0115,0x0001
03d8 011a 0002  |    |		.CONST	0x011a,0x0002
03da 011c 0003  |    |		.CONST	0x011c,0x0003
03dc 0122 0004  | "  |		.CONST	0x0122,0x0004
03de 0129 0005  | )  |		.CONST	0x0129,0x0005
03e0 0149 0006  | I  |		.CONST	0x0149,0x0006
03e2 014f 0007  | O  |		.CONST	0x014f,0x0007
03e4 0155 0008  | U  |		.CONST	0x0155,0x0008
03e6 0158 0009  | X  |		.CONST	0x0158,0x0009
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0x7
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
03ea 016b 0001  | k  |		.CONST	0x016b,0x0001
03ec 016d 0002  | m  |		.CONST	0x016d,0x0002
03ee 0171 0003  | q  |		.CONST	0x0171,0x0003
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug3 Subtable 0x8
03f0 ; --------------------------------------------------------------------------------------
03f0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03f2 017b 0001  | {  |		.CONST	0x017b,0x0001
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0x9
03f4 ; --------------------------------------------------------------------------------------
03f4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03f6 018b 0001  |    |		.CONST	0x018b,0x0001
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug3 Subtable 0xa
03f8 ; --------------------------------------------------------------------------------------
03f8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03fa 01a3 0001  |    |		.CONST	0x01a3,0x0001
03fc ; --------------------------------------------------------------------------------------
03fc ; Debug3 Subtable 0xb
03fc ; --------------------------------------------------------------------------------------
03fc 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03fe 01bb 0001  |    |		.CONST	0x01bb,0x0001
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug3 Subtable 0xc
0400 ; --------------------------------------------------------------------------------------
0400 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
0402 01d3 ffff  |    |		.CONST	0x01d3,0xffff
0404 01d5 fffe  |    |		.CONST	0x01d5,0xfffe
0406 01d7 0001  |    |		.CONST	0x01d7,0x0001
0408 01dc 0002  |    |		.CONST	0x01dc,0x0002
040a ; --------------------------------------------------------------------------------------
040a ; Debug3 Subtable 0xd
040a ; --------------------------------------------------------------------------------------
040a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
040c 01eb 0001  |    |		.CONST	0x01eb,0x0001
040e ; --------------------------------------------------------------------------------------
040e ; Debug3 Subtable 0xe
040e ; --------------------------------------------------------------------------------------
040e 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0410 01fb 0001  |    |		.CONST	0x01fb,0x0001
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug3 Subtable 0xf
0412 ; --------------------------------------------------------------------------------------
0412 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0414 020b 0001  |    |		.CONST	0x020b,0x0001
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0x10
0416 ; --------------------------------------------------------------------------------------
0416 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0418 0223 0001  | #  |		.CONST	0x0223,0x0001
041a ; --------------------------------------------------------------------------------------
041a ; Debug3 Subtable 0x11
041a ; --------------------------------------------------------------------------------------
041a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
041c 0243 0001  | C  |		.CONST	0x0243,0x0001
041e ; --------------------------------------------------------------------------------------
041e ; Debug3 Subtable 0x12
041e ; --------------------------------------------------------------------------------------
041e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0420 0253 0001  | S  |		.CONST	0x0253,0x0001
0422 0256 0002  | V  |		.CONST	0x0256,0x0002
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug3 Subtable 0x13
0424 ; --------------------------------------------------------------------------------------
0424 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0426 0263 0001  | c  |		.CONST	0x0263,0x0001
0428 026d 0002  | m  |		.CONST	0x026d,0x0002
042a 0270 0003  | p  |		.CONST	0x0270,0x0003
042c ; --------------------------------------------------------------------------------------
042c ; Debug3 Subtable 0x14
042c ; --------------------------------------------------------------------------------------
042c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
042e 027b 0001  | {  |		.CONST	0x027b,0x0001
0430 027f 0002  |    |		.CONST	0x027f,0x0002
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug3 Subtable 0x15
0432 ; --------------------------------------------------------------------------------------
0432 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0434 028b 0001  |    |		.CONST	0x028b,0x0001
0436 0000 0000  |    |		.BLANK	0000[0x1ca]