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

⟦01a89fadb⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0368ff

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0470       | p  |		.CONST	0x0470								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0042       | B  |		.CONST	0x0042								; Address of begin
0009 004c       | L  |		.CONST	0x004c								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b 00e1       |    |		Load_Encached	Boolean_Cache
000c 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
000d 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0011 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0013 00bf       |    |		Action	Accept_Activation
0014 0092 038c  |    |		Action	Push_String_Extended,0x38c					; "Memory.ENP"
0016 00e3       |    |		Load_Encached	Natural_Cache
0017 00e5       |    |		Load_Encached	Long_Integer_Cache
0018 00d9       |    |		Load_Top	At_Offset_1
0019 00e3       |    |		Load_Encached	Natural_Cache
001a 02a0       |    |		Declare_Subprogram	Null_Subprogram
001b 4802       |H   |		Short_Literal	0x2
001c 032d       | -  |		Declare_Type	Record,Defined
001d 00d8       |    |		Load_Top	At_Offset_0
001e 0322       | "  |		Declare_Variable	Record
001f 4800       |H   |		Short_Literal	0x0
0020 00d9       |    |		Load_Top	At_Offset_1
0021 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0022 60a9       |`   |		Indirect_Literal	Discrete,0xcc,{0x00000000, 0x00001000}
0023 00d9       |    |		Load_Top	At_Offset_1
0024 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0025 4800       |H   |		Short_Literal	0x0
0026 0093 033b  |   ;|		push_full_address	INIT_0338
0028 02a0       |    |		Declare_Subprogram	Null_Subprogram
0029 038e       |    |		Declare_Type	Package,Defined
002a 00da       |    |		Load_Top	At_Offset_2
002b 4801       |H   |		Short_Literal	0x1
002c 00da       |    |		Load_Top	At_Offset_2
002d 020e       |    |		Execute	Module,Augment_Imports
002e 0387       |    |		Declare_Variable	Package
002f 6098       |`   |		Indirect_Literal	Discrete,0xc8,{0x00000000, 0x0007e000}
0030 e212       |    |		Load	0x1,0x12
0031 03f1       |    |		Declare_Variable	Discrete,With_Value
0032 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call
0034 029d 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call
0036 029d 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call
0038 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call
003a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 e216       |    |		Load	0x1,0x16
0041 020f       |    |		Execute	Module,Activate
0042			BODY_0008:
0042 6081       |`   |		Indirect_Literal	Discrete,0xc4,{0x00000000, 0x0000e000}
0043 a213       |    |		Store_Unchecked	0x1,0x13
0044 e213       |    |		Load	0x1,0x13
0045 0910       |    |		Execute_Immediate	Binary_Scale,0x10
0046 a213       |    |		Store_Unchecked	0x1,0x13
0047 e001       |    |		Load	0x0,0x1
0048 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0049 a20d       |    |		Store_Unchecked	0x1,0xd
004a 00bc       |    |		Action	Signal_Activated
004b 00bb       |    |		Action	Signal_Completion
004c			TRAP_0008:
004c 0007       |    |		Action	Break_Optional
004d 4800       |H   |		Short_Literal	0x0
004e a20d       |    |		Store_Unchecked	0x1,0xd
004f 00bc       |    |		Action	Signal_Activated
0050 00bb       |    |		Action	Signal_Completion
0051 0000 0000  |    |		.BLANK	0000[0x7]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0064       | d  |		.CONST	0x0064								; Address of begin
0059 0097       |    |		.CONST	0x0097								; Address of exception handler
005a 0004       |    |		.CONST	0x0004								; Number of locals
005b			INIT_0058:
005b e211       |    |		Load	0x1,0x11
005c 0092 038d  |    |		Action	Push_String_Extended,0x38d					; ".Reset"
005e 01cc       |    |		Execute	Vector,Catenate
005f 0007       |    |		Action	Break_Optional
0060 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
0062 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
0064			BODY_0058:
0064 8404       |    |		Call	0x2,0x4
0065 e001       |    |		Load	0x0,0x1
0066 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0067 700a       |p   |		Jump_Nonzero	0x72
0068 4800       |H   |		Short_Literal	0x0
0069 a20d       |    |		Store_Unchecked	0x1,0xd
006a e002       |    |		Load	0x0,0x2
006b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
006c 4802       |H   |		Short_Literal	0x2
006d 0092 038e  |    |		Action	Push_String_Extended,0x38e					; "not ENP_Driver.Installed"
006f e003       |    |		Load	0x0,0x3
0070 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0071 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0072 604d       |`M  |		Indirect_Literal	Discrete,0xc0,{0x00000000, 0x00060000}
0073 00ba       |    |		Action	Initiate_Delay
0074 8403       |    |		Call	0x2,0x3
0075 700e       |p   |		Jump_Nonzero	0x84
0076 6045       |`E  |		Indirect_Literal	Discrete,0xbc,{0x00000000, 0x00090000}
0077 00ba       |    |		Action	Initiate_Delay
0078 8403       |    |		Call	0x2,0x3
0079 700a       |p   |		Jump_Nonzero	0x84
007a e002       |    |		Load	0x0,0x2
007b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
007c 4807       |H   |		Short_Literal	0x7
007d 0092 038f  |    |		Action	Push_String_Extended,0x38f					; "ENP did not complete self-test."
007f e003       |    |		Load	0x0,0x3
0080 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0081 e003       |    |		Load	0x0,0x3
0082 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0083 0257       | W  |		Execute	Discrete,Raise
0084 4800       |H   |		Short_Literal	0x0
0085 e216       |    |		Load	0x1,0x16
0086 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0087 821a       |    |		Call	0x1,0x1a
0088 821b       |    |		Call	0x1,0x1b
0089 a217       |    |		Store_Unchecked	0x1,0x17
008a e002       |    |		Load	0x0,0x2
008b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
008c 4800       |H   |		Short_Literal	0x0
008d e211       |    |		Load	0x1,0x11
008e 0092 0390  |    |		Action	Push_String_Extended,0x390					; ".Limit_Address ="
0090 01cc       |    |		Execute	Vector,Catenate
0091 e217       |    |		Load	0x1,0x17
0092 8218       |    |		Call	0x1,0x18
0093 01cc       |    |		Execute	Vector,Catenate
0094 e003       |    |		Load	0x0,0x3
0095 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0096 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0097			TRAP_0058:
0097 e003       |    |		Load	0x0,0x3
0098 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0099 010f       |    |		Execute	Exception,Equal
009a 6802       |h   |		Jump_Zero	0x9d
009b 00d8       |    |		Load_Top	At_Offset_0
009c 0101       |    |		Execute	Exception,Reraise
009d 4884       |H   |		Short_Literal	0x84
009e 010f       |    |		Execute	Exception,Equal
009f 680c       |h   |		Jump_Zero	0xac
00a0 e002       |    |		Load	0x0,0x2
00a1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00a2 4806       |H   |		Short_Literal	0x6
00a3 e402       |    |		Load	0x2,0x2
00a4 0092 0391  |    |		Action	Push_String_Extended,0x391					; " caught System.Nonexistent_Page_Error"
00a6 01cc       |    |		Execute	Vector,Catenate
00a7 e003       |    |		Load	0x0,0x3
00a8 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00a9 4800       |H   |		Short_Literal	0x0
00aa a20d       |    |		Store_Unchecked	0x1,0xd
00ab 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ac e002       |    |		Load	0x0,0x2
00ad 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ae 4808       |H   |		Short_Literal	0x8
00af e402       |    |		Load	0x2,0x2
00b0 0092 0392  |    |		Action	Push_String_Extended,0x392					; " caught "
00b2 01cc       |    |		Execute	Vector,Catenate
00b3 4801       |H   |		Short_Literal	0x1
00b4 4801       |H   |		Short_Literal	0x1
00b5 e004       |    |		Load	0x0,0x4
00b6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00b7 01cc       |    |		Execute	Vector,Catenate
00b8 e003       |    |		Load	0x0,0x3
00b9 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00ba 00d8       |    |		Load_Top	At_Offset_0
00bb 0101       |    |		Execute	Exception,Reraise
00bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00090000}
00c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00060000}
00c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000e000}
00c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0007e000}
00cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001000}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00de       |    |		.CONST	0x00de								; Address of begin
00d1 0115       |    |		.CONST	0x0115								; Address of exception handler
00d2 0005       |    |		.CONST	0x0005								; Number of locals
00d3			INIT_00d0:
00d3 6064       |`d  |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00001100}
00d4 e212       |    |		Load	0x1,0x12
00d5 03f1       |    |		Declare_Variable	Discrete,With_Value
00d6 4801       |H   |		Short_Literal	0x1
00d7 4900       |I   |		Short_Literal	0x100
00d8 e005       |    |		Load	0x0,0x5
00d9 035b       | [  |		Declare_Type	Array,Constrained
00da 0337       | 7  |		Declare_Variable	Array
00db 00e3       |    |		Load_Encached	Natural_Cache
00dc 029f 02db  |    |		Declare_Subprogram	INIT_02d8,For_Call
00de			BODY_00d0:
00de e20d       |    |		Load	0x1,0xd
00df 7001       |p   |		Jump_Nonzero	0xe1
00e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e1 00cf       |    |		Action	Mark_Auxiliary
00e2 7823       |x#  |		Jump	0x106
00e3 e402       |    |		Load	0x2,0x2
00e4 4900       |I   |		Short_Literal	0x100
00e5 e003       |    |		Load	0x0,0x3
00e6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e7 e403       |    |		Load	0x2,0x3
00e8 01d4       |    |		Execute	Vector,Structure_Write
00e9 8405       |    |		Call	0x2,0x5
00ea 00da       |    |		Load_Top	At_Offset_2
00eb 0d01       |    |		Execute_Immediate	Less,0x1
00ec 6814       |h   |		Jump_Zero	0x101
00ed e002       |    |		Load	0x0,0x2
00ee 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ef 4807       |H   |		Short_Literal	0x7
00f0 0092 0393  |    |		Action	Push_String_Extended,0x393					; "Write("
00f2 e402       |    |		Load	0x2,0x2
00f3 8218       |    |		Call	0x1,0x18
00f4 01cc       |    |		Execute	Vector,Catenate
00f5 0092 0394  |    |		Action	Push_String_Extended,0x394					; ").Count ="
00f7 01cc       |    |		Execute	Vector,Catenate
00f8 e404       |    |		Load	0x2,0x4
00f9 00e0       |    |		Load_Encached	Standard_Cache
00fa 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00fb 01cc       |    |		Execute	Vector,Catenate
00fc e003       |    |		Load	0x0,0x3
00fd 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00fe e003       |    |		Load	0x0,0x3
00ff 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0100 0257       | W  |		Execute	Discrete,Raise
0101 e402       |    |		Load	0x2,0x2
0102 00db       |    |		Load_Top	At_Offset_3
0103 0273       | s  |		Execute	Discrete,Plus
0104 c402       |    |		Store	0x2,0x2
0105 00c9       |    |		Action	Pop_Auxiliary_Loop
0106 e402       |    |		Load	0x2,0x2
0107 e217       |    |		Load	0x1,0x17
0108 027c       | |  |		Execute	Discrete,Less
0109 77d9       |w   |		Jump_Nonzero	0xe3
010a 00ce       |    |		Action	Pop_Auxiliary
010b e002       |    |		Load	0x0,0x2
010c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
010d 4802       |H   |		Short_Literal	0x2
010e e211       |    |		Load	0x1,0x11
010f 0092 0395  |    |		Action	Push_String_Extended,0x395					; ".Write succeeded"
0111 01cc       |    |		Execute	Vector,Catenate
0112 e003       |    |		Load	0x0,0x3
0113 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0114 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0115			TRAP_00d0:
0115 e003       |    |		Load	0x0,0x3
0116 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0117 010f       |    |		Execute	Exception,Equal
0118 680b       |h   |		Jump_Zero	0x124
0119 e002       |    |		Load	0x0,0x2
011a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
011b 4807       |H   |		Short_Literal	0x7
011c e211       |    |		Load	0x1,0x11
011d 0092 0396  |    |		Action	Push_String_Extended,0x396					; ".Write failed"
011f 01cc       |    |		Execute	Vector,Catenate
0120 e003       |    |		Load	0x0,0x3
0121 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0122 00d8       |    |		Load_Top	At_Offset_0
0123 0101       |    |		Execute	Exception,Reraise
0124 e002       |    |		Load	0x0,0x2
0125 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0126 4808       |H   |		Short_Literal	0x8
0127 4801       |H   |		Short_Literal	0x1
0128 4801       |H   |		Short_Literal	0x1
0129 e004       |    |		Load	0x0,0x4
012a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
012b 0092 0397  |    |		Action	Push_String_Extended,0x397					; " caught in "
012d 01cc       |    |		Execute	Vector,Catenate
012e e211       |    |		Load	0x1,0x11
012f 01cc       |    |		Execute	Vector,Catenate
0130 0092 0398  |    |		Action	Push_String_Extended,0x398					; ".Write"
0132 01cc       |    |		Execute	Vector,Catenate
0133 e003       |    |		Load	0x0,0x3
0134 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0135 00d8       |    |		Load_Top	At_Offset_0
0136 0101       |    |		Execute	Exception,Reraise
0137 0000       |    |		.XXX[0x1]
0138 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001100}
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014e       | N  |		.CONST	0x014e								; Address of begin
0141 019e       |    |		.CONST	0x019e								; Address of exception handler
0142 0005       |    |		.CONST	0x0005								; Number of locals
0143			INIT_0140:
0143 67f4       |g   |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00001100}
0144 e212       |    |		Load	0x1,0x12
0145 03f1       |    |		Declare_Variable	Discrete,With_Value
0146 4801       |H   |		Short_Literal	0x1
0147 4900       |I   |		Short_Literal	0x100
0148 e005       |    |		Load	0x0,0x5
0149 035b       | [  |		Declare_Type	Array,Constrained
014a 0337       | 7  |		Declare_Variable	Array
014b 00e3       |    |		Load_Encached	Natural_Cache
014c 029f 031b  |    |		Declare_Subprogram	INIT_0318,For_Call
014e			BODY_0140:
014e e20d       |    |		Load	0x1,0xd
014f 7005       |p   |		Jump_Nonzero	0x155
0150 e003       |    |		Load	0x0,0x3
0151 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0152 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0153 00ba       |    |		Action	Initiate_Delay
0154 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0155 00cf       |    |		Action	Mark_Auxiliary
0156 7836       |x6  |		Jump	0x18d
0157 e5ff       |    |		Load	0x2,-0x1
0158 7004       |p   |		Jump_Nonzero	0x15d
0159 e003       |    |		Load	0x0,0x3
015a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
015b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
015c 00ba       |    |		Action	Initiate_Delay
015d 8405       |    |		Call	0x2,0x5
015e 00da       |    |		Load_Top	At_Offset_2
015f 0d01       |    |		Execute_Immediate	Less,0x1
0160 6814       |h   |		Jump_Zero	0x175
0161 e002       |    |		Load	0x0,0x2
0162 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0163 4807       |H   |		Short_Literal	0x7
0164 0092 0399  |    |		Action	Push_String_Extended,0x399					; "Enp_Driver.Read("
0166 e402       |    |		Load	0x2,0x2
0167 8218       |    |		Call	0x1,0x18
0168 01cc       |    |		Execute	Vector,Catenate
0169 0092 0394  |    |		Action	Push_String_Extended,0x394					; ").Count ="
016b 01cc       |    |		Execute	Vector,Catenate
016c e404       |    |		Load	0x2,0x4
016d 00e0       |    |		Load_Encached	Standard_Cache
016e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
016f 01cc       |    |		Execute	Vector,Catenate
0170 e003       |    |		Load	0x0,0x3
0171 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0172 e003       |    |		Load	0x0,0x3
0173 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0174 0257       | W  |		Execute	Discrete,Raise
0175 e5ff       |    |		Load	0x2,-0x1
0176 6811       |h   |		Jump_Zero	0x188
0177 0092 0399  |    |		Action	Push_String_Extended,0x399					; "Enp_Driver.Read("
0179 e402       |    |		Load	0x2,0x2
017a 8218       |    |		Call	0x1,0x18
017b 01cc       |    |		Execute	Vector,Catenate
017c 0092 039a  |    |		Action	Push_String_Extended,0x39a					; ")"
017e 01cc       |    |		Execute	Vector,Catenate
017f e402       |    |		Load	0x2,0x2
0180 e404       |    |		Load	0x2,0x4
0181 e003       |    |		Load	0x0,0x3
0182 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0183 4801       |H   |		Short_Literal	0x1
0184 e404       |    |		Load	0x2,0x4
0185 e403       |    |		Load	0x2,0x3
0186 01cf       |    |		Execute	Vector,Slice_Read
0187 8006       |    |		Call	0x0,0x6
0188 e402       |    |		Load	0x2,0x2
0189 00db       |    |		Load_Top	At_Offset_3
018a 0273       | s  |		Execute	Discrete,Plus
018b c402       |    |		Store	0x2,0x2
018c 00c9       |    |		Action	Pop_Auxiliary_Loop
018d e402       |    |		Load	0x2,0x2
018e e217       |    |		Load	0x1,0x17
018f 027c       | |  |		Execute	Discrete,Less
0190 77c6       |w   |		Jump_Nonzero	0x157
0191 00ce       |    |		Action	Pop_Auxiliary
0192 e5ff       |    |		Load	0x2,-0x1
0193 6809       |h   |		Jump_Zero	0x19d
0194 e002       |    |		Load	0x0,0x2
0195 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0196 4802       |H   |		Short_Literal	0x2
0197 e211       |    |		Load	0x1,0x11
0198 0092 039b  |    |		Action	Push_String_Extended,0x39b					; ".Read succeeded"
019a 01cc       |    |		Execute	Vector,Catenate
019b e003       |    |		Load	0x0,0x3
019c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
019d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
019e			TRAP_0140:
019e e003       |    |		Load	0x0,0x3
019f 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01a0 010f       |    |		Execute	Exception,Equal
01a1 680b       |h   |		Jump_Zero	0x1ad
01a2 e002       |    |		Load	0x0,0x2
01a3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01a4 4807       |H   |		Short_Literal	0x7
01a5 e211       |    |		Load	0x1,0x11
01a6 0092 039c  |    |		Action	Push_String_Extended,0x39c					; ".Read failed"
01a8 01cc       |    |		Execute	Vector,Catenate
01a9 e003       |    |		Load	0x0,0x3
01aa 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac 0101       |    |		Execute	Exception,Reraise
01ad e002       |    |		Load	0x0,0x2
01ae 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01af 4808       |H   |		Short_Literal	0x8
01b0 4801       |H   |		Short_Literal	0x1
01b1 4801       |H   |		Short_Literal	0x1
01b2 e004       |    |		Load	0x0,0x4
01b3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01b4 0092 0397  |    |		Action	Push_String_Extended,0x397					; " caught in "
01b6 01cc       |    |		Execute	Vector,Catenate
01b7 e211       |    |		Load	0x1,0x11
01b8 01cc       |    |		Execute	Vector,Catenate
01b9 0092 039d  |    |		Action	Push_String_Extended,0x39d					; ".Read"
01bb 01cc       |    |		Execute	Vector,Catenate
01bc e003       |    |		Load	0x0,0x3
01bd 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01be 00d8       |    |		Load_Top	At_Offset_0
01bf 0101       |    |		Execute	Exception,Reraise
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 0092 039e  |    |		Action	Push_String_Extended,0x39e					; " #"
01c5 00db       |    |		Load_Top	At_Offset_3
01c6 8007       |    |		Call	0x0,0x7
01c7 01cc       |    |		Execute	Vector,Catenate
01c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c9 0000 0000  |    |		.BLANK	0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 6815       |h   |		Jump_Zero	0x1ea
01d5 e002       |    |		Load	0x0,0x2
01d6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01d7 4807       |H   |		Short_Literal	0x7
01d8 0092 039f  |    |		Action	Push_String_Extended,0x39f					; "ENP_Driver."
01da e5fe       |    |		Load	0x2,-0x2
01db 01cc       |    |		Execute	Vector,Catenate
01dc 0092 03a0  |    |		Action	Push_String_Extended,0x3a0					; ".Status = "
01de 01cc       |    |		Execute	Vector,Catenate
01df e5ff       |    |		Load	0x2,-0x1
01e0 e001       |    |		Load	0x0,0x1
01e1 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01e2 011c       |    |		Execute	Any,Convert_Unchecked
01e3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01e4 01cc       |    |		Execute	Vector,Catenate
01e5 e003       |    |		Load	0x0,0x3
01e6 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01e7 e003       |    |		Load	0x0,0x3
01e8 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01e9 0257       | W  |		Execute	Discrete,Raise
01ea 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01eb 0000 0000  |    |		.BLANK	0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fc       |    |		.CONST	0x01fc								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0004       |    |		.CONST	0x0004								; Number of locals
01f3			INIT_01f0:
01f3 e001       |    |		Load	0x0,0x1
01f4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01f5 4801       |H   |		Short_Literal	0x1
01f6 e5ff       |    |		Load	0x2,-0x1
01f7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f8 e005       |    |		Load	0x0,0x5
01f9 035b       | [  |		Declare_Type	Array,Constrained
01fa 0337       | 7  |		Declare_Variable	Array
01fb 00e3       |    |		Load_Encached	Natural_Cache
01fc			BODY_01f0:
01fc 00e3       |    |		Load_Encached	Natural_Cache
01fd 00da       |    |		Load_Top	At_Offset_2
01fe e001       |    |		Load	0x0,0x1
01ff 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0200 e5ff       |    |		Load	0x2,-0x1
0201 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0202 00d8       |    |		Load_Top	At_Offset_0
0203 e001       |    |		Load	0x0,0x1
0204 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0205 0260       | `  |		Execute	Discrete,In_Type
0206 7001       |p   |		Jump_Nonzero	0x208
0207 0801       |    |		Execute_Immediate	Raise,0x1
0208 e001       |    |		Load	0x0,0x1
0209 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
020a c402       |    |		Store	0x2,0x2
020b 00d1       |    |		Pop_Control	Pop_Count_1
020c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
020d 0092 03a1  |    |		Action	Push_String_Extended,0x3a1					; "Read"
020f 00db       |    |		Load_Top	At_Offset_3
0210 8219       |    |		Call	0x1,0x19
0211 e5fe       |    |		Load	0x2,-0x2
0212 6808       |h   |		Jump_Zero	0x21b
0213 4801       |H   |		Short_Literal	0x1
0214 00d9       |    |		Load_Top	At_Offset_1
0215 00db       |    |		Load_Top	At_Offset_3
0216 01cf       |    |		Execute	Vector,Slice_Read
0217 e008       |    |		Load	0x0,0x8
0218 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0219 01c6       |    |		Execute	Vector,Convert_To_Formal
021a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
021b 00d8       |    |		Load_Top	At_Offset_0
021c 00da       |    |		Load_Top	At_Offset_2
021d 01db       |    |		Execute	Vector,Length
021e 027e       | ~  |		Execute	Discrete,Not_Equal
021f 6815       |h   |		Jump_Zero	0x235
0220 e002       |    |		Load	0x0,0x2
0221 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0222 4807       |H   |		Short_Literal	0x7
0223 0092 03a2  |    |		Action	Push_String_Extended,0x3a2					; "Cannot read from "
0225 e5ff       |    |		Load	0x2,-0x1
0226 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0227 e404       |    |		Load	0x2,0x4
0228 0273       | s  |		Execute	Discrete,Plus
0229 00d8       |    |		Load_Top	At_Offset_0
022a e212       |    |		Load	0x1,0x12
022b 0260       | `  |		Execute	Discrete,In_Type
022c 7001       |p   |		Jump_Nonzero	0x22e
022d 0801       |    |		Execute_Immediate	Raise,0x1
022e 8218       |    |		Call	0x1,0x18
022f 01cc       |    |		Execute	Vector,Catenate
0230 e003       |    |		Load	0x0,0x3
0231 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0232 e003       |    |		Load	0x0,0x3
0233 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0234 0257       | W  |		Execute	Discrete,Raise
0235 00d9       |    |		Load_Top	At_Offset_1
0236 e008       |    |		Load	0x0,0x8
0237 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0238 01c6       |    |		Execute	Vector,Convert_To_Formal
0239 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
023a 0000 0000  |    |		.BLANK	0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245       | E  |		.CONST	0x0245								; Address of begin
0241 025d       | ]  |		.CONST	0x025d								; Address of exception handler
0242 0002       |    |		.CONST	0x0002								; Number of locals
0243			INIT_0240:
0243 00e5       |    |		Load_Encached	Long_Integer_Cache
0244 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0245			BODY_0240:
0245 00cf       |    |		Action	Mark_Auxiliary
0246 e5ff       |    |		Load	0x2,-0x1
0247 01d9       |    |		Execute	Vector,Reverse_Bounds
0248 0263       | c  |		Execute	Discrete,Above_Bound
0249 7009       |p   |		Jump_Nonzero	0x253
024a 00db       |    |		Load_Top	At_Offset_3
024b 0908       |    |		Execute_Immediate	Binary_Scale,0x8
024c 00d9       |    |		Load_Top	At_Offset_1
024d e5ff       |    |		Load	0x2,-0x1
024e 01d7       |    |		Execute	Vector,Field_Read
024f 0273       | s  |		Execute	Discrete,Plus
0250 a402       |    |		Store_Unchecked	0x2,0x2
0251 00c8       |    |		Action	Pop_Auxiliary_Range
0252 3ff7       |?   |		Loop_Increasing	0x24a
0253 00ce       |    |		Action	Pop_Auxiliary
0254 00d8       |    |		Load_Top	At_Offset_0
0255 e213       |    |		Load	0x1,0x13
0256 0272       | r  |		Execute	Discrete,Minus
0257 00d8       |    |		Load_Top	At_Offset_0
0258 e212       |    |		Load	0x1,0x12
0259 0260       | `  |		Execute	Discrete,In_Type
025a 7001       |p   |		Jump_Nonzero	0x25c
025b 0801       |    |		Execute_Immediate	Raise,0x1
025c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025d			TRAP_0240:
025d 0007       |    |		Action	Break_Optional
025e e002       |    |		Load	0x0,0x2
025f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0260 4808       |H   |		Short_Literal	0x8
0261 4801       |H   |		Short_Literal	0x1
0262 4801       |H   |		Short_Literal	0x1
0263 e004       |    |		Load	0x0,0x4
0264 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0265 0092 0397  |    |		Action	Push_String_Extended,0x397					; " caught in "
0267 01cc       |    |		Execute	Vector,Catenate
0268 e211       |    |		Load	0x1,0x11
0269 01cc       |    |		Execute	Vector,Catenate
026a 0092 03a3  |    |		Action	Push_String_Extended,0x3a3					; ".Convert("
026c 01cc       |    |		Execute	Vector,Catenate
026d e5ff       |    |		Load	0x2,-0x1
026e e003       |    |		Load	0x0,0x3
026f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0270 01cc       |    |		Execute	Vector,Catenate
0271 0092 039a  |    |		Action	Push_String_Extended,0x39a					; ")"
0273 01cc       |    |		Execute	Vector,Catenate
0274 e003       |    |		Load	0x0,0x3
0275 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0276 00d8       |    |		Load_Top	At_Offset_0
0277 0101       |    |		Execute	Exception,Reraise
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0286       |    |		.CONST	0x0286								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b 4801       |H   |		Short_Literal	0x1
027c 4802       |H   |		Short_Literal	0x2
027d e005       |    |		Load	0x0,0x5
027e 035b       | [  |		Declare_Type	Array,Constrained
027f 0337       | 7  |		Declare_Variable	Array
0280 4800       |H   |		Short_Literal	0x0
0281 e216       |    |		Load	0x1,0x16
0282 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0283 821a       |    |		Call	0x1,0x1a
0284 00d9       |    |		Load_Top	At_Offset_1
0285 01d4       |    |		Execute	Vector,Structure_Write
0286			BODY_0278:
0286 4801       |H   |		Short_Literal	0x1
0287 00d9       |    |		Load_Top	At_Offset_1
0288 01d7       |    |		Execute	Vector,Field_Read
0289 0c80       |    |		Execute_Immediate	Greater_Equal,-0x80
028a 681c       |h   |		Jump_Zero	0x2a7
028b e002       |    |		Load	0x0,0x2
028c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
028d 4807       |H   |		Short_Literal	0x7
028e 0092 03a4  |    |		Action	Push_String_Extended,0x3a4					; "Reset.Control_Status ="
0290 00db       |    |		Load_Top	At_Offset_3
0291 e003       |    |		Load	0x0,0x3
0292 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0293 01cc       |    |		Execute	Vector,Catenate
0294 e003       |    |		Load	0x0,0x3
0295 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0296 e002       |    |		Load	0x0,0x2
0297 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0298 4807       |H   |		Short_Literal	0x7
0299 0092 03a5  |    |		Action	Push_String_Extended,0x3a5					; "Diagnostic Control Block = "
029b 4801       |H   |		Short_Literal	0x1
029c e216       |    |		Load	0x1,0x16
029d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
029e 821a       |    |		Call	0x1,0x1a
029f e003       |    |		Load	0x0,0x3
02a0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02a1 01cc       |    |		Execute	Vector,Catenate
02a2 e003       |    |		Load	0x0,0x3
02a3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02a4 e003       |    |		Load	0x0,0x3
02a5 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
02a6 0257       | W  |		Execute	Discrete,Raise
02a7 4802       |H   |		Short_Literal	0x2
02a8 00d9       |    |		Load_Top	At_Offset_1
02a9 01d7       |    |		Execute	Vector,Field_Read
02aa 4807       |H   |		Short_Literal	0x7
02ab 0279       | y  |		Execute	Discrete,And
02ac 0c04       |    |		Execute_Immediate	Greater_Equal,0x4
02ad 6802       |h   |		Jump_Zero	0x2b0
02ae 4801       |H   |		Short_Literal	0x1
02af 00ca       |    |		Action	Exit_Nullary_Function
02b0 4800       |H   |		Short_Literal	0x0
02b1 00ca       |    |		Action	Exit_Nullary_Function
02b2 0000 0000  |    |		.BLANK	0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd       |    |		.CONST	0x02bd								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb e001       |    |		Load	0x0,0x1
02bc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02bd			BODY_02b8:
02bd e001       |    |		Load	0x0,0x1
02be 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02bf e001       |    |		Load	0x0,0x1
02c0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02c1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02c2 00d8       |    |		Load_Top	At_Offset_0
02c3 0f01       |    |		Execute_Immediate	Equal,0x1
02c4 680b       |h   |		Jump_Zero	0x2d0
02c5 4800       |H   |		Short_Literal	0x0
02c6 a20d       |    |		Store_Unchecked	0x1,0xd
02c7 e002       |    |		Load	0x0,0x2
02c8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02c9 4802       |H   |		Short_Literal	0x2
02ca 0092 03a6  |    |		Action	Push_String_Extended,0x3a6					; "ENP_Driver.Reset.Status = No_Hardware"
02cc e003       |    |		Load	0x0,0x3
02cd 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
02ce 00cc       |    |		Action	Pop_Block
02cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d0 0092 03a7  |    |		Action	Push_String_Extended,0x3a7					; "Reset"
02d2 00d9       |    |		Load_Top	At_Offset_1
02d3 8219       |    |		Call	0x1,0x19
02d4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d5 0000 0000  |    |		.XXX[0x3]
02d7 0000       |    |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd       |    |		.CONST	0x02dd								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0002       |    |		.CONST	0x0002								; Number of locals
02db			INIT_02d8:
02db e001       |    |		Load	0x0,0x1
02dc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02dd			BODY_02d8:
02dd e402       |    |		Load	0x2,0x2
02de 4900       |I   |		Short_Literal	0x100
02df 0273       | s  |		Execute	Discrete,Plus
02e0 e217       |    |		Load	0x1,0x17
02e1 027a       | z  |		Execute	Discrete,Less_Equal
02e2 6810       |h   |		Jump_Zero	0x2f3
02e3 00e3       |    |		Load_Encached	Natural_Cache
02e4 e001       |    |		Load	0x0,0x1
02e5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02e6 e403       |    |		Load	0x2,0x3
02e7 e402       |    |		Load	0x2,0x2
02e8 00d8       |    |		Load_Top	At_Offset_0
02e9 e001       |    |		Load	0x0,0x1
02ea 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
02eb 0260       | `  |		Execute	Discrete,In_Type
02ec 7001       |p   |		Jump_Nonzero	0x2ee
02ed 0801       |    |		Execute_Immediate	Raise,0x1
02ee e001       |    |		Load	0x0,0x1
02ef 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02f0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02f1 c404       |    |		Store	0x2,0x4
02f2 7819       |x   |		Jump	0x30c
02f3 00e3       |    |		Load_Encached	Natural_Cache
02f4 e001       |    |		Load	0x0,0x1
02f5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02f6 4801       |H   |		Short_Literal	0x1
02f7 e217       |    |		Load	0x1,0x17
02f8 e402       |    |		Load	0x2,0x2
02f9 0272       | r  |		Execute	Discrete,Minus
02fa 00d8       |    |		Load_Top	At_Offset_0
02fb 00e3       |    |		Load_Encached	Natural_Cache
02fc 0260       | `  |		Execute	Discrete,In_Type
02fd 7001       |p   |		Jump_Nonzero	0x2ff
02fe 0801       |    |		Execute_Immediate	Raise,0x1
02ff e403       |    |		Load	0x2,0x3
0300 01cf       |    |		Execute	Vector,Slice_Read
0301 e402       |    |		Load	0x2,0x2
0302 00d8       |    |		Load_Top	At_Offset_0
0303 e001       |    |		Load	0x0,0x1
0304 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0305 0260       | `  |		Execute	Discrete,In_Type
0306 7001       |p   |		Jump_Nonzero	0x308
0307 0801       |    |		Execute_Immediate	Raise,0x1
0308 e001       |    |		Load	0x0,0x1
0309 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
030a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
030b c404       |    |		Store	0x2,0x4
030c 0092 0393  |    |		Action	Push_String_Extended,0x393					; "Write("
030e e402       |    |		Load	0x2,0x2
030f 8218       |    |		Call	0x1,0x18
0310 01cc       |    |		Execute	Vector,Catenate
0311 0092 039a  |    |		Action	Push_String_Extended,0x39a					; ")"
0313 01cc       |    |		Execute	Vector,Catenate
0314 00d9       |    |		Load_Top	At_Offset_1
0315 8219       |    |		Call	0x1,0x19
0316 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0317 0000       |    |		.XXX[0x1]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d       |    |		.CONST	0x031d								; Address of begin
0319 0004       |    |		.CONST	0x0004								; Address of exception handler
031a 0002       |    |		.CONST	0x0002								; Number of locals
031b			INIT_0318:
031b e001       |    |		Load	0x0,0x1
031c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
031d			BODY_0318:
031d 00e3       |    |		Load_Encached	Natural_Cache
031e e403       |    |		Load	0x2,0x3
031f e001       |    |		Load	0x0,0x1
0320 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0321 e402       |    |		Load	0x2,0x2
0322 00d8       |    |		Load_Top	At_Offset_0
0323 e001       |    |		Load	0x0,0x1
0324 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0325 0260       | `  |		Execute	Discrete,In_Type
0326 7001       |p   |		Jump_Nonzero	0x328
0327 0801       |    |		Execute_Immediate	Raise,0x1
0328 e001       |    |		Load	0x0,0x1
0329 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
032a 005b       | [  |		Store_Top	Discrete,At_Offset_3
032b 00d1       |    |		Pop_Control	Pop_Count_1
032c c404       |    |		Store	0x2,0x4
032d 0092 03a8  |    |		Action	Push_String_Extended,0x3a8					; "Read("
032f e402       |    |		Load	0x2,0x2
0330 8218       |    |		Call	0x1,0x18
0331 01cc       |    |		Execute	Vector,Catenate
0332 0092 039a  |    |		Action	Push_String_Extended,0x39a					; ")"
0334 01cc       |    |		Execute	Vector,Catenate
0335 00d9       |    |		Load_Top	At_Offset_1
0336 8219       |    |		Call	0x1,0x19
0337 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0372       | r  |		.CONST	0x0372								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0012       |    |		.CONST	0x0012								; Number of locals
033b			INIT_0338:
033b e001       |    |		Load	0x0,0x1
033c 0322       | "  |		Declare_Variable	Record
033d 604a       |`J  |		Indirect_Literal	Discrete,0x388,{0x00000000, 0x00001000}
033e 00d9       |    |		Load_Top	At_Offset_1
033f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0340 4802       |H   |		Short_Literal	0x2
0341 00d9       |    |		Load_Top	At_Offset_1
0342 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0343 0129       | )  |		Execute	Any,Make_Visible
0344 e001       |    |		Load	0x0,0x1
0345 0322       | "  |		Declare_Variable	Record
0346 603d       |`=  |		Indirect_Literal	Discrete,0x384,{0x00000000, 0x00001002}
0347 00d9       |    |		Load_Top	At_Offset_1
0348 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0349 4802       |H   |		Short_Literal	0x2
034a 00d9       |    |		Load_Top	At_Offset_1
034b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
034c 0129       | )  |		Execute	Any,Make_Visible
034d e001       |    |		Load	0x0,0x1
034e 0322       | "  |		Declare_Variable	Record
034f 6030       |`0  |		Indirect_Literal	Discrete,0x380,{0x00000000, 0x00001004}
0350 00d9       |    |		Load_Top	At_Offset_1
0351 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0352 4804       |H   |		Short_Literal	0x4
0353 00d9       |    |		Load_Top	At_Offset_1
0354 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0355 0129       | )  |		Execute	Any,Make_Visible
0356 e001       |    |		Load	0x0,0x1
0357 0322       | "  |		Declare_Variable	Record
0358 6023       |`#  |		Indirect_Literal	Discrete,0x37c,{0x00000000, 0x00001008}
0359 00d9       |    |		Load_Top	At_Offset_1
035a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
035b 4804       |H   |		Short_Literal	0x4
035c 00d9       |    |		Load_Top	At_Offset_1
035d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
035e 0129       | )  |		Execute	Any,Make_Visible
035f e001       |    |		Load	0x0,0x1
0360 0322       | "  |		Declare_Variable	Record
0361 6016       |`   |		Indirect_Literal	Discrete,0x378,{0x00000000, 0x0000100c}
0362 00d9       |    |		Load_Top	At_Offset_1
0363 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0364 4804       |H   |		Short_Literal	0x4
0365 00d9       |    |		Load_Top	At_Offset_1
0366 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0367 0129       | )  |		Execute	Any,Make_Visible
0368 e001       |    |		Load	0x0,0x1
0369 0322       | "  |		Declare_Variable	Record
036a 6009       |`   |		Indirect_Literal	Discrete,0x374,{0x00000000, 0x00001010}
036b 00d9       |    |		Load_Top	At_Offset_1
036c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
036d 4818       |H   |		Short_Literal	0x18
036e 00d9       |    |		Load_Top	At_Offset_1
036f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0370 0129       | )  |		Execute	Any,Make_Visible
0371 00bf       |    |		Action	Accept_Activation
0372			BODY_0338:
0372 00bc       |    |		Action	Signal_Activated
0373 00bb       |    |		Action	Signal_Completion
0374 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001010}
0378 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000100c}
037c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001008}
0380 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001004}
0384 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001002}
0388 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001000}
038c ; --------------------------------------------------------------------------------------
038c ; STRING TABLE
038c ; --------------------------------------------------------------------------------------
038c 003c       | <  |		.STRTAB	0x003c->0x03aa							; "Memory.ENP"
038d 0044       | D  |		.STRTAB	0x0044->0x03af							; ".Reset"
038e 0048       | H  |		.STRTAB	0x0048->0x03b2							; "not ENP_Driver.Installed"
038f 005e       | ^  |		.STRTAB	0x005e->0x03be							; "ENP did not complete self-test."
0390 007b       | {  |		.STRTAB	0x007b->0x03cd							; ".Limit_Address ="
0391 0089       |    |		.STRTAB	0x0089->0x03d5							; " caught System.Nonexistent_Page_Error"
0392 00ac       |    |		.STRTAB	0x00ac->0x03e8							; " caught "
0393 00b2       |    |		.STRTAB	0x00b2->0x03ec							; "Write("
0394 00b6       |    |		.STRTAB	0x00b6->0x03ef							; ").Count ="
0395 00bd       |    |		.STRTAB	0x00bd->0x03f3							; ".Write succeeded"
0396 00cb       |    |		.STRTAB	0x00cb->0x03fb							; ".Write failed"
0397 00d6       |    |		.STRTAB	0x00d6->0x0402							; " caught in "
0398 00df       |    |		.STRTAB	0x00df->0x0407							; ".Write"
0399 00e3       |    |		.STRTAB	0x00e3->0x040a							; "Enp_Driver.Read("
039a 00f1       |    |		.STRTAB	0x00f1->0x0412							; ")"
039b 00f0       |    |		.STRTAB	0x00f0->0x0413							; ".Read succeeded"
039c 00fd       |    |		.STRTAB	0x00fd->0x041a							; ".Read failed"
039d 0107       |    |		.STRTAB	0x0107->0x0420							; ".Read"
039e 010a       |    |		.STRTAB	0x010a->0x0423							; " #"
039f 010a       |    |		.STRTAB	0x010a->0x0424							; "ENP_Driver."
03a0 0113       |    |		.STRTAB	0x0113->0x0429							; ".Status = "
03a1 011b       |    |		.STRTAB	0x011b->0x042e							; "Read"
03a2 011d       |    |		.STRTAB	0x011d->0x0430							; "Cannot read from "
03a3 012c       | ,  |		.STRTAB	0x012c->0x0439							; ".Convert("
03a4 0133       | 3  |		.STRTAB	0x0133->0x043d							; "Reset.Control_Status ="
03a5 0147       | G  |		.STRTAB	0x0147->0x0448							; "Diagnostic Control Block = "
03a6 0160       | `  |		.STRTAB	0x0160->0x0456							; "ENP_Driver.Reset.Status = No_Hardware"
03a7 0183       |    |		.STRTAB	0x0183->0x0468							; "Reset"
03a8 0186       |    |		.STRTAB	0x0186->0x046b							; "Read("
03a9 0189       |    |		.STREND 0x0189->0x046d
03aa 4d65 6d6f  |Memo|		.STRTAB_STRINGS
046e 0000 0000  |    |		.XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug Table
0470 ; --------------------------------------------------------------------------------------
0470 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x6df5,0x0000,0x0001,0x0000
0476 0000 0000  |    |		.XXX[0x3e]
0478 0480 0004  |    |
047a 0003 00ec  |    |
047c e20f 02c7  |    |
047e e403 1c00  |    |
0480 00ec e403  |    |
0482 0120 6802  |  h |
0484 e20f 7803  |  x |
0486 e403 e20f  |    |
0488 0119 e5fd  |    |
048a e5fe e20f  |    |
048c 0119 e5ff  |    |
048e 8246 c403  | F  |
0490 c402 00ec  |    |
0492 e5fc 0120  |    |
0494 6802 e20f  |h   |
0496 7803 e5fc  |x   |
0498 e20f 0119  |    |
049a e5fd e403  |    |
049c e20f 0119  |    |
049e e402 00eb  |    |
04a0 18b9 8246  |   F|
04a2 c5fc c5fb  |    |
04a4 4504 0000  |E   |
04a6 0000 0000  |    |
04a8 04ab 0004  |    |
04aa 0001 e5fd  |    |
04ac e5fe e20f  |    |
04ae 0119 e5ff  |    |
04b0 00eb 18b9  |    |
04b2 82c3 4403  |  D |
04b4 0000 0000  |    |		.BLANK	0000[0x4]
04b8 04bb 0004  |    |		.XXX[0x13]
04ba 0001 e5fc  |    |
04bc e5fd e20f  |    |
04be 0119 e5fe  |    |
04c0 e5ff 00eb  |    |
04c2 18c2 00eb  |    |
04c4 1888 4975  |  Iu|
04c6 00eb 0098  |    |
04c8 1819 82c3  |    |
04ca 4404       |D   |
04cb 0000 0000  |    |		.BLANK	0000[0x5]
04d0 04d4 0004  |    |		.XXX[0x53]
04d2 0002 00ec  |    |
04d4 e5ff 00eb  |    |
04d6 1814 0b66  |   f|
04d8 700e 0b6d  |p  m|
04da 701b 0b6c  |p  l|
04dc 7021 0b6b  |p! k|
04de 702b 0b6f  |p+ o|
04e0 7040 0b65  |p@ e|
04e2 703e 0b64  |p> d|
04e4 703c 4800  |p<H |
04e6 4402 e5ff  |D   |
04e8 00eb 18f9  |    |
04ea 00eb 1813  |    |
04ec 6807 e5fe  |h   |
04ee e20f 0119  |    |
04f0 e5ff 82c5  |    |
04f2 824d 4402  | MD |
04f4 4801 4402  |H D |
04f6 e5fe e20f  |    |
04f8 0119 e5ff  |    |
04fa 00eb 18b9  |    |
04fc 824d 4402  | MD |
04fe e5ff 00eb  |    |
0500 18c2 00eb  |    |
0502 1888 00eb  |    |
0504 1859 00eb  | Y  |
0506 1814 0f88  |    |
0508 0f00 4402  |  D |
050a e5ff 00eb  |    |
050c 18b9 a402  |    |
050e e5fe e20f  |    |
0510 0119 e402  |    |
0512 8245 00eb  | E  |
0514 1814 0b6c  |   l|
0516 7004 0b72  |p  r|
0518 7002 4800  |p H |
051a 4402 e5fe  |D   |
051c e20f 0119  |    |
051e e402 824d  |   M|
0520 4402 4801  |D H |
0522 4402       |D   |
0523 0000 0000  |    |		.BLANK	0000[0x5]
0528 052b 0004  | +  |		.XXX[0xd8]
052a 0001 e5ff  |    |
052c e003 182f  |   /|
052e 6802 4801  |h H |
0530 4402 e5ff  |D   |
0532 00eb 1814  |    |
0534 0b3b 7008  | ;p |
0536 0b2f 7006  | /p |
0538 0b30 7004  | 0p |
053a 0b39 7002  | 9p |
053c 4800 4402  |H D |
053e e5fe e20f  |    |
0540 0119 e5ff  |    |
0542 8245 e5ff  | E  |
0544 e003 182a  |   *|
0546 4402 0000  |D   |
0548 054b 0004  | K  |
054a 0001 4603  |  F |
054c 4302 7802  |C x |
054e 7805 7809  |x x |
0550 e5ff 0091  |    |
0552 1b37 4201  | 7B |
0554 e5fe e5ff  |    |
0556 00e0 181b  |    |
0558 4202 e5ff  |B   |
055a 00e0 181c  |    |
055c 4201 0000  |B   |
055e 0000 0000  |    |
0560 0563 0004  | c  |
0562 0001 e5ff  |    |
0564 7012 e5fd  |p   |
0566 00eb 1813  |    |
0568 6804 e5fe  |h   |
056a e004 180f  |    |
056c 4504 e5fe  |E   |
056e 0092 1b3f  |   ?|
0570 01cc e5fd  |    |
0572 e003 1832  |   2|
0574 01cc e004  |    |
0576 180f 4504  |  E |
0578 0583 0004  |    |
057a 0003 00ec  |    |
057c e5ff 4976  |  Iv|
057e 00eb 0098  |    |
0580 1814 c402  |    |
0582 00ec e402  |    |
0584 00eb 1813  |    |
0586 681d e5ff  |h   |
0588 e001 1849  |   I|
058a 6809 e5ff  |h   |
058c e001 1848  |   H|
058e 4976 00eb  |Iv  |
0590 0098 1814  |    |
0592 a402 7810  |  x |
0594 e5ff e001  |    |
0596 180d 6809  |  h |
0598 e5ff e001  |    |
059a 180e 4976  |  Iv|
059c 00eb 0098  |    |
059e 1814 a402  |    |
05a0 7803 00eb  |x   |
05a2 1812 4401  |  D |
05a4 e402 00eb  |    |
05a6 18ec a403  |    |
05a8 0007 e403  |    |
05aa 00eb 1814  |    |
05ac 0b00 701d  |  p |
05ae 0ba8 701d  |  p |
05b0 0b49 701b  | Ip |
05b2 0b3e 7019  | >p |
05b4 0b47 7017  | Gp |
05b6 0b48 7015  | Hp |
05b8 0b3d 7013  | =p |
05ba 0b3f 7011  | ?p |
05bc 0b46 700f  | Fp |
05be 0b41 700d  | Ap |
05c0 0b3b 700d  | ;p |
05c2 0b7b 7014  | {p |
05c4 0b7a 7012  | zp |
05c6 0b7c 7010  | |p |
05c8 0b73 700e  | sp |
05ca 780f e402  |x   |
05cc 4401 e403  |D   |
05ce 4401 e403  |D   |
05d0 00eb 18e8  |    |
05d2 00eb 1814  |    |
05d4 0f73 6804  | sh |
05d6 e403 4401  |  D |
05d8 e403 a402  |    |
05da 00d1 e403  |    |
05dc 00eb 18ec  |    |
05de a403 7fc9  |    |
05e0 05e8 0004  |    |
05e2 0002 00ec  |    |
05e4 e5ff 00eb  |    |
05e6 18ec c402  |    |
05e8 780f e402  |x   |
05ea 00eb 1814  |    |
05ec 0b8c 7003  |  p |
05ee 0b91 7001  |  p |
05f0 7802 e402  |x   |
05f2 4401 00d1  |D   |
05f4 e402 00eb  |    |
05f6 18ec a402  |    |
05f8 e402 00eb  |    |
05fa 1813 6fed  |  o |
05fc 48e2 0257  |H  W|
05fe 0000 0000  |    |