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

⟦fea87f136⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd

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 0268       | h  |		.CONST	0x0268								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0029       | )  |		.CONST	0x0029								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0008       |    |		.CONST	0x0008								; Number of locals
001b			INIT_0018:
001b 029f 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Call
001d 029f 0043  |   C|		Declare_Subprogram	INIT_0040,For_Call
001f 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0021 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0023 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0025 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
0027 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
0029			BODY_0018:
0029 e001       |    |		Load	0x0,0x1
002a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
002b 7004       |p   |		Jump_Nonzero	0x30
002c 0092 01bc  |    |		Action	Push_String_Extended,0x1bc					; "Privileged mode is required to run this command"
002e 8405       |    |		Call	0x2,0x5
002f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0030 8408       |    |		Call	0x2,0x8
0031 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b e7ff       |    |		Load	0x3,-0x1
003c 0f00       |    |		Execute_Immediate	Equal,0x0
003d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
003e 0000 0000  |    |		.XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 e7ff       |    |		Load	0x3,-0x1
0044 0f00       |    |		Execute_Immediate	Equal,0x0
0045 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0046 0000 0000  |    |		.XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b e5fd       |    |		Load	0x2,-0x3
004c e002       |    |		Load	0x0,0x2
004d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
004e 4807       |H   |		Short_Literal	0x7
004f e7ff       |    |		Load	0x3,-0x1
0050 e003       |    |		Load	0x0,0x3
0051 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0052 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b e5fd       |    |		Load	0x2,-0x3
005c e002       |    |		Load	0x0,0x2
005d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
005e 4805       |H   |		Short_Literal	0x5
005f e7ff       |    |		Load	0x3,-0x1
0060 e003       |    |		Load	0x0,0x3
0061 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0062 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0063 0000 0000  |    |		.BLANK	0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d       | m  |		.CONST	0x006d								; Address of begin
0069 0089       |    |		.CONST	0x0089								; Address of exception handler
006a 0002       |    |		.CONST	0x0002								; Number of locals
006b			INIT_0068:
006b e004       |    |		Load	0x0,0x4
006c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006d			BODY_0068:
006d e004       |    |		Load	0x0,0x4
006e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006f 6020       |`   |		Indirect_Literal	Discrete,0x90,{0x00000000, 0x00004000}
0070 e005       |    |		Load	0x0,0x5
0071 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0072 e7fd       |    |		Load	0x3,-0x3
0073 e7fe       |    |		Load	0x3,-0x2
0074 e006       |    |		Load	0x0,0x6
0075 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0076 c602       |    |		Store	0x3,0x2
0077 00d8       |    |		Load_Top	At_Offset_0
0078 8402       |    |		Call	0x2,0x2
0079 700e       |p   |		Jump_Nonzero	0x88
007a 0092 01bd  |    |		Action	Push_String_Extended,0x1bd					; "Could not set unit state for "
007c e7ff       |    |		Load	0x3,-0x1
007d 01cc       |    |		Execute	Vector,Catenate
007e 0092 01be  |    |		Action	Push_String_Extended,0x1be					; " to source: "
0080 01cc       |    |		Execute	Vector,Catenate
0081 e602       |    |		Load	0x3,0x2
0082 e004       |    |		Load	0x0,0x4
0083 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0084 025e       | ^  |		Execute	Discrete,Convert
0085 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0086 01cc       |    |		Execute	Vector,Catenate
0087 8404       |    |		Call	0x2,0x4
0088 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0089			TRAP_0068:
0089 0007       |    |		Action	Break_Optional
008a 0092 01bf  |    |		Action	Push_String_Extended,0x1bf					; "Unhandled exception setting unit state for unit "
008c e7ff       |    |		Load	0x3,-0x1
008d 01cc       |    |		Execute	Vector,Catenate
008e 8404       |    |		Call	0x2,0x4
008f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0090 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0094 0000 0000  |    |		.BLANK	0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b2       |    |		.CONST	0x00b2								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0008       |    |		.CONST	0x0008								; Number of locals
009b			INIT_0098:
009b 00ec       |    |		Load_Encached	Diana_Tree_Cache
009c 02c7       |    |		Declare_Variable	Any
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f 00ec       |    |		Load_Encached	Diana_Tree_Cache
00a0 02c7       |    |		Declare_Variable	Any
00a1 00d8       |    |		Load_Top	At_Offset_0
00a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a3 e004       |    |		Load	0x0,0x4
00a4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a5 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00a6 02c7       |    |		Declare_Variable	Any
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a9 e004       |    |		Load	0x0,0x4
00aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ab e004       |    |		Load	0x0,0x4
00ac 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
00ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ae 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
00b0 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
00b2			BODY_0098:
00b2 8607       |    |		Call	0x3,0x7
00b3 8608       |    |		Call	0x3,0x8
00b4 e602       |    |		Load	0x3,0x2
00b5 4976       |Iv  |		Short_Literal	0x176
00b6 00eb       |    |		Load_Encached	Diana_Cache
00b7 0098       |    |		Execute	Package,Field_Read_Dynamic
00b8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00b9 c603       |    |		Store	0x3,0x3
00ba e606       |    |		Load	0x3,0x6
00bb 0c04       |    |		Execute_Immediate	Greater_Equal,0x4
00bc 6804       |h   |		Jump_Zero	0xc1
00bd e5fd       |    |		Load	0x2,-0x3
00be 4800       |H   |		Short_Literal	0x0
00bf e7ff       |    |		Load	0x3,-0x1
00c0 8007       |    |		Call	0x0,0x7
00c1 e606       |    |		Load	0x3,0x6
00c2 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
00c3 6804       |h   |		Jump_Zero	0xc8
00c4 4802       |H   |		Short_Literal	0x2
00c5 e603       |    |		Load	0x3,0x3
00c6 e7ff       |    |		Load	0x3,-0x1
00c7 8406       |    |		Call	0x2,0x6
00c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00dc       |    |		.CONST	0x00dc								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 e004       |    |		Load	0x0,0x4
00d4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00d5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00d6 02c7       |    |		Declare_Variable	Any
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d9 e004       |    |		Load	0x0,0x4
00da 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00dc			BODY_00d0:
00dc e004       |    |		Load	0x0,0x4
00dd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00de 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00df e602       |    |		Load	0x3,0x2
00e0 6057       |`W  |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00004000}
00e1 e005       |    |		Load	0x0,0x5
00e2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e3 e008       |    |		Load	0x0,0x8
00e4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e5 e009       |    |		Load	0x0,0x9
00e6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e7 4801       |H   |		Short_Literal	0x1
00e8 4800       |H   |		Short_Literal	0x0
00e9 e008       |    |		Load	0x0,0x8
00ea 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00eb e004       |    |		Load	0x0,0x4
00ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ed 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ee e5ff       |    |		Load	0x2,-0x1
00ef e004       |    |		Load	0x0,0x4
00f0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f2 c602       |    |		Store	0x3,0x2
00f3 c603       |    |		Store	0x3,0x3
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 8403       |    |		Call	0x2,0x3
00f6 701e       |p   |		Jump_Nonzero	0x115
00f7 0092 01c0  |    |		Action	Push_String_Extended,0x1c0					; "Can't resolve \x22"
00f9 e5ff       |    |		Load	0x2,-0x1
00fa 01cc       |    |		Execute	Vector,Catenate
00fb 0092 01c1  |    |		Action	Push_String_Extended,0x1c1					; "\x22 because "
00fd 01cc       |    |		Execute	Vector,Catenate
00fe 6039       |`9  |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00004000}
00ff e005       |    |		Load	0x0,0x5
0100 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0101 e008       |    |		Load	0x0,0x8
0102 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0103 e009       |    |		Load	0x0,0x9
0104 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0105 4801       |H   |		Short_Literal	0x1
0106 4800       |H   |		Short_Literal	0x0
0107 e008       |    |		Load	0x0,0x8
0108 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0109 e004       |    |		Load	0x0,0x4
010a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
010b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
010c e5ff       |    |		Load	0x2,-0x1
010d e603       |    |		Load	0x3,0x3
010e e004       |    |		Load	0x0,0x4
010f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0110 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0111 01cc       |    |		Execute	Vector,Catenate
0112 8405       |    |		Call	0x2,0x5
0113 00cc       |    |		Action	Pop_Block
0114 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0115 00cf       |    |		Action	Mark_Auxiliary
0116 780b       |x   |		Jump	0x122
0117 e602       |    |		Load	0x3,0x2
0118 e004       |    |		Load	0x0,0x4
0119 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
011b 8407       |    |		Call	0x2,0x7
011c e602       |    |		Load	0x3,0x2
011d e004       |    |		Load	0x0,0x4
011e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0120 c602       |    |		Store	0x3,0x2
0121 00c9       |    |		Action	Pop_Auxiliary_Loop
0122 e602       |    |		Load	0x3,0x2
0123 e004       |    |		Load	0x0,0x4
0124 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0125 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0126 6ff0       |o   |		Jump_Zero	0x117
0127 00ce       |    |		Action	Pop_Auxiliary
0128 e5fe       |    |		Load	0x2,-0x2
0129 680c       |h   |		Jump_Zero	0x136
012a e5fd       |    |		Load	0x2,-0x3
012b 00ea       |    |		Load_Encached	Null_String_Cache
012c 4801       |H   |		Short_Literal	0x1
012d 4800       |H   |		Short_Literal	0x0
012e 485b       |H[  |		Short_Literal	0x5b
012f e5ff       |    |		Load	0x2,-0x1
0130 01ca       |    |		Execute	Vector,Prepend
0131 0092 01c2  |    |		Action	Push_String_Extended,0x1c2					; "]$$"
0133 01cc       |    |		Execute	Vector,Catenate
0134 e00a       |    |		Load	0x0,0xa
0135 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0136 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0137 0000       |    |		.XXX[0x1]
0138 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 017c       | |  |		.CONST	0x017c								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 e004       |    |		Load	0x0,0x4
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 e604       |    |		Load	0x3,0x4
0146 0120       |    |		Execute	Any,Is_Value
0147 6804       |h   |		Jump_Zero	0x14c
0148 e004       |    |		Load	0x0,0x4
0149 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
014a 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
014b 7801       |x   |		Jump	0x14d
014c e604       |    |		Load	0x3,0x4
014d e602       |    |		Load	0x3,0x2
014e 0120       |    |		Execute	Any,Is_Value
014f 6804       |h   |		Jump_Zero	0x154
0150 e004       |    |		Load	0x0,0x4
0151 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0152 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0153 7801       |x   |		Jump	0x155
0154 e602       |    |		Load	0x3,0x2
0155 67e2       |g   |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00004000}
0156 4801       |H   |		Short_Literal	0x1
0157 4800       |H   |		Short_Literal	0x0
0158 4800       |H   |		Short_Literal	0x0
0159 e008       |    |		Load	0x0,0x8
015a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015b e004       |    |		Load	0x0,0x4
015c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
015e e005       |    |		Load	0x0,0x5
015f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0160 4800       |H   |		Short_Literal	0x0
0161 e7ff       |    |		Load	0x3,-0x1
0162 e004       |    |		Load	0x0,0x4
0163 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0164 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0165 c602       |    |		Store	0x3,0x2
0166 c604       |    |		Store	0x3,0x4
0167 c605       |    |		Store	0x3,0x5
0168 e605       |    |		Load	0x3,0x5
0169 8402       |    |		Call	0x2,0x2
016a 7010       |p   |		Jump_Nonzero	0x17b
016b 0092 01c3  |    |		Action	Push_String_Extended,0x1c3					; "Bad status opening unit "
016d e7ff       |    |		Load	0x3,-0x1
016e 01cc       |    |		Execute	Vector,Catenate
016f 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; ": "
0171 01cc       |    |		Execute	Vector,Catenate
0172 e605       |    |		Load	0x3,0x5
0173 e004       |    |		Load	0x0,0x4
0174 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0175 025e       | ^  |		Execute	Discrete,Convert
0176 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0177 01cc       |    |		Execute	Vector,Catenate
0178 8405       |    |		Call	0x2,0x5
0179 00cc       |    |		Action	Pop_Block
017a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
017b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017c			TRAP_0140:
017c 0007       |    |		Action	Break_Optional
017d 0092 01c5  |    |		Action	Push_String_Extended,0x1c5					; "Unhandled exception opening ada unit "
017f e7ff       |    |		Load	0x3,-0x1
0180 01cc       |    |		Execute	Vector,Catenate
0181 8404       |    |		Call	0x2,0x4
0182 00cc       |    |		Action	Pop_Block
0183 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 01ad       |    |		.CONST	0x01ad								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e004       |    |		Load	0x0,0x4
018c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018d e004       |    |		Load	0x0,0x4
018e 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
018f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0190 6027       |`'  |		Indirect_Literal	Discrete,0x1b8,{0x00000000, 0x00004000}
0191 e005       |    |		Load	0x0,0x5
0192 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0193 e602       |    |		Load	0x3,0x2
0194 e004       |    |		Load	0x0,0x4
0195 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0196 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0197 c606       |    |		Store	0x3,0x6
0198 c605       |    |		Store	0x3,0x5
0199 e605       |    |		Load	0x3,0x5
019a 8402       |    |		Call	0x2,0x2
019b 7010       |p   |		Jump_Nonzero	0x1ac
019c 0092 01c6  |    |		Action	Push_String_Extended,0x1c6					; "Bad status getting unit state for unit "
019e e7ff       |    |		Load	0x3,-0x1
019f 01cc       |    |		Execute	Vector,Catenate
01a0 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; ": "
01a2 01cc       |    |		Execute	Vector,Catenate
01a3 e605       |    |		Load	0x3,0x5
01a4 e004       |    |		Load	0x0,0x4
01a5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a6 025e       | ^  |		Execute	Discrete,Convert
01a7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01a8 01cc       |    |		Execute	Vector,Catenate
01a9 8405       |    |		Call	0x2,0x5
01aa 00cc       |    |		Action	Pop_Block
01ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ad			TRAP_0188:
01ad 0007       |    |		Action	Break_Optional
01ae 0092 01c7  |    |		Action	Push_String_Extended,0x1c7					; "Unhandled exception getting unit state for unit "
01b0 e7ff       |    |		Load	0x3,-0x1
01b1 01cc       |    |		Execute	Vector,Catenate
01b2 8404       |    |		Call	0x2,0x4
01b3 00cc       |    |		Action	Pop_Block
01b4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01bc ; --------------------------------------------------------------------------------------
01bc ; STRING TABLE
01bc ; --------------------------------------------------------------------------------------
01bc 001a       |    |		.STRTAB	0x001a->0x01c9							; "Privileged mode is required to run this command"
01bd 0047       | G  |		.STRTAB	0x0047->0x01e0							; "Could not set unit state for "
01be 0062       | b  |		.STRTAB	0x0062->0x01ef							; " to source: "
01bf 006c       | l  |		.STRTAB	0x006c->0x01f5							; "Unhandled exception setting unit state for unit "
01c0 009a       |    |		.STRTAB	0x009a->0x020d							; "Can't resolve \x22"
01c1 00a7       |    |		.STRTAB	0x00a7->0x0214							; "\x22 because "
01c2 00af       |    |		.STRTAB	0x00af->0x0219							; "]$$"
01c3 00b0       |    |		.STRTAB	0x00b0->0x021b							; "Bad status opening unit "
01c4 00c6       |    |		.STRTAB	0x00c6->0x0227							; ": "
01c5 00c6       |    |		.STRTAB	0x00c6->0x0228							; "Unhandled exception opening ada unit "
01c6 00e9       |    |		.STRTAB	0x00e9->0x023a							; "Bad status getting unit state for unit "
01c7 010e       |    |		.STRTAB	0x010e->0x024e							; "Unhandled exception getting unit state for unit "
01c8 013c       | <  |		.STREND 0x013c->0x0266
01c9 5072 6976  |Priv|		.STRTAB_STRINGS
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug Table
0268 ; --------------------------------------------------------------------------------------
0268 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb79,0x0000,0x0001,0x0000
026e 0d2e 840d  | .  |		.XXX[0xf7]
0270 2dc4 0e8d  |-   |
0272 0ca4 0d8d  |    |
0274 2c4e 4c2e  |,NL.|
0276 4f24 0e6e  |O$ n|
0278 8e4e ac6e  | N n|
027a 8eae 4ca4  |  L |
027c 0ead cc8c  |    |
027e ae44 0d2e  | D .|
0280 8e64 0e0e  | d  |
0282 4dee 0cae  |M   |
0284 440d cc2d  |D  -|
0286 aca5 c404  |    |
0288 0a8d 0ca0  |    |
028a 0000 0660  |   `|
028c 0000 0864  |   d|
028e 040c adce  |    |
0290 8e4f 240c  | O$ |
0292 cdee 440d  |  D |
0294 2e84 0d2d  |.  -|
0296 c40e 8d0c  |    |
0298 a40d 8d2c  |   ,|
029a 4e4c 2e4f  |NL.O|
029c 240e 6e8e  |$ n |
029e 4eac 6e8e  |N n |
02a0 ae4c a40e  | L  |
02a2 adcc 8cae  |    |
02a4 440d 2e8e  |D . |
02a6 640e 0e4d  |d  M|
02a8 ee0c ae44  |   D|
02aa 0dcc 2dac  |  - |
02ac a5c4 040a  |    |
02ae 8d0c a000  |    |
02b0 0006 6000  |  ` |
02b2 0008 6404  |  d |
02b4 0cad ce8e  |    |
02b6 4f24 0ccd  |O$  |
02b8 ee44 0d2e  | D .|
02ba 840d 2dc4  |  - |
02bc 0e8d 0ca4  |    |
02be 0d8d 2c4e  |  ,N|
02c0 4c2e 4f24  |L.O$|
02c2 0e6e 8e4e  | n N|
02c4 ac6e 8eae  | n  |
02c6 4ca4 0ead  |L   |
02c8 cc8c ae44  |   D|
02ca 0d2e 8e64  | . d|
02cc 0e0e 4dee  |  M |
02ce 0cae 440d  |  D |
02d0 cc2d aca5  | -  |
02d2 c404 0a8d  |    |
02d4 0ca0 0000  |    |
02d6 0f20 0000  |    |
02d8 076e ee4d  | n M|
02da 2e8c a40d  |.   |
02dc 8dec 6d64  |  md|
02de 0ded c40e  |    |
02e0 8d0c a40e  |    |
02e2 adcd 2e84  |  . |
02e4 0d2e 640e  | .d |
02e6 4cad 8cac  |L   |
02e8 2e6c ac84  |.l  |
02ea 050e 8d0c  |    |
02ec a40e adcd  |    |
02ee 2e84 0d2e  |.  .|
02f0 640e 4cac  |d L |
02f2 2c84 0ded  |,   |
02f4 cd8f 2525  |  %%|
02f6 c000 000e  |    |
02f8 e000 0007  |    |
02fa a404 0eee  |    |
02fc 4d2e 8ca4  |M.  |
02fe 0d8d ec6d  |   m|
0300 640d edc4  |d   |
0302 0e8d 0ca4  |    |
0304 0ead cd2e  |   .|
0306 840d 2e64  |  .d|
0308 0e4c ad8c  | L  |
030a ac2e 6cac  | .l |
030c 8405 0e8d  |    |
030e 0ca4 0ead  |    |
0310 cd2e 840d  | .  |
0312 2e64 0e4c  |.d L|
0314 ac2c 840d  | ,  |
0316 edcd 8f25  |   %|
0318 25c0 0000  |%   |
031a 0ee0 0000  |    |
031c 07a4 040e  |    |
031e ee4d 2e8c  | M. |
0320 a40d 8dec  |    |
0322 6d64 0ded  |md  |
0324 c40e 8d0c  |    |
0326 a40e adcd  |    |
0328 2e84 0d2e  |.  .|
032a 640e 4cad  |d L |
032c 8cac 2e6c  |  .l|
032e ac84 050e  |    |
0330 8d0c a40e  |    |
0332 adcd 2e84  |  . |
0334 0d2e 640e  | .d |
0336 4cac 2c84  |L , |
0338 0ded cd8f  |    |
033a 2525 c000  |%%  |
033c 0006 e000  |    |
033e 0003 880d  |    |
0340 cdec 8ca4  |    |
0342 0428 6ded  | (m |
0344 adac 2dcc  |  - |
0346 8e65 c82c  | e ,|
0348 8c25 caed  | %  |
034a 2e8d 0c8e  |.   |
034c 4c2e e000  |L.  |
034e 0007 0000  |    |
0350 0000 8dcd  |    |
0352 ec8c a000  |    |
0354 0007 a000  |    |
0356 0002 c428  |   (|
0358 6ded adac  |m   |
035a 2dcc 8e65  |-  e|
035c c82c 8c25  | , %|
035e caed 2e8d  |  . |
0360 0c8e 4c2e  |  L.|
0362 e000 0000  |    |
0364 2000       |    |
0365 0000 0000  |    |		.BLANK	0000[0x4]
0369 000a 8000  |    |		.XXX[0x5e]
036b 0000 0000  |    |
036d 000a 6000  |  ` |
036f 000a e000  |    |
0371 0006 0e0e  |    |
0373 4dec 6cac  |M l |
0375 8eae 4ca4  |  L |
0377 0aed 2e8d  |  . |
0379 0c8e 4c2e  |  L.|
037b e405 09cc  |    |
037d 2dac a407  |-   |
037f 440a 6e8e  |D n |
0381 4d2d cce4  |M-  |
0383 0747 a404  | G  |
0385 4789 29a8  |G ) |
0387 28e8 a7c4  |(   |
0389 4527 6000  |E'` |
038b 000a a000  |    |
038d 0006 4404  |  D |
038f 0e0e 4dec  |  M |
0391 6cac 8eae  |l   |
0393 4ca4 0aed  |L   |
0395 2e8d 0c8e  |.   |
0397 4c2e e405  |L.  |
0399 09cc 2dac  |  - |
039b a407 440a  |  D |
039d 6e8e 4d2d  |n M-|
039f cce4 0747  |   G|
03a1 a404 4789  |  G |
03a3 29a8 28e8  |) ( |
03a5 a7c4 4527  |  E'|
03a7 6000 000a  |`   |
03a9 a000 0006  |    |
03ab 4404 0e0e  |D   |
03ad 4dec 6cac  |M l |
03af 8eae 4ca4  |  L |
03b1 0aed 2e8d  |  . |
03b3 0c8e 4c2e  |  L.|
03b5 e405 09cc  |    |
03b7 2dac a407  |-   |
03b9 440a 6e8e  |D n |
03bb 4d2d cce4  |M-  |
03bd 0747 a404  | G  |
03bf 4789 29a8  |G ) |
03c1 28e8 a7c4  |(   |
03c3 4527 6000  |E'` |
03c5 0000 2000  |    |
03c7 0000 0000  |    |		.BLANK	0000[0x4]
03cb 0001       |    |		.XXX[0x1]
03cc 0000 0000  |    |		.BLANK	0000[0x4]
03d0 e000 0001  |    |		.XXX[0x30]
03d2 6000 0008  |`   |
03d4 2aed 2e8d  |* . |
03d6 0c8e 4c2e  |  L.|
03d8 ee64 0e8d  | d  |
03da 0ca4 0e6e  |   n|
03dc 8eac 4405  |  D |
03de 0d8d 2c4e  |  ,N|
03e0 4c2e 4f24  |L.O$|
03e2 0cad ce8e  |    |
03e4 4f24 0ccd  |O$  |
03e6 ee45 240d  | E$ |
03e8 ecc4 0e8d  |    |
03ea 0ca4 0dcc  |    |
03ec 2dac ac84  |-   |
03ee 082c 8c24  | , $|
03f0 0ead cd2e  |   .|
03f2 8584 0e8d  |    |
03f4 0ca0 0000  |    |
03f6 0120 0000  |    |
03f8 0864 040a  | d  |
03fa ed2e 8d0c  | .  |
03fc 8e4c 2eee  | L. |
03fe 640e 8d0c  |d   |