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

⟦60fb38eb5⟧

    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 0250       | P  |		.CONST	0x0250								; 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 001a       |    |		.CONST	0x001a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 00bf       |    |		Action	Accept_Activation
0010 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call
0012 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call
0014 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call
0016 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0019 00c7       |    |		Action	Elaborate_Subprogram
001a			BODY_0008:
001a 00bc       |    |		Action	Signal_Activated
001b 00bb       |    |		Action	Signal_Completion
001c 0000 0000  |    |		.BLANK	0000[0x4]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 002d       | -  |		.CONST	0x002d								; Address of begin
0021 0062       | b  |		.CONST	0x0062								; Address of exception handler
0022 0004       |    |		.CONST	0x0004								; Number of locals
0023			INIT_0020:
0023 e002       |    |		Load	0x0,0x2
0024 02c7       |    |		Declare_Variable	Any
0025 00d8       |    |		Load_Top	At_Offset_0
0026 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0027 00e1       |    |		Load_Encached	Boolean_Cache
0028 e003       |    |		Load	0x0,0x3
0029 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002a 02c7       |    |		Declare_Variable	Any
002b 00d8       |    |		Load_Top	At_Offset_0
002c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002d			BODY_0020:
002d 00e1       |    |		Load_Encached	Boolean_Cache
002e 00db       |    |		Load_Top	At_Offset_3
002f 0120       |    |		Execute	Any,Is_Value
0030 6802       |h   |		Jump_Zero	0x33
0031 e002       |    |		Load	0x0,0x2
0032 7801       |x   |		Jump	0x34
0033 00db       |    |		Load_Top	At_Offset_3
0034 e5fd       |    |		Load	0x2,-0x3
0035 8004       |    |		Call	0x0,0x4
0036 c402       |    |		Store	0x2,0x2
0037 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0038 00d9       |    |		Load_Top	At_Offset_1
0039 6811       |h   |		Jump_Zero	0x4b
003a e005       |    |		Load	0x0,0x5
003b e006       |    |		Load	0x0,0x6
003c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
003d c005       |    |		Store	0x0,0x5
003e 00d8       |    |		Load_Top	At_Offset_0
003f e007       |    |		Load	0x0,0x7
0040 e402       |    |		Load	0x2,0x2
0041 e5fe       |    |		Load	0x2,-0x2
0042 e5ff       |    |		Load	0x2,-0x1
0043 e008       |    |		Load	0x0,0x8
0044 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0045 c007       |    |		Store	0x0,0x7
0046 c404       |    |		Store	0x2,0x4
0047 e005       |    |		Load	0x0,0x5
0048 e006       |    |		Load	0x0,0x6
0049 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
004a c005       |    |		Store	0x0,0x5
004b 4802       |H   |		Short_Literal	0x2
004c 00d9       |    |		Load_Top	At_Offset_1
004d e003       |    |		Load	0x0,0x3
004e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
004f 6811       |h   |		Jump_Zero	0x61
0050 480a       |H   |		Short_Literal	0xa
0051 480a       |H   |		Short_Literal	0xa
0052 0092 01c7  |    |		Action	Push_String_Extended,0x1c7					; "The history for "
0054 e402       |    |		Load	0x2,0x2
0055 820f       |    |		Call	0x1,0xf
0056 01cc       |    |		Execute	Vector,Catenate
0057 0092 01c8  |    |		Action	Push_String_Extended,0x1c8					; " could not be displayed:"
0059 01cc       |    |		Execute	Vector,Catenate
005a 01cb       |    |		Execute	Vector,Append
005b 00da       |    |		Load_Top	At_Offset_2
005c e003       |    |		Load	0x0,0x3
005d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
005e 01cc       |    |		Execute	Vector,Catenate
005f 01cb       |    |		Execute	Vector,Append
0060 8009       |    |		Call	0x0,0x9
0061 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0062			TRAP_0020:
0062 0007       |    |		Action	Break_Optional
0063 480a       |H   |		Short_Literal	0xa
0064 0092 01c9  |    |		Action	Push_String_Extended,0x1c9					; "Exception raised during command processing: "
0066 e00a       |    |		Load	0x0,0xa
0067 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0068 01cc       |    |		Execute	Vector,Catenate
0069 01cb       |    |		Execute	Vector,Append
006a 8009       |    |		Call	0x0,0x9
006b 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0081       |    |		.CONST	0x0081								; Address of begin
0071 015e       | ^  |		.CONST	0x015e								; Address of exception handler
0072 0005       |    |		.CONST	0x0005								; Number of locals
0073			INIT_0070:
0073 e002       |    |		Load	0x0,0x2
0074 02c7       |    |		Declare_Variable	Any
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0077 00e1       |    |		Load_Encached	Boolean_Cache
0078 e003       |    |		Load	0x0,0x3
0079 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007a 02c7       |    |		Declare_Variable	Any
007b 00d8       |    |		Load_Top	At_Offset_0
007c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007d e00b       |    |		Load	0x0,0xb
007e 0322       | "  |		Declare_Variable	Record
007f 00d8       |    |		Load_Top	At_Offset_0
0080 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0081			BODY_0070:
0081 00e1       |    |		Load_Encached	Boolean_Cache
0082 e402       |    |		Load	0x2,0x2
0083 0120       |    |		Execute	Any,Is_Value
0084 6802       |h   |		Jump_Zero	0x87
0085 e002       |    |		Load	0x0,0x2
0086 7801       |x   |		Jump	0x88
0087 e402       |    |		Load	0x2,0x2
0088 e5fd       |    |		Load	0x2,-0x3
0089 8004       |    |		Call	0x0,0x4
008a c402       |    |		Store	0x2,0x2
008b 005b       | [  |		Store_Top	Discrete,At_Offset_3
008c 00da       |    |		Load_Top	At_Offset_2
008d 68cf       |h   |		Jump_Zero	0x15d
008e 00d9       |    |		Load_Top	At_Offset_1
008f 00d9       |    |		Load_Top	At_Offset_1
0090 e5fc       |    |		Load	0x2,-0x4
0091 800c       |    |		Call	0x0,0xc
0092 00d1       |    |		Pop_Control	Pop_Count_1
0093 c404       |    |		Store	0x2,0x4
0094 4802       |H   |		Short_Literal	0x2
0095 00da       |    |		Load_Top	At_Offset_2
0096 e003       |    |		Load	0x0,0x3
0097 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0098 6801       |h   |		Jump_Zero	0x9a
0099 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
009a e5fe       |    |		Load	0x2,-0x2
009b 4606       |F   |		Jump_Case	0x7
009c 781b       |x   |		Jump	0xb8								; case 0x0
009d 7857       |xW  |		Jump	0xf5								; case 0x1
009e 786b       |xk  |		Jump	0x10a								; case 0x2
009f 78a9       |x   |		Jump	0x149								; case 0x3
00a0 787e       |x~  |		Jump	0x11f								; case 0x4
00a1 7892       |x   |		Jump	0x134								; case 0x5
00a2 7800       |x   |		Jump	0xa3								; case 0x6
00a3 00d9       |    |		Load_Top	At_Offset_1
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 e007       |    |		Load	0x0,0x7
00a6 e5fb       |    |		Load	0x2,-0x5
00a7 e402       |    |		Load	0x2,0x2
00a8 4801       |H   |		Short_Literal	0x1
00a9 e5ff       |    |		Load	0x2,-0x1
00aa e008       |    |		Load	0x0,0x8
00ab 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
00ac c007       |    |		Store	0x0,0x7
00ad 00d1       |    |		Pop_Control	Pop_Count_1
00ae c404       |    |		Store	0x2,0x4
00af 00db       |    |		Load_Top	At_Offset_3
00b0 00d9       |    |		Load_Top	At_Offset_1
00b1 e5fc       |    |		Load	0x2,-0x4
00b2 e5ff       |    |		Load	0x2,-0x1
00b3 0092 01ca  |    |		Action	Push_String_Extended,0x1ca					; "Statement"
00b5 e404       |    |		Load	0x2,0x4
00b6 8211       |    |		Call	0x1,0x11
00b7 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba e007       |    |		Load	0x0,0x7
00bb e5fb       |    |		Load	0x2,-0x5
00bc e402       |    |		Load	0x2,0x2
00bd 4800       |H   |		Short_Literal	0x0
00be e5ff       |    |		Load	0x2,-0x1
00bf e008       |    |		Load	0x0,0x8
00c0 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
00c1 c007       |    |		Store	0x0,0x7
00c2 00d1       |    |		Pop_Control	Pop_Count_1
00c3 c404       |    |		Store	0x2,0x4
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 00d9       |    |		Load_Top	At_Offset_1
00c6 e5fc       |    |		Load	0x2,-0x4
00c7 e5ff       |    |		Load	0x2,-0x1
00c8 0092 01cb  |    |		Action	Push_String_Extended,0x1cb					; "Call"
00ca e404       |    |		Load	0x2,0x4
00cb 8211       |    |		Call	0x1,0x11
00cc 00d9       |    |		Load_Top	At_Offset_1
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce e007       |    |		Load	0x0,0x7
00cf e5fb       |    |		Load	0x2,-0x5
00d0 e402       |    |		Load	0x2,0x2
00d1 4806       |H   |		Short_Literal	0x6
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 e008       |    |		Load	0x0,0x8
00d4 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
00d5 c007       |    |		Store	0x0,0x7
00d6 00d1       |    |		Pop_Control	Pop_Count_1
00d7 c404       |    |		Store	0x2,0x4
00d8 00db       |    |		Load_Top	At_Offset_3
00d9 00d9       |    |		Load_Top	At_Offset_1
00da e5fc       |    |		Load	0x2,-0x4
00db e5ff       |    |		Load	0x2,-0x1
00dc 0092 01cc  |    |		Action	Push_String_Extended,0x1cc					; "Exception"
00de e404       |    |		Load	0x2,0x4
00df 8211       |    |		Call	0x1,0x11
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 00d9       |    |		Load_Top	At_Offset_1
00e2 e007       |    |		Load	0x0,0x7
00e3 e5fb       |    |		Load	0x2,-0x5
00e4 e402       |    |		Load	0x2,0x2
00e5 4801       |H   |		Short_Literal	0x1
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 e008       |    |		Load	0x0,0x8
00e8 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
00e9 c007       |    |		Store	0x0,0x7
00ea 00d1       |    |		Pop_Control	Pop_Count_1
00eb c404       |    |		Store	0x2,0x4
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 00d9       |    |		Load_Top	At_Offset_1
00ee e5fc       |    |		Load	0x2,-0x4
00ef e5ff       |    |		Load	0x2,-0x1
00f0 0092 01ca  |    |		Action	Push_String_Extended,0x1ca					; "Statement"
00f2 e404       |    |		Load	0x2,0x4
00f3 8211       |    |		Call	0x1,0x11
00f4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00f5 00d9       |    |		Load_Top	At_Offset_1
00f6 00d9       |    |		Load_Top	At_Offset_1
00f7 e007       |    |		Load	0x0,0x7
00f8 e5fb       |    |		Load	0x2,-0x5
00f9 e402       |    |		Load	0x2,0x2
00fa 4800       |H   |		Short_Literal	0x0
00fb e5ff       |    |		Load	0x2,-0x1
00fc e008       |    |		Load	0x0,0x8
00fd 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
00fe c007       |    |		Store	0x0,0x7
00ff 00d1       |    |		Pop_Control	Pop_Count_1
0100 c404       |    |		Store	0x2,0x4
0101 00db       |    |		Load_Top	At_Offset_3
0102 00d9       |    |		Load_Top	At_Offset_1
0103 e5fc       |    |		Load	0x2,-0x4
0104 e5ff       |    |		Load	0x2,-0x1
0105 0092 01cb  |    |		Action	Push_String_Extended,0x1cb					; "Call"
0107 e404       |    |		Load	0x2,0x4
0108 8211       |    |		Call	0x1,0x11
0109 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
010a 00d9       |    |		Load_Top	At_Offset_1
010b 00d9       |    |		Load_Top	At_Offset_1
010c e007       |    |		Load	0x0,0x7
010d e5fb       |    |		Load	0x2,-0x5
010e e402       |    |		Load	0x2,0x2
010f 4806       |H   |		Short_Literal	0x6
0110 e5ff       |    |		Load	0x2,-0x1
0111 e008       |    |		Load	0x0,0x8
0112 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0113 c007       |    |		Store	0x0,0x7
0114 00d1       |    |		Pop_Control	Pop_Count_1
0115 c404       |    |		Store	0x2,0x4
0116 00db       |    |		Load_Top	At_Offset_3
0117 00d9       |    |		Load_Top	At_Offset_1
0118 e5fc       |    |		Load	0x2,-0x4
0119 e5ff       |    |		Load	0x2,-0x1
011a 0092 01cc  |    |		Action	Push_String_Extended,0x1cc					; "Exception"
011c e404       |    |		Load	0x2,0x4
011d 8211       |    |		Call	0x1,0x11
011e 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
011f 00d9       |    |		Load_Top	At_Offset_1
0120 00d9       |    |		Load_Top	At_Offset_1
0121 e007       |    |		Load	0x0,0x7
0122 e5fb       |    |		Load	0x2,-0x5
0123 e402       |    |		Load	0x2,0x2
0124 4804       |H   |		Short_Literal	0x4
0125 e5ff       |    |		Load	0x2,-0x1
0126 e008       |    |		Load	0x0,0x8
0127 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0128 c007       |    |		Store	0x0,0x7
0129 00d1       |    |		Pop_Control	Pop_Count_1
012a c404       |    |		Store	0x2,0x4
012b 00db       |    |		Load_Top	At_Offset_3
012c 00d9       |    |		Load_Top	At_Offset_1
012d e5fc       |    |		Load	0x2,-0x4
012e e5ff       |    |		Load	0x2,-0x1
012f 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; "Frame_Pop"
0131 e404       |    |		Load	0x2,0x4
0132 8211       |    |		Call	0x1,0x11
0133 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0134 00d9       |    |		Load_Top	At_Offset_1
0135 00d9       |    |		Load_Top	At_Offset_1
0136 e007       |    |		Load	0x0,0x7
0137 e5fb       |    |		Load	0x2,-0x5
0138 e402       |    |		Load	0x2,0x2
0139 4802       |H   |		Short_Literal	0x2
013a e5ff       |    |		Load	0x2,-0x1
013b e008       |    |		Load	0x0,0x8
013c 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
013d c007       |    |		Store	0x0,0x7
013e 00d1       |    |		Pop_Control	Pop_Count_1
013f c404       |    |		Store	0x2,0x4
0140 00db       |    |		Load_Top	At_Offset_3
0141 00d9       |    |		Load_Top	At_Offset_1
0142 e5fc       |    |		Load	0x2,-0x4
0143 e5ff       |    |		Load	0x2,-0x1
0144 0092 01ce  |    |		Action	Push_String_Extended,0x1ce					; "Rendezvous"
0146 e404       |    |		Load	0x2,0x4
0147 8211       |    |		Call	0x1,0x11
0148 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0149 00d9       |    |		Load_Top	At_Offset_1
014a 00d9       |    |		Load_Top	At_Offset_1
014b e007       |    |		Load	0x0,0x7
014c e5fb       |    |		Load	0x2,-0x5
014d e402       |    |		Load	0x2,0x2
014e 4805       |H   |		Short_Literal	0x5
014f e5ff       |    |		Load	0x2,-0x1
0150 e008       |    |		Load	0x0,0x8
0151 1858       | X  |		Execute	Package,Field_Execute,Field_Number 0x58
0152 c007       |    |		Store	0x0,0x7
0153 00d1       |    |		Pop_Control	Pop_Count_1
0154 c404       |    |		Store	0x2,0x4
0155 00db       |    |		Load_Top	At_Offset_3
0156 00d9       |    |		Load_Top	At_Offset_1
0157 e5fc       |    |		Load	0x2,-0x4
0158 e5ff       |    |		Load	0x2,-0x1
0159 0092 01cf  |    |		Action	Push_String_Extended,0x1cf					; "Instruction"
015b e404       |    |		Load	0x2,0x4
015c 8211       |    |		Call	0x1,0x11
015d 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
015e			TRAP_0070:
015e 0007       |    |		Action	Break_Optional
015f 480a       |H   |		Short_Literal	0xa
0160 0092 01c9  |    |		Action	Push_String_Extended,0x1c9					; "Exception raised during command processing: "
0162 e00a       |    |		Load	0x0,0xa
0163 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0164 01cc       |    |		Execute	Vector,Catenate
0165 01cb       |    |		Execute	Vector,Append
0166 8009       |    |		Call	0x0,0x9
0167 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 800d       |    |		Call	0x0,0xd
016d 6803       |h   |		Jump_Zero	0x171
016e 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; "all tasks"
0170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0171 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "task "
0173 00db       |    |		Load_Top	At_Offset_3
0174 800e       |    |		Call	0x0,0xe
0175 01cc       |    |		Execute	Vector,Catenate
0176 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0177 0000       |    |		.XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 6803       |h   |		Jump_Zero	0x180
017d 0092 01d2  |    |		Action	Push_String_Extended,0x1d2					; "enabled"
017f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0180 0092 01d3  |    |		Action	Push_String_Extended,0x1d3					; "disabled"
0182 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 4802       |H   |		Short_Literal	0x2
018c 00db       |    |		Load_Top	At_Offset_3
018d e003       |    |		Load	0x0,0x3
018e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
018f 6820       |h   |		Jump_Zero	0x1b0
0190 480a       |H   |		Short_Literal	0xa
0191 480a       |H   |		Short_Literal	0xa
0192 e5fe       |    |		Load	0x2,-0x2
0193 0092 01d4  |    |		Action	Push_String_Extended,0x1d4					; " history-taking could not be "
0195 01cc       |    |		Execute	Vector,Catenate
0196 e5fd       |    |		Load	0x2,-0x3
0197 8210       |    |		Call	0x1,0x10
0198 01cc       |    |		Execute	Vector,Catenate
0199 0092 01d5  |    |		Action	Push_String_Extended,0x1d5					; " "
019b 01cc       |    |		Execute	Vector,Catenate
019c 4801       |H   |		Short_Literal	0x1
019d e5fa       |    |		Load	0x2,-0x6
019e e5fb       |    |		Load	0x2,-0x5
019f e5fc       |    |		Load	0x2,-0x4
01a0 800f       |    |		Call	0x0,0xf
01a1 01cc       |    |		Execute	Vector,Catenate
01a2 0092 01d6  |    |		Action	Push_String_Extended,0x1d6					; ":"
01a4 01cc       |    |		Execute	Vector,Catenate
01a5 01cb       |    |		Execute	Vector,Append
01a6 0092 01d7  |    |		Action	Push_String_Extended,0x1d7					; "  "
01a8 01cc       |    |		Execute	Vector,Catenate
01a9 e5ff       |    |		Load	0x2,-0x1
01aa e003       |    |		Load	0x0,0x3
01ab 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01ac 01cc       |    |		Execute	Vector,Catenate
01ad 01cb       |    |		Execute	Vector,Append
01ae 8009       |    |		Call	0x0,0x9
01af 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01b0 480a       |H   |		Short_Literal	0xa
01b1 e5fe       |    |		Load	0x2,-0x2
01b2 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; " history-taking has been "
01b4 01cc       |    |		Execute	Vector,Catenate
01b5 e5fd       |    |		Load	0x2,-0x3
01b6 8210       |    |		Call	0x1,0x10
01b7 01cc       |    |		Execute	Vector,Catenate
01b8 0092 01d5  |    |		Action	Push_String_Extended,0x1d5					; " "
01ba 01cc       |    |		Execute	Vector,Catenate
01bb 4801       |H   |		Short_Literal	0x1
01bc e5fa       |    |		Load	0x2,-0x6
01bd e5fb       |    |		Load	0x2,-0x5
01be e5fc       |    |		Load	0x2,-0x4
01bf 800f       |    |		Call	0x0,0xf
01c0 01cc       |    |		Execute	Vector,Catenate
01c1 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; "."
01c3 01cc       |    |		Execute	Vector,Catenate
01c4 01cb       |    |		Execute	Vector,Append
01c5 8010       |    |		Call	0x0,0x10
01c6 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01c7 ; --------------------------------------------------------------------------------------
01c7 ; STRING TABLE
01c7 ; --------------------------------------------------------------------------------------
01c7 0028       | (  |		.STRTAB	0x0028->0x01db							; "The history for "
01c8 0036       | 6  |		.STRTAB	0x0036->0x01e3							; " could not be displayed:"
01c9 004c       | L  |		.STRTAB	0x004c->0x01ef							; "Exception raised during command processing: "
01ca 0076       | v  |		.STRTAB	0x0076->0x0205							; "Statement"
01cb 007d       | }  |		.STRTAB	0x007d->0x0209							; "Call"
01cc 007f       |    |		.STRTAB	0x007f->0x020b							; "Exception"
01cd 0086       |    |		.STRTAB	0x0086->0x0210							; "Frame_Pop"
01ce 008d       |    |		.STRTAB	0x008d->0x0214							; "Rendezvous"
01cf 0095       |    |		.STRTAB	0x0095->0x0219							; "Instruction"
01d0 009e       |    |		.STRTAB	0x009e->0x021f							; "all tasks"
01d1 00a5       |    |		.STRTAB	0x00a5->0x0223							; "task "
01d2 00a8       |    |		.STRTAB	0x00a8->0x0226							; "enabled"
01d3 00ad       |    |		.STRTAB	0x00ad->0x0229							; "disabled"
01d4 00b3       |    |		.STRTAB	0x00b3->0x022d							; " history-taking could not be "
01d5 00ce       |    |		.STRTAB	0x00ce->0x023c							; " "
01d6 00cd       |    |		.STRTAB	0x00cd->0x023c							; ":"
01d7 00cc       |    |		.STRTAB	0x00cc->0x023d							; "  "
01d8 00cc       |    |		.STRTAB	0x00cc->0x023e							; " history-taking has been "
01d9 00e3       |    |		.STRTAB	0x00e3->0x024a							; "."
01da 00e2       |    |		.STREND 0x00e2->0x024b
01db 5468 6520  |The |		.STRTAB_STRINGS
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x1651,0x0000,0x0001,0x0000
0256 0000 0000  |    |		.BLANK	0000[0x17d]
03d3 0040 0002  | @  |		.XXX[0x3]
03d5 7dc0       |}   |
03d6 0000 0000  |    |		.BLANK	0000[0x2a]