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

⟦bb3198cae⟧

    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 02e8       |    |		.CONST	0x02e8								; 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 0071       | q  |		.CONST	0x0071								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible			; Debug Table 0x0 = .DEBUG	0x000b,0x03b2,0x0000,0x0000,0x0057,0x23a5,0x0000,0x0b54
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0129       | )  |		Execute	Any,Make_Visible
000e 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 008b  |    |		Declare_Subprogram	INIT_0088,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 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x14,0xfffa
0016 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x16,0xfff9
0018 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x18,0xfff8
001a 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1a,0xfff7
001c 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x1c,0xfff6
001e 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x1e,0xfff5
0020 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x20,0xfff4
0022 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x22,0xfff3
0024 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x24,0xfff2
0026 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x26,0xfff1
0028 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x28,0xfff0
002a 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x10 = 0x2a,0xffef
002c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x11 = 0x2c,0xffee
002d 4804       |H   |		Short_Literal	0x4
002e 029f 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Call
0030 03fd       |    |		Declare_Type	Discrete,Defined
0031 625a       |bZ  |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x005723a5}		; Debug Table 0x0.0x12 = 0x31,0xffed
0032 6255       |bU  |		Indirect_Literal	Discrete,0x288,{0x00000000, 0x00000c35}
0033 00da       |    |		Load_Top	At_Offset_2
0034 4800       |H   |		Short_Literal	0x0
0035 4801       |H   |		Short_Literal	0x1
0036 4804       |H   |		Short_Literal	0x4
0037 0092 0299  |    |		Action	Push_String_Extended,0x299					; "primary => Boolean_Valued, others => Unspecified"
0039 00ea       |    |		Load_Encached	Null_String_Cache
003a 00ea       |    |		Load_Encached	Null_String_Cache
003b 4801       |H   |		Short_Literal	0x1
003c 4804       |H   |		Short_Literal	0x4
003d e001       |    |		Load	0x0,0x1
003e 0387       |    |		Declare_Variable	Package
003f 00d8       |    |		Load_Top	At_Offset_0
0040 020f       |    |		Execute	Module,Activate
0041 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x0.0x13 = 0x41,0xffec
0042 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
0043 e20d       |    |		Load	0x1,0xd
0044 03a2       |    |		Complete_Type	Heap_Access,By_Renaming
0045 00bf       |    |		Action	Accept_Activation
0046 4801       |H   |		Short_Literal	0x1							; Debug Table 0x1 = .DEBUG	0x0046,0x03dc,0x0000,0x0000,0x0057,0x2805,0x0000,0x0008
													; Debug Table 0x1.0x0 = 0x46,0xffff
0047 4806       |H   |		Short_Literal	0x6
0048 e002       |    |		Load	0x0,0x2
0049 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004a 0334       | 4  |		Declare_Variable	Array,With_Constraint
004b 5244       |RD  |		Indirect_Literal	Any,0x290,{0x7463702f, 0x69702020}
004c e20d       |    |		Load	0x1,0xd								; Debug Table 0x1.0x1 = 0x4c,0xfffe
004d 00ea       |    |		Load_Encached	Null_String_Cache
004e 00db       |    |		Load_Top	At_Offset_3
004f 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0050 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0051 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x2 = 0x51,0xfffd
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x3 = 0x53,0xfffc
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x4 = 0x55,0xfffb
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0x5 = 0x57,0xfffa
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c				; Debug Table 0x1.0x6 = 0x59,0xfff9
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x7 = 0x5b,0xfff8
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x8 = 0x5d,0xfff7
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x9 = 0x5f,0xfff6
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 029d 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call			; Debug Table 0x1.0xa = 0x61,0xfff5
0063 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0xb = 0x63,0xfff4
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0xc = 0x65,0xfff3
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0xd = 0x67,0xfff2
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0xe = 0x69,0xfff1
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xf = 0x6b,0xfff0
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d				; Debug Table 0x1.0x10 = 0x6d,0xffef
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0x11 = 0x6f,0xffee
0070 00c7       |    |		Action	Elaborate_Subprogram
0071			BODY_0008:
0071 00bc       |    |		Action	Signal_Activated
0072 00bb       |    |		Action	Signal_Completion
0073 0000 0000  |    |		.BLANK	0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 007f       |    |		.CONST	0x007f								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b e220       |    |		Load	0x1,0x20							; Debug Table 0x2 = .DEBUG	0x007b,0x0402,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b5d
													; Debug Table 0x2.0x0 = 0x7b,0x1
007c e003       |    |		Load	0x0,0x3
007d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
007e 00ca       |    |		Action	Exit_Nullary_Function
007f			TRAP_0078:
007f e003       |    |		Load	0x0,0x3
0080 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0081 010f       |    |		Execute	Exception,Equal
0082 6802       |h   |		Jump_Zero	0x85
0083 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x2.0x1 = 0x83,0x2
0084 00ca       |    |		Action	Exit_Nullary_Function
0085 0100       |    |		Execute	Exception,Raise
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 0092 029a  |    |		Action	Push_String_Extended,0x29a					; "State.Compatibility.State"
													; Debug Table 0x3 = .DEBUG	0x008b,0x0408,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b62
													; Debug Table 0x3.0x0 = 0x8b,0x1
008d 00ca       |    |		Action	Exit_Nullary_Function
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 482e       |H.  |		Short_Literal	0x2e							; Debug Table 0x4 = .DEBUG	0x0093,0x040c,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b67
													; Debug Table 0x4.0x0 = 0x93,0x1
0094 00db       |    |		Load_Top	At_Offset_3
0095 e004       |    |		Load	0x0,0x4
0096 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0097 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0098 01cb       |    |		Execute	Vector,Append
0099 8210       |    |		Call	0x1,0x10
009a 01cc       |    |		Execute	Vector,Catenate
009b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009c 0000 0000  |    |		.BLANK	0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a7       |    |		.CONST	0x00a7								; Address of begin
00a1 00ac       |    |		.CONST	0x00ac								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 029f 020b  |    |		Declare_Subprogram	INIT_0208,For_Call				; Debug Table 0x5 = .DEBUG	0x00a3,0x0410,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b72
													; Debug Table 0x5.0x0 = 0xa3,0xffff
00a5 029f 0223  |   #|		Declare_Subprogram	INIT_0220,For_Call				; Debug Table 0x5.0x1 = 0xa5,0xfffe
00a7			BODY_00a0:
00a7 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x2 = 0xa7,0x1
00a8 8403       |    |		Call	0x2,0x3
00a9 e21f       |    |		Load	0x1,0x1f
00aa 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
00ab 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ac			TRAP_00a0:
00ac 0007       |    |		Action	Break_Optional
00ad e221       | !  |		Load	0x1,0x21							; Debug Table 0x5.0x3 = 0xad,0x2
00ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00ba       |    |		.CONST	0x00ba								; Address of begin
00b1 00cc       |    |		.CONST	0x00cc								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 e005       |    |		Load	0x0,0x5								; Debug Table 0x6 = .DEBUG	0x00b3,0x041a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b7d
													; Debug Table 0x6.0x0 = 0xb3,0xffff
00b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b5 02c7       |    |		Declare_Variable	Any
00b6 00d8       |    |		Load_Top	At_Offset_0
00b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b8 e20d       |    |		Load	0x1,0xd								; Debug Table 0x6.0x1 = 0xb8,0xfffe
00b9 0007       |    |		Action	Break_Optional
00ba			BODY_00b0:
00ba 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x2 = 0xba,0x1
00bb e5fe       |    |		Load	0x2,-0x2
00bc 00ea       |    |		Load_Encached	Null_String_Cache
00bd e5ff       |    |		Load	0x2,-0x1
00be 8211       |    |		Call	0x1,0x11
00bf 4800       |H   |		Short_Literal	0x0
00c0 e005       |    |		Load	0x0,0x5
00c1 1883       |    |		Execute	Package,Field_Execute,Field_Number 0x83
00c2 c402       |    |		Store	0x2,0x2
00c3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x3 = 0xc3,0x2
00c4 8212       |    |		Call	0x1,0x12
00c5 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x4 = 0xc6,0x3
00c7 e005       |    |		Load	0x0,0x5
00c8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00c9 c402       |    |		Store	0x2,0x2
00ca 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x5 = 0xca,0x4
00cb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00cc			TRAP_00b0:
00cc 0007       |    |		Action	Break_Optional
00cd e221       | !  |		Load	0x1,0x21							; Debug Table 0x6.0x6 = 0xcd,0x5
00ce 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00cf 0000       |    |		.XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x7 = .DEBUG	0x00d3,0x042a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b91
													; Debug Table 0x7.0x0 = 0xd3,0x1
00d4 4801       |H   |		Short_Literal	0x1
00d5 e5ff       |    |		Load	0x2,-0x1
00d6 e21f       |    |		Load	0x1,0x1f
00d7 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
00d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d9 0000 0000  |    |		.BLANK	0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 00eb       |    |		.CONST	0x00eb								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 0092 029b  |    |		Action	Push_String_Extended,0x29b					; "0"
													; Debug Table 0x8 = .DEBUG	0x00e3,0x042e,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b9a
													; Debug Table 0x8.0x0 = 0xe3,0x1
00e5 4802       |H   |		Short_Literal	0x2
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 e21f       |    |		Load	0x1,0x1f
00e8 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00e9 8222       | "  |		Call	0x1,0x22
00ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00eb			TRAP_00e0:
00eb 010e       |    |		Execute	Exception,Is_Constraint_Error
00ec 7002       |p   |		Jump_Nonzero	0xef
00ed 010d       |    |		Execute	Exception,Is_Numeric_Error
00ee 6802       |h   |		Jump_Zero	0xf1
00ef 4800       |H   |		Short_Literal	0x0							; Debug Table 0x8.0x1 = 0xef,0x2
00f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f1 0100       |    |		Execute	Exception,Raise
00f2 0000 0000  |    |		.BLANK	0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x9 = .DEBUG	0x00fb,0x0434,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0ba3
													; Debug Table 0x9.0x0 = 0xfb,0x1
00fc 4803       |H   |		Short_Literal	0x3
00fd e5ff       |    |		Load	0x2,-0x1
00fe e21f       |    |		Load	0x1,0x1f
00ff 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0100 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0xa = .DEBUG	0x010b,0x0438,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0bac
													; Debug Table 0xa.0x0 = 0x10b,0x1
010c 4804       |H   |		Short_Literal	0x4
010d e5ff       |    |		Load	0x2,-0x1
010e e21f       |    |		Load	0x1,0x1f
010f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0110 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0124       | $  |		.CONST	0x0124								; Address of begin
0119 012b       | +  |		.CONST	0x012b								; Address of exception handler
011a 0004       |    |		.CONST	0x0004								; Number of locals
011b			INIT_0118:
011b e005       |    |		Load	0x0,0x5								; Debug Table 0xb = .DEBUG	0x011b,0x043c,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bb5
													; Debug Table 0xb.0x0 = 0x11b,0xffff
011c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011d 02c7       |    |		Declare_Variable	Any
011e 00d8       |    |		Load_Top	At_Offset_0
011f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0120 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
0122 029f 0243  |   C|		Declare_Subprogram	INIT_0240,For_Call
0124			BODY_0118:
0124 8403       |    |		Call	0x2,0x3								; Debug Table 0xb.0x1 = 0x124,0x1
0125 8404       |    |		Call	0x2,0x4								; Debug Table 0xb.0x2 = 0x125,0x2
0126 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x3 = 0x126,0x3
0127 e005       |    |		Load	0x0,0x5
0128 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0129 c402       |    |		Store	0x2,0x2
012a 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
012b			TRAP_0118:
012b 0007       |    |		Action	Break_Optional
012c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7					; Debug Table 0xb.0x4 = 0x12c,0x4
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135       | 5  |		.CONST	0x0135								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 029f 025b  |   [|		Declare_Subprogram	INIT_0258,For_Call				; Debug Table 0xc = .DEBUG	0x0133,0x0448,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bd8
													; Debug Table 0xc.0x0 = 0x133,0xffff
0135			BODY_0130:
0135 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0x1 = 0x135,0x1
0136 00e1       |    |		Load_Encached	Boolean_Cache
0137 025e       | ^  |		Execute	Discrete,Convert
0138 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0139 4801       |H   |		Short_Literal	0x1
013a e5ff       |    |		Load	0x2,-0x1
013b 8402       |    |		Call	0x2,0x2
013c e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xc.0x2 = 0x13c,0x2
013d 00e0       |    |		Load_Encached	Standard_Cache
013e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
013f 4802       |H   |		Short_Literal	0x2
0140 e5ff       |    |		Load	0x2,-0x1
0141 8402       |    |		Call	0x2,0x2
0142 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0xc.0x3 = 0x142,0x3
0143 4803       |H   |		Short_Literal	0x3
0144 e5ff       |    |		Load	0x2,-0x1
0145 8402       |    |		Call	0x2,0x2
0146 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xc.0x4 = 0x146,0x4
0147 4804       |H   |		Short_Literal	0x4
0148 e5ff       |    |		Load	0x2,-0x1
0149 8402       |    |		Call	0x2,0x2
014a 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
014b 0000 0000  |    |		.BLANK	0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015e       | ^  |		.CONST	0x015e								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0003       |    |		.CONST	0x0003								; Number of locals
0153			INIT_0150:
0153 e20d       |    |		Load	0x1,0xd								; Debug Table 0xd = .DEBUG	0x0153,0x0454,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bf2
													; Debug Table 0xd.0x0 = 0x153,0xffff
0154 e5fe       |    |		Load	0x2,-0x2
0155 e21f       |    |		Load	0x1,0x1f
0156 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0157 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0158 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0x1 = 0x158,0xfffe
0159 e5ff       |    |		Load	0x2,-0x1
015a e006       |    |		Load	0x0,0x6
015b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
015c e20e       |    |		Load	0x1,0xe
015d 03f1       |    |		Declare_Variable	Discrete,With_Value
015e			BODY_0150:
015e e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0x2 = 0x15e,0x1
015f e5ff       |    |		Load	0x2,-0x1
0160 e006       |    |		Load	0x0,0x6
0161 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0162 680b       |h   |		Jump_Zero	0x16e
0163 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0x3 = 0x163,0x2
0164 820f       |    |		Call	0x1,0xf
0165 e5ff       |    |		Load	0x2,-0x1
0166 e004       |    |		Load	0x0,0x4
0167 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0168 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0169 00db       |    |		Load_Top	At_Offset_3
016a 4801       |H   |		Short_Literal	0x1
016b e5ff       |    |		Load	0x2,-0x1
016c 8218       |    |		Call	0x1,0x18
016d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
016e e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xd.0x4 = 0x16e,0x3
016f 00da       |    |		Load_Top	At_Offset_2
0170 8217       |    |		Call	0x1,0x17
0171 00db       |    |		Load_Top	At_Offset_3
0172 8216       |    |		Call	0x1,0x16
0173 00db       |    |		Load_Top	At_Offset_3
0174 4800       |H   |		Short_Literal	0x0
0175 e5ff       |    |		Load	0x2,-0x1
0176 8218       |    |		Call	0x1,0x18
0177 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
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 e221       | !  |		Load	0x1,0x21							; Debug Table 0xe = .DEBUG	0x017b,0x0460,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c09
													; Debug Table 0xe.0x0 = 0x17b,0x1
017c 00ca       |    |		Action	Exit_Nullary_Function
017d 0000 0000  |    |		.XXX[0x3]
017f 0000       |    |
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 0xf = .DEBUG	0x0183,0x0464,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c0e
													; Debug Table 0xf.0x0 = 0x183,0x1
0184 e21f       |    |		Load	0x1,0x1f
0185 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0186 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0187 0000       |    |		.XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0194       |    |		.CONST	0x0194								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0004       |    |		.CONST	0x0004								; Number of locals
018b			INIT_0188:
018b e20d       |    |		Load	0x1,0xd								; Debug Table 0x10 = .DEBUG	0x018b,0x0468,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c17
													; Debug Table 0x10.0x0 = 0x18b,0xffff
018c e5fe       |    |		Load	0x2,-0x2
018d e5ff       |    |		Load	0x2,-0x1
018e 8213       |    |		Call	0x1,0x13
018f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0190 0092 029c  |    |		Action	Push_String_Extended,0x29c					; ", "
													; Debug Table 0x10.0x1 = 0x190,0xfffe
0192 029f 0273  |   s|		Declare_Subprogram	INIT_0270,For_Call				; Debug Table 0x10.0x2 = 0x192,0xfffd
0194			BODY_0188:
0194 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x10.0x3 = 0x194,0x1
0195 8214       |    |		Call	0x1,0x14
0196 00e1       |    |		Load_Encached	Boolean_Cache
0197 025e       | ^  |		Execute	Discrete,Convert
0198 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0199 4801       |H   |		Short_Literal	0x1
019a 8404       |    |		Call	0x2,0x4
019b 00da       |    |		Load_Top	At_Offset_2
019c 01cc       |    |		Execute	Vector,Catenate
019d 00db       |    |		Load_Top	At_Offset_3
019e 8215       |    |		Call	0x1,0x15
019f 00e0       |    |		Load_Encached	Standard_Cache
01a0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a1 4802       |H   |		Short_Literal	0x2
01a2 8404       |    |		Call	0x2,0x4
01a3 01cc       |    |		Execute	Vector,Catenate
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 01cc       |    |		Execute	Vector,Catenate
01a6 00db       |    |		Load_Top	At_Offset_3
01a7 8216       |    |		Call	0x1,0x16
01a8 4803       |H   |		Short_Literal	0x3
01a9 8404       |    |		Call	0x2,0x4
01aa 01cc       |    |		Execute	Vector,Catenate
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 01cc       |    |		Execute	Vector,Catenate
01ad 00db       |    |		Load_Top	At_Offset_3
01ae 8217       |    |		Call	0x1,0x17
01af 4804       |H   |		Short_Literal	0x4
01b0 8404       |    |		Call	0x2,0x4
01b1 01cc       |    |		Execute	Vector,Catenate
01b2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b3 0000 0000  |    |		.BLANK	0000[0x5]
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 4603       |F   |		Jump_Case	0x4							; Debug Table 0x11 = .DEBUG	0x01bb,0x0472,0x0005,0x0000,0x0057,0x23a5,0x0000,0x0c2c
01bc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01bd 7802       |x   |		Jump	0x1c0								; case 0x1
01be 7805       |x   |		Jump	0x1c4								; case 0x2
01bf 7809       |x   |		Jump	0x1c9								; case 0x3
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 0091 0294  |    |		Action	Push_String_Extended_Indexed,0x294				; "NIL"
01c3 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01c4 00db       |    |		Load_Top	At_Offset_3
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 00e0       |    |		Load_Encached	Standard_Cache
01c7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 00e0       |    |		Load_Encached	Standard_Cache
01cb 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01cc 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d8       |    |		.CONST	0x01d8								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0003       |    |		.CONST	0x0003								; Number of locals
01d3			INIT_01d0:
01d3 0007       |    |		Action	Break_Optional							; Debug Table 0x12 = .DEBUG	0x01d3,0x0474,0x0002,0x0000,0x0057,0x2805,0x0000,0x0178
													; Debug Table 0x12.0x0 = 0x1d3,0xffff
01d4 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x12.0x1 = 0x1d4,0xfffe
01d5 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
01d6 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x12.0x2 = 0x1d6,0xfffd
01d7 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01d8			BODY_01d0:
01d8 00cf       |    |		Action	Mark_Auxiliary
01d9 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x12.0x3 = 0x1d9,0x1
01da 01dc       |    |		Execute	Vector,Last
01db e5ff       |    |		Load	0x2,-0x1
01dc 01dd       |    |		Execute	Vector,First
01dd 0263       | c  |		Execute	Discrete,Above_Bound
01de 701f       |p   |		Jump_Nonzero	0x1fe
01df 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x12.0x4 = 0x1df,0x2
01e0 e5ff       |    |		Load	0x2,-0x1
01e1 01d7       |    |		Execute	Vector,Field_Read
01e2 0b20       |    |		Execute_Immediate	Case_Compare,0x20
01e3 7017       |p   |		Jump_Nonzero	0x1fb
01e4 0b5f       | _  |		Execute_Immediate	Case_Compare,0x5f
01e5 7015       |p   |		Jump_Nonzero	0x1fb
01e6 0b2d       | -  |		Execute_Immediate	Case_Compare,0x2d
01e7 7007       |p   |		Jump_Nonzero	0x1ef
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 4830       |H0  |		Short_Literal	0x30
01ea 4839       |H9  |		Short_Literal	0x39
01eb 0262       | b  |		Execute	Discrete,In_Range
01ec 7005       |p   |		Jump_Nonzero	0x1f2
01ed 48e0       |H   |		Short_Literal	0xe0							; Debug Table 0x12.0x5 = 0x1ed,0x6
01ee 0257       | W  |		Execute	Discrete,Raise
01ef 4800       |H   |		Short_Literal	0x0							; Debug Table 0x12.0x6 = 0x1ef,0x4
01f0 a402       |    |		Store_Unchecked	0x2,0x2
01f1 7809       |x   |		Jump	0x1fb
01f2 e403       |    |		Load	0x2,0x3								; Debug Table 0x12.0x7 = 0x1f2,0x5
01f3 480a       |H   |		Short_Literal	0xa
01f4 0271       | q  |		Execute	Discrete,Times
01f5 00da       |    |		Load_Top	At_Offset_2
01f6 e5ff       |    |		Load	0x2,-0x1
01f7 01d7       |    |		Execute	Vector,Field_Read
01f8 0ad0       |    |		Execute_Immediate	Plus,-0x30
01f9 0273       | s  |		Execute	Discrete,Plus
01fa a403       |    |		Store_Unchecked	0x2,0x3
01fb 00d1       |    |		Pop_Control	Pop_Count_1
01fc 00c8       |    |		Action	Pop_Auxiliary_Range
01fd 3fe1       |?   |		Loop_Increasing	0x1df
01fe 00ce       |    |		Action	Pop_Auxiliary
01ff 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x12.0x8 = 0x1ff,0x7
0200 6802       |h   |		Jump_Zero	0x203
0201 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x12.0x9 = 0x201,0x8
0202 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0203 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x12.0xa = 0x203,0x9
0204 0275       | u  |		Execute	Discrete,Unary_Minus
0205 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0206 0000 0000  |    |		.XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020e       |    |		.CONST	0x020e								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0002       |    |		.CONST	0x0002								; Number of locals
020b			INIT_0208:
020b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x13 = .DEBUG	0x020b,0x048c,0x0002,0x0000,0x0057,0x2805,0x0000,0x00de
													; Debug Table 0x13.0x0 = 0x20b,0xffff
020c e005       |    |		Load	0x0,0x5
020d 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
020e			BODY_0208:
020e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x13.0x1 = 0x20e,0x1
020f e005       |    |		Load	0x0,0x5
0210 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0211 6802       |h   |		Jump_Zero	0x214
0212 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x2 = 0x212,0x2
0213 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0214 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x3 = 0x214,0x3
0215 01dc       |    |		Execute	Vector,Last
0216 00d9       |    |		Load_Top	At_Offset_1
0217 01d7       |    |		Execute	Vector,Field_Read
0218 0e2c       | ,  |		Execute_Immediate	Not_Equal,0x2c
0219 6804       |h   |		Jump_Zero	0x21e
021a 482c       |H,  |		Short_Literal	0x2c							; Debug Table 0x13.0x4 = 0x21a,0x4
021b 00d9       |    |		Load_Top	At_Offset_1
021c 01cb       |    |		Execute	Vector,Append
021d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x13.0x5 = 0x21e,0x5
021f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 0x14 = .DEBUG	0x0223,0x049a,0x0002,0x0000,0x0057,0x2805,0x0000,0x0119
													; Debug Table 0x14.0x0 = 0x223,0x1
0224 e005       |    |		Load	0x0,0x5
0225 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0226 6802       |h   |		Jump_Zero	0x229
0227 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x14.0x1 = 0x227,0x2
0228 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0229 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x14.0x2 = 0x229,0x3
022a 8402       |    |		Call	0x2,0x2
022b 00db       |    |		Load_Top	At_Offset_3
022c 8403       |    |		Call	0x2,0x3
022d 01cc       |    |		Execute	Vector,Catenate
022e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022f 0000       |    |		.XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 023d       | =  |		.CONST	0x023d								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 e402       |    |		Load	0x2,0x2								; Debug Table 0x15 = .DEBUG	0x0233,0x04a2,0x0004,0x0000,0x0057,0x2805,0x0000,0x0290
													; Debug Table 0x15.0x0 = 0x233,0x1
0234 e5fa       |    |		Load	0x2,-0x6
0235 00ea       |    |		Load_Encached	Null_String_Cache
0236 e5ff       |    |		Load	0x2,-0x1
0237 8211       |    |		Call	0x1,0x11
0238 4801       |H   |		Short_Literal	0x1
0239 e005       |    |		Load	0x0,0x5
023a 1882       |    |		Execute	Package,Field_Execute,Field_Number 0x82
023b c402       |    |		Store	0x2,0x2
023c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
023d			TRAP_0230:
023d 0007       |    |		Action	Break_Optional
023e 00cc       |    |		Action	Pop_Block							; Debug Table 0x15.0x1 = 0x23e,0x2
023f 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 024a       | J  |		.CONST	0x024a								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x16 = .DEBUG	0x0243,0x04a8,0x0004,0x0000,0x0057,0x2805,0x0000,0x02a7
													; Debug Table 0x16.0x0 = 0x243,0x1
0244 e5fc       |    |		Load	0x2,-0x4
0245 e5fd       |    |		Load	0x2,-0x3
0246 e5fe       |    |		Load	0x2,-0x2
0247 e402       |    |		Load	0x2,0x2
0248 8219       |    |		Call	0x1,0x19
0249 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
024a			TRAP_0240:
024a 0007       |    |		Action	Break_Optional
024b e402       |    |		Load	0x2,0x2								; Debug Table 0x16.0x1 = 0x24b,0x2
024c e005       |    |		Load	0x0,0x5
024d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
024e c402       |    |		Store	0x2,0x2
024f 00cc       |    |		Action	Pop_Block							; Debug Table 0x16.0x2 = 0x24f,0x3
0250 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0251 0000 0000  |    |		.BLANK	0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b       | [  |		.CONST	0x025b								; Address of begin
0259 0004       |    |		.CONST	0x0004								; Address of exception handler
025a 0001       |    |		.CONST	0x0001								; Number of locals
025b			BODY_0258:
025b			INIT_0258:
025b e7fd       |    |		Load	0x3,-0x3							; Debug Table 0x17 = .DEBUG	0x025b,0x04b0,0x0001,0x0000,0x0057,0x2805,0x0000,0x02d0
													; Debug Table 0x17.0x0 = 0x25b,0x1
025c 01db       |    |		Execute	Vector,Length
025d 680c       |h   |		Jump_Zero	0x26a
025e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x17.0x1 = 0x25e,0x2
025f e21e       |    |		Load	0x1,0x1e
0260 025e       | ^  |		Execute	Discrete,Convert
0261 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0262 0092 029d  |    |		Action	Push_String_Extended,0x29d					; " => "
0264 01cc       |    |		Execute	Vector,Catenate
0265 e7fd       |    |		Load	0x3,-0x3
0266 01cc       |    |		Execute	Vector,Catenate
0267 00db       |    |		Load_Top	At_Offset_3
0268 e005       |    |		Load	0x0,0x5
0269 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
026a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
026b 0000 0000  |    |		.BLANK	0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273       | s  |		.CONST	0x0273								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0001       |    |		.CONST	0x0001								; Number of locals
0273			BODY_0270:
0273			INIT_0270:
0273 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x18 = .DEBUG	0x0273,0x04b6,0x0002,0x0000,0x0057,0x2805,0x0000,0x0349
													; Debug Table 0x18.0x0 = 0x273,0x1
0274 01db       |    |		Execute	Vector,Length
0275 680a       |h   |		Jump_Zero	0x280
0276 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x18.0x1 = 0x276,0x2
0277 e21e       |    |		Load	0x1,0x1e
0278 025e       | ^  |		Execute	Discrete,Convert
0279 1c01       |    |		Execute_Immediate	Run_Utility,0x1
027a 0092 029d  |    |		Action	Push_String_Extended,0x29d					; " => "
027c 01cc       |    |		Execute	Vector,Catenate
027d e7fe       |    |		Load	0x3,-0x2
027e 01cc       |    |		Execute	Vector,Catenate
027f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0280 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x18.0x2 = 0x280,0x3
0281 e21e       |    |		Load	0x1,0x1e
0282 025e       | ^  |		Execute	Discrete,Convert
0283 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0284 0092 029e  |    |		Action	Push_String_Extended,0x29e					; " => ()"
0286 01cc       |    |		Execute	Vector,Catenate
0287 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0288 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000c35}
028c 0000 0000  |    |		.LITERAL	{0x00000000, 0x005723a5}
0290 7463 702f  |tcp/|		.LITERAL	{0x7463702f, 0x69702020}
0294 ; --------------------------------------------------------------------------------------
0294 ; STRING TABLE
0294 ; --------------------------------------------------------------------------------------
0294 0018       |    |		.STRTAB	0x0018->0x02a0							; "NIL"
0295 0019       |    |		.STRTAB	0x0019->0x02a1							; "PRIMARY"
0296 001e       |    |		.STRTAB	0x001e->0x02a5							; "SUBSYSTEM"
0297 0025       | %  |		.STRTAB	0x0025->0x02a9							; "PRIMARY_NAME"
0298 002f       | /  |		.STRTAB	0x002f->0x02af							; "PRIMARY_MACHINE"
0299 003c       | <  |		.STRTAB	0x003c->0x02b7							; "primary => Boolean_Valued, others => Unspecified"
029a 006a       | j  |		.STRTAB	0x006a->0x02cf							; "State.Compatibility.State"
029b 0081       |    |		.STRTAB	0x0081->0x02db							; "0"
029c 0080       |    |		.STRTAB	0x0080->0x02dc							; ", "
029d 0080       |    |		.STRTAB	0x0080->0x02dd							; " => "
029e 0082       |    |		.STRTAB	0x0082->0x02df							; " => ()"
029f 0086       |    |		.STREND 0x0086->0x02e2
02a0 4e49 4c50  |NILP|		.STRTAB_STRINGS
02e2 0000 0000  |    |		.BLANK	0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0003 0019  |    |		.CONST	0x0003,0x0019
02ea 000b 03b2  |    |		.DEBUG	0x000b,0x03b2,0x0000,0x0000,0x0057,0x23a5,0x0000,0x0b54
02f2 0046 03dc  | F  |		.DEBUG	0x0046,0x03dc,0x0000,0x0000,0x0057,0x2805,0x0000,0x0008
02fa 007b 0402  | {  |		.DEBUG	0x007b,0x0402,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b5d
0302 008b 0408  |    |		.DEBUG	0x008b,0x0408,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b62
030a 0093 040c  |    |		.DEBUG	0x0093,0x040c,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b67
0312 00a3 0410  |    |		.DEBUG	0x00a3,0x0410,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b72
031a 00b3 041a  |    |		.DEBUG	0x00b3,0x041a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b7d
0322 00d3 042a  |   *|		.DEBUG	0x00d3,0x042a,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b91
032a 00e3 042e  |   .|		.DEBUG	0x00e3,0x042e,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0b9a
0332 00fb 0434  |   4|		.DEBUG	0x00fb,0x0434,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0ba3
033a 010b 0438  |   8|		.DEBUG	0x010b,0x0438,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0bac
0342 011b 043c  |   <|		.DEBUG	0x011b,0x043c,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bb5
034a 0133 0448  | 3 H|		.DEBUG	0x0133,0x0448,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bd8
0352 0153 0454  | S T|		.DEBUG	0x0153,0x0454,0x0001,0x0000,0x0057,0x23a5,0x0000,0x0bf2
035a 017b 0460  | { `|		.DEBUG	0x017b,0x0460,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c09
0362 0183 0464  |   d|		.DEBUG	0x0183,0x0464,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c0e
036a 018b 0468  |   h|		.DEBUG	0x018b,0x0468,0x0002,0x0000,0x0057,0x23a5,0x0000,0x0c17
0372 01bb 0472  |   r|		.DEBUG	0x01bb,0x0472,0x0005,0x0000,0x0057,0x23a5,0x0000,0x0c2c
037a 01d3 0474  |   t|		.DEBUG	0x01d3,0x0474,0x0002,0x0000,0x0057,0x2805,0x0000,0x0178
0382 020b 048c  |    |		.DEBUG	0x020b,0x048c,0x0002,0x0000,0x0057,0x2805,0x0000,0x00de
038a 0223 049a  | #  |		.DEBUG	0x0223,0x049a,0x0002,0x0000,0x0057,0x2805,0x0000,0x0119
0392 0233 04a2  | 3  |		.DEBUG	0x0233,0x04a2,0x0004,0x0000,0x0057,0x2805,0x0000,0x0290
039a 0243 04a8  | C  |		.DEBUG	0x0243,0x04a8,0x0004,0x0000,0x0057,0x2805,0x0000,0x02a7
03a2 025b 04b0  | [  |		.DEBUG	0x025b,0x04b0,0x0001,0x0000,0x0057,0x2805,0x0000,0x02d0
03aa 0273 04b6  | s  |		.DEBUG	0x0273,0x04b6,0x0002,0x0000,0x0057,0x2805,0x0000,0x0349
03b2 ; --------------------------------------------------------------------------------------
03b2 ; Debug3 Subtable 0x0
03b2 ; --------------------------------------------------------------------------------------
03b2 0014 0000  |    |		.DBG3TAB	0x0014,0x0000
03b4 000b ffff  |    |		.CONST	0x000b,0xffff
03b6 000c fffe  |    |		.CONST	0x000c,0xfffe
03b8 000e fffd  |    |		.CONST	0x000e,0xfffd
03ba 0010 fffc  |    |		.CONST	0x0010,0xfffc
03bc 0012 fffb  |    |		.CONST	0x0012,0xfffb
03be 0014 fffa  |    |		.CONST	0x0014,0xfffa
03c0 0016 fff9  |    |		.CONST	0x0016,0xfff9
03c2 0018 fff8  |    |		.CONST	0x0018,0xfff8
03c4 001a fff7  |    |		.CONST	0x001a,0xfff7
03c6 001c fff6  |    |		.CONST	0x001c,0xfff6
03c8 001e fff5  |    |		.CONST	0x001e,0xfff5
03ca 0020 fff4  |    |		.CONST	0x0020,0xfff4
03cc 0022 fff3  | "  |		.CONST	0x0022,0xfff3
03ce 0024 fff2  | $  |		.CONST	0x0024,0xfff2
03d0 0026 fff1  | &  |		.CONST	0x0026,0xfff1
03d2 0028 fff0  | (  |		.CONST	0x0028,0xfff0
03d4 002a ffef  | *  |		.CONST	0x002a,0xffef
03d6 002c ffee  | ,  |		.CONST	0x002c,0xffee
03d8 0031 ffed  | 1  |		.CONST	0x0031,0xffed
03da 0041 ffec  | A  |		.CONST	0x0041,0xffec
03dc ; --------------------------------------------------------------------------------------
03dc ; Debug3 Subtable 0x1
03dc ; --------------------------------------------------------------------------------------
03dc 0012 0000  |    |		.DBG3TAB	0x0012,0x0000
03de 0046 ffff  | F  |		.CONST	0x0046,0xffff
03e0 004c fffe  | L  |		.CONST	0x004c,0xfffe
03e2 0051 fffd  | Q  |		.CONST	0x0051,0xfffd
03e4 0053 fffc  | S  |		.CONST	0x0053,0xfffc
03e6 0055 fffb  | U  |		.CONST	0x0055,0xfffb
03e8 0057 fffa  | W  |		.CONST	0x0057,0xfffa
03ea 0059 fff9  | Y  |		.CONST	0x0059,0xfff9
03ec 005b fff8  | [  |		.CONST	0x005b,0xfff8
03ee 005d fff7  | ]  |		.CONST	0x005d,0xfff7
03f0 005f fff6  | _  |		.CONST	0x005f,0xfff6
03f2 0061 fff5  | a  |		.CONST	0x0061,0xfff5
03f4 0063 fff4  | c  |		.CONST	0x0063,0xfff4
03f6 0065 fff3  | e  |		.CONST	0x0065,0xfff3
03f8 0067 fff2  | g  |		.CONST	0x0067,0xfff2
03fa 0069 fff1  | i  |		.CONST	0x0069,0xfff1
03fc 006b fff0  | k  |		.CONST	0x006b,0xfff0
03fe 006d ffef  | m  |		.CONST	0x006d,0xffef
0400 006f ffee  | o  |		.CONST	0x006f,0xffee
0402 ; --------------------------------------------------------------------------------------
0402 ; Debug3 Subtable 0x2
0402 ; --------------------------------------------------------------------------------------
0402 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0404 007b 0001  | {  |		.CONST	0x007b,0x0001
0406 0083 0002  |    |		.CONST	0x0083,0x0002
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug3 Subtable 0x3
0408 ; --------------------------------------------------------------------------------------
0408 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
040a 008b 0001  |    |		.CONST	0x008b,0x0001
040c ; --------------------------------------------------------------------------------------
040c ; Debug3 Subtable 0x4
040c ; --------------------------------------------------------------------------------------
040c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
040e 0093 0001  |    |		.CONST	0x0093,0x0001
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug3 Subtable 0x5
0410 ; --------------------------------------------------------------------------------------
0410 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
0412 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0414 00a5 fffe  |    |		.CONST	0x00a5,0xfffe
0416 00a7 0001  |    |		.CONST	0x00a7,0x0001
0418 00ad 0002  |    |		.CONST	0x00ad,0x0002
041a ; --------------------------------------------------------------------------------------
041a ; Debug3 Subtable 0x6
041a ; --------------------------------------------------------------------------------------
041a 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
041c 00b3 ffff  |    |		.CONST	0x00b3,0xffff
041e 00b8 fffe  |    |		.CONST	0x00b8,0xfffe
0420 00ba 0001  |    |		.CONST	0x00ba,0x0001
0422 00c3 0002  |    |		.CONST	0x00c3,0x0002
0424 00c6 0003  |    |		.CONST	0x00c6,0x0003
0426 00ca 0004  |    |		.CONST	0x00ca,0x0004
0428 00cd 0005  |    |		.CONST	0x00cd,0x0005
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x7
042a ; --------------------------------------------------------------------------------------
042a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
042c 00d3 0001  |    |		.CONST	0x00d3,0x0001
042e ; --------------------------------------------------------------------------------------
042e ; Debug3 Subtable 0x8
042e ; --------------------------------------------------------------------------------------
042e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0430 00e3 0001  |    |		.CONST	0x00e3,0x0001
0432 00ef 0002  |    |		.CONST	0x00ef,0x0002
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug3 Subtable 0x9
0434 ; --------------------------------------------------------------------------------------
0434 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0436 00fb 0001  |    |		.CONST	0x00fb,0x0001
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug3 Subtable 0xa
0438 ; --------------------------------------------------------------------------------------
0438 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
043a 010b 0001  |    |		.CONST	0x010b,0x0001
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0xb
043c ; --------------------------------------------------------------------------------------
043c 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
043e 011b ffff  |    |		.CONST	0x011b,0xffff
0440 0124 0001  | $  |		.CONST	0x0124,0x0001
0442 0125 0002  | %  |		.CONST	0x0125,0x0002
0444 0126 0003  | &  |		.CONST	0x0126,0x0003
0446 012c 0004  | ,  |		.CONST	0x012c,0x0004
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug3 Subtable 0xc
0448 ; --------------------------------------------------------------------------------------
0448 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
044a 0133 ffff  | 3  |		.CONST	0x0133,0xffff
044c 0135 0001  | 5  |		.CONST	0x0135,0x0001
044e 013c 0002  | <  |		.CONST	0x013c,0x0002
0450 0142 0003  | B  |		.CONST	0x0142,0x0003
0452 0146 0004  | F  |		.CONST	0x0146,0x0004
0454 ; --------------------------------------------------------------------------------------
0454 ; Debug3 Subtable 0xd
0454 ; --------------------------------------------------------------------------------------
0454 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
0456 0153 ffff  | S  |		.CONST	0x0153,0xffff
0458 0158 fffe  | X  |		.CONST	0x0158,0xfffe
045a 015e 0001  | ^  |		.CONST	0x015e,0x0001
045c 0163 0002  | c  |		.CONST	0x0163,0x0002
045e 016e 0003  | n  |		.CONST	0x016e,0x0003
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug3 Subtable 0xe
0460 ; --------------------------------------------------------------------------------------
0460 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0462 017b 0001  | {  |		.CONST	0x017b,0x0001
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug3 Subtable 0xf
0464 ; --------------------------------------------------------------------------------------
0464 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0466 0183 0001  |    |		.CONST	0x0183,0x0001
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug3 Subtable 0x10
0468 ; --------------------------------------------------------------------------------------
0468 0003 0001  |    |		.DBG3TAB	0x0003,0x0001
046a 018b ffff  |    |		.CONST	0x018b,0xffff
046c 0190 fffe  |    |		.CONST	0x0190,0xfffe
046e 0192 fffd  |    |		.CONST	0x0192,0xfffd
0470 0194 0001  |    |		.CONST	0x0194,0x0001
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0x11
0472 ; --------------------------------------------------------------------------------------
0472 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug3 Subtable 0x12
0474 ; --------------------------------------------------------------------------------------
0474 0003 0008  |    |		.DBG3TAB	0x0003,0x0008
0476 01d3 ffff  |    |		.CONST	0x01d3,0xffff
0478 01d4 fffe  |    |		.CONST	0x01d4,0xfffe
047a 01d6 fffd  |    |		.CONST	0x01d6,0xfffd
047c 01d9 0001  |    |		.CONST	0x01d9,0x0001
047e 01df 0002  |    |		.CONST	0x01df,0x0002
0480 01ed 0006  |    |		.CONST	0x01ed,0x0006
0482 01ef 0004  |    |		.CONST	0x01ef,0x0004
0484 01f2 0005  |    |		.CONST	0x01f2,0x0005
0486 01ff 0007  |    |		.CONST	0x01ff,0x0007
0488 0201 0008  |    |		.CONST	0x0201,0x0008
048a 0203 0009  |    |		.CONST	0x0203,0x0009
048c ; --------------------------------------------------------------------------------------
048c ; Debug3 Subtable 0x13
048c ; --------------------------------------------------------------------------------------
048c 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
048e 020b ffff  |    |		.CONST	0x020b,0xffff
0490 020e 0001  |    |		.CONST	0x020e,0x0001
0492 0212 0002  |    |		.CONST	0x0212,0x0002
0494 0214 0003  |    |		.CONST	0x0214,0x0003
0496 021a 0004  |    |		.CONST	0x021a,0x0004
0498 021e 0005  |    |		.CONST	0x021e,0x0005
049a ; --------------------------------------------------------------------------------------
049a ; Debug3 Subtable 0x14
049a ; --------------------------------------------------------------------------------------
049a 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
049c 0223 0001  | #  |		.CONST	0x0223,0x0001
049e 0227 0002  | '  |		.CONST	0x0227,0x0002
04a0 0229 0003  | )  |		.CONST	0x0229,0x0003
04a2 ; --------------------------------------------------------------------------------------
04a2 ; Debug3 Subtable 0x15
04a2 ; --------------------------------------------------------------------------------------
04a2 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
04a4 0233 0001  | 3  |		.CONST	0x0233,0x0001
04a6 023e 0002  | >  |		.CONST	0x023e,0x0002
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug3 Subtable 0x16
04a8 ; --------------------------------------------------------------------------------------
04a8 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
04aa 0243 0001  | C  |		.CONST	0x0243,0x0001
04ac 024b 0002  | K  |		.CONST	0x024b,0x0002
04ae 024f 0003  | O  |		.CONST	0x024f,0x0003
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug3 Subtable 0x17
04b0 ; --------------------------------------------------------------------------------------
04b0 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
04b2 025b 0001  | [  |		.CONST	0x025b,0x0001
04b4 025e 0002  | ^  |		.CONST	0x025e,0x0002
04b6 ; --------------------------------------------------------------------------------------
04b6 ; Debug3 Subtable 0x18
04b6 ; --------------------------------------------------------------------------------------
04b6 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
04b8 0273 0001  | s  |		.CONST	0x0273,0x0001
04ba 0276 0002  | v  |		.CONST	0x0276,0x0002
04bc 0280 0003  |    |		.CONST	0x0280,0x0003
04be 0000 0000  |    |		.BLANK	0000[0x142]