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

⟦0acd8795a⟧

    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 0298       |    |		.CONST	0x0298								; 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 002f       | /  |		.CONST	0x002f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x02ea,0x8000,0x0000,0x0036,0xe494,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0223  |   #|		Declare_Subprogram	INIT_0220,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 00bf       |    |		Action	Accept_Activation
001c 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x001c,0x02fc,0x8000,0x0000,0x0036,0xe544,0x0000,0x000d
													; Debug Table 0x1.0x0 = 0x1c,0xffff
001d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x1d,0xfffe
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x3 = 0x1f,0xfffc
0020 00c7       |    |		Action	Elaborate_Subprogram
0021 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x4 = 0x21,0xfffb
0022 00c7       |    |		Action	Elaborate_Subprogram
0023 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x5 = 0x23,0xfffa
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x6 = 0x25,0xfff9
0026 00c7       |    |		Action	Elaborate_Subprogram
0027 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x7 = 0x27,0xfff8
0028 00c7       |    |		Action	Elaborate_Subprogram
0029 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x8 = 0x29,0xfff7
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x9 = 0x2b,0xfff6
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xa = 0x2d,0xfff5
002e 00c7       |    |		Action	Elaborate_Subprogram
002f			BODY_0008:
002f 00bc       |    |		Action	Signal_Activated
0030 00bb       |    |		Action	Signal_Completion
0031 0000 0000  |    |		.BLANK	0000[0x7]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0045       | E  |		.CONST	0x0045								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0004       |    |		.CONST	0x0004								; Number of locals
003b			INIT_0038:
003b e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x003b,0x0314,0x0001,0x0000,0x0036,0xe494,0x0000,0x0008
													; Debug Table 0x2.0x0 = 0x3b,0xffff
003c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
003d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003e e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x1 = 0x3e,0xfffe
003f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0040 02c7       |    |		Declare_Variable	Any
0041 00d8       |    |		Load_Top	At_Offset_0
0042 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0043 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x2 = 0x43,0xfffd
0044 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0045			BODY_0038:
0045 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x3 = 0x45,0x1
0046 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0047 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0048 00da       |    |		Load_Top	At_Offset_2
0049 0120       |    |		Execute	Any,Is_Value
004a 6803       |h   |		Jump_Zero	0x4e
004b e001       |    |		Load	0x0,0x1
004c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004d 7801       |x   |		Jump	0x4f
004e 00da       |    |		Load_Top	At_Offset_2
004f 6228       |b(  |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
0050 e002       |    |		Load	0x0,0x2
0051 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0052 e003       |    |		Load	0x0,0x3
0053 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0054 e001       |    |		Load	0x0,0x1
0055 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0056 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0057 0092 027c  |   ||		Action	Push_String_Extended,0x27c					; "!users."
0059 e5ff       |    |		Load	0x2,-0x1
005a 01cc       |    |		Execute	Vector,Catenate
005b e001       |    |		Load	0x0,0x1
005c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
005d 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
005e c403       |    |		Store	0x2,0x3
005f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0060 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x4 = 0x60,0x2
0061 7013       |p   |		Jump_Nonzero	0x75
0062 e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x5 = 0x62,0x3
0063 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0064 e001       |    |		Load	0x0,0x1
0065 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0066 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0067 6210       |b   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
0068 e002       |    |		Load	0x0,0x2
0069 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006a 4800       |H   |		Short_Literal	0x0
006b e403       |    |		Load	0x2,0x3
006c e001       |    |		Load	0x0,0x1
006d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
006e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
006f c5fe       |    |		Store	0x2,-0x2
0070 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0071 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x6 = 0x71,0x4
0072 0f00       |    |		Execute_Immediate	Equal,0x0
0073 a5fd       |    |		Store_Unchecked	0x2,-0x3
0074 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0075 e003       |    |		Load	0x0,0x3								; Debug Table 0x2.0x7 = 0x75,0x5
0076 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0077 e001       |    |		Load	0x0,0x1
0078 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0079 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
007a a5fe       |    |		Store_Unchecked	0x2,-0x2
007b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x8 = 0x7b,0x6
007c a5fd       |    |		Store_Unchecked	0x2,-0x3
007d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0088       |    |		.CONST	0x0088								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0083,0x0328,0x0002,0x0000,0x0036,0xe494,0x0000,0x001c
													; Debug Table 0x3.0x0 = 0x83,0x1
0084 e001       |    |		Load	0x0,0x1
0085 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0086 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0087 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0088			TRAP_0080:
0088 0007       |    |		Action	Break_Optional
0089 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x3.0x1 = 0x89,0x2
008a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008b 0000 0000  |    |		.BLANK	0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009b       |    |		.CONST	0x009b								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0003       |    |		.CONST	0x0003								; Number of locals
0093			INIT_0090:
0093 e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x0093,0x032e,0x0002,0x0000,0x0036,0xe494,0x0000,0x0027
													; Debug Table 0x4.0x0 = 0x93,0xffff
0094 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0095 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0096 02c7       |    |		Declare_Variable	Any
0097 00d8       |    |		Load_Top	At_Offset_0
0098 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0099 e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x1 = 0x99,0xfffe
009a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009b			BODY_0090:
009b e001       |    |		Load	0x0,0x1								; Debug Table 0x4.0x2 = 0x9b,0x1
009c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009d 00da       |    |		Load_Top	At_Offset_2
009e 0120       |    |		Execute	Any,Is_Value
009f 6804       |h   |		Jump_Zero	0xa4
00a0 e001       |    |		Load	0x0,0x1
00a1 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a3 7801       |x   |		Jump	0xa5
00a4 00da       |    |		Load_Top	At_Offset_2
00a5 e5ff       |    |		Load	0x2,-0x1
00a6 e001       |    |		Load	0x0,0x1
00a7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a9 c402       |    |		Store	0x2,0x2
00aa 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ab 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x3 = 0xab,0x2
00ac 7006       |p   |		Jump_Nonzero	0xb3
00ad 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x4 = 0xad,0x3
00ae e001       |    |		Load	0x0,0x1
00af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00b0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00b1 820e       |    |		Call	0x1,0xe
00b2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b3 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x4.0x5 = 0xb3,0x4
00b4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00d4       |    |		.CONST	0x00d4								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0007       |    |		.CONST	0x0007								; Number of locals
00bb			INIT_00b8:
00bb e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x00bb,0x033c,0x0001,0x0000,0x0036,0xe494,0x0000,0x0034
													; Debug Table 0x5.0x0 = 0xbb,0xffff
00bc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bd 02c7       |    |		Declare_Variable	Any
00be 00d8       |    |		Load_Top	At_Offset_0
00bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c0 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x1 = 0xc0,0xfffe
00c1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00c2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c3 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x2 = 0xc3,0xfffd
00c4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00c5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00c6 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x3 = 0xc6,0xfffc
00c7 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00c8 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00c9 02c7       |    |		Declare_Variable	Any
00ca 00d8       |    |		Load_Top	At_Offset_0
00cb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00cc e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x4 = 0xcc,0xfffb
00cd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ce e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x5 = 0xce,0xfffa
00cf 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00d0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00d1 02c7       |    |		Declare_Variable	Any
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d4			BODY_00b8:
00d4 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x6 = 0xd4,0x1
00d5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d6 c5fc       |    |		Store	0x2,-0x4
00d7 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x7 = 0xd7,0x2
00d8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d9 c5fb       |    |		Store	0x2,-0x5
00da 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x8 = 0xda,0x3
00db a5fa       |    |		Store_Unchecked	0x2,-0x6
00dc 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x9 = 0xdc,0x4
00dd a5f9       |    |		Store_Unchecked	0x2,-0x7
00de e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0xa = 0xde,0x5
00df 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00e0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e1 e5fb       |    |		Load	0x2,-0x5
00e2 0120       |    |		Execute	Any,Is_Value
00e3 6803       |h   |		Jump_Zero	0xe7
00e4 e001       |    |		Load	0x0,0x1
00e5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e6 7801       |x   |		Jump	0xe8
00e7 e5fb       |    |		Load	0x2,-0x5
00e8 618f       |a   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
00e9 e002       |    |		Load	0x0,0x2
00ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00eb e5fe       |    |		Load	0x2,-0x2
00ec e5ff       |    |		Load	0x2,-0x1
00ed e001       |    |		Load	0x0,0x1
00ee 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ef 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
00f0 c5fb       |    |		Store	0x2,-0x5
00f1 c403       |    |		Store	0x2,0x3
00f2 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xb = 0xf2,0x6
00f3 460e       |F   |		Jump_Case	0xf
00f4 780e       |x   |		Jump	0x103								; case 0x0
00f5 7829       |x)  |		Jump	0x11f								; case 0x1
00f6 7828       |x(  |		Jump	0x11f								; case 0x2
00f7 7835       |x5  |		Jump	0x12d								; case 0x3
00f8 782c       |x,  |		Jump	0x125								; case 0x4
00f9 782b       |x+  |		Jump	0x125								; case 0x5
00fa 782d       |x-  |		Jump	0x128								; case 0x6
00fb 7826       |x&  |		Jump	0x122								; case 0x7
00fc 7825       |x%  |		Jump	0x122								; case 0x8
00fd 7824       |x$  |		Jump	0x122								; case 0x9
00fe 7823       |x#  |		Jump	0x122								; case 0xa
00ff 7822       |x"  |		Jump	0x122								; case 0xb
0100 7821       |x!  |		Jump	0x122								; case 0xc
0101 7820       |x   |		Jump	0x122								; case 0xd
0102 782a       |x*  |		Jump	0x12d								; case 0xe
0103 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0xc = 0x103,0x7
0104 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0105 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0106 e5fc       |    |		Load	0x2,-0x4
0107 0120       |    |		Execute	Any,Is_Value
0108 6803       |h   |		Jump_Zero	0x10c
0109 e001       |    |		Load	0x0,0x1
010a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
010b 7801       |x   |		Jump	0x10d
010c e5fc       |    |		Load	0x2,-0x4
010d 616a       |aj  |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
010e e002       |    |		Load	0x0,0x2
010f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0110 e5fe       |    |		Load	0x2,-0x2
0111 e5ff       |    |		Load	0x2,-0x1
0112 0092 027d  |   }|		Action	Push_String_Extended,0x27d					; ".$"
0114 01cc       |    |		Execute	Vector,Catenate
0115 e001       |    |		Load	0x0,0x1
0116 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0117 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0118 c5fc       |    |		Store	0x2,-0x4
0119 c5fd       |    |		Store	0x2,-0x3
011a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0xd = 0x11a,0x8
011b a5fa       |    |		Store_Unchecked	0x2,-0x6
011c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0xe = 0x11c,0x9
011d a5f9       |    |		Store_Unchecked	0x2,-0x7
011e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
011f e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0xf = 0x11f,0xa
0120 a5fd       |    |		Store_Unchecked	0x2,-0x3
0121 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0122 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x10 = 0x122,0xb
0123 a5fd       |    |		Store_Unchecked	0x2,-0x3
0124 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0125 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x11 = 0x125,0xc
0126 a5fd       |    |		Store_Unchecked	0x2,-0x3
0127 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0128 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x12 = 0x128,0xd
0129 a5fd       |    |		Store_Unchecked	0x2,-0x3
012a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x13 = 0x12a,0xe
012b a5fa       |    |		Store_Unchecked	0x2,-0x6
012c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x14 = 0x12d,0xf
012e e001       |    |		Load	0x0,0x1
012f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0130 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0131 01db       |    |		Execute	Vector,Length
0132 701f       |p   |		Jump_Nonzero	0x152
0133 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x15 = 0x133,0x10
0134 a404       |    |		Store_Unchecked	0x2,0x4
0135 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x16 = 0x135,0x11
0136 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0137 00d9       |    |		Load_Top	At_Offset_1
0138 0120       |    |		Execute	Any,Is_Value
0139 6804       |h   |		Jump_Zero	0x13e
013a e001       |    |		Load	0x0,0x1
013b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
013c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013d 7801       |x   |		Jump	0x13f
013e 00d9       |    |		Load_Top	At_Offset_1
013f e5fe       |    |		Load	0x2,-0x2
0140 e001       |    |		Load	0x0,0x1
0141 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0142 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0143 c407       |    |		Store	0x2,0x7
0144 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0145 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x17 = 0x145,0x12
0146 7008       |p   |		Jump_Nonzero	0x14f
0147 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x18 = 0x147,0x13
0148 e001       |    |		Load	0x0,0x1
0149 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
014a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
014b c5fc       |    |		Store	0x2,-0x4
014c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x19 = 0x14c,0x14
014d a403       |    |		Store_Unchecked	0x2,0x3
014e 783f       |x?  |		Jump	0x18e
014f 480e       |H   |		Short_Literal	0xe							; Debug Table 0x5.0x1a = 0x14f,0x15
0150 a403       |    |		Store_Unchecked	0x2,0x3
0151 783c       |x<  |		Jump	0x18e
0152 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x1b = 0x152,0x16
0153 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0154 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0155 e402       |    |		Load	0x2,0x2
0156 0120       |    |		Execute	Any,Is_Value
0157 6803       |h   |		Jump_Zero	0x15b
0158 e001       |    |		Load	0x0,0x1
0159 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015a 7801       |x   |		Jump	0x15c
015b e402       |    |		Load	0x2,0x2
015c 611b       |a   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
015d e002       |    |		Load	0x0,0x2
015e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015f e5fe       |    |		Load	0x2,-0x2
0160 e5ff       |    |		Load	0x2,-0x1
0161 e001       |    |		Load	0x0,0x1
0162 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0163 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0164 e001       |    |		Load	0x0,0x1
0165 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0166 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0167 c402       |    |		Store	0x2,0x2
0168 c403       |    |		Store	0x2,0x3
0169 e402       |    |		Load	0x2,0x2								; Debug Table 0x5.0x1c = 0x169,0x17
016a c5fc       |    |		Store	0x2,-0x4
016b e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x1d = 0x16b,0x18
016c 701f       |p   |		Jump_Nonzero	0x18c
016d e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x1e = 0x16d,0x19
016e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016f 00db       |    |		Load_Top	At_Offset_3
0170 0120       |    |		Execute	Any,Is_Value
0171 6804       |h   |		Jump_Zero	0x176
0172 e001       |    |		Load	0x0,0x1
0173 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0174 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0175 7801       |x   |		Jump	0x177
0176 00db       |    |		Load_Top	At_Offset_3
0177 e001       |    |		Load	0x0,0x1
0178 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0179 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
017a 60fd       |`   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
017b 4801       |H   |		Short_Literal	0x1
017c 4800       |H   |		Short_Literal	0x0
017d 4800       |H   |		Short_Literal	0x0
017e e002       |    |		Load	0x0,0x2
017f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0180 4800       |H   |		Short_Literal	0x0
0181 e402       |    |		Load	0x2,0x2
0182 e001       |    |		Load	0x0,0x1
0183 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0184 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0185 e001       |    |		Load	0x0,0x1
0186 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0187 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0188 c404       |    |		Store	0x2,0x4
0189 c405       |    |		Store	0x2,0x5
018a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
018b 7802       |x   |		Jump	0x18e
018c 4809       |H   |		Short_Literal	0x9							; Debug Table 0x5.0x1f = 0x18c,0x1a
018d 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
018e e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x20 = 0x18e,0x1b
018f a5fd       |    |		Store_Unchecked	0x2,-0x3
0190 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x21 = 0x190,0x1c
0191 702f       |p/  |		Jump_Nonzero	0x1c1
0192 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x22 = 0x192,0x1d
0193 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0194 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0195 e5fb       |    |		Load	0x2,-0x5
0196 0120       |    |		Execute	Any,Is_Value
0197 6803       |h   |		Jump_Zero	0x19b
0198 e001       |    |		Load	0x0,0x1
0199 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
019a 7801       |x   |		Jump	0x19c
019b e5fb       |    |		Load	0x2,-0x5
019c 60db       |`   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
019d e002       |    |		Load	0x0,0x2
019e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019f e404       |    |		Load	0x2,0x4
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 e001       |    |		Load	0x0,0x1
01a2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a3 184a       | J  |		Execute	Package,Field_Execute,Field_Number 0x4a
01a4 e001       |    |		Load	0x0,0x1
01a5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a6 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
01a7 c5fb       |    |		Store	0x2,-0x5
01a8 c403       |    |		Store	0x2,0x3
01a9 e403       |    |		Load	0x2,0x3								; Debug Table 0x5.0x23 = 0x1a9,0x1e
01aa 460e       |F   |		Jump_Case	0xf
01ab 780e       |x   |		Jump	0x1ba								; case 0x0
01ac 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
01ad 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x2
01ae 7810       |x   |		Jump	0x1bf								; case 0x3
01af 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x4
01b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x5
01b1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x6
01b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
01b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x8
01b4 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x9
01b5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xa
01b6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xb
01b7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xc
01b8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xd
01b9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xe
01ba 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x24 = 0x1ba,0x1f
01bb a5fa       |    |		Store_Unchecked	0x2,-0x6
01bc 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x25 = 0x1bc,0x20
01bd a5f9       |    |		Store_Unchecked	0x2,-0x7
01be 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01bf 4801       |H   |		Short_Literal	0x1							; Debug Table 0x5.0x26 = 0x1bf,0x23
01c0 a5fa       |    |		Store_Unchecked	0x2,-0x6
01c1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d0       |    |		.CONST	0x01d0								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0003       |    |		.CONST	0x0003								; Number of locals
01cb			INIT_01c8:
01cb e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x01cb,0x038c,0x0002,0x0000,0x0036,0xe494,0x0000,0x0060
													; Debug Table 0x6.0x0 = 0x1cb,0xffff
01cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01cd e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0x1cd,0xfffe
01ce 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01cf 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01d0			BODY_01c8:
01d0 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x2 = 0x1d0,0x1
01d1 e001       |    |		Load	0x0,0x1
01d2 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01d3 e001       |    |		Load	0x0,0x1
01d4 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01d5 0092 027e  |   ~|		Action	Push_String_Extended,0x27e					; "ADA"
01d7 01df       |    |		Execute	Vector,Equal
01d8 681e       |h   |		Jump_Zero	0x1f7
01d9 e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x3 = 0x1d9,0x2
01da 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01db e001       |    |		Load	0x0,0x1
01dc 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01de 6099       |`   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00004000}
01df e002       |    |		Load	0x0,0x2
01e0 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e1 4800       |H   |		Short_Literal	0x0
01e2 e5ff       |    |		Load	0x2,-0x1
01e3 e001       |    |		Load	0x0,0x1
01e4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
01e5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01e6 e001       |    |		Load	0x0,0x1
01e7 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01e8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01e9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ea 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01eb 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x4 = 0x1eb,0x3
01ec 7007       |p   |		Jump_Nonzero	0x1f4
01ed 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x6.0x5 = 0x1ed,0x4
01ee e001       |    |		Load	0x0,0x1
01ef 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
01f0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01f1 025e       | ^  |		Execute	Discrete,Convert
01f2 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f4 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "n/a"
													; Debug Table 0x6.0x6 = 0x1f4,0x5
01f6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f7 0092 027f  |    |		Action	Push_String_Extended,0x27f					; "n/a"
													; Debug Table 0x6.0x7 = 0x1f7,0x6
01f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fa 0000 0000  |    |		.BLANK	0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7 = .DEBUG	0x0203,0x039e,0x0002,0x0000,0x0036,0xe494,0x0000,0x006b
													; Debug Table 0x7.0x0 = 0x203,0x1
0204 e001       |    |		Load	0x0,0x1
0205 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0206 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0207 e001       |    |		Load	0x0,0x1
0208 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0209 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
020a 680e       |h   |		Jump_Zero	0x219
020b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x1 = 0x20b,0x2
020c e001       |    |		Load	0x0,0x1
020d 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
020e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
020f e001       |    |		Load	0x0,0x1
0210 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
0211 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0212 6803       |h   |		Jump_Zero	0x216
0213 0092 0280  |    |		Action	Push_String_Extended,0x280					; "WORLD"
													; Debug Table 0x7.0x2 = 0x213,0x3
0215 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0216 0092 0281  |    |		Action	Push_String_Extended,0x281					; "DIRECTORY"
													; Debug Table 0x7.0x3 = 0x216,0x4
0218 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0219 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x7.0x4 = 0x219,0x5
021a e001       |    |		Load	0x0,0x1
021b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
021c e001       |    |		Load	0x0,0x1
021d 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
021e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021f 0000       |    |		.XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0234       | 4  |		.CONST	0x0234								; Address of begin
0221 0004       |    |		.CONST	0x0004								; Address of exception handler
0222 0004       |    |		.CONST	0x0004								; Number of locals
0223			INIT_0220:
0223 0007       |    |		Action	Break_Optional							; Debug Table 0x8 = .DEBUG	0x0223,0x03aa,0x0002,0x0000,0x0036,0xe494,0x0000,0x0076
													; Debug Table 0x8.0x0 = 0x223,0xffff
0224 e004       |    |		Load	0x0,0x4								; Debug Table 0x8.0x1 = 0x224,0xfffe
0225 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0226 02ff       |    |		Declare_Variable	Variant_Record
0227 00d8       |    |		Load_Top	At_Offset_0
0228 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0229 e004       |    |		Load	0x0,0x4								; Debug Table 0x8.0x2 = 0x229,0xfffd
022a 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
022b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
022c 02ff       |    |		Declare_Variable	Variant_Record
022d 00d8       |    |		Load_Top	At_Offset_0
022e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
022f e005       |    |		Load	0x0,0x5								; Debug Table 0x8.0x3 = 0x22f,0xfffc
0230 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0231 02c7       |    |		Declare_Variable	Any
0232 00d8       |    |		Load_Top	At_Offset_0
0233 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0234			BODY_0220:
0234 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x4 = 0x234,0x1
0235 00db       |    |		Load_Top	At_Offset_3
0236 e002       |    |		Load	0x0,0x2
0237 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0238 e5ff       |    |		Load	0x2,-0x1
0239 e006       |    |		Load	0x0,0x6
023a 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
023b 00d1       |    |		Pop_Control	Pop_Count_1
023c c404       |    |		Store	0x2,0x4
023d 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x5 = 0x23d,0x2
023e 00d9       |    |		Load_Top	At_Offset_1
023f e005       |    |		Load	0x0,0x5
0240 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0241 7015       |p   |		Jump_Nonzero	0x257
0242 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x6 = 0x242,0x3
0243 00da       |    |		Load_Top	At_Offset_2
0244 e002       |    |		Load	0x0,0x2
0245 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0246 e402       |    |		Load	0x2,0x2
0247 0092 0282  |    |		Action	Push_String_Extended,0x282					; "S_1"
0249 e006       |    |		Load	0x0,0x6
024a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
024b 00d1       |    |		Pop_Control	Pop_Count_1
024c c404       |    |		Store	0x2,0x4
024d 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x7 = 0x24d,0x4
024e 00d9       |    |		Load_Top	At_Offset_1
024f e005       |    |		Load	0x0,0x5
0250 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0251 7005       |p   |		Jump_Nonzero	0x257
0252 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x8.0x8 = 0x252,0x5
0253 e004       |    |		Load	0x0,0x4
0254 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0255 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0256 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0257 e003       |    |		Load	0x0,0x3								; Debug Table 0x8.0x9 = 0x257,0x6
0258 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0259 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025a 0000 0000  |    |		.BLANK	0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265       | e  |		.CONST	0x0265								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0002       |    |		.CONST	0x0002								; Number of locals
0263			INIT_0260:
0263 e001       |    |		Load	0x0,0x1								; Debug Table 0x9 = .DEBUG	0x0263,0x03c0,0x0001,0x0000,0x0036,0xe494,0x0000,0x0081
													; Debug Table 0x9.0x0 = 0x263,0xffff
0264 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0265			BODY_0260:
0265 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x1 = 0x265,0x1
0266 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0267 e003       |    |		Load	0x0,0x3
0268 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0269 e002       |    |		Load	0x0,0x2
026a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
026b e007       |    |		Load	0x0,0x7
026c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
026d e006       |    |		Load	0x0,0x6
026e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
026f e006       |    |		Load	0x0,0x6
0270 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0271 e001       |    |		Load	0x0,0x1
0272 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0273 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0274 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0275 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0276 0000 0000  |    |		.XXX[0x2]
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
027c ; --------------------------------------------------------------------------------------
027c ; STRING TABLE
027c ; --------------------------------------------------------------------------------------
027c 0010       |    |		.STRTAB	0x0010->0x0284							; "!users."
027d 0015       |    |		.STRTAB	0x0015->0x0287							; ".$"
027e 0015       |    |		.STRTAB	0x0015->0x0288							; "ADA"
027f 0016       |    |		.STRTAB	0x0016->0x028a							; "n/a"
0280 0017       |    |		.STRTAB	0x0017->0x028b							; "WORLD"
0281 001a       |    |		.STRTAB	0x001a->0x028e							; "DIRECTORY"
0282 0021       | !  |		.STRTAB	0x0021->0x0292							; "S_1"
0283 0022       | "  |		.STREND 0x0022->0x0294
0284 2175 7365  |!use|		.STRTAB_STRINGS
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0003 000a  |    |		.CONST	0x0003,0x000a
029a 000b 02ea  |    |		.DEBUG	0x000b,0x02ea,0x8000,0x0000,0x0036,0xe494,0x0000,0x0007
02a2 001c 02fc  |    |		.DEBUG	0x001c,0x02fc,0x8000,0x0000,0x0036,0xe544,0x0000,0x000d
02aa 003b 0314  | ;  |		.DEBUG	0x003b,0x0314,0x0001,0x0000,0x0036,0xe494,0x0000,0x0008
02b2 0083 0328  |   (|		.DEBUG	0x0083,0x0328,0x0002,0x0000,0x0036,0xe494,0x0000,0x001c
02ba 0093 032e  |   .|		.DEBUG	0x0093,0x032e,0x0002,0x0000,0x0036,0xe494,0x0000,0x0027
02c2 00bb 033c  |   <|		.DEBUG	0x00bb,0x033c,0x0001,0x0000,0x0036,0xe494,0x0000,0x0034
02ca 01cb 038c  |    |		.DEBUG	0x01cb,0x038c,0x0002,0x0000,0x0036,0xe494,0x0000,0x0060
02d2 0203 039e  |    |		.DEBUG	0x0203,0x039e,0x0002,0x0000,0x0036,0xe494,0x0000,0x006b
02da 0223 03aa  | #  |		.DEBUG	0x0223,0x03aa,0x0002,0x0000,0x0036,0xe494,0x0000,0x0076
02e2 0263 03c0  | c  |		.DEBUG	0x0263,0x03c0,0x0001,0x0000,0x0036,0xe494,0x0000,0x0081
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug3 Subtable 0x0
02ea ; --------------------------------------------------------------------------------------
02ea 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
02ec 000b ffff  |    |		.CONST	0x000b,0xffff
02ee 000d fffe  |    |		.CONST	0x000d,0xfffe
02f0 000f fffd  |    |		.CONST	0x000f,0xfffd
02f2 0011 fffc  |    |		.CONST	0x0011,0xfffc
02f4 0013 fffb  |    |		.CONST	0x0013,0xfffb
02f6 0015 fffa  |    |		.CONST	0x0015,0xfffa
02f8 0017 fff9  |    |		.CONST	0x0017,0xfff9
02fa 0019 fff8  |    |		.CONST	0x0019,0xfff8
02fc ; --------------------------------------------------------------------------------------
02fc ; Debug3 Subtable 0x1
02fc ; --------------------------------------------------------------------------------------
02fc 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
02fe 001c ffff  |    |		.CONST	0x001c,0xffff
0300 001d fffe  |    |		.CONST	0x001d,0xfffe
0302 001e fffd  |    |		.CONST	0x001e,0xfffd
0304 001f fffc  |    |		.CONST	0x001f,0xfffc
0306 0021 fffb  | !  |		.CONST	0x0021,0xfffb
0308 0023 fffa  | #  |		.CONST	0x0023,0xfffa
030a 0025 fff9  | %  |		.CONST	0x0025,0xfff9
030c 0027 fff8  | '  |		.CONST	0x0027,0xfff8
030e 0029 fff7  | )  |		.CONST	0x0029,0xfff7
0310 002b fff6  | +  |		.CONST	0x002b,0xfff6
0312 002d fff5  | -  |		.CONST	0x002d,0xfff5
0314 ; --------------------------------------------------------------------------------------
0314 ; Debug3 Subtable 0x2
0314 ; --------------------------------------------------------------------------------------
0314 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
0316 003b ffff  | ;  |		.CONST	0x003b,0xffff
0318 003e fffe  | >  |		.CONST	0x003e,0xfffe
031a 0043 fffd  | C  |		.CONST	0x0043,0xfffd
031c 0045 0001  | E  |		.CONST	0x0045,0x0001
031e 0060 0002  | `  |		.CONST	0x0060,0x0002
0320 0062 0003  | b  |		.CONST	0x0062,0x0003
0322 0071 0004  | q  |		.CONST	0x0071,0x0004
0324 0075 0005  | u  |		.CONST	0x0075,0x0005
0326 007b 0006  | {  |		.CONST	0x007b,0x0006
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug3 Subtable 0x3
0328 ; --------------------------------------------------------------------------------------
0328 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
032a 0083 0001  |    |		.CONST	0x0083,0x0001
032c 0089 0002  |    |		.CONST	0x0089,0x0002
032e ; --------------------------------------------------------------------------------------
032e ; Debug3 Subtable 0x4
032e ; --------------------------------------------------------------------------------------
032e 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
0330 0093 ffff  |    |		.CONST	0x0093,0xffff
0332 0099 fffe  |    |		.CONST	0x0099,0xfffe
0334 009b 0001  |    |		.CONST	0x009b,0x0001
0336 00ab 0002  |    |		.CONST	0x00ab,0x0002
0338 00ad 0003  |    |		.CONST	0x00ad,0x0003
033a 00b3 0004  |    |		.CONST	0x00b3,0x0004
033c ; --------------------------------------------------------------------------------------
033c ; Debug3 Subtable 0x5
033c ; --------------------------------------------------------------------------------------
033c 0006 0021  |   !|		.DBG3TAB	0x0006,0x0021
033e 00bb ffff  |    |		.CONST	0x00bb,0xffff
0340 00c0 fffe  |    |		.CONST	0x00c0,0xfffe
0342 00c3 fffd  |    |		.CONST	0x00c3,0xfffd
0344 00c6 fffc  |    |		.CONST	0x00c6,0xfffc
0346 00cc fffb  |    |		.CONST	0x00cc,0xfffb
0348 00ce fffa  |    |		.CONST	0x00ce,0xfffa
034a 00d4 0001  |    |		.CONST	0x00d4,0x0001
034c 00d7 0002  |    |		.CONST	0x00d7,0x0002
034e 00da 0003  |    |		.CONST	0x00da,0x0003
0350 00dc 0004  |    |		.CONST	0x00dc,0x0004
0352 00de 0005  |    |		.CONST	0x00de,0x0005
0354 00f2 0006  |    |		.CONST	0x00f2,0x0006
0356 0103 0007  |    |		.CONST	0x0103,0x0007
0358 011a 0008  |    |		.CONST	0x011a,0x0008
035a 011c 0009  |    |		.CONST	0x011c,0x0009
035c 011f 000a  |    |		.CONST	0x011f,0x000a
035e 0122 000b  | "  |		.CONST	0x0122,0x000b
0360 0125 000c  | %  |		.CONST	0x0125,0x000c
0362 0128 000d  | (  |		.CONST	0x0128,0x000d
0364 012a 000e  | *  |		.CONST	0x012a,0x000e
0366 012d 000f  | -  |		.CONST	0x012d,0x000f
0368 0133 0010  | 3  |		.CONST	0x0133,0x0010
036a 0135 0011  | 5  |		.CONST	0x0135,0x0011
036c 0145 0012  | E  |		.CONST	0x0145,0x0012
036e 0147 0013  | G  |		.CONST	0x0147,0x0013
0370 014c 0014  | L  |		.CONST	0x014c,0x0014
0372 014f 0015  | O  |		.CONST	0x014f,0x0015
0374 0152 0016  | R  |		.CONST	0x0152,0x0016
0376 0169 0017  | i  |		.CONST	0x0169,0x0017
0378 016b 0018  | k  |		.CONST	0x016b,0x0018
037a 016d 0019  | m  |		.CONST	0x016d,0x0019
037c 018c 001a  |    |		.CONST	0x018c,0x001a
037e 018e 001b  |    |		.CONST	0x018e,0x001b
0380 0190 001c  |    |		.CONST	0x0190,0x001c
0382 0192 001d  |    |		.CONST	0x0192,0x001d
0384 01a9 001e  |    |		.CONST	0x01a9,0x001e
0386 01ba 001f  |    |		.CONST	0x01ba,0x001f
0388 01bc 0020  |    |		.CONST	0x01bc,0x0020
038a 01bf 0023  |   #|		.CONST	0x01bf,0x0023
038c ; --------------------------------------------------------------------------------------
038c ; Debug3 Subtable 0x6
038c ; --------------------------------------------------------------------------------------
038c 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
038e 01cb ffff  |    |		.CONST	0x01cb,0xffff
0390 01cd fffe  |    |		.CONST	0x01cd,0xfffe
0392 01d0 0001  |    |		.CONST	0x01d0,0x0001
0394 01d9 0002  |    |		.CONST	0x01d9,0x0002
0396 01eb 0003  |    |		.CONST	0x01eb,0x0003
0398 01ed 0004  |    |		.CONST	0x01ed,0x0004
039a 01f4 0005  |    |		.CONST	0x01f4,0x0005
039c 01f7 0006  |    |		.CONST	0x01f7,0x0006
039e ; --------------------------------------------------------------------------------------
039e ; Debug3 Subtable 0x7
039e ; --------------------------------------------------------------------------------------
039e 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
03a0 0203 0001  |    |		.CONST	0x0203,0x0001
03a2 020b 0002  |    |		.CONST	0x020b,0x0002
03a4 0213 0003  |    |		.CONST	0x0213,0x0003
03a6 0216 0004  |    |		.CONST	0x0216,0x0004
03a8 0219 0005  |    |		.CONST	0x0219,0x0005
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug3 Subtable 0x8
03aa ; --------------------------------------------------------------------------------------
03aa 0004 0006  |    |		.DBG3TAB	0x0004,0x0006
03ac 0223 ffff  | #  |		.CONST	0x0223,0xffff
03ae 0224 fffe  | $  |		.CONST	0x0224,0xfffe
03b0 0229 fffd  | )  |		.CONST	0x0229,0xfffd
03b2 022f fffc  | /  |		.CONST	0x022f,0xfffc
03b4 0234 0001  | 4  |		.CONST	0x0234,0x0001
03b6 023d 0002  | =  |		.CONST	0x023d,0x0002
03b8 0242 0003  | B  |		.CONST	0x0242,0x0003
03ba 024d 0004  | M  |		.CONST	0x024d,0x0004
03bc 0252 0005  | R  |		.CONST	0x0252,0x0005
03be 0257 0006  | W  |		.CONST	0x0257,0x0006
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug3 Subtable 0x9
03c0 ; --------------------------------------------------------------------------------------
03c0 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
03c2 0263 ffff  | c  |		.CONST	0x0263,0xffff
03c4 0265 0001  | e  |		.CONST	0x0265,0x0001
03c6 0000 0000  |    |		.BLANK	0000[0x3a]