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

⟦aeee4a1ec⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0000 0000  |    |		.XXX[0x27]
0270 2007 9839  |   9|
0272 2800 0000  |(   |
0274 6000 642a  |` d*|
0276 0000 0000  |    |
0278 0043 9aeb  | C  |
027a 7000 0000  |p   |
027c 9000 0e31  |   1|
027e 900f 301b  |  0 |
0280 3000 0000  |0   |
0282 0000 0000  |    |
0284 0007 9844  |   D|
0286 4300 1e83  |C   |
0288 4a00 f308  |J   |
028a c800 f30a  |    |
028c 1b00 01c6  |    |
028e 3401 e617  |4   |
0290 9c00 0000  |    |
0292 0001 e618  |    |
0294 cc00       |    |
0295 0000 0000  |    |		.BLANK	0000[0x5]
029a 0002 0001  |    |		.XXX[0x10]
029c 8f34 1854  | 4 T|
029e 8580 00e0  |    |
02a0 0031 e680  | 1  |
02a2 0038 c680  | 8  |
02a4 3cc2 f380  |<   |
02a6 0000 0000  |    |
02a8 3cc3 5980  |< Y |
02aa 0000 0000  |    |		.BLANK	0000[0x4]
02ae 00d0 db80  |    |		.XXX[0x19]
02b0 4000 31e6  |@ 1 |
02b2 830a 90b0  |    |
02b4 001c 0006  |    |
02b6 3cd0 0000  |<   |
02b8 0000 03cc  |    |
02ba 2f38 0000  |/8  |
02bc 0000 0000  |    |
02be 0004 0000  |    |
02c0 002d 4149  | -AI|
02c2 2535 0549  |%5 I|
02c4 657d 0511  |e}  |
02c6 4c00       |L   |
02c7 0000 0000  |    |		.BLANK	0000[0x5]
02cc 0001 e619  |    |		.XXX[0x17]
02ce ce00 0000  |    |
02d0 0800 0d0d  |    |
02d2 b800 0000  |    |
02d4 0000 0000  |    |
02d6 0003 cc37  |   7|
02d8 9c00 0000  |    |
02da 0000 0000  |    |
02dc 0800 0000  |    |
02de 0000 0000  |    |
02e0 0800 0d0d  |    |
02e2 b800       |    |
02e3 0000 0000  |    |		.BLANK	0000[0x5]
02e8 2400 03ad  |$   |		.XXX[0x5a]
02ea 9809 5b15  |  [ |
02ec e000 0000  |    |
02ee 0000 0000  |    |
02f0 0001 e61e  |    |
02f2 9400 07b7  |    |
02f4 a880 3cc3  |  < |
02f6 e280 3cc4  |  < |
02f8 3740 0071  |7@ q|
02fa 8d80 7989  |  y |
02fc 4800 0000  |H   |
02fe 0000 7989  |  y |
0300 ac00 0000  |    |
0302 0000 798a  |  y |
0304 2c00 0317  |,   |
0306 6f00 8000  |o   |
0308 6285 020e  |b   |
030a 2140 0010  |!@  |
030c 000c 50a0  |  P |
030e 000e 31b0  |  1 |
0310 0f31 2900  | 1) |
0312 0000 0000  |    |
0314 0f31 5590  | 1U |
0316 0000 0000  |    |
0318 230f d0a0  |#   |
031a 0062 ede0  | b  |
031c 1000 0c50  |   P|
031e a041 c428  | A (|
0320 0004 0001  |    |
0322 8a14 0000  |    |
0324 0000 00f3  |    |
0326 1290 00b4  |    |
0328 f1d6 0000  |    |
032a 0001 0000  |    |
032c 0011 5445  |  TE|
032e 5354 5f54  |ST_T|
0330 424c 5f47  |BL_G|
0332 454e 2742  |EN'B|
0334 4f44 5900  |ODY |
0336 f313 d900  |    |
0338 0000 0000  |    |
033a 0000 0200  |    |
033c 0000 0000  |    |
033e 0000 0200  |    |
0340 062e de00  | .  |
0342 0000 0000  |    |		.BLANK	0000[0x9]
034b 0001 18b9  |    |		.XXX[0x7]
034d 0580 04f7  |    |
034f 1280 00e7  |    |
0351 4100       |A   |
0352 0000 0000  |    |		.BLANK	0000[0x4]
0356 798a ed00  |y   |		.XXX[0xc]
0358 0000 0000  |    |
035a 0000 0100  |    |
035c 0000 0000  |    |
035e 0000 0100  |    |
0360 0317 6f00  |  o |
0362 0000 0000  |    |		.BLANK	0000[0x5]
0367 0480 0071  |   q|		.XXX[0x5]
0369 8d80 7987  |  y |
036b 8380       |    |
036c 0000 0000  |    |		.BLANK	0000[0x4]
0370 3cc5 cf40  |<  @|		.XXX[0x10]
0372 00cc cb08  |    |
0374 0798 bbe8  |    |
0376 0798 c680  |    |
0378 000e 31c0  |  1 |
037a 009e e250  |   P|
037c 0000 0000  |    |
037e 0f31 a230  | 1 0|
0380 0000 0000  |    |		.BLANK	0000[0x4]
0384 0010 0a80  |    |		.XXX[0x9]
0386 1000 0d9f  |    |
0388 32c0 042c  |2  ,|
038a 0007 0001  |    |
038c 7154       |qT  |
038d 0000 0000  |    |		.BLANK	0000[0xe]
039b 0200       |    |		.XXX[0x1]
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 e000 0000  |    |		.XXX[0xe]
03a2 001e 6354  |  cT|
03a4 8000 0000  |    |
03a6 0000 0000  |    |
03a8 4000 0000  |@   |
03aa 0000 0000  |    |
03ac 2000 2015  |    |
03ae 0000 0000  |    |		.BLANK	0000[0x5]
03b3 0001 2000  |    |		.XXX[0x1a]
03b5 1c63 801e  | c  |
03b7 62df 4000  |b @ |
03b9 0000 0000  |    |
03bb 0000 000f  |    |
03bd 31c0 7000  |1 p |
03bf 000b 4001  |  @ |
03c1 e638 8e01  | 8  |
03c3 e63b 3400  | ;4 |
03c5 007e a800  | ~  |
03c7 3398 8c00  |3   |
03c9 0000 0003  |    |
03cb cc7b b400  | {  |
03cd 0000 0000  |    |		.BLANK	0000[0x4]
03d1 01af 7804  |  x |		.XXX[0x11]
03d3 0000 1b0c  |    |
03d5 3119 0280  |1   |
03d7 01c0 0003  |    |
03d9 6180 000f  |a   |
03db d500 0673  |   s|
03dd 1180 0000  |    |
03df 0000 798f  |  y |
03e1 f680       |    |
03e2 0000 0000  |    |		.BLANK	0000[0x4]
03e6 0035 ef00  | 5  |		.XXX[0x15]
03e8 8000 0361  |   a|
03ea 8600 2050  |   P|
03ec 0038 0000  | 8  |
03ee 6c30 0798  |l0  |
03f0 fb70 0000  | p  |
03f2 0000 0000  |    |
03f4 0010 0000  |    |
03f6 0000 0000  |    |
03f8 0010 0003  |    |
03fa 5ef0       |^   |
03fb 0000 0000  |    |		.BLANK	0000[0x4]
03ff 0799       |    |		.XXX[0x1]