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

⟦9f2e6c99e⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5811_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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01c0       |    |		.CONST	0x01c0								; 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 0056       | V  |		.CONST	0x0056								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0 = .DEBUG	0x000b,0x0232,0x8000,0x0000,0x0036,0x4f14,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 02a0       |    |		Declare_Subprogram	Null_Subprogram
000d 03ae       |    |		Declare_Type	Heap_Access,Defined,Visible
000e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x2 = 0xf,0xfffd
0010 0266       | f  |		Execute	Discrete,Bounds
0011 00da       |    |		Load_Top	At_Offset_2
0012 02a0       |    |		Declare_Subprogram	Null_Subprogram
0013 4801       |H   |		Short_Literal	0x1
0014 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0015 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x3 = 0x15,0xfffc
0016 0359       | Y  |		Declare_Type	Array,Incomplete,Visible
0017 4801       |H   |		Short_Literal	0x1							; Debug Table 0x0.0x4 = 0x17,0xfffb
0018 0359       | Y  |		Declare_Type	Array,Incomplete,Visible
0019 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x19,0xfffa
001b 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1b,0xfff9
001d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x1d,0xfff8
001f 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x8 = 0x1f,0xfff7
0021 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x9 = 0x21,0xfff6
0023 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xa = 0x23,0xfff5
0025 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xb = 0x25,0xfff4
0027 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xc = 0x27,0xfff3
0029 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xd = 0x29,0xfff2
002b 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xe = 0x2b,0xfff1
002d 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0xf = 0x2d,0xfff0
002f 00e8       |    |		Load_Encached	Character_Cache						; Debug Table 0x0.0x10 = 0x2f,0xffef
0030 0266       | f  |		Execute	Discrete,Bounds
0031 00e1       |    |		Load_Encached	Boolean_Cache
0032 02a0       |    |		Declare_Subprogram	Null_Subprogram
0033 e20f       |    |		Load	0x1,0xf
0034 0343       | C  |		Complete_Type	Array,By_Defining
0035 00e8       |    |		Load_Encached	Character_Cache						; Debug Table 0x0.0x11 = 0x35,0xffee
0036 0266       | f  |		Execute	Discrete,Bounds
0037 00e8       |    |		Load_Encached	Character_Cache
0038 02a0       |    |		Declare_Subprogram	Null_Subprogram
0039 e210       |    |		Load	0x1,0x10
003a 0343       | C  |		Complete_Type	Array,By_Defining
003b 00bf       |    |		Action	Accept_Activation
003c e210       |    |		Load	0x1,0x10							; Debug Table 0x1 = .DEBUG	0x003c,0x0258,0x8000,0x0000,0x0036,0x6e54,0x0000,0x0003
													; Debug Table 0x1.0x0 = 0x3c,0xffff
003d 0337       | 7  |		Declare_Variable	Array
003e e210       |    |		Load	0x1,0x10							; Debug Table 0x1.0x1 = 0x3e,0xfffe
003f 0337       | 7  |		Declare_Variable	Array
0040 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0x2 = 0x40,0xfffd
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18				; Debug Table 0x1.0x3 = 0x42,0xfffc
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x4 = 0x44,0xfffb
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x5 = 0x46,0xfffa
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x6 = 0x48,0xfff9
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0x7 = 0x4a,0xfff8
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15				; Debug Table 0x1.0x8 = 0x4c,0xfff7
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16				; Debug Table 0x1.0x9 = 0x4e,0xfff6
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19				; Debug Table 0x1.0xa = 0x50,0xfff5
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a				; Debug Table 0x1.0xb = 0x52,0xfff4
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0xc = 0x54,0xfff3
0055 00c7       |    |		Action	Elaborate_Subprogram
0056			BODY_0008:
0056 0092 01a3  |    |		Action	Push_String_Extended,0x1a3					; "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
													; Debug Table 0x1.0xd = 0x56,0x1
0058 0092 01a4  |    |		Action	Push_String_Extended,0x1a4					; "abcdefghijklmnopqrstuvwxyz"
005a 8218       |    |		Call	0x1,0x18
005b 00da       |    |		Load_Top	At_Offset_2
005c 01d4       |    |		Execute	Vector,Structure_Write
005d 0092 01a4  |    |		Action	Push_String_Extended,0x1a4					; "abcdefghijklmnopqrstuvwxyz"
													; Debug Table 0x1.0xe = 0x5d,0x2
005f 0092 01a3  |    |		Action	Push_String_Extended,0x1a3					; "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
0061 8218       |    |		Call	0x1,0x18
0062 00d9       |    |		Load_Top	At_Offset_1
0063 01d4       |    |		Execute	Vector,Structure_Write
0064 00bc       |    |		Action	Signal_Activated
0065 00bb       |    |		Action	Signal_Completion
0066 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2 = .DEBUG	0x006b,0x0278,0x0002,0x0000,0x0036,0x4f14,0x0000,0x001f
													; Debug Table 0x2.0x0 = 0x6b,0x1
006c e21c       |    |		Load	0x1,0x1c
006d 01d7       |    |		Execute	Vector,Field_Read
006e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006f 0000       |    |		.XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0078       | x  |		.CONST	0x0078								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0002       |    |		.CONST	0x0002								; Number of locals
0073			INIT_0070:
0073 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3 = .DEBUG	0x0073,0x027c,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0028
													; Debug Table 0x3.0x0 = 0x73,0xffff
0074 00db       |    |		Load_Top	At_Offset_3
0075 01db       |    |		Execute	Vector,Length
0076 00e9       |    |		Load_Encached	String_Cache
0077 0334       | 4  |		Declare_Variable	Array,With_Constraint
0078			BODY_0070:
0078 00cf       |    |		Action	Mark_Auxiliary
0079 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x1 = 0x79,0x1
007a 01d9       |    |		Execute	Vector,Reverse_Bounds
007b 0263       | c  |		Execute	Discrete,Above_Bound
007c 700f       |p   |		Jump_Nonzero	0x8c
007d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x2 = 0x7d,0x2
007e 01dd       |    |		Execute	Vector,First
007f 0aff       |    |		Execute_Immediate	Plus,-0x1
0080 00d9       |    |		Load_Top	At_Offset_1
0081 0273       | s  |		Execute	Discrete,Plus
0082 0248       | H  |		Execute	Discrete,Check_In_Integer
0083 e5ff       |    |		Load	0x2,-0x1
0084 01d7       |    |		Execute	Vector,Field_Read
0085 e21c       |    |		Load	0x1,0x1c
0086 01d7       |    |		Execute	Vector,Field_Read
0087 00d9       |    |		Load_Top	At_Offset_1
0088 e402       |    |		Load	0x2,0x2
0089 01d6       |    |		Execute	Vector,Field_Write
008a 00c8       |    |		Action	Pop_Auxiliary_Range
008b 3ff1       |?   |		Loop_Increasing	0x7d
008c 00ce       |    |		Action	Pop_Auxiliary
008d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x3 = 0x8d,0x3
008e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008f 0000       |    |		.XXX[0x1]
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 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x4 = .DEBUG	0x0093,0x0286,0x0001,0x0000,0x0036,0x4f14,0x0000,0x0031
0094 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x0 = 0x94,0x1
0095 01d9       |    |		Execute	Vector,Reverse_Bounds
0096 0263       | c  |		Execute	Discrete,Above_Bound
0097 700a       |p   |		Jump_Nonzero	0xa2
0098 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x1 = 0x98,0x2
0099 e5ff       |    |		Load	0x2,-0x1
009a 01d7       |    |		Execute	Vector,Field_Read
009b e21c       |    |		Load	0x1,0x1c
009c 01d7       |    |		Execute	Vector,Field_Read
009d 00d9       |    |		Load_Top	At_Offset_1
009e e5ff       |    |		Load	0x2,-0x1
009f 01d6       |    |		Execute	Vector,Field_Write
00a0 00c8       |    |		Action	Pop_Auxiliary_Range
00a1 3ff6       |?   |		Loop_Increasing	0x98
00a2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x00ab,0x028c,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0039
													; Debug Table 0x5.0x0 = 0xab,0x1
00ac e21d       |    |		Load	0x1,0x1d
00ad 01d7       |    |		Execute	Vector,Field_Read
00ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b8       |    |		.CONST	0x00b8								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0002       |    |		.CONST	0x0002								; Number of locals
00b3			INIT_00b0:
00b3 4801       |H   |		Short_Literal	0x1							; Debug Table 0x6 = .DEBUG	0x00b3,0x0290,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0042
													; Debug Table 0x6.0x0 = 0xb3,0xffff
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 01db       |    |		Execute	Vector,Length
00b6 00e9       |    |		Load_Encached	String_Cache
00b7 0334       | 4  |		Declare_Variable	Array,With_Constraint
00b8			BODY_00b0:
00b8 00cf       |    |		Action	Mark_Auxiliary
00b9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x1 = 0xb9,0x1
00ba 01d9       |    |		Execute	Vector,Reverse_Bounds
00bb 0263       | c  |		Execute	Discrete,Above_Bound
00bc 700f       |p   |		Jump_Nonzero	0xcc
00bd e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x2 = 0xbd,0x2
00be 01dd       |    |		Execute	Vector,First
00bf 0aff       |    |		Execute_Immediate	Plus,-0x1
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 0273       | s  |		Execute	Discrete,Plus
00c2 0248       | H  |		Execute	Discrete,Check_In_Integer
00c3 e5ff       |    |		Load	0x2,-0x1
00c4 01d7       |    |		Execute	Vector,Field_Read
00c5 e21d       |    |		Load	0x1,0x1d
00c6 01d7       |    |		Execute	Vector,Field_Read
00c7 00d9       |    |		Load_Top	At_Offset_1
00c8 e402       |    |		Load	0x2,0x2
00c9 01d6       |    |		Execute	Vector,Field_Write
00ca 00c8       |    |		Action	Pop_Auxiliary_Range
00cb 3ff1       |?   |		Loop_Increasing	0xbd
00cc 00ce       |    |		Action	Pop_Auxiliary
00cd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x3 = 0xcd,0x3
00ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x7 = .DEBUG	0x00d3,0x029a,0x0001,0x0000,0x0036,0x4f14,0x0000,0x004b
00d4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7.0x0 = 0xd4,0x1
00d5 01d9       |    |		Execute	Vector,Reverse_Bounds
00d6 0263       | c  |		Execute	Discrete,Above_Bound
00d7 700a       |p   |		Jump_Nonzero	0xe2
00d8 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x7.0x1 = 0xd8,0x2
00d9 e5ff       |    |		Load	0x2,-0x1
00da 01d7       |    |		Execute	Vector,Field_Read
00db e21d       |    |		Load	0x1,0x1d
00dc 01d7       |    |		Execute	Vector,Field_Read
00dd 00d9       |    |		Load_Top	At_Offset_1
00de e5ff       |    |		Load	0x2,-0x1
00df 01d6       |    |		Execute	Vector,Field_Write
00e0 00c8       |    |		Action	Pop_Auxiliary_Range
00e1 3ff6       |?   |		Loop_Increasing	0xd8
00e2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e3 0000 0000  |    |		.BLANK	0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f8       |    |		.CONST	0x00f8								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb e20f       |    |		Load	0x1,0xf								; Debug Table 0x8 = .DEBUG	0x00eb,0x02a0,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0053
													; Debug Table 0x8.0x0 = 0xeb,0xffff
00ec 0337       | 7  |		Declare_Variable	Array
00ed e20f       |    |		Load	0x1,0xf
00ee 0337       | 7  |		Declare_Variable	Array
00ef 487f       |H   |		Short_Literal	0x7f
00f0 4800       |H   |		Short_Literal	0x0
00f1 4800       |H   |		Short_Literal	0x0
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 e403       |    |		Load	0x2,0x3
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 3ffb       |?   |		Loop_Increasing	0xf1
00f6 00d9       |    |		Load_Top	At_Offset_1
00f7 01d4       |    |		Execute	Vector,Structure_Write
00f8			BODY_00e8:
00f8 00cf       |    |		Action	Mark_Auxiliary
00f9 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x8.0x1 = 0xf9,0x1
00fa 01d9       |    |		Execute	Vector,Reverse_Bounds
00fb 0263       | c  |		Execute	Discrete,Above_Bound
00fc 7008       |p   |		Jump_Nonzero	0x105
00fd 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x2 = 0xfd,0x2
00fe 00d9       |    |		Load_Top	At_Offset_1
00ff e5ff       |    |		Load	0x2,-0x1
0100 01d7       |    |		Execute	Vector,Field_Read
0101 e402       |    |		Load	0x2,0x2
0102 01d6       |    |		Execute	Vector,Field_Write
0103 00c8       |    |		Action	Pop_Auxiliary_Range
0104 3ff8       |?   |		Loop_Increasing	0xfd
0105 00ce       |    |		Action	Pop_Auxiliary
0106 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x3 = 0x106,0x3
0107 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e210       |    |		Load	0x1,0x10							; Debug Table 0x9 = .DEBUG	0x010b,0x02aa,0x0002,0x0000,0x0036,0x4f14,0x0000,0x005c
													; Debug Table 0x9.0x0 = 0x10b,0xffff
010c 0337       | 7  |		Declare_Variable	Array
010d			BODY_0108:
010d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0x10d,0x1
010e 01db       |    |		Execute	Vector,Length
010f e5fe       |    |		Load	0x2,-0x2
0110 01db       |    |		Execute	Vector,Length
0111 027e       | ~  |		Execute	Discrete,Not_Equal
0112 e5ff       |    |		Load	0x2,-0x1
0113 01dd       |    |		Execute	Vector,First
0114 e5fe       |    |		Load	0x2,-0x2
0115 01dd       |    |		Execute	Vector,First
0116 027e       | ~  |		Execute	Discrete,Not_Equal
0117 0278       | x  |		Execute	Discrete,Or
0118 6802       |h   |		Jump_Zero	0x11b
0119 48e0       |H   |		Short_Literal	0xe0							; Debug Table 0x9.0x2 = 0x119,0x2
011a 0257       | W  |		Execute	Discrete,Raise
011b 00cf       |    |		Action	Mark_Auxiliary
011c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x9.0x3 = 0x11c,0x3
011d 01d9       |    |		Execute	Vector,Reverse_Bounds
011e 0007       |    |		Action	Break_Optional
011f 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x4 = 0x11f,0x4
0120 00d9       |    |		Load_Top	At_Offset_1
0121 e402       |    |		Load	0x2,0x2
0122 01d6       |    |		Execute	Vector,Field_Write
0123 00c8       |    |		Action	Pop_Auxiliary_Range
0124 3ffa       |?   |		Loop_Increasing	0x11f
0125 00c9       |    |		Action	Pop_Auxiliary_Loop
0126 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0x5 = 0x126,0x5
0127 01d9       |    |		Execute	Vector,Reverse_Bounds
0128 0263       | c  |		Execute	Discrete,Above_Bound
0129 700a       |p   |		Jump_Nonzero	0x134
012a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x6 = 0x12a,0x6
012b e5fe       |    |		Load	0x2,-0x2
012c 01d7       |    |		Execute	Vector,Field_Read
012d 00d9       |    |		Load_Top	At_Offset_1
012e e5ff       |    |		Load	0x2,-0x1
012f 01d7       |    |		Execute	Vector,Field_Read
0130 e402       |    |		Load	0x2,0x2
0131 01d6       |    |		Execute	Vector,Field_Write
0132 00c8       |    |		Action	Pop_Auxiliary_Range
0133 3ff6       |?   |		Loop_Increasing	0x12a
0134 00ce       |    |		Action	Pop_Auxiliary
0135 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x7 = 0x135,0x7
0136 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0xa = .DEBUG	0x013b,0x02bc,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0066
013c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xa.0x0 = 0x13c,0x1
013d 01d9       |    |		Execute	Vector,Reverse_Bounds
013e 0263       | c  |		Execute	Discrete,Above_Bound
013f 700a       |p   |		Jump_Nonzero	0x14a
0140 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x1 = 0x140,0x2
0141 e5fe       |    |		Load	0x2,-0x2
0142 01d7       |    |		Execute	Vector,Field_Read
0143 e5ff       |    |		Load	0x2,-0x1
0144 01d7       |    |		Execute	Vector,Field_Read
0145 6802       |h   |		Jump_Zero	0x148
0146 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x2 = 0x146,0x3
0147 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0148 00c8       |    |		Action	Pop_Auxiliary_Range
0149 3ff6       |?   |		Loop_Increasing	0x140
014a 00ce       |    |		Action	Pop_Auxiliary
014b 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x3 = 0x14b,0x4
014c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb = .DEBUG	0x0153,0x02c6,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0073
													; Debug Table 0xb.0x0 = 0x153,0x1
0154 01dd       |    |		Execute	Vector,First
0155 e5fe       |    |		Load	0x2,-0x2
0156 01d7       |    |		Execute	Vector,Field_Read
0157 00db       |    |		Load_Top	At_Offset_3
0158 01d7       |    |		Execute	Vector,Field_Read
0159 7002       |p   |		Jump_Nonzero	0x15c
015a 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x1 = 0x15a,0x2
015b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
015c 00cf       |    |		Action	Mark_Auxiliary
015d e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xb.0x2 = 0x15d,0x3
015e 01d9       |    |		Execute	Vector,Reverse_Bounds
015f 0263       | c  |		Execute	Discrete,Above_Bound
0160 700a       |p   |		Jump_Nonzero	0x16b
0161 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x3 = 0x161,0x4
0162 e5fe       |    |		Load	0x2,-0x2
0163 01d7       |    |		Execute	Vector,Field_Read
0164 e5ff       |    |		Load	0x2,-0x1
0165 01d7       |    |		Execute	Vector,Field_Read
0166 7002       |p   |		Jump_Nonzero	0x169
0167 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x4 = 0x167,0x5
0168 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0169 00c8       |    |		Action	Pop_Auxiliary_Range
016a 3ff6       |?   |		Loop_Increasing	0x161
016b 00ce       |    |		Action	Pop_Auxiliary
016c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x5 = 0x16c,0x6
016d 01dc       |    |		Execute	Vector,Last
016e 0a01       |    |		Execute_Immediate	Plus,0x1
016f 00e3       |    |		Load_Encached	Natural_Cache
0170 025b       | [  |		Execute	Discrete,Check_In_Type
0171 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0172 0000 0000  |    |		.BLANK	0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d       | }  |		.CONST	0x017d								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call				; Debug Table 0xc = .DEBUG	0x017b,0x02d4,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0080
													; Debug Table 0xc.0x0 = 0x17b,0xffff
017d			BODY_0178:
017d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xc.0x1 = 0x17d,0x1
017e 8402       |    |		Call	0x2,0x2
017f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0188       |    |		.CONST	0x0188								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd = .DEBUG	0x0183,0x02da,0x0002,0x0000,0x0036,0x6e54,0x0000,0x01cc
													; Debug Table 0xd.0x0 = 0x183,0xffff
0184 e5ff       |    |		Load	0x2,-0x1
0185 8219       |    |		Call	0x1,0x19
0186 00e3       |    |		Load_Encached	Natural_Cache
0187 03f1       |    |		Declare_Variable	Discrete,With_Value
0188			BODY_0180:
0188 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x1 = 0x188,0x1
0189 7002       |p   |		Jump_Nonzero	0x18c
018a 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xd.0x2 = 0x18a,0x2
018b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018c 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xd.0x3 = 0x18c,0x3
018d e7ff       |    |		Load	0x3,-0x1
018e 01d7       |    |		Execute	Vector,Field_Read
018f e5fe       |    |		Load	0x2,-0x2
0190 e7ff       |    |		Load	0x3,-0x1
0191 01dd       |    |		Execute	Vector,First
0192 00db       |    |		Load_Top	At_Offset_3
0193 0aff       |    |		Execute_Immediate	Plus,-0x1
0194 0248       | H  |		Execute	Discrete,Check_In_Integer
0195 e7ff       |    |		Load	0x3,-0x1
0196 01cf       |    |		Execute	Vector,Slice_Read
0197 01cb       |    |		Execute	Vector,Append
0198 01cb       |    |		Execute	Vector,Append
0199 00d9       |    |		Load_Top	At_Offset_1
019a 0a01       |    |		Execute_Immediate	Plus,0x1
019b 0248       | H  |		Execute	Discrete,Check_In_Integer
019c e7ff       |    |		Load	0x3,-0x1
019d 01dc       |    |		Execute	Vector,Last
019e e7ff       |    |		Load	0x3,-0x1
019f 01cf       |    |		Execute	Vector,Slice_Read
01a0 8402       |    |		Call	0x2,0x2
01a1 01cc       |    |		Execute	Vector,Catenate
01a2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01a3 ; --------------------------------------------------------------------------------------
01a3 ; STRING TABLE
01a3 ; --------------------------------------------------------------------------------------
01a3 0006       |    |		.STRTAB	0x0006->0x01a6							; "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
01a4 001e       |    |		.STRTAB	0x001e->0x01b3							; "abcdefghijklmnopqrstuvwxyz"
01a5 0036       | 6  |		.STREND 0x0036->0x01c0
01a6 4142 4344  |ABCD|		.STRTAB_STRINGS
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0003 000e  |    |		.CONST	0x0003,0x000e
01c2 000b 0232  |   2|		.DEBUG	0x000b,0x0232,0x8000,0x0000,0x0036,0x4f14,0x0000,0x0003
01ca 003c 0258  | < X|		.DEBUG	0x003c,0x0258,0x8000,0x0000,0x0036,0x6e54,0x0000,0x0003
01d2 006b 0278  | k x|		.DEBUG	0x006b,0x0278,0x0002,0x0000,0x0036,0x4f14,0x0000,0x001f
01da 0073 027c  | s ||		.DEBUG	0x0073,0x027c,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0028
01e2 0093 0286  |    |		.DEBUG	0x0093,0x0286,0x0001,0x0000,0x0036,0x4f14,0x0000,0x0031
01ea 00ab 028c  |    |		.DEBUG	0x00ab,0x028c,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0039
01f2 00b3 0290  |    |		.DEBUG	0x00b3,0x0290,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0042
01fa 00d3 029a  |    |		.DEBUG	0x00d3,0x029a,0x0001,0x0000,0x0036,0x4f14,0x0000,0x004b
0202 00eb 02a0  |    |		.DEBUG	0x00eb,0x02a0,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0053
020a 010b 02aa  |    |		.DEBUG	0x010b,0x02aa,0x0002,0x0000,0x0036,0x4f14,0x0000,0x005c
0212 013b 02bc  | ;  |		.DEBUG	0x013b,0x02bc,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0066
021a 0153 02c6  | S  |		.DEBUG	0x0153,0x02c6,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0073
0222 017b 02d4  | {  |		.DEBUG	0x017b,0x02d4,0x0002,0x0000,0x0036,0x4f14,0x0000,0x0080
022a 0183 02da  |    |		.DEBUG	0x0183,0x02da,0x0002,0x0000,0x0036,0x6e54,0x0000,0x01cc
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x0
0232 ; --------------------------------------------------------------------------------------
0232 0012 0000  |    |		.DBG3TAB	0x0012,0x0000
0234 000b ffff  |    |		.CONST	0x000b,0xffff
0236 000e fffe  |    |		.CONST	0x000e,0xfffe
0238 000f fffd  |    |		.CONST	0x000f,0xfffd
023a 0015 fffc  |    |		.CONST	0x0015,0xfffc
023c 0017 fffb  |    |		.CONST	0x0017,0xfffb
023e 0019 fffa  |    |		.CONST	0x0019,0xfffa
0240 001b fff9  |    |		.CONST	0x001b,0xfff9
0242 001d fff8  |    |		.CONST	0x001d,0xfff8
0244 001f fff7  |    |		.CONST	0x001f,0xfff7
0246 0021 fff6  | !  |		.CONST	0x0021,0xfff6
0248 0023 fff5  | #  |		.CONST	0x0023,0xfff5
024a 0025 fff4  | %  |		.CONST	0x0025,0xfff4
024c 0027 fff3  | '  |		.CONST	0x0027,0xfff3
024e 0029 fff2  | )  |		.CONST	0x0029,0xfff2
0250 002b fff1  | +  |		.CONST	0x002b,0xfff1
0252 002d fff0  | -  |		.CONST	0x002d,0xfff0
0254 002f ffef  | /  |		.CONST	0x002f,0xffef
0256 0035 ffee  | 5  |		.CONST	0x0035,0xffee
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug3 Subtable 0x1
0258 ; --------------------------------------------------------------------------------------
0258 000d 0002  |    |		.DBG3TAB	0x000d,0x0002
025a 003c ffff  | <  |		.CONST	0x003c,0xffff
025c 003e fffe  | >  |		.CONST	0x003e,0xfffe
025e 0040 fffd  | @  |		.CONST	0x0040,0xfffd
0260 0042 fffc  | B  |		.CONST	0x0042,0xfffc
0262 0044 fffb  | D  |		.CONST	0x0044,0xfffb
0264 0046 fffa  | F  |		.CONST	0x0046,0xfffa
0266 0048 fff9  | H  |		.CONST	0x0048,0xfff9
0268 004a fff8  | J  |		.CONST	0x004a,0xfff8
026a 004c fff7  | L  |		.CONST	0x004c,0xfff7
026c 004e fff6  | N  |		.CONST	0x004e,0xfff6
026e 0050 fff5  | P  |		.CONST	0x0050,0xfff5
0270 0052 fff4  | R  |		.CONST	0x0052,0xfff4
0272 0054 fff3  | T  |		.CONST	0x0054,0xfff3
0274 0056 0001  | V  |		.CONST	0x0056,0x0001
0276 005d 0002  | ]  |		.CONST	0x005d,0x0002
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug3 Subtable 0x2
0278 ; --------------------------------------------------------------------------------------
0278 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
027a 006b 0001  | k  |		.CONST	0x006b,0x0001
027c ; --------------------------------------------------------------------------------------
027c ; Debug3 Subtable 0x3
027c ; --------------------------------------------------------------------------------------
027c 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
027e 0073 ffff  | s  |		.CONST	0x0073,0xffff
0280 0079 0001  | y  |		.CONST	0x0079,0x0001
0282 007d 0002  | }  |		.CONST	0x007d,0x0002
0284 008d 0003  |    |		.CONST	0x008d,0x0003
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0x4
0286 ; --------------------------------------------------------------------------------------
0286 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0288 0094 0001  |    |		.CONST	0x0094,0x0001
028a 0098 0002  |    |		.CONST	0x0098,0x0002
028c ; --------------------------------------------------------------------------------------
028c ; Debug3 Subtable 0x5
028c ; --------------------------------------------------------------------------------------
028c 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
028e 00ab 0001  |    |		.CONST	0x00ab,0x0001
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x6
0290 ; --------------------------------------------------------------------------------------
0290 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0292 00b3 ffff  |    |		.CONST	0x00b3,0xffff
0294 00b9 0001  |    |		.CONST	0x00b9,0x0001
0296 00bd 0002  |    |		.CONST	0x00bd,0x0002
0298 00cd 0003  |    |		.CONST	0x00cd,0x0003
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0x7
029a ; --------------------------------------------------------------------------------------
029a 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
029c 00d4 0001  |    |		.CONST	0x00d4,0x0001
029e 00d8 0002  |    |		.CONST	0x00d8,0x0002
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug3 Subtable 0x8
02a0 ; --------------------------------------------------------------------------------------
02a0 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
02a2 00eb ffff  |    |		.CONST	0x00eb,0xffff
02a4 00f9 0001  |    |		.CONST	0x00f9,0x0001
02a6 00fd 0002  |    |		.CONST	0x00fd,0x0002
02a8 0106 0003  |    |		.CONST	0x0106,0x0003
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x9
02aa ; --------------------------------------------------------------------------------------
02aa 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
02ac 010b ffff  |    |		.CONST	0x010b,0xffff
02ae 010d 0001  |    |		.CONST	0x010d,0x0001
02b0 0119 0002  |    |		.CONST	0x0119,0x0002
02b2 011c 0003  |    |		.CONST	0x011c,0x0003
02b4 011f 0004  |    |		.CONST	0x011f,0x0004
02b6 0126 0005  | &  |		.CONST	0x0126,0x0005
02b8 012a 0006  | *  |		.CONST	0x012a,0x0006
02ba 0135 0007  | 5  |		.CONST	0x0135,0x0007
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug3 Subtable 0xa
02bc ; --------------------------------------------------------------------------------------
02bc 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
02be 013c 0001  | <  |		.CONST	0x013c,0x0001
02c0 0140 0002  | @  |		.CONST	0x0140,0x0002
02c2 0146 0003  | F  |		.CONST	0x0146,0x0003
02c4 014b 0004  | K  |		.CONST	0x014b,0x0004
02c6 ; --------------------------------------------------------------------------------------
02c6 ; Debug3 Subtable 0xb
02c6 ; --------------------------------------------------------------------------------------
02c6 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
02c8 0153 0001  | S  |		.CONST	0x0153,0x0001
02ca 015a 0002  | Z  |		.CONST	0x015a,0x0002
02cc 015d 0003  | ]  |		.CONST	0x015d,0x0003
02ce 0161 0004  | a  |		.CONST	0x0161,0x0004
02d0 0167 0005  | g  |		.CONST	0x0167,0x0005
02d2 016c 0006  | l  |		.CONST	0x016c,0x0006
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug3 Subtable 0xc
02d4 ; --------------------------------------------------------------------------------------
02d4 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
02d6 017b ffff  | {  |		.CONST	0x017b,0xffff
02d8 017d 0001  | }  |		.CONST	0x017d,0x0001
02da ; --------------------------------------------------------------------------------------
02da ; Debug3 Subtable 0xd
02da ; --------------------------------------------------------------------------------------
02da 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
02dc 0183 ffff  |    |		.CONST	0x0183,0xffff
02de 0188 0001  |    |		.CONST	0x0188,0x0001
02e0 018a 0002  |    |		.CONST	0x018a,0x0002
02e2 018c 0003  |    |		.CONST	0x018c,0x0003
02e4 0000 0000  |    |		.BLANK	0000[0x11c]