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

⟦36ee44039⟧

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

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 0330       | 0  |		.CONST	0x0330								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b5       |    |		.CONST	0x00b5								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001e       |    |		.CONST	0x001e								; Number of locals
000b			INIT_0008:
000b 4820       |H   |		Short_Literal	0x20
000c 4800       |H   |		Short_Literal	0x0
000d 4802       |H   |		Short_Literal	0x2
000e 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
0010 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
0011 0007       |    |		Action	Break_Optional
0012 e002       |    |		Load	0x0,0x2
0013 0266       | f  |		Execute	Discrete,Bounds
0014 00e1       |    |		Load_Encached	Boolean_Cache
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 4801       |H   |		Short_Literal	0x1
0017 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0018 4800       |H   |		Short_Literal	0x0
0019 48ff       |H   |		Short_Literal	0xff
001a 00da       |    |		Load_Top	At_Offset_2
001b 035c       | \  |		Declare_Type	Array,Constrained,Visible
001c 00d8       |    |		Load_Top	At_Offset_0
001d 0336       | 6  |		Declare_Variable	Array,Visible
001e 00d8       |    |		Load_Top	At_Offset_0
001f 0335       | 5  |		Declare_Variable	Array,Duplicate
0020 00cd       |    |		Action	Spare6_Action
0021 48ff       |H   |		Short_Literal	0xff
0022 4800       |H   |		Short_Literal	0x0
0023 4800       |H   |		Short_Literal	0x0
0024 00d9       |    |		Load_Top	At_Offset_1
0025 e211       |    |		Load	0x1,0x11
0026 01d6       |    |		Execute	Vector,Field_Write
0027 3ffb       |?   |		Loop_Increasing	0x23
0028 00d9       |    |		Load_Top	At_Offset_1
0029 01d4       |    |		Execute	Vector,Structure_Write
002a 4808       |H   |		Short_Literal	0x8
002b 48ff       |H   |		Short_Literal	0xff
002c e20e       |    |		Load	0x1,0xe
002d 035c       | \  |		Declare_Type	Array,Constrained,Visible
002e 00d8       |    |		Load_Top	At_Offset_0
002f 0336       | 6  |		Declare_Variable	Array,Visible
0030 00d8       |    |		Load_Top	At_Offset_0
0031 0335       | 5  |		Declare_Variable	Array,Duplicate
0032 00cd       |    |		Action	Spare6_Action
0033 48ff       |H   |		Short_Literal	0xff
0034 4808       |H   |		Short_Literal	0x8
0035 4800       |H   |		Short_Literal	0x0
0036 00d9       |    |		Load_Top	At_Offset_1
0037 e213       |    |		Load	0x1,0x13
0038 01d6       |    |		Execute	Vector,Field_Write
0039 3ffb       |?   |		Loop_Increasing	0x35
003a 00d9       |    |		Load_Top	At_Offset_1
003b 01d4       |    |		Execute	Vector,Structure_Write
003c 4800       |H   |		Short_Literal	0x0
003d 481f       |H   |		Short_Literal	0x1f
003e 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
0040 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0041 00d8       |    |		Load_Top	At_Offset_0
0042 0266       | f  |		Execute	Discrete,Bounds
0043 00e1       |    |		Load_Encached	Boolean_Cache
0044 02a0       |    |		Declare_Subprogram	Null_Subprogram
0045 4801       |H   |		Short_Literal	0x1
0046 035e       | ^  |		Declare_Type	Array,Defined,Visible
0047 00d8       |    |		Load_Top	At_Offset_0
0048 0336       | 6  |		Declare_Variable	Array,Visible
0049 00d8       |    |		Load_Top	At_Offset_0
004a 0335       | 5  |		Declare_Variable	Array,Duplicate
004b 00cd       |    |		Action	Spare6_Action
004c 481f       |H   |		Short_Literal	0x1f
004d 4800       |H   |		Short_Literal	0x0
004e 4800       |H   |		Short_Literal	0x0
004f 00d9       |    |		Load_Top	At_Offset_1
0050 e216       |    |		Load	0x1,0x16
0051 01d6       |    |		Execute	Vector,Field_Write
0052 3ffb       |?   |		Loop_Increasing	0x4e
0053 00d9       |    |		Load_Top	At_Offset_1
0054 01d4       |    |		Execute	Vector,Structure_Write
0055 4800       |H   |		Short_Literal	0x0
0056 481f       |H   |		Short_Literal	0x1f
0057 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0059 03fe       |    |		Declare_Type	Discrete,Defined,Visible
005a 00d8       |    |		Load_Top	At_Offset_0
005b 0266       | f  |		Execute	Discrete,Bounds
005c 00e1       |    |		Load_Encached	Boolean_Cache
005d 02a0       |    |		Declare_Subprogram	Null_Subprogram
005e 4801       |H   |		Short_Literal	0x1
005f 035e       | ^  |		Declare_Type	Array,Defined,Visible
0060 00d8       |    |		Load_Top	At_Offset_0
0061 0336       | 6  |		Declare_Variable	Array,Visible
0062 00d8       |    |		Load_Top	At_Offset_0
0063 0335       | 5  |		Declare_Variable	Array,Duplicate
0064 00cd       |    |		Action	Spare6_Action
0065 481f       |H   |		Short_Literal	0x1f
0066 4800       |H   |		Short_Literal	0x0
0067 4800       |H   |		Short_Literal	0x0
0068 00d9       |    |		Load_Top	At_Offset_1
0069 e219       |    |		Load	0x1,0x19
006a 01d6       |    |		Execute	Vector,Field_Write
006b 3ffb       |?   |		Loop_Increasing	0x67
006c 00d9       |    |		Load_Top	At_Offset_1
006d 01d4       |    |		Execute	Vector,Structure_Write
006e 4820       |H   |		Short_Literal	0x20
006f 4800       |H   |		Short_Literal	0x0
0070 4801       |H   |		Short_Literal	0x1
0071 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0073 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
0074 0007       |    |		Action	Break_Optional
0075 4808       |H   |		Short_Literal	0x8
0076 4800       |H   |		Short_Literal	0x0
0077 4802       |H   |		Short_Literal	0x2
0078 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
007a 03fb       |    |		Declare_Type	Discrete,Defined,Visible,With_Size
007b 4f9c       |O   |		Short_Literal	-0x64
007c 4864       |Hd  |		Short_Literal	0x64
007d e003       |    |		Load	0x0,0x3
007e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
007f 00d8       |    |		Load_Top	At_Offset_0
0080 00d9       |    |		Load_Top	At_Offset_1
0081 e004       |    |		Load	0x0,0x4
0082 00d8       |    |		Load_Top	At_Offset_0
0083 e217       |    |		Load	0x1,0x17
0084 e219       |    |		Load	0x1,0x19
0085 e005       |    |		Load	0x0,0x5
0086 e20d       |    |		Load	0x1,0xd
0087 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0089 4808       |H   |		Short_Literal	0x8
008a 032e       | .  |		Declare_Type	Record,Defined,Visible
008b 00d9       |    |		Load_Top	At_Offset_1
008c 00da       |    |		Load_Top	At_Offset_2
008d e004       |    |		Load	0x0,0x4
008e 00d8       |    |		Load_Top	At_Offset_0
008f e217       |    |		Load	0x1,0x17
0090 00e1       |    |		Load_Encached	Boolean_Cache
0091 e20f       |    |		Load	0x1,0xf
0092 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
0094 4807       |H   |		Short_Literal	0x7
0095 032e       | .  |		Declare_Type	Record,Defined,Visible
0096 00d8       |    |		Load_Top	At_Offset_0
0097 0322       | "  |		Declare_Variable	Record
0098 4800       |H   |		Short_Literal	0x0
0099 00d9       |    |		Load_Top	At_Offset_1
009a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
009b 4800       |H   |		Short_Literal	0x0
009c 00d9       |    |		Load_Top	At_Offset_1
009d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
009e 4800       |H   |		Short_Literal	0x0
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a1 4800       |H   |		Short_Literal	0x0
00a2 00d9       |    |		Load_Top	At_Offset_1
00a3 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a4 e218       |    |		Load	0x1,0x18
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
00a7 0119       |    |		Execute	Any,Check_In_Formal_Type
00a8 00d9       |    |		Load_Top	At_Offset_1
00a9 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00aa 4800       |H   |		Short_Literal	0x0
00ab 00d9       |    |		Load_Top	At_Offset_1
00ac 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00ad e210       |    |		Load	0x1,0x10
00ae 00da       |    |		Load_Top	At_Offset_2
00af 3006       |0   |		Execute	Record,Field_Type,Field_Number 0x6
00b0 0119       |    |		Execute	Any,Check_In_Formal_Type
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
00b3 0129       | )  |		Execute	Any,Make_Visible
00b4 00bf       |    |		Action	Accept_Activation
00b5			BODY_0008:
00b5 00bc       |    |		Action	Signal_Activated
00b6 00bb       |    |		Action	Signal_Completion
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 4607       |F   |		Jump_Case	0x8
00bc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00bd 7807       |x   |		Jump	0xc5								; case 0x1
00be 780a       |x   |		Jump	0xc9								; case 0x2
00bf 780e       |x   |		Jump	0xce								; case 0x3
00c0 7811       |x   |		Jump	0xd2								; case 0x4
00c1 7812       |x   |		Jump	0xd4								; case 0x5
00c2 7813       |x   |		Jump	0xd6								; case 0x6
00c3 7816       |x   |		Jump	0xda								; case 0x7
00c4 4302       |C   |		.XXX[0x1]
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 0091 01ce  |    |		Action	Push_String_Extended_Indexed,0x1ce				; "AUTO_REPEAT_MODE_OFF"
00c8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 00e0       |    |		Load_Encached	Standard_Cache
00cc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ce 00da       |    |		Load_Top	At_Offset_2
00cf 00e0       |    |		Load_Encached	Standard_Cache
00d0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d2 00db       |    |		Load_Top	At_Offset_3
00d3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d6 e20d       |    |		Load	0x1,0xd
00d7 00dc       |    |		Load_Top	At_Offset_4
00d8 0267       | g  |		Execute	Discrete,Predecessor
00d9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00da e20d       |    |		Load	0x1,0xd
00db 00dc       |    |		Load_Top	At_Offset_4
00dc 0268       | h  |		Execute	Discrete,Successor
00dd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00de 0000 0000  |    |		.XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4607       |F   |		Jump_Case	0x8
00e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00e5 7807       |x   |		Jump	0xed								; case 0x1
00e6 780a       |x   |		Jump	0xf1								; case 0x2
00e7 780e       |x   |		Jump	0xf6								; case 0x3
00e8 7811       |x   |		Jump	0xfa								; case 0x4
00e9 7812       |x   |		Jump	0xfc								; case 0x5
00ea 7813       |x   |		Jump	0xfe								; case 0x6
00eb 7816       |x   |		Jump	0x102								; case 0x7
00ec 4302       |C   |		.XXX[0x1]
00ed 00da       |    |		Load_Top	At_Offset_2
00ee 0091 01d1  |    |		Action	Push_String_Extended_Indexed,0x1d1				; "XKCFI31"
00f0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00db       |    |		Load_Top	At_Offset_3
00f3 00e0       |    |		Load_Encached	Standard_Cache
00f4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 00e0       |    |		Load_Encached	Standard_Cache
00f8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00fa 00db       |    |		Load_Top	At_Offset_3
00fb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fc 00db       |    |		Load_Top	At_Offset_3
00fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fe e213       |    |		Load	0x1,0x13
00ff 00dc       |    |		Load_Top	At_Offset_4
0100 0267       | g  |		Execute	Discrete,Predecessor
0101 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0102 e213       |    |		Load	0x1,0x13
0103 00dc       |    |		Load_Top	At_Offset_4
0104 0268       | h  |		Execute	Discrete,Successor
0105 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4607       |F   |		Jump_Case	0x8
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7807       |x   |		Jump	0x115								; case 0x1
010e 780a       |x   |		Jump	0x119								; case 0x2
010f 780e       |x   |		Jump	0x11e								; case 0x3
0110 7811       |x   |		Jump	0x122								; case 0x4
0111 7812       |x   |		Jump	0x124								; case 0x5
0112 7813       |x   |		Jump	0x126								; case 0x6
0113 7816       |x   |		Jump	0x12a								; case 0x7
0114 4302       |C   |		.XXX[0x1]
0115 00da       |    |		Load_Top	At_Offset_2
0116 0091 01f1  |    |		Action	Push_String_Extended_Indexed,0x1f1				; "LED31"
0118 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0119 00db       |    |		Load_Top	At_Offset_3
011a 00db       |    |		Load_Top	At_Offset_3
011b 00e0       |    |		Load_Encached	Standard_Cache
011c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 00da       |    |		Load_Top	At_Offset_2
011f 00e0       |    |		Load_Encached	Standard_Cache
0120 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0121 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0122 00db       |    |		Load_Top	At_Offset_3
0123 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0124 00db       |    |		Load_Top	At_Offset_3
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 e216       |    |		Load	0x1,0x16
0127 00dc       |    |		Load_Top	At_Offset_4
0128 0267       | g  |		Execute	Discrete,Predecessor
0129 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012a e216       |    |		Load	0x1,0x16
012b 00dc       |    |		Load_Top	At_Offset_4
012c 0268       | h  |		Execute	Discrete,Successor
012d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012e 0000 0000  |    |		.XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4607       |F   |		Jump_Case	0x8
0134 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0135 7807       |x   |		Jump	0x13d								; case 0x1
0136 780a       |x   |		Jump	0x141								; case 0x2
0137 780e       |x   |		Jump	0x146								; case 0x3
0138 7811       |x   |		Jump	0x14a								; case 0x4
0139 7812       |x   |		Jump	0x14c								; case 0x5
013a 7813       |x   |		Jump	0x14e								; case 0x6
013b 7816       |x   |		Jump	0x152								; case 0x7
013c 4302       |C   |		.XXX[0x1]
013d 00da       |    |		Load_Top	At_Offset_2
013e 0091 0211  |    |		Action	Push_String_Extended_Indexed,0x211				; "LED_MODE_OFF"
0140 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0141 00db       |    |		Load_Top	At_Offset_3
0142 00db       |    |		Load_Top	At_Offset_3
0143 00e0       |    |		Load_Encached	Standard_Cache
0144 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0145 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0146 00da       |    |		Load_Top	At_Offset_2
0147 00e0       |    |		Load_Encached	Standard_Cache
0148 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0149 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
014a 00db       |    |		Load_Top	At_Offset_3
014b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014c 00db       |    |		Load_Top	At_Offset_3
014d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014e e219       |    |		Load	0x1,0x19
014f 00dc       |    |		Load_Top	At_Offset_4
0150 0267       | g  |		Execute	Discrete,Predecessor
0151 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0152 e219       |    |		Load	0x1,0x19
0153 00dc       |    |		Load_Top	At_Offset_4
0154 0268       | h  |		Execute	Discrete,Successor
0155 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4607       |F   |		Jump_Case	0x8
015c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
015d 7807       |x   |		Jump	0x165								; case 0x1
015e 780a       |x   |		Jump	0x169								; case 0x2
015f 780e       |x   |		Jump	0x16e								; case 0x3
0160 7811       |x   |		Jump	0x172								; case 0x4
0161 7812       |x   |		Jump	0x174								; case 0x5
0162 7813       |x   |		Jump	0x176								; case 0x6
0163 7816       |x   |		Jump	0x17a								; case 0x7
0164 4302       |C   |		.XXX[0x1]
0165 00da       |    |		Load_Top	At_Offset_2
0166 0091 0213  |    |		Action	Push_String_Extended_Indexed,0x213				; "MAPPING_SUCCESS"
0168 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0169 00db       |    |		Load_Top	At_Offset_3
016a 00db       |    |		Load_Top	At_Offset_3
016b 00e0       |    |		Load_Encached	Standard_Cache
016c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
016d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
016e 00da       |    |		Load_Top	At_Offset_2
016f 00e0       |    |		Load_Encached	Standard_Cache
0170 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0171 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0172 00db       |    |		Load_Top	At_Offset_3
0173 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0174 00db       |    |		Load_Top	At_Offset_3
0175 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0176 e21a       |    |		Load	0x1,0x1a
0177 00dc       |    |		Load_Top	At_Offset_4
0178 0267       | g  |		Execute	Discrete,Predecessor
0179 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017a e21a       |    |		Load	0x1,0x1a
017b 00dc       |    |		Load_Top	At_Offset_4
017c 0268       | h  |		Execute	Discrete,Successor
017d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 4601       |F   |		Jump_Case	0x2
0184 7801       |x   |		Jump	0x186								; case 0x0
0185 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0186 4800       |H   |		Short_Literal	0x0
0187 00db       |    |		Load_Top	At_Offset_3
0188 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0189 4800       |H   |		Short_Literal	0x0
018a 00db       |    |		Load_Top	At_Offset_3
018b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
018c 4800       |H   |		Short_Literal	0x0
018d 00db       |    |		Load_Top	At_Offset_3
018e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
018f 4800       |H   |		Short_Literal	0x0
0190 00db       |    |		Load_Top	At_Offset_3
0191 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0192 e218       |    |		Load	0x1,0x18
0193 00db       |    |		Load_Top	At_Offset_3
0194 00d9       |    |		Load_Top	At_Offset_1
0195 00d9       |    |		Load_Top	At_Offset_1
0196 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
0197 0119       |    |		Execute	Any,Check_In_Formal_Type
0198 00d1       |    |		Pop_Control	Pop_Count_1
0199 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
019a 4800       |H   |		Short_Literal	0x0
019b 00db       |    |		Load_Top	At_Offset_3
019c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
019d 4800       |H   |		Short_Literal	0x0
019e 00db       |    |		Load_Top	At_Offset_3
019f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01a0 4800       |H   |		Short_Literal	0x0
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
01a3 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01a4 0000 0000  |    |		.BLANK	0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 4601       |F   |		Jump_Case	0x2
01ac 7801       |x   |		Jump	0x1ae								; case 0x0
01ad 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01ae 4800       |H   |		Short_Literal	0x0
01af 00db       |    |		Load_Top	At_Offset_3
01b0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01b1 4800       |H   |		Short_Literal	0x0
01b2 00db       |    |		Load_Top	At_Offset_3
01b3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01b4 4800       |H   |		Short_Literal	0x0
01b5 00db       |    |		Load_Top	At_Offset_3
01b6 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01b7 4800       |H   |		Short_Literal	0x0
01b8 00db       |    |		Load_Top	At_Offset_3
01b9 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
01ba e218       |    |		Load	0x1,0x18
01bb 00db       |    |		Load_Top	At_Offset_3
01bc 00d9       |    |		Load_Top	At_Offset_1
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 3004       |0   |		Execute	Record,Field_Type,Field_Number 0x4
01bf 0119       |    |		Execute	Any,Check_In_Formal_Type
01c0 00d1       |    |		Pop_Control	Pop_Count_1
01c1 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
01c2 4800       |H   |		Short_Literal	0x0
01c3 00db       |    |		Load_Top	At_Offset_3
01c4 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
01c5 e210       |    |		Load	0x1,0x10
01c6 00db       |    |		Load_Top	At_Offset_3
01c7 00d9       |    |		Load_Top	At_Offset_1
01c8 00d9       |    |		Load_Top	At_Offset_1
01c9 3006       |0   |		Execute	Record,Field_Type,Field_Number 0x6
01ca 0119       |    |		Execute	Any,Check_In_Formal_Type
01cb 00d1       |    |		Pop_Control	Pop_Count_1
01cc 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
01cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01ce ; --------------------------------------------------------------------------------------
01ce ; STRING TABLE
01ce ; --------------------------------------------------------------------------------------
01ce 0092       |    |		.STRTAB	0x0092->0x0217							; "AUTO_REPEAT_MODE_OFF"
01cf 00a4       |    |		.STRTAB	0x00a4->0x0221							; "AUTO_REPEAT_MODE_ON"
01d0 00b5       |    |		.STRTAB	0x00b5->0x022a							; "AUTO_REPEAT_MODE_DEFAULT"
01d1 00cb       |    |		.STRTAB	0x00cb->0x0236							; "XKCFI31"
01d2 00d0       |    |		.STRTAB	0x00d0->0x023a							; "XKCFI30"
01d3 00d5       |    |		.STRTAB	0x00d5->0x023d							; "XKCFI29"
01d4 00da       |    |		.STRTAB	0x00da->0x0241							; "XKCFI28"
01d5 00df       |    |		.STRTAB	0x00df->0x0244							; "XKCFI27"
01d6 00e4       |    |		.STRTAB	0x00e4->0x0248							; "XKCFI26"
01d7 00e9       |    |		.STRTAB	0x00e9->0x024b							; "XKCFI25"
01d8 00ee       |    |		.STRTAB	0x00ee->0x024f							; "XKCFI24"
01d9 00f3       |    |		.STRTAB	0x00f3->0x0252							; "XKCFI23"
01da 00f8       |    |		.STRTAB	0x00f8->0x0256							; "XKCFI22"
01db 00fd       |    |		.STRTAB	0x00fd->0x0259							; "XKCFI21"
01dc 0102       |    |		.STRTAB	0x0102->0x025d							; "XKCFI20"
01dd 0107       |    |		.STRTAB	0x0107->0x0260							; "XKCFI19"
01de 010c       |    |		.STRTAB	0x010c->0x0264							; "XKCFI18"
01df 0111       |    |		.STRTAB	0x0111->0x0267							; "XKCFI17"
01e0 0116       |    |		.STRTAB	0x0116->0x026b							; "XKCFI16"
01e1 011b       |    |		.STRTAB	0x011b->0x026e							; "XKCFI15"
01e2 0120       |    |		.STRTAB	0x0120->0x0272							; "XKCFI14"
01e3 0125       | %  |		.STRTAB	0x0125->0x0275							; "XKCFI13"
01e4 012a       | *  |		.STRTAB	0x012a->0x0279							; "XKCFI12"
01e5 012f       | /  |		.STRTAB	0x012f->0x027c							; "XKCFI11"
01e6 0134       | 4  |		.STRTAB	0x0134->0x0280							; "XKCFI10"
01e7 0139       | 9  |		.STRTAB	0x0139->0x0283							; "XKCFI09"
01e8 013e       | >  |		.STRTAB	0x013e->0x0287							; "XKCFI08"
01e9 0143       | C  |		.STRTAB	0x0143->0x028a							; "KB_AUTO_REPEAT_MODE"
01ea 0154       | T  |		.STRTAB	0x0154->0x0294							; "KB_KEY"
01eb 0158       | X  |		.STRTAB	0x0158->0x0297							; "KB_LED_MODE"
01ec 0161       | a  |		.STRTAB	0x0161->0x029c							; "KB_LED"
01ed 0165       | e  |		.STRTAB	0x0165->0x029f							; "KB_BELL_DURATION"
01ee 0173       | s  |		.STRTAB	0x0173->0x02a7							; "KB_BELL_PITCH"
01ef 017e       | ~  |		.STRTAB	0x017e->0x02ae							; "KB_BELL_PERCENT"
01f0 018b       |    |		.STRTAB	0x018b->0x02b5							; "KB_KEY_CLICK_PERCENT"
01f1 019d       |    |		.STRTAB	0x019d->0x02bf							; "LED31"
01f2 01a0       |    |		.STRTAB	0x01a0->0x02c2							; "LED30"
01f3 01a3       |    |		.STRTAB	0x01a3->0x02c4							; "LED29"
01f4 01a6       |    |		.STRTAB	0x01a6->0x02c7							; "LED28"
01f5 01a9       |    |		.STRTAB	0x01a9->0x02c9							; "LED27"
01f6 01ac       |    |		.STRTAB	0x01ac->0x02cc							; "LED26"
01f7 01af       |    |		.STRTAB	0x01af->0x02ce							; "LED25"
01f8 01b2       |    |		.STRTAB	0x01b2->0x02d1							; "LED24"
01f9 01b5       |    |		.STRTAB	0x01b5->0x02d3							; "LED23"
01fa 01b8       |    |		.STRTAB	0x01b8->0x02d6							; "LED22"
01fb 01bb       |    |		.STRTAB	0x01bb->0x02d8							; "LED21"
01fc 01be       |    |		.STRTAB	0x01be->0x02db							; "LED20"
01fd 01c1       |    |		.STRTAB	0x01c1->0x02dd							; "LED19"
01fe 01c4       |    |		.STRTAB	0x01c4->0x02e0							; "LED18"
01ff 01c7       |    |		.STRTAB	0x01c7->0x02e2							; "LED17"
0200 01ca       |    |		.STRTAB	0x01ca->0x02e5							; "LED16"
0201 01cd       |    |		.STRTAB	0x01cd->0x02e7							; "LED15"
0202 01d0       |    |		.STRTAB	0x01d0->0x02ea							; "LED14"
0203 01d3       |    |		.STRTAB	0x01d3->0x02ec							; "LED13"
0204 01d6       |    |		.STRTAB	0x01d6->0x02ef							; "LED12"
0205 01d9       |    |		.STRTAB	0x01d9->0x02f1							; "LED11"
0206 01dc       |    |		.STRTAB	0x01dc->0x02f4							; "LED10"
0207 01df       |    |		.STRTAB	0x01df->0x02f6							; "LED09"
0208 01e2       |    |		.STRTAB	0x01e2->0x02f9							; "LED08"
0209 01e5       |    |		.STRTAB	0x01e5->0x02fb							; "LED07"
020a 01e8       |    |		.STRTAB	0x01e8->0x02fe							; "LED06"
020b 01eb       |    |		.STRTAB	0x01eb->0x0300							; "LED05"
020c 01ee       |    |		.STRTAB	0x01ee->0x0303							; "LED04"
020d 01f1       |    |		.STRTAB	0x01f1->0x0305							; "LED03"
020e 01f4       |    |		.STRTAB	0x01f4->0x0308							; "LED02"
020f 01f7       |    |		.STRTAB	0x01f7->0x030a							; "LED01"
0210 01fa       |    |		.STRTAB	0x01fa->0x030d							; "LED00"
0211 01fd       |    |		.STRTAB	0x01fd->0x030f							; "LED_MODE_OFF"
0212 0207       |    |		.STRTAB	0x0207->0x0315							; "LED_MODE_ON"
0213 0210       |    |		.STRTAB	0x0210->0x031b							; "MAPPING_SUCCESS"
0214 021d       |    |		.STRTAB	0x021d->0x0322							; "MAPPING_BUSY"
0215 0227       | '  |		.STRTAB	0x0227->0x0328							; "MAPPING_FAILED"
0216 0233       | 3  |		.STREND 0x0233->0x032f
0217 4155 544f  |AUTO|		.STRTAB_STRINGS
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x48ae,0x0000,0x0001,0x0008
0336 000b 0356  |   V|		.DBG4T	0x000b,0x0356,0x8000,0x0000
033a 00bb 0000  |    |		.DBG4T	0x00bb,0x0000,0x0005,0x0000
033e 00e3 0000  |    |		.DBG4T	0x00e3,0x0000,0x0005,0x0000
0342 010b 0000  |    |		.DBG4T	0x010b,0x0000,0x0005,0x0000
0346 0133 0000  | 3  |		.DBG4T	0x0133,0x0000,0x0005,0x0000
034a 015b 0000  | [  |		.DBG4T	0x015b,0x0000,0x0005,0x0000
034e 0183 0000  |    |		.DBG4T	0x0183,0x0000,0x0005,0x0000
0352 01ab 0000  |    |		.DBG4T	0x01ab,0x0000,0x0005,0x0000
0356 ; --------------------------------------------------------------------------------------
0356 ; Debug chain
0356 ; --------------------------------------------------------------------------------------
0356 0014 0000  |    |		.DBGLEN	0x0014,0x0000
0358 000b 0011  |    |		.DBGLNO	0x000b,0x0011,0x0012,0x0018,0x001c,0x002a,0x002e,0x003c,0x0041,0x0047,0x0055,0x005a,0x0060,0x006e,0x0074,0x0075,0x007b,0x007f,0x008b,0x0096
036c 0000 0000  |    |		.BLANK	0000[0x94]