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

⟦95376126d⟧

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

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 0158       | X  |		.CONST	0x0158								; 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 003e       | >  |		.CONST	0x003e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x01ba,0x8000,0x0000,0x0035,0x2614,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x15,0xfff9
0017 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x17,0xfff8
0019 00bf       |    |		Action	Accept_Activation
001a e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x001a,0x01cc,0x8000,0x0000,0x0035,0x2624,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x1a,0xffff
001b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
001c 0322       | "  |		Declare_Variable	Record
001d 4803       |H   |		Short_Literal	0x3
001e 00d9       |    |		Load_Top	At_Offset_1
001f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0020 4805       |H   |		Short_Literal	0x5
0021 00d9       |    |		Load_Top	At_Offset_1
0022 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0023 029d 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call			; Debug Table 0x1.0x1 = 0x23,0xfffe
0025 029d 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call			; Debug Table 0x1.0x2 = 0x25,0xfffd
0027 029d 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call			; Debug Table 0x1.0x3 = 0x27,0xfffc
0029 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x4 = 0x29,0xfffb
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x5 = 0x2b,0xfffa
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x6 = 0x2d,0xfff9
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x7 = 0x2f,0xfff8
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 029d 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call			; Debug Table 0x1.0x8 = 0x31,0xfff7
0033 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x9 = 0x33,0xfff6
0034 00c6       |    |		Action	Check_Subprogram_Elaborated
0035 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0036 6119       |a   |		Indirect_Literal	Discrete,0x150,{0x00000000, 0x00352624}
0037 4a69       |Ji  |		Short_Literal	0x269
0038 4800       |H   |		Short_Literal	0x0
0039 0007       |    |		Action	Break_Optional
003a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0xa = 0x3a,0xfff5
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xb = 0x3c,0xfff4
003d 00c7       |    |		Action	Elaborate_Subprogram
003e			BODY_0008:
003e 00bc       |    |		Action	Signal_Activated
003f 00bb       |    |		Action	Signal_Completion
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 e5f3       |    |		Load	0x2,-0xd							; Debug Table 0x2 = .DEBUG	0x0043,0x01e6,0x2801,0x0002,0x0035,0x2614,0x0000,0x0016
													; Debug Table 0x2.0x0 = 0x43,0x1
0044 00ea       |    |		Load_Encached	Null_String_Cache
0045 00ea       |    |		Load_Encached	Null_String_Cache
0046 e5f4       |    |		Load	0x2,-0xc
0047 e5f5       |    |		Load	0x2,-0xb
0048 e5f6       |    |		Load	0x2,-0xa
0049 e5f7       |    |		Load	0x2,-0x9
004a e5f8       |    |		Load	0x2,-0x8
004b e5f9       |    |		Load	0x2,-0x7
004c 8216       |    |		Call	0x1,0x16
004d 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0057       | W  |		.CONST	0x0057								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0003       |    |		.CONST	0x0003								; Number of locals
0053			INIT_0050:
0053 e002       |    |		Load	0x0,0x2								; Debug Table 0x3 = .DEBUG	0x0053,0x01ea,0x2801,0x0002,0x0035,0x2614,0x0000,0x0068
													; Debug Table 0x3.0x0 = 0x53,0xffff
0054 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0055 0322       | "  |		Declare_Variable	Record
0056 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0x1 = 0x56,0xfffe
0057			BODY_0050:
0057 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3.0x2 = 0x57,0x1
0058 00da       |    |		Load_Top	At_Offset_2
0059 e5fc       |    |		Load	0x2,-0x4
005a e002       |    |		Load	0x0,0x2
005b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
005c 00d1       |    |		Pop_Control	Pop_Count_1
005d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
005e 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x3.0x3 = 0x5e,0x2
005f 00ea       |    |		Load_Encached	Null_String_Cache
0060 e5fe       |    |		Load	0x2,-0x2
0061 e5fd       |    |		Load	0x2,-0x3
0062 e5fb       |    |		Load	0x2,-0x5
0063 e403       |    |		Load	0x2,0x3
0064 e402       |    |		Load	0x2,0x2
0065 8215       |    |		Call	0x1,0x15
0066 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x4 = 0x66,0x3
0067 e5fa       |    |		Load	0x2,-0x6
0068 017d       | }  |		Execute	Record,Structure_Write
0069 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x0073,0x01f6,0x0001,0x0000,0x0035,0x2614,0x0000,0x008b
													; Debug Table 0x4.0x0 = 0x73,0x1
0074 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0075 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0076 8211       |    |		Call	0x1,0x11
0077 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x007b,0x01fa,0x0001,0x0000,0x0035,0x2614,0x0000,0x0095
													; Debug Table 0x5.0x0 = 0x7b,0x1
007c e002       |    |		Load	0x0,0x2
007d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
007e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
007f 0000       |    |		.XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008a       |    |		.CONST	0x008a								; Address of begin
0081 009d       |    |		.CONST	0x009d								; Address of exception handler
0082 0003       |    |		.CONST	0x0003								; Number of locals
0083			INIT_0080:
0083 e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x0083,0x01fe,0x2801,0x0002,0x0035,0x2614,0x0000,0x009f
													; Debug Table 0x6.0x0 = 0x83,0xffff
0084 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0085 02ff       |    |		Declare_Variable	Variant_Record
0086 00d8       |    |		Load_Top	At_Offset_0
0087 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0088 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0x88,0xfffe
0089 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
008a			BODY_0080:
008a e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x2 = 0x8a,0x1
008b e002       |    |		Load	0x0,0x2
008c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
008d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x3 = 0x8d,0x2
008e e001       |    |		Load	0x0,0x1
008f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0090 00da       |    |		Load_Top	At_Offset_2
0091 016d       | m  |		Execute	Variant_Record,Structure_Write
0092 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x4 = 0x92,0x3
0093 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0094 0e02       |    |		Execute_Immediate	Not_Equal,0x2
0095 6806       |h   |		Jump_Zero	0x9c
0096 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x5 = 0x96,0x4
0097 e002       |    |		Load	0x0,0x2
0098 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0099 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x6 = 0x99,0x5
009a 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
009b 0257       | W  |		Execute	Discrete,Raise
009c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
009d			TRAP_0080:
009d e001       |    |		Load	0x0,0x1
009e 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
009f 010f       |    |		Execute	Exception,Equal
00a0 680c       |h   |		Jump_Zero	0xad
00a1 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x7 = 0xa1,0x6
00a2 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
00a3 e5fd       |    |		Load	0x2,-0x3
00a4 e001       |    |		Load	0x0,0x1
00a5 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00a6 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00a7 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0x8 = 0xa7,0x7
00a8 8210       |    |		Call	0x1,0x10
00a9 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x9 = 0xa9,0x8
00aa 85fe       |    |		Call	0x2,-0x2
00ab 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0xa = 0xab,0x9
00ac 0101       |    |		Execute	Exception,Reraise
00ad e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x6.0xb = 0xad,0xa
00ae 8210       |    |		Call	0x1,0x10
00af 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0xc = 0xaf,0xb
00b0 0101       |    |		Execute	Exception,Reraise
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb e5ef       |    |		Load	0x2,-0x11							; Debug Table 0x7 = .DEBUG	0x00bb,0x021a,0x2801,0x0002,0x0035,0x2614,0x0000,0x00b5
													; Debug Table 0x7.0x0 = 0xbb,0x1
00bc e5f0       |    |		Load	0x2,-0x10
00bd e5f1       |    |		Load	0x2,-0xf
00be e5f2       |    |		Load	0x2,-0xe
00bf e5f3       |    |		Load	0x2,-0xd
00c0 e5f4       |    |		Load	0x2,-0xc
00c1 e5f5       |    |		Load	0x2,-0xb
00c2 e5f6       |    |		Load	0x2,-0xa
00c3 e5f7       |    |		Load	0x2,-0x9
00c4 8216       |    |		Call	0x1,0x16
00c5 4511       |E   |		Exit_Suprogram	New_Top_Offset 0x11
00c6 0000 0000  |    |		.XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00ce       |    |		.CONST	0x00ce								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0002       |    |		.CONST	0x0002								; Number of locals
00cb			INIT_00c8:
00cb e001       |    |		Load	0x0,0x1								; Debug Table 0x8 = .DEBUG	0x00cb,0x021e,0x0001,0x0000,0x0035,0x2624,0x0000,0x0012
													; Debug Table 0x8.0x0 = 0xcb,0xffff
00cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00cd 0322       | "  |		Declare_Variable	Record
00ce			BODY_00c8:
00ce e213       |    |		Load	0x1,0x13							; Debug Table 0x8.0x1 = 0xce,0x1
00cf e5ff       |    |		Load	0x2,-0x1
00d0 e001       |    |		Load	0x0,0x1
00d1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d2 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x2 = 0xd2,0x2
00d3 e002       |    |		Load	0x0,0x2
00d4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00d5 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x3 = 0xd5,0x3
00d6 e5ff       |    |		Load	0x2,-0x1
00d7 e001       |    |		Load	0x0,0x1
00d8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d9 00d1       |    |		Pop_Control	Pop_Count_1
00da e213       |    |		Load	0x1,0x13							; Debug Table 0x8.0x4 = 0xda,0x4
00db 00d9       |    |		Load_Top	At_Offset_1
00dc e001       |    |		Load	0x0,0x1
00dd 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00de 6808       |h   |		Jump_Zero	0xe7
00df e213       |    |		Load	0x1,0x13							; Debug Table 0x8.0x5 = 0xdf,0x5
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 e001       |    |		Load	0x0,0x1
00e2 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00e3 e5ff       |    |		Load	0x2,-0x1
00e4 e002       |    |		Load	0x0,0x2
00e5 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00e6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e7 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x8.0x6 = 0xe7,0x6
00e8 e002       |    |		Load	0x0,0x2
00e9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00ea e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x7 = 0xea,0x7
00eb 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
00ec 0257       | W  |		Execute	Discrete,Raise
00ed 0000 0000  |    |		.XXX[0x3]
00ef 0000       |    |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9 = .DEBUG	0x00f3,0x0230,0x0001,0x0000,0x0035,0x2624,0x0000,0x0061
													; Debug Table 0x9.0x0 = 0xf3,0x1
00f4 6802       |h   |		Jump_Zero	0xf7
00f5 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x1 = 0xf5,0x2
00f6 8214       |    |		Call	0x1,0x14
00f7 4800       |H   |		Short_Literal	0x0							; Debug Table 0x9.0x2 = 0xf7,0x3
00f8 e001       |    |		Load	0x0,0x1
00f9 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00fa 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00fb 4800       |H   |		Short_Literal	0x0
00fc 00d9       |    |		Load_Top	At_Offset_1
00fd 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00fe e5fc       |    |		Load	0x2,-0x4
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0101 e5fb       |    |		Load	0x2,-0x5
0102 00d9       |    |		Load_Top	At_Offset_1
0103 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0104 e5fd       |    |		Load	0x2,-0x3
0105 00d9       |    |		Load_Top	At_Offset_1
0106 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0107 00db       |    |		Load_Top	At_Offset_3
0108 e001       |    |		Load	0x0,0x1
0109 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
010a 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x3 = 0x10a,0x4
010b e002       |    |		Load	0x0,0x2
010c 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
010d e001       |    |		Load	0x0,0x1
010e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010f 025b       | [  |		Execute	Discrete,Check_In_Type
0110 e001       |    |		Load	0x0,0x1
0111 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0112 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0113 e001       |    |		Load	0x0,0x1
0114 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0115 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0116 0262       | b  |		Execute	Discrete,In_Range
0117 6808       |h   |		Jump_Zero	0x120
0118 e5fa       |    |		Load	0x2,-0x6							; Debug Table 0x9.0x4 = 0x118,0x5
0119 00db       |    |		Load_Top	At_Offset_3
011a e003       |    |		Load	0x0,0x3
011b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
011c e5f9       |    |		Load	0x2,-0x7							; Debug Table 0x9.0x5 = 0x11c,0x6
011d 00db       |    |		Load_Top	At_Offset_3
011e e003       |    |		Load	0x0,0x3
011f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0120 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012f       | /  |		.CONST	0x012f								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0003       |    |		.CONST	0x0003								; Number of locals
012b			INIT_0128:
012b e002       |    |		Load	0x0,0x2								; Debug Table 0xa = .DEBUG	0x012b,0x023e,0x0001,0x0000,0x0035,0x2624,0x0000,0x00cc
													; Debug Table 0xa.0x0 = 0x12b,0xffff
012c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012d 0322       | "  |		Declare_Variable	Record
012e 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xa.0x1 = 0x12e,0xfffe
012f			BODY_0128:
012f 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xa.0x2 = 0x12f,0x1
0130 00da       |    |		Load_Top	At_Offset_2
0131 e5fc       |    |		Load	0x2,-0x4
0132 e5fd       |    |		Load	0x2,-0x3
0133 e5fe       |    |		Load	0x2,-0x2
0134 e002       |    |		Load	0x0,0x2
0135 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0136 00d1       |    |		Pop_Control	Pop_Count_1
0137 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0138 e5f8       |    |		Load	0x2,-0x8							; Debug Table 0xa.0x3 = 0x138,0x2
0139 e5f9       |    |		Load	0x2,-0x7
013a e5fa       |    |		Load	0x2,-0x6
013b e5fb       |    |		Load	0x2,-0x5
013c e5ff       |    |		Load	0x2,-0x1
013d e403       |    |		Load	0x2,0x3
013e e402       |    |		Load	0x2,0x2
013f 8215       |    |		Call	0x1,0x15
0140 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x4 = 0x140,0x3
0141 e5f7       |    |		Load	0x2,-0x9
0142 017d       | }  |		Execute	Record,Structure_Write
0143 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b e001       |    |		Load	0x0,0x1								; Debug Table 0xb = .DEBUG	0x014b,0x024a,0x0001,0x0000,0x0035,0x2624,0x0000,0x0257
													; Debug Table 0xb.0x0 = 0x14b,0x1
014c 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
014d 0257       | W  |		Execute	Discrete,Raise
014e 0000 0000  |    |		.XXX[0x2]
0150 0000 0000  |    |		.LITERAL	{0x00000000, 0x00352624}
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0003 000c  |    |		.CONST	0x0003,0x000c
015a 000b 01ba  |    |		.DEBUG	0x000b,0x01ba,0x8000,0x0000,0x0035,0x2614,0x0000,0x0009
0162 001a 01cc  |    |		.DEBUG	0x001a,0x01cc,0x8000,0x0000,0x0035,0x2624,0x0000,0x0007
016a 0043 01e6  | C  |		.DEBUG	0x0043,0x01e6,0x2801,0x0002,0x0035,0x2614,0x0000,0x0016
0172 0053 01ea  | S  |		.DEBUG	0x0053,0x01ea,0x2801,0x0002,0x0035,0x2614,0x0000,0x0068
017a 0073 01f6  | s  |		.DEBUG	0x0073,0x01f6,0x0001,0x0000,0x0035,0x2614,0x0000,0x008b
0182 007b 01fa  | {  |		.DEBUG	0x007b,0x01fa,0x0001,0x0000,0x0035,0x2614,0x0000,0x0095
018a 0083 01fe  |    |		.DEBUG	0x0083,0x01fe,0x2801,0x0002,0x0035,0x2614,0x0000,0x009f
0192 00bb 021a  |    |		.DEBUG	0x00bb,0x021a,0x2801,0x0002,0x0035,0x2614,0x0000,0x00b5
019a 00cb 021e  |    |		.DEBUG	0x00cb,0x021e,0x0001,0x0000,0x0035,0x2624,0x0000,0x0012
01a2 00f3 0230  |   0|		.DEBUG	0x00f3,0x0230,0x0001,0x0000,0x0035,0x2624,0x0000,0x0061
01aa 012b 023e  | + >|		.DEBUG	0x012b,0x023e,0x0001,0x0000,0x0035,0x2624,0x0000,0x00cc
01b2 014b 024a  | K J|		.DEBUG	0x014b,0x024a,0x0001,0x0000,0x0035,0x2624,0x0000,0x0257
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug3 Subtable 0x0
01ba ; --------------------------------------------------------------------------------------
01ba 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
01bc 000b ffff  |    |		.CONST	0x000b,0xffff
01be 000c fffe  |    |		.CONST	0x000c,0xfffe
01c0 000d fffd  |    |		.CONST	0x000d,0xfffd
01c2 000f fffc  |    |		.CONST	0x000f,0xfffc
01c4 0011 fffb  |    |		.CONST	0x0011,0xfffb
01c6 0013 fffa  |    |		.CONST	0x0013,0xfffa
01c8 0015 fff9  |    |		.CONST	0x0015,0xfff9
01ca 0017 fff8  |    |		.CONST	0x0017,0xfff8
01cc ; --------------------------------------------------------------------------------------
01cc ; Debug3 Subtable 0x1
01cc ; --------------------------------------------------------------------------------------
01cc 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
01ce 001a ffff  |    |		.CONST	0x001a,0xffff
01d0 0023 fffe  | #  |		.CONST	0x0023,0xfffe
01d2 0025 fffd  | %  |		.CONST	0x0025,0xfffd
01d4 0027 fffc  | '  |		.CONST	0x0027,0xfffc
01d6 0029 fffb  | )  |		.CONST	0x0029,0xfffb
01d8 002b fffa  | +  |		.CONST	0x002b,0xfffa
01da 002d fff9  | -  |		.CONST	0x002d,0xfff9
01dc 002f fff8  | /  |		.CONST	0x002f,0xfff8
01de 0031 fff7  | 1  |		.CONST	0x0031,0xfff7
01e0 0033 fff6  | 3  |		.CONST	0x0033,0xfff6
01e2 003a fff5  | :  |		.CONST	0x003a,0xfff5
01e4 003c fff4  | <  |		.CONST	0x003c,0xfff4
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug3 Subtable 0x2
01e6 ; --------------------------------------------------------------------------------------
01e6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01e8 0043 0001  | C  |		.CONST	0x0043,0x0001
01ea ; --------------------------------------------------------------------------------------
01ea ; Debug3 Subtable 0x3
01ea ; --------------------------------------------------------------------------------------
01ea 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
01ec 0053 ffff  | S  |		.CONST	0x0053,0xffff
01ee 0056 fffe  | V  |		.CONST	0x0056,0xfffe
01f0 0057 0001  | W  |		.CONST	0x0057,0x0001
01f2 005e 0002  | ^  |		.CONST	0x005e,0x0002
01f4 0066 0003  | f  |		.CONST	0x0066,0x0003
01f6 ; --------------------------------------------------------------------------------------
01f6 ; Debug3 Subtable 0x4
01f6 ; --------------------------------------------------------------------------------------
01f6 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01f8 0073 0001  | s  |		.CONST	0x0073,0x0001
01fa ; --------------------------------------------------------------------------------------
01fa ; Debug3 Subtable 0x5
01fa ; --------------------------------------------------------------------------------------
01fa 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01fc 007b 0001  | {  |		.CONST	0x007b,0x0001
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug3 Subtable 0x6
01fe ; --------------------------------------------------------------------------------------
01fe 0002 000b  |    |		.DBG3TAB	0x0002,0x000b
0200 0083 ffff  |    |		.CONST	0x0083,0xffff
0202 0088 fffe  |    |		.CONST	0x0088,0xfffe
0204 008a 0001  |    |		.CONST	0x008a,0x0001
0206 008d 0002  |    |		.CONST	0x008d,0x0002
0208 0092 0003  |    |		.CONST	0x0092,0x0003
020a 0096 0004  |    |		.CONST	0x0096,0x0004
020c 0099 0005  |    |		.CONST	0x0099,0x0005
020e 00a1 0006  |    |		.CONST	0x00a1,0x0006
0210 00a7 0007  |    |		.CONST	0x00a7,0x0007
0212 00a9 0008  |    |		.CONST	0x00a9,0x0008
0214 00ab 0009  |    |		.CONST	0x00ab,0x0009
0216 00ad 000a  |    |		.CONST	0x00ad,0x000a
0218 00af 000b  |    |		.CONST	0x00af,0x000b
021a ; --------------------------------------------------------------------------------------
021a ; Debug3 Subtable 0x7
021a ; --------------------------------------------------------------------------------------
021a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
021c 00bb 0001  |    |		.CONST	0x00bb,0x0001
021e ; --------------------------------------------------------------------------------------
021e ; Debug3 Subtable 0x8
021e ; --------------------------------------------------------------------------------------
021e 0001 0007  |    |		.DBG3TAB	0x0001,0x0007
0220 00cb ffff  |    |		.CONST	0x00cb,0xffff
0222 00ce 0001  |    |		.CONST	0x00ce,0x0001
0224 00d2 0002  |    |		.CONST	0x00d2,0x0002
0226 00d5 0003  |    |		.CONST	0x00d5,0x0003
0228 00da 0004  |    |		.CONST	0x00da,0x0004
022a 00df 0005  |    |		.CONST	0x00df,0x0005
022c 00e7 0006  |    |		.CONST	0x00e7,0x0006
022e 00ea 0007  |    |		.CONST	0x00ea,0x0007
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug3 Subtable 0x9
0230 ; --------------------------------------------------------------------------------------
0230 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
0232 00f3 0001  |    |		.CONST	0x00f3,0x0001
0234 00f5 0002  |    |		.CONST	0x00f5,0x0002
0236 00f7 0003  |    |		.CONST	0x00f7,0x0003
0238 010a 0004  |    |		.CONST	0x010a,0x0004
023a 0118 0005  |    |		.CONST	0x0118,0x0005
023c 011c 0006  |    |		.CONST	0x011c,0x0006
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0xa
023e ; --------------------------------------------------------------------------------------
023e 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
0240 012b ffff  | +  |		.CONST	0x012b,0xffff
0242 012e fffe  | .  |		.CONST	0x012e,0xfffe
0244 012f 0001  | /  |		.CONST	0x012f,0x0001
0246 0138 0002  | 8  |		.CONST	0x0138,0x0002
0248 0140 0003  | @  |		.CONST	0x0140,0x0003
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0xb
024a ; --------------------------------------------------------------------------------------
024a 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
024c 014b 0001  | K  |		.CONST	0x014b,0x0001
024e 0000 0000  |    |		.BLANK	0000[0x1b2]