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

⟦48b0db350⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0198       |    |		.CONST	0x0198								; 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 004f       | O  |		.CONST	0x004f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b 4805       |H   |		Short_Literal	0x5							; Debug Table 0x0 = .DEBUG	0x000b,0x01da,0x0000,0x0000,0x0059,0x89c5,0x0000,0x00ea
000c 00b8       |    |		Action	Set_Priority
000d 4801       |H   |		Short_Literal	0x1
000e 02cb       |    |		Declare_Variable	Entry
000f 00bf       |    |		Action	Accept_Activation
0010 4806       |H   |		Short_Literal	0x6							; Debug Table 0x1 = .DEBUG	0x0010,0x01dc,0x0000,0x0000,0x0059,0x8b45,0x0000,0x0018
													; Debug Table 0x1.0x0 = 0x10,0xffff
0011 e001       |    |		Load	0x0,0x1
0012 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
0013 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0014 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0015 00d8       |    |		Load_Top	At_Offset_0
0016 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0017 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x1 = 0x17,0xfffe
0018 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0019 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x2 = 0x19,0xfffd
001a e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0x3 = 0x1a,0xfffc
001b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
001c e004       |    |		Load	0x0,0x4								; Debug Table 0x1.0x4 = 0x1c,0xfffb
001d 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
001e 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
001f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0020 e005       |    |		Load	0x0,0x5								; Debug Table 0x1.0x5 = 0x20,0xfffa
0021 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0022 0322       | "  |		Declare_Variable	Record
0023 4801       |H   |		Short_Literal	0x1
0024 00d9       |    |		Load_Top	At_Offset_1
0025 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0026 4897       |H   |		Short_Literal	0x97
0027 e006       |    |		Load	0x0,0x6
0028 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0029 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
002a 00d9       |    |		Load_Top	At_Offset_1
002b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
002c 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x1.0x6 = 0x2c,0x401
002d 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1.0x7 = 0x2d,0xfffa
002e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
002f 4800       |H   |		Short_Literal	0x0
0030 00d9       |    |		Load_Top	At_Offset_1
0031 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0032 4800       |H   |		Short_Literal	0x0
0033 00d9       |    |		Load_Top	At_Offset_1
0034 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0035 4800       |H   |		Short_Literal	0x0
0036 00d9       |    |		Load_Top	At_Offset_1
0037 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0038 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x8 = 0x38,0xfff9
0039 e007       |    |		Load	0x0,0x7								; Debug Table 0x1.0x9 = 0x39,0xfff8
003a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
003b 02c7       |    |		Declare_Variable	Any
003c e007       |    |		Load	0x0,0x7
003d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
003e c215       |    |		Store	0x1,0x15
003f 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0xa = 0x3f,0xfff7
0040 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0041 029d 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call			; Debug Table 0x1.0xb = 0x41,0xfff6
0043 029d 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call			; Debug Table 0x1.0xc = 0x43,0xfff5
0045 029d 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call			; Debug Table 0x1.0xd = 0x45,0xfff4
0047 029d 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call			; Debug Table 0x1.0xe = 0x47,0xfff3
0049 480d       |H   |		Short_Literal	0xd							; Debug Table 0x1.0x10 = 0x49,0xfff1
													; Debug Table 0x1.0x11 = 0x49,0xfff0
													; Debug Table 0x1.0x12 = 0x49,0xffef
													; Debug Table 0x1.0x13 = 0x49,0xffee
													; Debug Table 0x1.0xf = 0x49,0xfff2
004a 0299 0113  |    |		Declare_Subprogram	INIT_0110,For_Accept
004c 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
004e 00bc       |    |		Action	Signal_Activated
004f			BODY_0008:
004f 0092 0188  |    |		Action	Push_String_Extended,0x188					; "ce:USER"
													; Debug Table 0x1.0x14 = 0x4f,0x1
0051 e008       |    |		Load	0x0,0x8
0052 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0053 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b				; Debug Table 0x1.0x15 = 0x53,0x2
0054 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0055 0137       | 7  |		Execute	Entry,Rendezvous
0056 00cf       |    |		Action	Mark_Auxiliary
0057 821c       |    |		Call	0x1,0x1c							; Debug Table 0x1.0x16 = 0x57,0x3
													; Debug Table 0x1.0x17 = 0x57,0x4
0058 00c9       |    |		Action	Pop_Auxiliary_Loop
0059 7ffd       |    |		Jump	0x57
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0079       | y  |		.CONST	0x0079								; Address of begin
0061 0086       |    |		.CONST	0x0086								; Address of exception handler
0062 0002       |    |		.CONST	0x0002								; Number of locals
0063			INIT_0060:
0063 482e       |H.  |		Short_Literal	0x2e							; Debug Table 0x2 = .DEBUG	0x0063,0x020e,0x0001,0x0000,0x0059,0x8b45,0x0000,0x008e
													; Debug Table 0x2.0x0 = 0x63,0xffff
0064 e009       |    |		Load	0x0,0x9
0065 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0066 e00a       |    |		Load	0x0,0xa
0067 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0068 e00b       |    |		Load	0x0,0xb
0069 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
006a e00b       |    |		Load	0x0,0xb
006b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
006c 01cb       |    |		Execute	Vector,Append
006d e009       |    |		Load	0x0,0x9
006e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006f e00a       |    |		Load	0x0,0xa
0070 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0071 e00b       |    |		Load	0x0,0xb
0072 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0073 e00b       |    |		Load	0x0,0xb
0074 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0075 01cc       |    |		Execute	Vector,Catenate
0076 0092 0189  |    |		Action	Push_String_Extended,0x189					; "_lost_keys"
0078 01cc       |    |		Execute	Vector,Catenate
0079			BODY_0060:
0079 e215       |    |		Load	0x1,0x15							; Debug Table 0x2.0x1 = 0x79,0x1
007a 6109       |a   |		Indirect_Literal	Discrete,0x184,{0x00000000, 0x00004000}
007b e007       |    |		Load	0x0,0x7
007c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
007d 4800       |H   |		Short_Literal	0x0
007e e402       |    |		Load	0x2,0x2
007f 4803       |H   |		Short_Literal	0x3
0080 e007       |    |		Load	0x0,0x7
0081 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0082 c215       |    |		Store	0x1,0x15
0083 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x2 = 0x83,0x2
0084 a216       |    |		Store_Unchecked	0x1,0x16
0085 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0086			TRAP_0060:
0086 0007       |    |		Action	Break_Optional
0087 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x2.0x3 = 0x87,0x3
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 009c       |    |		.CONST	0x009c								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x3 = .DEBUG	0x008b,0x0218,0x0001,0x0000,0x0059,0x8b45,0x0000,0x00c2
008c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x0 = 0x8c,0x1
008d 01d9       |    |		Execute	Vector,Reverse_Bounds
008e 0263       | c  |		Execute	Discrete,Above_Bound
008f 700b       |p   |		Jump_Nonzero	0x9b
0090 e215       |    |		Load	0x1,0x15							; Debug Table 0x3.0x1 = 0x90,0x2
0091 4800       |H   |		Short_Literal	0x0
0092 00da       |    |		Load_Top	At_Offset_2
0093 e5ff       |    |		Load	0x2,-0x1
0094 01d7       |    |		Execute	Vector,Field_Read
0095 e001       |    |		Load	0x0,0x1
0096 1b6c       | l  |		Execute	Package,Field_Read,Field_Number 0x6c
0097 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0098 c215       |    |		Store	0x1,0x15
0099 00c8       |    |		Action	Pop_Auxiliary_Range
009a 3ff5       |?   |		Loop_Increasing	0x90
009b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009c			TRAP_0088:
009c 0007       |    |		Action	Break_Optional
009d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x3.0x2 = 0x9d,0x3
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00aa       |    |		.CONST	0x00aa								; Address of begin
00a1 00ee       |    |		.CONST	0x00ee								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 e003       |    |		Load	0x0,0x3								; Debug Table 0x4 = .DEBUG	0x00a3,0x0220,0x0001,0x0000,0x0059,0x8b45,0x0000,0x00e9
													; Debug Table 0x4.0x0 = 0xa3,0xffff
00a4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a5 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x1 = 0xa5,0xfffe
00a6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00a7 0322       | "  |		Declare_Variable	Record
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00aa			BODY_00a0:
00aa e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x2 = 0xaa,0x1
00ab 6807       |h   |		Jump_Zero	0xb3
00ac e20e       |    |		Load	0x1,0xe								; Debug Table 0x4.0x3 = 0xac,0x2
00ad 4800       |H   |		Short_Literal	0x0
00ae 4800       |H   |		Short_Literal	0x0
00af e001       |    |		Load	0x0,0x1
00b0 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00b1 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00b2 00d1       |    |		Pop_Control	Pop_Count_1
00b3 e20e       |    |		Load	0x1,0xe								; Debug Table 0x4.0x4 = 0xb3,0x3
00b4 e5ff       |    |		Load	0x2,-0x1
00b5 e001       |    |		Load	0x0,0x1
00b6 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00b7 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
00b8 00d1       |    |		Pop_Control	Pop_Count_1
00b9 e003       |    |		Load	0x0,0x3								; Debug Table 0x4.0x5 = 0xb9,0x4
00ba 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00bb 00d9       |    |		Load_Top	At_Offset_1
00bc e20e       |    |		Load	0x1,0xe
00bd e001       |    |		Load	0x0,0x1
00be 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00bf 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00c0 e211       |    |		Load	0x1,0x11
00c1 e003       |    |		Load	0x0,0x3
00c2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00c3 00d1       |    |		Pop_Control	Pop_Count_1
00c4 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00c5 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x6 = 0xc5,0x5
00c6 4602       |F   |		Jump_Case	0x3
00c7 7802       |x   |		Jump	0xca								; case 0x0
00c8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
00c9 780e       |x   |		Jump	0xd8								; case 0x2
00ca e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x7 = 0xca,0x7
00cb 4800       |H   |		Short_Literal	0x0
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 4803       |H   |		Short_Literal	0x3
00ce e00c       |    |		Load	0x0,0xc
00cf 171b       |    |		Execute	Task,Entry_Call,Field_Number 0x1b
00d0 e20e       |    |		Load	0x1,0xe								; Debug Table 0x4.0x8 = 0xd0,0x8
00d1 4800       |H   |		Short_Literal	0x0
00d2 4800       |H   |		Short_Literal	0x0
00d3 e001       |    |		Load	0x0,0x1
00d4 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00d5 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00d6 00d1       |    |		Pop_Control	Pop_Count_1
00d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00d8 e216       |    |		Load	0x1,0x16							; Debug Table 0x4.0x9 = 0xd8,0x9
00d9 6806       |h   |		Jump_Zero	0xe0
00da e20e       |    |		Load	0x1,0xe								; Debug Table 0x4.0xa = 0xda,0xa
00db e001       |    |		Load	0x0,0x1
00dc 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00dd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00de 8218       |    |		Call	0x1,0x18
00df 7806       |x   |		Jump	0xe6
00e0 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0xb = 0xe0,0xb
00e1 4800       |H   |		Short_Literal	0x0
00e2 e213       |    |		Load	0x1,0x13
00e3 4803       |H   |		Short_Literal	0x3
00e4 e00c       |    |		Load	0x0,0xc
00e5 171b       |    |		Execute	Task,Entry_Call,Field_Number 0x1b
00e6 e20e       |    |		Load	0x1,0xe								; Debug Table 0x4.0xc = 0xe6,0xc
00e7 4800       |H   |		Short_Literal	0x0
00e8 4800       |H   |		Short_Literal	0x0
00e9 e001       |    |		Load	0x0,0x1
00ea 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00eb 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00ec 00d1       |    |		Pop_Control	Pop_Count_1
00ed 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ee			TRAP_00a0:
00ee 0007       |    |		Action	Break_Optional
00ef e20e       |    |		Load	0x1,0xe								; Debug Table 0x4.0xd = 0xef,0xd
00f0 4800       |H   |		Short_Literal	0x0
00f1 4800       |H   |		Short_Literal	0x0
00f2 e001       |    |		Load	0x0,0x1
00f3 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00f4 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00f5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e20e       |    |		Load	0x1,0xe								; Debug Table 0x5 = .DEBUG	0x00fb,0x023e,0x0002,0x0000,0x0059,0x8b45,0x0000,0x017f
													; Debug Table 0x5.0x0 = 0xfb,0x1
00fc e001       |    |		Load	0x0,0x1
00fd 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
00fe 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00ff 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0100 6809       |h   |		Jump_Zero	0x10a
0101 e20e       |    |		Load	0x1,0xe								; Debug Table 0x5.0x1 = 0x101,0x2
0102 e001       |    |		Load	0x0,0x1
0103 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
0104 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0105 e212       |    |		Load	0x1,0x12
0106 e002       |    |		Load	0x0,0x2
0107 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0108 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0109 00ca       |    |		Action	Exit_Nullary_Function
010a 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x5.0x2 = 0x10a,0x3
010b 00ca       |    |		Action	Exit_Nullary_Function
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 e00a       |    |		Load	0x0,0xa								; Debug Table 0x6 = .DEBUG	0x0113,0x0246,0x0003,0x0000,0x0059,0x8b45,0x0000,0x0225
													; Debug Table 0x6.0x0 = 0x113,0x1
0114 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0115 a5fe       |    |		Store_Unchecked	0x2,-0x2
0116 e004       |    |		Load	0x0,0x4								; Debug Table 0x6.0x1 = 0x116,0x2
0117 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0118 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0119 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011a a211       |    |		Store_Unchecked	0x1,0x11
011b 8217       |    |		Call	0x1,0x17							; Debug Table 0x6.0x2 = 0x11b,0x3
011c 4101       |A   |		End_Rendezvous	0x1
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 017c       | |  |		.CONST	0x017c								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00cf       |    |		Action	Mark_Auxiliary							; Debug Table 0x7 = .DEBUG	0x0123,0x024e,0x0004,0x0000,0x0059,0x8b45,0x0000,0x0288
0124 e20e       |    |		Load	0x1,0xe								; Debug Table 0x7.0x0 = 0x124,0x1
													; Debug Table 0x7.0x1 = 0x124,0x2
0125 e001       |    |		Load	0x0,0x1
0126 1b6b       | k  |		Execute	Package,Field_Read,Field_Number 0x6b
0127 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0128 7011       |p   |		Jump_Nonzero	0x13a
0129 e004       |    |		Load	0x0,0x4
012a 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
012b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
012c 700d       |p   |		Jump_Nonzero	0x13a
012d 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x2 = 0x12d,0x3
012e 00e1       |    |		Load_Encached	Boolean_Cache
012f e002       |    |		Load	0x0,0x2
0130 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0131 00e7       |    |		Load_Encached	Duration_Cache
0132 0269       | i  |		Execute	Discrete,Last
0133 e00d       |    |		Load	0x0,0xd
0134 e00e       |    |		Load	0x0,0xe
0135 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0136 c20f       |    |		Store	0x1,0xf
0137 c214       |    |		Store	0x1,0x14
0138 c210       |    |		Store	0x1,0x10
0139 783d       |x=  |		Jump	0x177
013a 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x3 = 0x13a,0x4
013b 00e1       |    |		Load_Encached	Boolean_Cache
013c e002       |    |		Load	0x0,0x2
013d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
013e 6041       |`A  |		Indirect_Literal	Discrete,0x180,{0x00000000, 0x0000c000}
013f e00d       |    |		Load	0x0,0xd
0140 e00e       |    |		Load	0x0,0xe
0141 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0142 c20f       |    |		Store	0x1,0xf
0143 c214       |    |		Store	0x1,0x14
0144 c210       |    |		Store	0x1,0x10
0145 e214       |    |		Load	0x1,0x14							; Debug Table 0x7.0x4 = 0x145,0x5
0146 7030       |p0  |		Jump_Nonzero	0x177
0147 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x5 = 0x147,0x6
													; Debug Table 0x7.0x6 = 0x147,0xfbff
0148 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x7 = 0x148,0x401
0149 4800       |H   |		Short_Literal	0x0
014a 4801       |H   |		Short_Literal	0x1
014b 4820       |H   |		Short_Literal	0x20
014c 0092 018a  |    |		Action	Push_String_Extended,0x18a					; "Input:"
014e e004       |    |		Load	0x0,0x4
014f 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0150 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0151 e004       |    |		Load	0x0,0x4
0152 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0153 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0154 0271       | q  |		Execute	Discrete,Times
0155 0248       | H  |		Execute	Discrete,Check_In_Integer
0156 00e0       |    |		Load_Encached	Standard_Cache
0157 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0158 01cc       |    |		Execute	Vector,Catenate
0159 01cb       |    |		Execute	Vector,Append
015a 821a       |    |		Call	0x1,0x1a
015b 01cc       |    |		Execute	Vector,Catenate
015c 4804       |H   |		Short_Literal	0x4
015d e00c       |    |		Load	0x0,0xc
015e 171c       |    |		Execute	Task,Entry_Call,Field_Number 0x1c
015f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0160 00d1       |    |		Pop_Control	Pop_Count_1
0161 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x8 = 0x161,0x7
0162 00e1       |    |		Load_Encached	Boolean_Cache
0163 e002       |    |		Load	0x0,0x2
0164 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0165 00e7       |    |		Load_Encached	Duration_Cache
0166 0269       | i  |		Execute	Discrete,Last
0167 e00d       |    |		Load	0x0,0xd
0168 e00e       |    |		Load	0x0,0xe
0169 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
016a c20f       |    |		Store	0x1,0xf
016b c214       |    |		Store	0x1,0x14
016c c210       |    |		Store	0x1,0x10
016d 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x9 = 0x16d,0x8
													; Debug Table 0x7.0xa = 0x16d,0xf7ff
016e 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0xb = 0x16e,0x801
016f 4800       |H   |		Short_Literal	0x0
0170 4801       |H   |		Short_Literal	0x1
0171 00ea       |    |		Load_Encached	Null_String_Cache
0172 4804       |H   |		Short_Literal	0x4
0173 e00c       |    |		Load	0x0,0xc
0174 171c       |    |		Execute	Task,Entry_Call,Field_Number 0x1c
0175 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0176 00d1       |    |		Pop_Control	Pop_Count_1
0177 e210       |    |		Load	0x1,0x10							; Debug Table 0x7.0xc = 0x177,0x9
0178 e20f       |    |		Load	0x1,0xf
0179 8219       |    |		Call	0x1,0x19
017a 00c9       |    |		Action	Pop_Auxiliary_Loop
017b 7fa8       |    |		Jump	0x124
017c			TRAP_0120:
017c 0007       |    |		Action	Break_Optional
017d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x7.0xd = 0x17d,0xa
017e 0000 0000  |    |		.XXX[0x2]
0180 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000c000}
0184 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0188 ; --------------------------------------------------------------------------------------
0188 ; STRING TABLE
0188 ; --------------------------------------------------------------------------------------
0188 0008       |    |		.STRTAB	0x0008->0x018c							; "ce:USER"
0189 000d       |    |		.STRTAB	0x000d->0x018f							; "_lost_keys"
018a 0015       |    |		.STRTAB	0x0015->0x0194							; "Input:"
018b 0019       |    |		.STREND 0x0019->0x0197
018c 6365 3a55  |ce:U|		.STRTAB_STRINGS
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0003 0008  |    |		.CONST	0x0003,0x0008
019a 000b 01da  |    |		.DEBUG	0x000b,0x01da,0x0000,0x0000,0x0059,0x89c5,0x0000,0x00ea
01a2 0010 01dc  |    |		.DEBUG	0x0010,0x01dc,0x0000,0x0000,0x0059,0x8b45,0x0000,0x0018
01aa 0063 020e  | c  |		.DEBUG	0x0063,0x020e,0x0001,0x0000,0x0059,0x8b45,0x0000,0x008e
01b2 008b 0218  |    |		.DEBUG	0x008b,0x0218,0x0001,0x0000,0x0059,0x8b45,0x0000,0x00c2
01ba 00a3 0220  |    |		.DEBUG	0x00a3,0x0220,0x0001,0x0000,0x0059,0x8b45,0x0000,0x00e9
01c2 00fb 023e  |   >|		.DEBUG	0x00fb,0x023e,0x0002,0x0000,0x0059,0x8b45,0x0000,0x017f
01ca 0113 0246  |   F|		.DEBUG	0x0113,0x0246,0x0003,0x0000,0x0059,0x8b45,0x0000,0x0225
01d2 0123 024e  | # N|		.DEBUG	0x0123,0x024e,0x0004,0x0000,0x0059,0x8b45,0x0000,0x0288
01da ; --------------------------------------------------------------------------------------
01da ; Debug3 Subtable 0x0
01da ; --------------------------------------------------------------------------------------
01da 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
01dc ; --------------------------------------------------------------------------------------
01dc ; Debug3 Subtable 0x1
01dc ; --------------------------------------------------------------------------------------
01dc 0013 0005  |    |		.DBG3TAB	0x0013,0x0005
01de 0010 ffff  |    |		.CONST	0x0010,0xffff
01e0 0017 fffe  |    |		.CONST	0x0017,0xfffe
01e2 0019 fffd  |    |		.CONST	0x0019,0xfffd
01e4 001a fffc  |    |		.CONST	0x001a,0xfffc
01e6 001c fffb  |    |		.CONST	0x001c,0xfffb
01e8 0020 fffa  |    |		.CONST	0x0020,0xfffa
01ea 002c 0401  | ,  |		.CONST	0x002c,0x0401
01ec 002d fffa  | -  |		.CONST	0x002d,0xfffa
01ee 0038 fff9  | 8  |		.CONST	0x0038,0xfff9
01f0 0039 fff8  | 9  |		.CONST	0x0039,0xfff8
01f2 003f fff7  | ?  |		.CONST	0x003f,0xfff7
01f4 0041 fff6  | A  |		.CONST	0x0041,0xfff6
01f6 0043 fff5  | C  |		.CONST	0x0043,0xfff5
01f8 0045 fff4  | E  |		.CONST	0x0045,0xfff4
01fa 0047 fff3  | G  |		.CONST	0x0047,0xfff3
01fc 0049 fff2  | I  |		.CONST	0x0049,0xfff2
01fe 0049 fff1  | I  |		.CONST	0x0049,0xfff1
0200 0049 fff0  | I  |		.CONST	0x0049,0xfff0
0202 0049 ffef  | I  |		.CONST	0x0049,0xffef
0204 0049 ffee  | I  |		.CONST	0x0049,0xffee
0206 004f 0001  | O  |		.CONST	0x004f,0x0001
0208 0053 0002  | S  |		.CONST	0x0053,0x0002
020a 0057 0003  | W  |		.CONST	0x0057,0x0003
020c 0057 0004  | W  |		.CONST	0x0057,0x0004
020e ; --------------------------------------------------------------------------------------
020e ; Debug3 Subtable 0x2
020e ; --------------------------------------------------------------------------------------
020e 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0210 0063 ffff  | c  |		.CONST	0x0063,0xffff
0212 0079 0001  | y  |		.CONST	0x0079,0x0001
0214 0083 0002  |    |		.CONST	0x0083,0x0002
0216 0087 0003  |    |		.CONST	0x0087,0x0003
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug3 Subtable 0x3
0218 ; --------------------------------------------------------------------------------------
0218 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
021a 008c 0001  |    |		.CONST	0x008c,0x0001
021c 0090 0002  |    |		.CONST	0x0090,0x0002
021e 009d 0003  |    |		.CONST	0x009d,0x0003
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug3 Subtable 0x4
0220 ; --------------------------------------------------------------------------------------
0220 0002 000c  |    |		.DBG3TAB	0x0002,0x000c
0222 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0224 00a5 fffe  |    |		.CONST	0x00a5,0xfffe
0226 00aa 0001  |    |		.CONST	0x00aa,0x0001
0228 00ac 0002  |    |		.CONST	0x00ac,0x0002
022a 00b3 0003  |    |		.CONST	0x00b3,0x0003
022c 00b9 0004  |    |		.CONST	0x00b9,0x0004
022e 00c5 0005  |    |		.CONST	0x00c5,0x0005
0230 00ca 0007  |    |		.CONST	0x00ca,0x0007
0232 00d0 0008  |    |		.CONST	0x00d0,0x0008
0234 00d8 0009  |    |		.CONST	0x00d8,0x0009
0236 00da 000a  |    |		.CONST	0x00da,0x000a
0238 00e0 000b  |    |		.CONST	0x00e0,0x000b
023a 00e6 000c  |    |		.CONST	0x00e6,0x000c
023c 00ef 000d  |    |		.CONST	0x00ef,0x000d
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x5
023e ; --------------------------------------------------------------------------------------
023e 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0240 00fb 0001  |    |		.CONST	0x00fb,0x0001
0242 0101 0002  |    |		.CONST	0x0101,0x0002
0244 010a 0003  |    |		.CONST	0x010a,0x0003
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x6
0246 ; --------------------------------------------------------------------------------------
0246 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0248 0113 0001  |    |		.CONST	0x0113,0x0001
024a 0116 0002  |    |		.CONST	0x0116,0x0002
024c 011b 0003  |    |		.CONST	0x011b,0x0003
024e ; --------------------------------------------------------------------------------------
024e ; Debug3 Subtable 0x7
024e ; --------------------------------------------------------------------------------------
024e 0002 000c  |    |		.DBG3TAB	0x0002,0x000c
0250 0124 0001  | $  |		.CONST	0x0124,0x0001
0252 0124 0002  | $  |		.CONST	0x0124,0x0002
0254 012d 0003  | -  |		.CONST	0x012d,0x0003
0256 013a 0004  | :  |		.CONST	0x013a,0x0004
0258 0145 0005  | E  |		.CONST	0x0145,0x0005
025a 0147 0006  | G  |		.CONST	0x0147,0x0006
025c 0147 fbff  | G  |		.CONST	0x0147,0xfbff
025e 0148 0401  | H  |		.CONST	0x0148,0x0401
0260 0161 0007  | a  |		.CONST	0x0161,0x0007
0262 016d 0008  | m  |		.CONST	0x016d,0x0008
0264 016d f7ff  | m  |		.CONST	0x016d,0xf7ff
0266 016e 0801  | n  |		.CONST	0x016e,0x0801
0268 0177 0009  | w  |		.CONST	0x0177,0x0009
026a 017d 000a  | }  |		.CONST	0x017d,0x000a
026c 0000 0000  |    |		.BLANK	0000[0x194]