DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦b20f09735⟧ SEG

    Length: 2048 (0x800)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »3980297.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »3980297.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »3980297.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »3980297.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »3980297.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »3980297.SEG« 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0170       | p  |		.CONST	0x0170								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x01ba,0x8000,0x0000,0x0030,0x6324,0x0000,0x0005
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0031       | 1  |		.CONST	0x0031								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000b       |    |		.CONST	0x000b								; Number of locals
001b			INIT_0018:
001b 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x1 = .DEBUG	0x001b,0x01bc,0xa802,0x0002,0x0030,0x6324,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 00dc       |    |		Load_Top	At_Offset_4						; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d 026a       | j  |		Execute	Discrete,First
001e 00dd       |    |		Load_Top	At_Offset_5
001f 0269       | i  |		Execute	Discrete,Last
0020 00e5       |    |		Load_Encached	Long_Integer_Cache
0021 03f8       |    |		Declare_Type	Discrete,Constrained
0022 00dd       |    |		Load_Top	At_Offset_5						; Debug Table 0x1.0x2 = 0x22,0xfffd
0023 029f 0043  |   C|		Declare_Subprogram	INIT_0040,For_Call				; Debug Table 0x1.0x3 = 0x23,0xfffc
0025 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call				; Debug Table 0x1.0x4 = 0x25,0xfffb
0027 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call				; Debug Table 0x1.0x5 = 0x27,0xfffa
0029 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call				; Debug Table 0x1.0x6 = 0x29,0xfff9
002b 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call				; Debug Table 0x1.0x7 = 0x2b,0xfff8
002d 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call				; Debug Table 0x1.0x8 = 0x2d,0xfff7
002f 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
0031			BODY_0018:
0031 00cf       |    |		Action	Mark_Auxiliary
0032 840b       |    |		Call	0x2,0xb								; Debug Table 0x1.0x9 = 0x32,0x1
													; Debug Table 0x1.0xa = 0x32,0x2
0033 00c9       |    |		Action	Pop_Auxiliary_Loop
0034 7ffd       |    |		Jump	0x32
0035 00ce       |    |		Action	Pop_Auxiliary
0036 e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0xb = 0x36,0x3
0037 e5fe       |    |		Load	0x2,-0x2
0038 025b       | [  |		Execute	Discrete,Check_In_Type
0039 4405       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x5
003a 0000 0000  |    |		.BLANK	0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0049       | I  |		.CONST	0x0049								; Address of begin
0041 005f       | _  |		.CONST	0x005f								; Address of exception handler
0042 0002       |    |		.CONST	0x0002								; Number of locals
0043			INIT_0040:
0043 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2 = .DEBUG	0x0043,0x01d6,0x0802,0x0002,0x0030,0x6434,0x0000,0x003c
													; Debug Table 0x2.0x0 = 0x43,0xffff
0044 026a       | j  |		Execute	Discrete,First
0045 e5fe       |    |		Load	0x2,-0x2
0046 0122       | "  |		Execute	Any,Make_Root_Type
0047 025e       | ^  |		Execute	Discrete,Convert
0048 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0049			BODY_0040:
0049 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x1 = 0x49,0x1
004a 01dd       |    |		Execute	Vector,First
004b 00d9       |    |		Load_Top	At_Offset_1
004c 01d7       |    |		Execute	Vector,Field_Read
004d 0f20       |    |		Execute_Immediate	Equal,0x20
004e 00d9       |    |		Load_Top	At_Offset_1
004f 01dd       |    |		Execute	Vector,First
0050 00da       |    |		Load_Top	At_Offset_2
0051 01d7       |    |		Execute	Vector,Field_Read
0052 0f2d       | -  |		Execute_Immediate	Equal,0x2d
0053 0278       | x  |		Execute	Discrete,Or
0054 00d9       |    |		Load_Top	At_Offset_1
0055 01dd       |    |		Execute	Vector,First
0056 0a01       |    |		Execute_Immediate	Plus,0x1
0057 0248       | H  |		Execute	Discrete,Check_In_Integer
0058 00da       |    |		Load_Top	At_Offset_2
0059 01d7       |    |		Execute	Vector,Field_Read
005a 4830       |H0  |		Short_Literal	0x30
005b 4839       |H9  |		Short_Literal	0x39
005c 0262       | b  |		Execute	Discrete,In_Range
005d 0279       | y  |		Execute	Discrete,And
005e 00ca       |    |		Action	Exit_Nullary_Function
005f			TRAP_0040:
005f 010e       |    |		Execute	Exception,Is_Constraint_Error
0060 6802       |h   |		Jump_Zero	0x63
0061 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x2 = 0x61,0x2
0062 00ca       |    |		Action	Exit_Nullary_Function
0063 0100       |    |		Execute	Exception,Raise
0064 0000 0000  |    |		.BLANK	0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x3 = .DEBUG	0x006b,0x01de,0x0801,0x0002,0x0030,0x6434,0x0000,0x0083
													; Debug Table 0x3.0x0 = 0x6b,0x1
006c 0092 015c  |   \|		Action	Push_String_Extended,0x15c					; "EXPECTED VALUES ARE: "
006e e5fe       |    |		Load	0x2,-0x2
006f 026a       | j  |		Execute	Discrete,First
0070 e5fe       |    |		Load	0x2,-0x2
0071 0122       | "  |		Execute	Any,Make_Root_Type
0072 025e       | ^  |		Execute	Discrete,Convert
0073 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0074 01cc       |    |		Execute	Vector,Catenate
0075 0092 015d  |   ]|		Action	Push_String_Extended,0x15d					; " .. "
0077 01cc       |    |		Execute	Vector,Catenate
0078 e5fe       |    |		Load	0x2,-0x2
0079 0269       | i  |		Execute	Discrete,Last
007a e5fe       |    |		Load	0x2,-0x2
007b 0122       | "  |		Execute	Any,Make_Root_Type
007c 025e       | ^  |		Execute	Discrete,Convert
007d 1c01       |    |		Execute_Immediate	Run_Utility,0x1
007e 01cc       |    |		Execute	Vector,Catenate
007f e001       |    |		Load	0x0,0x1
0080 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0081 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0082 0000 0000  |    |		.BLANK	0000[0x6]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x008b,0x01e2,0x0802,0x0002,0x0030,0x6434,0x0000,0x00a8
													; Debug Table 0x4.0x0 = 0x8b,0x1
008c 01db       |    |		Execute	Vector,Length
008d 00e3       |    |		Load_Encached	Natural_Cache
008e 025b       | [  |		Execute	Discrete,Check_In_Type
008f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095       |    |		.CONST	0x0095								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x5 = .DEBUG	0x0093,0x01e6,0x0802,0x0002,0x0030,0x6434,0x0000,0x00b9
													; Debug Table 0x5.0x0 = 0x93,0xffff
0094 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0095			BODY_0090:
0095 00cf       |    |		Action	Mark_Auxiliary
0096 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x1 = 0x96,0x1
0097 0265       | e  |		Execute	Discrete,Reverse_Bounds
0098 0263       | c  |		Execute	Discrete,Above_Bound
0099 700c       |p   |		Jump_Nonzero	0xa6
009a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x2 = 0x9a,0x2
009b e5fe       |    |		Load	0x2,-0x2
009c 0122       | "  |		Execute	Any,Make_Root_Type
009d 025e       | ^  |		Execute	Discrete,Convert
009e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
009f 8407       |    |		Call	0x2,0x7
00a0 00dc       |    |		Load_Top	At_Offset_4
00a1 e002       |    |		Load	0x0,0x2
00a2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00a3 005c       | \  |		Store_Top	Discrete,At_Offset_4
00a4 00c8       |    |		Action	Pop_Auxiliary_Range
00a5 3ff4       |?   |		Loop_Increasing	0x9a
00a6 00ce       |    |		Action	Pop_Auxiliary
00a7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x3 = 0xa7,0x3
00a8 00ca       |    |		Action	Exit_Nullary_Function
00a9 0000 0000  |    |		.BLANK	0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c7       |    |		.CONST	0x00c7								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0006       |    |		.CONST	0x0006								; Number of locals
00b3			INIT_00b0:
00b3 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x6 = .DEBUG	0x00b3,0x01f0,0x0801,0x0002,0x0030,0x6434,0x0000,0x00de
													; Debug Table 0x6.0x0 = 0xb3,0xffff
00b4 064e       | N  |		Execute_Immediate	Set_Value_Unchecked,0x4e
00b5 8408       |    |		Call	0x2,0x8								; Debug Table 0x6.0x1 = 0xb5,0xfffe
00b6 0a02       |    |		Execute_Immediate	Plus,0x2
00b7 00e3       |    |		Load_Encached	Natural_Cache
00b8 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00b9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x2 = 0xb9,0xfffd
00ba 00d9       |    |		Load_Top	At_Offset_1
00bb 0270       | p  |		Execute	Discrete,Divide
00bc 00e3       |    |		Load_Encached	Natural_Cache
00bd 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00be e003       |    |		Load	0x0,0x3								; Debug Table 0x6.0x3 = 0xbe,0xfffc
00bf 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c0 02ff       |    |		Declare_Variable	Variant_Record
00c1 00d8       |    |		Load_Top	At_Offset_0
00c2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c3 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x4 = 0xc3,0xfffb
00c4 026a       | j  |		Execute	Discrete,First
00c5 e5fe       |    |		Load	0x2,-0x2
00c6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00c7			BODY_00b0:
00c7 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x5 = 0xc7,0x1
00c8 7002       |p   |		Jump_Nonzero	0xcb
00c9 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6.0x6 = 0xc9,0x2
00ca 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00cb e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x7 = 0xcb,0x3
00cc 0092 015c  |   \|		Action	Push_String_Extended,0x15c					; "EXPECTED VALUES ARE: "
00ce e001       |    |		Load	0x0,0x1
00cf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d0 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x6.0x8 = 0xd0,0x4
00d1 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6.0x9 = 0xd1,0x4
													; Debug Table 0x6.0xa = 0xd1,0x5
00d2 e003       |    |		Load	0x0,0x3
00d3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d4 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d5 00d1       |    |		Pop_Control	Pop_Count_1
00d6 00cf       |    |		Action	Mark_Auxiliary
00d7 00dc       |    |		Load_Top	At_Offset_4						; Debug Table 0x6.0xb = 0xd7,0x6
00d8 4801       |H   |		Short_Literal	0x1
00d9 0263       | c  |		Execute	Discrete,Above_Bound
00da 702a       |p*  |		Jump_Nonzero	0x105
00db 00dd       |    |		Load_Top	At_Offset_5						; Debug Table 0x6.0xc = 0xdb,0x7
00dc e603       |    |		Load	0x3,0x3
00dd 00e4       |    |		Load_Encached	Positive_Cache
00de 025b       | [  |		Execute	Discrete,Check_In_Type
00df 00de       |    |		Load_Top	At_Offset_6
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 0122       | "  |		Execute	Any,Make_Root_Type
00e2 025e       | ^  |		Execute	Discrete,Convert
00e3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00e4 e003       |    |		Load	0x0,0x3
00e5 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e7 e003       |    |		Load	0x0,0x3
00e8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e9 e003       |    |		Load	0x0,0x3
00ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00eb 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00ec 00d1       |    |		Pop_Control	Pop_Count_1
00ed 00dc       |    |		Load_Top	At_Offset_4						; Debug Table 0x6.0xd = 0xed,0x8
00ee e5fe       |    |		Load	0x2,-0x2
00ef 0269       | i  |		Execute	Discrete,Last
00f0 027f       |    |		Execute	Discrete,Equal
00f1 680d       |h   |		Jump_Zero	0xff
00f2 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0xe = 0xf2,0x9
00f3 0092 015e  |   ^|		Action	Push_String_Extended,0x15e					; " "
00f5 e605       |    |		Load	0x3,0x5
00f6 e003       |    |		Load	0x0,0x3
00f7 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00f9 01cc       |    |		Execute	Vector,Catenate
00fa e001       |    |		Load	0x0,0x1
00fb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00fc 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x6.0xf = 0xfc,0xa
00fd 00ce       |    |		Action	Pop_Auxiliary
00fe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ff e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x6.0x10 = 0xff,0xb
0100 00dd       |    |		Load_Top	At_Offset_5
0101 0268       | h  |		Execute	Discrete,Successor
0102 005d       | ]  |		Store_Top	Discrete,At_Offset_5
0103 00c8       |    |		Action	Pop_Auxiliary_Range
0104 3fd6       |?   |		Loop_Increasing	0xdb
0105 00ce       |    |		Action	Pop_Auxiliary
0106 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x6.0x11 = 0x106,0xc
0107 0092 015e  |   ^|		Action	Push_String_Extended,0x15e					; " "
0109 00dc       |    |		Load_Top	At_Offset_4
010a e003       |    |		Load	0x0,0x3
010b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
010d 01cc       |    |		Execute	Vector,Catenate
010e e001       |    |		Load	0x0,0x1
010f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0110 00c9       |    |		Action	Pop_Auxiliary_Loop
0111 7fbf       |    |		Jump	0xd1
0112 0000 0000  |    |		.BLANK	0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 8405       |    |		Call	0x2,0x5								; Debug Table 0x7 = .DEBUG	0x011b,0x0216,0x0801,0x0002,0x0030,0x6434,0x0000,0x0177
													; Debug Table 0x7.0x0 = 0x11b,0x1
011c 6802       |h   |		Jump_Zero	0x11f
011d 8406       |    |		Call	0x2,0x6								; Debug Table 0x7.0x1 = 0x11d,0x2
011e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
011f 8409       |    |		Call	0x2,0x9								; Debug Table 0x7.0x2 = 0x11f,0x3
0120 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 013a       | :  |		.CONST	0x013a								; Address of begin
0129 0157       | W  |		.CONST	0x0157								; Address of exception handler
012a 0002       |    |		.CONST	0x0002								; Number of locals
012b			INIT_0128:
012b e5fb       |    |		Load	0x2,-0x5							; Debug Table 0x8 = .DEBUG	0x012b,0x021e,0x0804,0x0002,0x0030,0x6434,0x0000,0x01de
													; Debug Table 0x8.0x0 = 0x12b,0xffff
012c 485b       |H[  |		Short_Literal	0x5b
012d e5fd       |    |		Load	0x2,-0x3
012e 01cb       |    |		Execute	Vector,Append
012f e5fc       |    |		Load	0x2,-0x4
0130 e5fe       |    |		Load	0x2,-0x2
0131 0122       | "  |		Execute	Any,Make_Root_Type
0132 025e       | ^  |		Execute	Discrete,Convert
0133 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0134 01cc       |    |		Execute	Vector,Catenate
0135 0092 015f  |   _|		Action	Push_String_Extended,0x15f					; "] "
0137 01cc       |    |		Execute	Vector,Catenate
0138 e001       |    |		Load	0x0,0x1
0139 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
013a			BODY_0128:
013a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x1 = 0x13a,0x1
013b 01db       |    |		Execute	Vector,Length
013c 7004       |p   |		Jump_Nonzero	0x141
013d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x8.0x2 = 0x13d,0x2
013e c404       |    |		Store	0x2,0x4
013f 00cc       |    |		Action	Pop_Block							; Debug Table 0x8.0x3 = 0x13f,0x3
0140 7ef4       |~   |		Jump	0x35
0141 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x4 = 0x141,0x4
0142 e5fe       |    |		Load	0x2,-0x2
0143 0122       | "  |		Execute	Any,Make_Root_Type
0144 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0145 a402       |    |		Store_Unchecked	0x2,0x2
0146 e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x5 = 0x146,0x5
0147 e403       |    |		Load	0x2,0x3
0148 0260       | `  |		Execute	Discrete,In_Type
0149 680b       |h   |		Jump_Zero	0x155
014a e402       |    |		Load	0x2,0x2								; Debug Table 0x8.0x6 = 0x14a,0x6
014b 00d8       |    |		Load_Top	At_Offset_0
014c e5fe       |    |		Load	0x2,-0x2
014d 0122       | "  |		Execute	Any,Make_Root_Type
014e 0260       | `  |		Execute	Discrete,In_Type
014f 7002       |p   |		Jump_Nonzero	0x152
0150 48e0       |H   |		Short_Literal	0xe0
0151 0257       | W  |		Execute	Discrete,Raise
0152 c404       |    |		Store	0x2,0x4
0153 00cc       |    |		Action	Pop_Block							; Debug Table 0x8.0x7 = 0x153,0x7
0154 7ee0       |~   |		Jump	0x35
0155 48e0       |H   |		Short_Literal	0xe0							; Debug Table 0x8.0x8 = 0x155,0x8
0156 0257       | W  |		Execute	Discrete,Raise
0157			TRAP_0128:
0157 010e       |    |		Execute	Exception,Is_Constraint_Error
0158 6802       |h   |		Jump_Zero	0x15b
0159 840a       |    |		Call	0x2,0xa								; Debug Table 0x8.0x9 = 0x159,0x9
015a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
015b 0100       |    |		Execute	Exception,Raise
015c ; --------------------------------------------------------------------------------------
015c ; STRING TABLE
015c ; --------------------------------------------------------------------------------------
015c 000a       |    |		.STRTAB	0x000a->0x0161							; "EXPECTED VALUES ARE: "
015d 001d       |    |		.STRTAB	0x001d->0x016b							; " .. "
015e 001f       |    |		.STRTAB	0x001f->0x016d							; " "
015f 001e       |    |		.STRTAB	0x001e->0x016e							; "] "
0160 001e       |    |		.STREND 0x001e->0x016f
0161 4558 5045  |EXPE|		.STRTAB_STRINGS
016f 0000       |    |		.XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug Table
0170 ; --------------------------------------------------------------------------------------
0170 0003 0009  |    |		.CONST	0x0003,0x0009
0172 000b 01ba  |    |		.DEBUG	0x000b,0x01ba,0x8000,0x0000,0x0030,0x6324,0x0000,0x0005
017a 001b 01bc  |    |		.DEBUG	0x001b,0x01bc,0xa802,0x0002,0x0030,0x6324,0x0000,0x0005
0182 0043 01d6  | C  |		.DEBUG	0x0043,0x01d6,0x0802,0x0002,0x0030,0x6434,0x0000,0x003c
018a 006b 01de  | k  |		.DEBUG	0x006b,0x01de,0x0801,0x0002,0x0030,0x6434,0x0000,0x0083
0192 008b 01e2  |    |		.DEBUG	0x008b,0x01e2,0x0802,0x0002,0x0030,0x6434,0x0000,0x00a8
019a 0093 01e6  |    |		.DEBUG	0x0093,0x01e6,0x0802,0x0002,0x0030,0x6434,0x0000,0x00b9
01a2 00b3 01f0  |    |		.DEBUG	0x00b3,0x01f0,0x0801,0x0002,0x0030,0x6434,0x0000,0x00de
01aa 011b 0216  |    |		.DEBUG	0x011b,0x0216,0x0801,0x0002,0x0030,0x6434,0x0000,0x0177
01b2 012b 021e  | +  |		.DEBUG	0x012b,0x021e,0x0804,0x0002,0x0030,0x6434,0x0000,0x01de
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug3 Subtable 0x0
01ba ; --------------------------------------------------------------------------------------
01ba 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
01bc ; --------------------------------------------------------------------------------------
01bc ; Debug3 Subtable 0x1
01bc ; --------------------------------------------------------------------------------------
01bc 0009 0003  |    |		.DBG3TAB	0x0009,0x0003
01be 001b ffff  |    |		.CONST	0x001b,0xffff
01c0 001c fffe  |    |		.CONST	0x001c,0xfffe
01c2 0022 fffd  | "  |		.CONST	0x0022,0xfffd
01c4 0023 fffc  | #  |		.CONST	0x0023,0xfffc
01c6 0025 fffb  | %  |		.CONST	0x0025,0xfffb
01c8 0027 fffa  | '  |		.CONST	0x0027,0xfffa
01ca 0029 fff9  | )  |		.CONST	0x0029,0xfff9
01cc 002b fff8  | +  |		.CONST	0x002b,0xfff8
01ce 002d fff7  | -  |		.CONST	0x002d,0xfff7
01d0 0032 0001  | 2  |		.CONST	0x0032,0x0001
01d2 0032 0002  | 2  |		.CONST	0x0032,0x0002
01d4 0036 0003  | 6  |		.CONST	0x0036,0x0003
01d6 ; --------------------------------------------------------------------------------------
01d6 ; Debug3 Subtable 0x2
01d6 ; --------------------------------------------------------------------------------------
01d6 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
01d8 0043 ffff  | C  |		.CONST	0x0043,0xffff
01da 0049 0001  | I  |		.CONST	0x0049,0x0001
01dc 0061 0002  | a  |		.CONST	0x0061,0x0002
01de ; --------------------------------------------------------------------------------------
01de ; Debug3 Subtable 0x3
01de ; --------------------------------------------------------------------------------------
01de 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01e0 006b 0001  | k  |		.CONST	0x006b,0x0001
01e2 ; --------------------------------------------------------------------------------------
01e2 ; Debug3 Subtable 0x4
01e2 ; --------------------------------------------------------------------------------------
01e2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01e4 008b 0001  |    |		.CONST	0x008b,0x0001
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug3 Subtable 0x5
01e6 ; --------------------------------------------------------------------------------------
01e6 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
01e8 0093 ffff  |    |		.CONST	0x0093,0xffff
01ea 0096 0001  |    |		.CONST	0x0096,0x0001
01ec 009a 0002  |    |		.CONST	0x009a,0x0002
01ee 00a7 0003  |    |		.CONST	0x00a7,0x0003
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug3 Subtable 0x6
01f0 ; --------------------------------------------------------------------------------------
01f0 0005 000d  |    |		.DBG3TAB	0x0005,0x000d
01f2 00b3 ffff  |    |		.CONST	0x00b3,0xffff
01f4 00b5 fffe  |    |		.CONST	0x00b5,0xfffe
01f6 00b9 fffd  |    |		.CONST	0x00b9,0xfffd
01f8 00be fffc  |    |		.CONST	0x00be,0xfffc
01fa 00c3 fffb  |    |		.CONST	0x00c3,0xfffb
01fc 00c7 0001  |    |		.CONST	0x00c7,0x0001
01fe 00c9 0002  |    |		.CONST	0x00c9,0x0002
0200 00cb 0003  |    |		.CONST	0x00cb,0x0003
0202 00d0 0004  |    |		.CONST	0x00d0,0x0004
0204 00d1 0004  |    |		.CONST	0x00d1,0x0004
0206 00d1 0005  |    |		.CONST	0x00d1,0x0005
0208 00d7 0006  |    |		.CONST	0x00d7,0x0006
020a 00db 0007  |    |		.CONST	0x00db,0x0007
020c 00ed 0008  |    |		.CONST	0x00ed,0x0008
020e 00f2 0009  |    |		.CONST	0x00f2,0x0009
0210 00fc 000a  |    |		.CONST	0x00fc,0x000a
0212 00ff 000b  |    |		.CONST	0x00ff,0x000b
0214 0106 000c  |    |		.CONST	0x0106,0x000c
0216 ; --------------------------------------------------------------------------------------
0216 ; Debug3 Subtable 0x7
0216 ; --------------------------------------------------------------------------------------
0216 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0218 011b 0001  |    |		.CONST	0x011b,0x0001
021a 011d 0002  |    |		.CONST	0x011d,0x0002
021c 011f 0003  |    |		.CONST	0x011f,0x0003
021e ; --------------------------------------------------------------------------------------
021e ; Debug3 Subtable 0x8
021e ; --------------------------------------------------------------------------------------
021e 0001 0009  |    |		.DBG3TAB	0x0001,0x0009
0220 012b ffff  | +  |		.CONST	0x012b,0xffff
0222 013a 0001  | :  |		.CONST	0x013a,0x0001
0224 013d 0002  | =  |		.CONST	0x013d,0x0002
0226 013f 0003  | ?  |		.CONST	0x013f,0x0003
0228 0141 0004  | A  |		.CONST	0x0141,0x0004
022a 0146 0005  | F  |		.CONST	0x0146,0x0005
022c 014a 0006  | J  |		.CONST	0x014a,0x0006
022e 0153 0007  | S  |		.CONST	0x0153,0x0007
0230 0155 0008  | U  |		.CONST	0x0155,0x0008
0232 0159 0009  | Y  |		.CONST	0x0159,0x0009
0234 0000 0000  |    |		.BLANK	0000[0x1cc]