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

⟦21b79fd73⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

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 0470       | p  |		.CONST	0x0470								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0063       | c  |		.CONST	0x0063								; Address of begin
0009 00a3       |    |		.CONST	0x00a3								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 0092 030b  |    |		Action	Push_String_Extended,0x30b					; "Setup_Machine"
000d e004       |    |		Load	0x0,0x4
000e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000f 02c7       |    |		Declare_Variable	Any
0010 e004       |    |		Load	0x0,0x4
0011 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0012 a403       |    |		Store_Unchecked	0x2,0x3
0013 0092 030c  |    |		Action	Push_String_Extended,0x30c					; "&Login_Alive&"
0015 e012       |    |		Load	0x0,0x12
0016 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0017 4800       |H   |		Short_Literal	0x0
0018 e012       |    |		Load	0x0,0x12
0019 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
001a 00e3       |    |		Load_Encached	Natural_Cache
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 4801       |H   |		Short_Literal	0x1
001d 035d       | ]  |		Declare_Type	Array,Defined
001e 00d8       |    |		Load_Top	At_Offset_0
001f 0337       | 7  |		Declare_Variable	Array
0020 00d8       |    |		Load_Top	At_Offset_0
0021 0335       | 5  |		Declare_Variable	Array,Duplicate
0022 00cd       |    |		Action	Spare6_Action
0023 e406       |    |		Load	0x2,0x6
0024 01d9       |    |		Execute	Vector,Reverse_Bounds
0025 0263       | c  |		Execute	Discrete,Above_Bound
0026 7005       |p   |		Jump_Nonzero	0x2c
0027 4800       |H   |		Short_Literal	0x0
0028 e409       |    |		Load	0x2,0x9
0029 e407       |    |		Load	0x2,0x7
002a 01d6       |    |		Execute	Vector,Field_Write
002b 3ffb       |?   |		Loop_Increasing	0x27
002c e406       |    |		Load	0x2,0x6
002d 01d4       |    |		Execute	Vector,Structure_Write
002e 4850       |HP  |		Short_Literal	0x50
002f e017       |    |		Load	0x0,0x17
0030 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0031 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0032 00d8       |    |		Load_Top	At_Offset_0
0033 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0034 4801       |H   |		Short_Literal	0x1
0035 4803       |H   |		Short_Literal	0x3
0036 e012       |    |		Load	0x0,0x12
0037 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0038 02a0       |    |		Declare_Subprogram	Null_Subprogram
0039 4801       |H   |		Short_Literal	0x1
003a 035d       | ]  |		Declare_Type	Array,Defined
003b 00d8       |    |		Load_Top	At_Offset_0
003c 0337       | 7  |		Declare_Variable	Array
003d 00d8       |    |		Load_Top	At_Offset_0
003e 0335       | 5  |		Declare_Variable	Array,Duplicate
003f 00cd       |    |		Action	Spare6_Action
0040 4803       |H   |		Short_Literal	0x3
0041 4801       |H   |		Short_Literal	0x1
0042 4800       |H   |		Short_Literal	0x0
0043 e40c       |    |		Load	0x2,0xc
0044 e40a       |    |		Load	0x2,0xa
0045 01d6       |    |		Execute	Vector,Field_Write
0046 3ffb       |?   |		Loop_Increasing	0x42
0047 e409       |    |		Load	0x2,0x9
0048 01d4       |    |		Execute	Vector,Structure_Write
0049 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
004b 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
004d 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
004f 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
0051 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0053 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
0055 029f 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Call
0057 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
0059 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
005b 029f 0203  |    |		Declare_Subprogram	INIT_0200,For_Call
005d 029f 021b  |    |		Declare_Subprogram	INIT_0218,For_Call
005f 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
0061 029f 024b  |   K|		Declare_Subprogram	INIT_0248,For_Call
0063			BODY_0008:
0063 e403       |    |		Load	0x2,0x3
0064 e5ff       |    |		Load	0x2,-0x1
0065 e402       |    |		Load	0x2,0x2
0066 e224       | $  |		Load	0x1,0x24
0067 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0068 c403       |    |		Store	0x2,0x3
0069 e403       |    |		Load	0x2,0x3
006a e224       | $  |		Load	0x1,0x24
006b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
006c 8210       |    |		Call	0x1,0x10
006d 01db       |    |		Execute	Vector,Length
006e 6805       |h   |		Jump_Zero	0x74
006f e403       |    |		Load	0x2,0x3
0070 0092 030d  |    |		Action	Push_String_Extended,0x30d					; "This machine has already been assigned a Site.  Contact your Rational representative for further assistance."
0072 e224       | $  |		Load	0x1,0x24
0073 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0074 8414       |    |		Call	0x2,0x14
0075 0092 030e  |    |		Action	Push_String_Extended,0x30e					; "Answer each of the following questions."
0077 e014       |    |		Load	0x0,0x14
0078 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0079 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "No action will be taken until all answers have been given."
007b e014       |    |		Load	0x0,0x14
007c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
007d 0092 0310  |    |		Action	Push_String_Extended,0x310					; "Default value for each token count is given in []"
007f e014       |    |		Load	0x0,0x14
0080 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0081 0092 0311  |    |		Action	Push_String_Extended,0x311					; "All values start at 0, except Login."
0083 e014       |    |		Load	0x0,0x14
0084 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0085 4801       |H   |		Short_Literal	0x1
0086 e014       |    |		Load	0x0,0x14
0087 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0088 840f       |    |		Call	0x2,0xf
0089 8410       |    |		Call	0x2,0x10
008a 8416       |    |		Call	0x2,0x16
008b 4801       |H   |		Short_Literal	0x1
008c e014       |    |		Load	0x0,0x14
008d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
008e 4800       |H   |		Short_Literal	0x0
008f 4800       |H   |		Short_Literal	0x0
0090 4801       |H   |		Short_Literal	0x1
0091 00ea       |    |		Load_Encached	Null_String_Cache
0092 00ea       |    |		Load_Encached	Null_String_Cache
0093 e012       |    |		Load	0x0,0x12
0094 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0095 e00d       |    |		Load	0x0,0xd
0096 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0097 e226       | &  |		Load	0x1,0x26
0098 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0099 e018       |    |		Load	0x0,0x18
009a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
009b e226       | &  |		Load	0x1,0x26
009c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
009d e403       |    |		Load	0x2,0x3
009e 00ea       |    |		Load_Encached	Null_String_Cache
009f e402       |    |		Load	0x2,0x2
00a0 e224       | $  |		Load	0x1,0x24
00a1 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00a2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a3			TRAP_0008:
00a3 e004       |    |		Load	0x0,0x4
00a4 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
00a5 010f       |    |		Execute	Exception,Equal
00a6 6806       |h   |		Jump_Zero	0xad
00a7 e403       |    |		Load	0x2,0x3
00a8 e402       |    |		Load	0x2,0x2
00a9 e224       | $  |		Load	0x1,0x24
00aa 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 0101       |    |		Execute	Exception,Reraise
00ad e227       | '  |		Load	0x1,0x27
00ae 010f       |    |		Execute	Exception,Equal
00af 6805       |h   |		Jump_Zero	0xb5
00b0 e403       |    |		Load	0x2,0x3
00b1 e402       |    |		Load	0x2,0x2
00b2 e224       | $  |		Load	0x1,0x24
00b3 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00b4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b5 00d8       |    |		Load_Top	At_Offset_0
00b6 0107       |    |		Execute	Exception,Get_Name
00b7 4950       |IP  |		Short_Literal	0x150
00b8 495f       |I_  |		Short_Literal	0x15f
00b9 0262       | b  |		Execute	Discrete,In_Range
00ba 6807       |h   |		Jump_Zero	0xc2
00bb e403       |    |		Load	0x2,0x3
00bc 0092 0312  |    |		Action	Push_String_Extended,0x312					; "End of file encountered"
00be e402       |    |		Load	0x2,0x2
00bf e224       | $  |		Load	0x1,0x24
00c0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c2 e403       |    |		Load	0x2,0x3
00c3 4800       |H   |		Short_Literal	0x0
00c4 4801       |H   |		Short_Literal	0x1
00c5 e015       |    |		Load	0x0,0x15
00c6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00c7 e402       |    |		Load	0x2,0x2
00c8 e224       | $  |		Load	0x1,0x24
00c9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e9       |    |		.CONST	0x00e9								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0005       |    |		.CONST	0x0005								; Number of locals
00d3			INIT_00d0:
00d3 e014       |    |		Load	0x0,0x14
00d4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00d5 02c7       |    |		Declare_Variable	Any
00d6 e014       |    |		Load	0x0,0x14
00d7 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
00d8 a602       |    |		Store_Unchecked	0x3,0x2
00d9 00d8       |    |		Load_Top	At_Offset_0
00da e014       |    |		Load	0x0,0x14
00db 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
00dc 00e2       |    |		Load_Encached	Integer_Cache
00dd 03f1       |    |		Declare_Variable	Discrete,With_Value
00de e014       |    |		Load	0x0,0x14
00df 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e0 02c7       |    |		Declare_Variable	Any
00e1 e014       |    |		Load	0x0,0x14
00e2 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
00e3 a604       |    |		Store_Unchecked	0x3,0x4
00e4 00d8       |    |		Load_Top	At_Offset_0
00e5 e014       |    |		Load	0x0,0x14
00e6 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
00e7 00e2       |    |		Load_Encached	Integer_Cache
00e8 03f1       |    |		Declare_Variable	Discrete,With_Value
00e9			BODY_00d0:
00e9 e603       |    |		Load	0x3,0x3
00ea 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
00eb 6806       |h   |		Jump_Zero	0xf2
00ec 00d8       |    |		Load_Top	At_Offset_0
00ed 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
00ee 6803       |h   |		Jump_Zero	0xf2
00ef 4801       |H   |		Short_Literal	0x1
00f0 e014       |    |		Load	0x0,0x14
00f1 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00f2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00f3 0000 0000  |    |		.BLANK	0000[0x5]
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 840a       |    |		Call	0x2,0xa
00fc e7ff       |    |		Load	0x3,-0x1
00fd e014       |    |		Load	0x0,0x14
00fe 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
00ff e7fe       |    |		Load	0x3,-0x2
0100 01db       |    |		Execute	Vector,Length
0101 680a       |h   |		Jump_Zero	0x10c
0102 0092 0313  |    |		Action	Push_String_Extended,0x313					; " ["
0104 e7fe       |    |		Load	0x3,-0x2
0105 01cc       |    |		Execute	Vector,Catenate
0106 0092 0314  |    |		Action	Push_String_Extended,0x314					; "]: "
0108 01cc       |    |		Execute	Vector,Catenate
0109 e014       |    |		Load	0x0,0x14
010a 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
010b 7804       |x   |		Jump	0x110
010c 0092 0315  |    |		Action	Push_String_Extended,0x315					; ": "
010e e014       |    |		Load	0x0,0x14
010f 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0110 e014       |    |		Load	0x0,0x14
0111 1867       | g  |		Execute	Package,Field_Execute,Field_Number 0x67
0112 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0113 0000 0000  |    |		.BLANK	0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011e       |    |		.CONST	0x011e								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b e7fe       |    |		Load	0x3,-0x2
011c e7ff       |    |		Load	0x3,-0x1
011d 840b       |    |		Call	0x2,0xb
011e			BODY_0118:
011e 00d8       |    |		Load_Top	At_Offset_0
011f 01db       |    |		Execute	Vector,Length
0120 7014       |p   |		Jump_Nonzero	0x135
0121 e7fe       |    |		Load	0x3,-0x2
0122 01db       |    |		Execute	Vector,Length
0123 700b       |p   |		Jump_Nonzero	0x12f
0124 840a       |    |		Call	0x2,0xa
0125 0092 0316  |    |		Action	Push_String_Extended,0x316					; "There is no default, and null string not a valid value."
0127 e014       |    |		Load	0x0,0x14
0128 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0129 e7fd       |    |		Load	0x3,-0x3
012a e7fe       |    |		Load	0x3,-0x2
012b e7ff       |    |		Load	0x3,-0x1
012c 840c       |    |		Call	0x2,0xc
012d 00d1       |    |		Pop_Control	Pop_Count_1
012e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012f e7fd       |    |		Load	0x3,-0x3
0130 e7fe       |    |		Load	0x3,-0x2
0131 e017       |    |		Load	0x0,0x17
0132 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0133 00d1       |    |		Pop_Control	Pop_Count_1
0134 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0135 e7fd       |    |		Load	0x3,-0x3
0136 e602       |    |		Load	0x3,0x2
0137 e017       |    |		Load	0x0,0x17
0138 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0139 00d1       |    |		Pop_Control	Pop_Count_1
013a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013b 0000 0000  |    |		.BLANK	0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0153       | S  |		.CONST	0x0153								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0005       |    |		.CONST	0x0005								; Number of locals
0143			INIT_0140:
0143 e7ff       |    |		Load	0x3,-0x1
0144 e012       |    |		Load	0x0,0x12
0145 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0146 4820       |H   |		Short_Literal	0x20
0147 4800       |H   |		Short_Literal	0x0
0148 480a       |H   |		Short_Literal	0xa
0149 e7ff       |    |		Load	0x3,-0x1
014a e406       |    |		Load	0x2,0x6
014b 01d7       |    |		Execute	Vector,Field_Read
014c e008       |    |		Load	0x0,0x8
014d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
014e e602       |    |		Load	0x3,0x2
014f 840b       |    |		Call	0x2,0xb
0150 00e3       |    |		Load_Encached	Natural_Cache
0151 029f 026b  |   k|		Declare_Subprogram	INIT_0268,For_Call
0153			BODY_0140:
0153 4801       |H   |		Short_Literal	0x1
0154 0092 0317  |    |		Action	Push_String_Extended,0x317					; "Login"
0156 e602       |    |		Load	0x3,0x2
0157 e008       |    |		Load	0x0,0x8
0158 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0159 6805       |h   |		Jump_Zero	0x15f
015a e7ff       |    |		Load	0x3,-0x1
015b 4801       |H   |		Short_Literal	0x1
015c e409       |    |		Load	0x2,0x9
015d 01d6       |    |		Execute	Vector,Field_Write
015e 7817       |x   |		Jump	0x176
015f 4801       |H   |		Short_Literal	0x1
0160 0092 0318  |    |		Action	Push_String_Extended,0x318					; "Full Session"
0162 e602       |    |		Load	0x3,0x2
0163 e008       |    |		Load	0x0,0x8
0164 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0165 6805       |h   |		Jump_Zero	0x16b
0166 e7ff       |    |		Load	0x3,-0x1
0167 4802       |H   |		Short_Literal	0x2
0168 e409       |    |		Load	0x2,0x9
0169 01d6       |    |		Execute	Vector,Field_Write
016a 780b       |x   |		Jump	0x176
016b 4801       |H   |		Short_Literal	0x1
016c 0092 0319  |    |		Action	Push_String_Extended,0x319					; "Fundamental Session"
016e e602       |    |		Load	0x3,0x2
016f e008       |    |		Load	0x0,0x8
0170 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0171 6804       |h   |		Jump_Zero	0x176
0172 e7ff       |    |		Load	0x3,-0x1
0173 4803       |H   |		Short_Literal	0x3
0174 e409       |    |		Load	0x2,0x9
0175 01d6       |    |		Execute	Vector,Field_Write
0176 4820       |H   |		Short_Literal	0x20
0177 e603       |    |		Load	0x3,0x3
0178 e008       |    |		Load	0x0,0x8
0179 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
017a 01db       |    |		Execute	Vector,Length
017b 6801       |h   |		Jump_Zero	0x17d
017c 8605       |    |		Call	0x3,0x5
017d 4502       |E   |		Exit_Suprogram	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 e7ff       |    |		Load	0x3,-0x1
0184 6803       |h   |		Jump_Zero	0x188
0185 0092 031a  |    |		Action	Push_String_Extended,0x31a					; "Yes"
0187 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0188 0092 031b  |    |		Action	Push_String_Extended,0x31b					; "No"
018a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018b 0000 0000  |    |		.BLANK	0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019b       |    |		.CONST	0x019b								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0005       |    |		.CONST	0x0005								; Number of locals
0193			INIT_0190:
0193 00e1       |    |		Load_Encached	Boolean_Cache
0194 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0195 00e1       |    |		Load_Encached	Boolean_Cache
0196 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0197 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
0199 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
019b			BODY_0190:
019b 00cf       |    |		Action	Mark_Auxiliary
019c e407       |    |		Load	0x2,0x7
019d 00d8       |    |		Load_Top	At_Offset_0
019e e017       |    |		Load	0x0,0x17
019f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a0 0092 031c  |    |		Action	Push_String_Extended,0x31c					; "Site"
01a2 840c       |    |		Call	0x2,0xc
01a3 00d1       |    |		Pop_Control	Pop_Count_1
01a4 00cf       |    |		Action	Mark_Auxiliary
01a5 e406       |    |		Load	0x2,0x6
01a6 01dc       |    |		Execute	Vector,Last
01a7 4801       |H   |		Short_Literal	0x1
01a8 0263       | c  |		Execute	Discrete,Above_Bound
01a9 7008       |p   |		Jump_Nonzero	0x1b2
01aa 00d8       |    |		Load_Top	At_Offset_0
01ab e404       |    |		Load	0x2,0x4
01ac 027f       |    |		Execute	Discrete,Equal
01ad 7002       |p   |		Jump_Nonzero	0x1b0
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 840d       |    |		Call	0x2,0xd
01b0 00c8       |    |		Action	Pop_Auxiliary_Range
01b1 3ff8       |?   |		Loop_Increasing	0x1aa
01b2 00ce       |    |		Action	Pop_Auxiliary
01b3 8604       |    |		Call	0x3,0x4
01b4 e602       |    |		Load	0x3,0x2
01b5 6802       |h   |		Jump_Zero	0x1b8
01b6 8605       |    |		Call	0x3,0x5
01b7 7808       |x   |		Jump	0x1c0
01b8 0092 031d  |    |		Action	Push_String_Extended,0x31d					; "More than one of Login, Full Session, or Fundamental Session are non-zero.  "
01ba e014       |    |		Load	0x0,0x14
01bb 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01bc 0092 031e  |    |		Action	Push_String_Extended,0x31e					; "This must be fixed before proceeding."
01be e014       |    |		Load	0x0,0x14
01bf 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01c0 00c9       |    |		Action	Pop_Auxiliary_Loop
01c1 7fda       |    |		Jump	0x19c
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d0       |    |		.CONST	0x01d0								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0003       |    |		.CONST	0x0003								; Number of locals
01cb			INIT_01c8:
01cb e407       |    |		Load	0x2,0x7
01cc e017       |    |		Load	0x0,0x17
01cd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ce 029f 02eb  |    |		Declare_Subprogram	INIT_02e8,For_Call
01d0			BODY_01c8:
01d0 e602       |    |		Load	0x3,0x2
01d1 e226       | &  |		Load	0x1,0x26
01d2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d3 00cf       |    |		Action	Mark_Auxiliary
01d4 e406       |    |		Load	0x2,0x6
01d5 01dc       |    |		Execute	Vector,Last
01d6 4801       |H   |		Short_Literal	0x1
01d7 0263       | c  |		Execute	Discrete,Above_Bound
01d8 7007       |p   |		Jump_Nonzero	0x1e0
01d9 00d8       |    |		Load_Top	At_Offset_0
01da e404       |    |		Load	0x2,0x4
01db 027f       |    |		Execute	Discrete,Equal
01dc 7001       |p   |		Jump_Nonzero	0x1de
01dd 8603       |    |		Call	0x3,0x3
01de 00c8       |    |		Action	Pop_Auxiliary_Range
01df 3ff9       |?   |		Loop_Increasing	0x1d9
01e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 4820       |H   |		Short_Literal	0x20
01ec 4800       |H   |		Short_Literal	0x0
01ed 480a       |H   |		Short_Literal	0xa
01ee e7ff       |    |		Load	0x3,-0x1
01ef e008       |    |		Load	0x0,0x8
01f0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01f1 0092 031f  |    |		Action	Push_String_Extended,0x31f					; " Logins"
01f3 01cc       |    |		Execute	Vector,Catenate
01f4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb e7ff       |    |		Load	0x3,-0x1
01fc 8411       |    |		Call	0x2,0x11
01fd e013       |    |		Load	0x0,0x13
01fe 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 00cf       |    |		Action	Mark_Auxiliary
0204 4801       |H   |		Short_Literal	0x1
0205 4840       |H@  |		Short_Literal	0x40
0206 0007       |    |		Action	Break_Optional
0207 00d8       |    |		Load_Top	At_Offset_0
0208 8412       |    |		Call	0x2,0x12
0209 6802       |h   |		Jump_Zero	0x20c
020a 00d8       |    |		Load_Top	At_Offset_0
020b 00ca       |    |		Action	Exit_Nullary_Function
020c 00c8       |    |		Action	Pop_Auxiliary_Range
020d 37f9       |7   |		Loop_Decreasing	0x207
020e 00ce       |    |		Action	Pop_Auxiliary
020f 4800       |H   |		Short_Literal	0x0
0210 00ca       |    |		Action	Exit_Nullary_Function
0211 0000 0000  |    |		.BLANK	0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0225       | %  |		.CONST	0x0225								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0003       |    |		.CONST	0x0003								; Number of locals
021b			INIT_0218:
021b 8413       |    |		Call	0x2,0x13
021c 00e3       |    |		Load_Encached	Natural_Cache
021d 03f1       |    |		Declare_Variable	Discrete,With_Value
021e 0092 0317  |    |		Action	Push_String_Extended,0x317					; "Login"
0220 e012       |    |		Load	0x0,0x12
0221 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0222 e012       |    |		Load	0x0,0x12
0223 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0224 03f1       |    |		Declare_Variable	Discrete,With_Value
0225			BODY_0218:
0225 e602       |    |		Load	0x3,0x2
0226 e603       |    |		Load	0x3,0x3
0227 e406       |    |		Load	0x2,0x6
0228 01d6       |    |		Execute	Vector,Field_Write
0229 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022a 0000 0000  |    |		.BLANK	0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023a       | :  |		.CONST	0x023a								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0004       |    |		.CONST	0x0004								; Number of locals
0233			INIT_0230:
0233 e7ff       |    |		Load	0x3,-0x1
0234 8411       |    |		Call	0x2,0x11
0235 8211       |    |		Call	0x1,0x11
0236 00e5       |    |		Load_Encached	Long_Integer_Cache
0237 03f1       |    |		Declare_Variable	Discrete,With_Value
0238 0092 0320  |    |		Action	Push_String_Extended,0x320					; "01/01/90"
023a			BODY_0230:
023a 00d8       |    |		Load_Top	At_Offset_0
023b e604       |    |		Load	0x3,0x4
023c e603       |    |		Load	0x3,0x3
023d e602       |    |		Load	0x3,0x2
023e e013       |    |		Load	0x0,0x13
023f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0240 e602       |    |		Load	0x3,0x2
0241 e013       |    |		Load	0x0,0x13
0242 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0243 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0244 0000 0000  |    |		.BLANK	0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024d       | M  |		.CONST	0x024d								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0002       |    |		.CONST	0x0002								; Number of locals
024b			INIT_0248:
024b 00e1       |    |		Load_Encached	Boolean_Cache
024c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
024d			BODY_0248:
024d 00cf       |    |		Action	Mark_Auxiliary
024e 4801       |H   |		Short_Literal	0x1
024f 4840       |H@  |		Short_Literal	0x40
0250 0007       |    |		Action	Break_Optional
0251 00d8       |    |		Load_Top	At_Offset_0
0252 8412       |    |		Call	0x2,0x12
0253 6804       |h   |		Jump_Zero	0x258
0254 4801       |H   |		Short_Literal	0x1
0255 a602       |    |		Store_Unchecked	0x3,0x2
0256 00d8       |    |		Load_Top	At_Offset_0
0257 8415       |    |		Call	0x2,0x15
0258 00c8       |    |		Action	Pop_Auxiliary_Range
0259 37f7       |7   |		Loop_Decreasing	0x251
025a 00ce       |    |		Action	Pop_Auxiliary
025b 00d8       |    |		Load_Top	At_Offset_0
025c 6804       |h   |		Jump_Zero	0x261
025d e013       |    |		Load	0x0,0x13
025e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
025f e013       |    |		Load	0x0,0x13
0260 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0261 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0262 0000 0000  |    |		.BLANK	0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b       | k  |		.CONST	0x026b								; Address of begin
0269 0291       |    |		.CONST	0x0291								; Address of exception handler
026a 0001       |    |		.CONST	0x0001								; Number of locals
026b			BODY_0268:
026b			INIT_0268:
026b e603       |    |		Load	0x3,0x3
026c 00e2       |    |		Load_Encached	Integer_Cache
026d 00e0       |    |		Load_Encached	Standard_Cache
026e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
026f c604       |    |		Store	0x3,0x4
0270 e604       |    |		Load	0x3,0x4
0271 e21f       |    |		Load	0x1,0x1f
0272 0260       | `  |		Execute	Discrete,In_Type
0273 6805       |h   |		Jump_Zero	0x279
0274 e604       |    |		Load	0x3,0x4
0275 e7ff       |    |		Load	0x3,-0x1
0276 e406       |    |		Load	0x2,0x6
0277 01d6       |    |		Execute	Vector,Field_Write
0278 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0279 482e       |H.  |		Short_Literal	0x2e
027a 0092 0321  |   !|		Action	Push_String_Extended,0x321					; "Value must be in the range "
027c 4820       |H   |		Short_Literal	0x20
027d 4800       |H   |		Short_Literal	0x0
027e 480a       |H   |		Short_Literal	0xa
027f 4800       |H   |		Short_Literal	0x0
0280 e008       |    |		Load	0x0,0x8
0281 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0282 01cc       |    |		Execute	Vector,Catenate
0283 0092 0322  |   "|		Action	Push_String_Extended,0x322					; ".."
0285 01cc       |    |		Execute	Vector,Catenate
0286 4820       |H   |		Short_Literal	0x20
0287 4800       |H   |		Short_Literal	0x0
0288 480a       |H   |		Short_Literal	0xa
0289 4840       |H@  |		Short_Literal	0x40
028a e008       |    |		Load	0x0,0x8
028b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
028c 01cc       |    |		Execute	Vector,Catenate
028d 01cb       |    |		Execute	Vector,Append
028e e014       |    |		Load	0x0,0x14
028f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0290 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0291			TRAP_0268:
0291 010e       |    |		Execute	Exception,Is_Constraint_Error
0292 6807       |h   |		Jump_Zero	0x29a
0293 0092 0323  |   #|		Action	Push_String_Extended,0x323					; "Numeric value is required."
0295 e014       |    |		Load	0x0,0x14
0296 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0297 e7ff       |    |		Load	0x3,-0x1
0298 840d       |    |		Call	0x2,0xd
0299 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
029a 0100       |    |		Execute	Exception,Raise
029b 0000 0000  |    |		.BLANK	0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 4801       |H   |		Short_Literal	0x1
02a4 a602       |    |		Store_Unchecked	0x3,0x2
02a5 4800       |H   |		Short_Literal	0x0
02a6 a603       |    |		Store_Unchecked	0x3,0x3
02a7 00cf       |    |		Action	Mark_Auxiliary
02a8 e409       |    |		Load	0x2,0x9
02a9 01d9       |    |		Execute	Vector,Reverse_Bounds
02aa 0007       |    |		Action	Break_Optional
02ab 00d8       |    |		Load_Top	At_Offset_0
02ac e409       |    |		Load	0x2,0x9
02ad 01d7       |    |		Execute	Vector,Field_Read
02ae e406       |    |		Load	0x2,0x6
02af 01d7       |    |		Execute	Vector,Field_Read
02b0 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02b1 6807       |h   |		Jump_Zero	0x2b9
02b2 e603       |    |		Load	0x3,0x3
02b3 6803       |h   |		Jump_Zero	0x2b7
02b4 4800       |H   |		Short_Literal	0x0
02b5 a602       |    |		Store_Unchecked	0x3,0x2
02b6 7802       |x   |		Jump	0x2b9
02b7 4801       |H   |		Short_Literal	0x1
02b8 a603       |    |		Store_Unchecked	0x3,0x3
02b9 00c8       |    |		Action	Pop_Auxiliary_Range
02ba 3ff0       |?   |		Loop_Increasing	0x2ab
02bb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02bc 0000 0000  |    |		.BLANK	0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02cb       |    |		.CONST	0x02cb								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0002       |    |		.CONST	0x0002								; Number of locals
02c3			INIT_02c0:
02c3 4820       |H   |		Short_Literal	0x20
02c4 e603       |    |		Load	0x3,0x3
02c5 840e       |    |		Call	0x2,0xe
02c6 0092 0324  |   $|		Action	Push_String_Extended,0x324					; "All answers correct"
02c8 840b       |    |		Call	0x2,0xb
02c9 e008       |    |		Load	0x0,0x8
02ca 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02cb			BODY_02c0:
02cb e603       |    |		Load	0x3,0x3
02cc 6803       |h   |		Jump_Zero	0x2d0
02cd 00d8       |    |		Load_Top	At_Offset_0
02ce 01db       |    |		Execute	Vector,Length
02cf 680e       |h   |		Jump_Zero	0x2de
02d0 4801       |H   |		Short_Literal	0x1
02d1 0092 0325  |   %|		Action	Push_String_Extended,0x325					; "Y"
02d3 e802       |    |		Load	0x4,0x2
02d4 e008       |    |		Load	0x0,0x8
02d5 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02d6 7007       |p   |		Jump_Nonzero	0x2de
02d7 4801       |H   |		Short_Literal	0x1
02d8 0092 031a  |    |		Action	Push_String_Extended,0x31a					; "Yes"
02da e802       |    |		Load	0x4,0x2
02db e008       |    |		Load	0x0,0x8
02dc 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02dd 6802       |h   |		Jump_Zero	0x2e0
02de 00cc       |    |		Action	Pop_Block
02df 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e0 4801       |H   |		Short_Literal	0x1
02e1 e014       |    |		Load	0x0,0x14
02e2 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
02e3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02e4 0000 0000  |    |		.BLANK	0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ee       |    |		.CONST	0x02ee								; Address of begin
02e9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ea 0002       |    |		.CONST	0x0002								; Number of locals
02eb			INIT_02e8:
02eb e606       |    |		Load	0x3,0x6
02ec e012       |    |		Load	0x0,0x12
02ed 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02ee			BODY_02e8:
02ee e606       |    |		Load	0x3,0x6
02ef e406       |    |		Load	0x2,0x6
02f0 01d7       |    |		Execute	Vector,Field_Read
02f1 e802       |    |		Load	0x4,0x2
02f2 e012       |    |		Load	0x0,0x12
02f3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f4 e606       |    |		Load	0x3,0x6
02f5 e406       |    |		Load	0x2,0x6
02f6 01d7       |    |		Execute	Vector,Field_Read
02f7 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
02f8 680d       |h   |		Jump_Zero	0x306
02f9 00d8       |    |		Load_Top	At_Offset_0
02fa e013       |    |		Load	0x0,0x13
02fb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02fc 7009       |p   |		Jump_Nonzero	0x306
02fd 00ea       |    |		Load_Encached	Null_String_Cache
02fe 00ea       |    |		Load_Encached	Null_String_Cache
02ff 8211       |    |		Call	0x1,0x11
0300 e802       |    |		Load	0x4,0x2
0301 e013       |    |		Load	0x0,0x13
0302 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0303 e802       |    |		Load	0x4,0x2
0304 e013       |    |		Load	0x0,0x13
0305 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0306 480c       |H   |		Short_Literal	0xc
0307 e802       |    |		Load	0x4,0x2
0308 e012       |    |		Load	0x0,0x12
0309 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
030a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
030b ; --------------------------------------------------------------------------------------
030b ; STRING TABLE
030b ; --------------------------------------------------------------------------------------
030b 0038       | 8  |		.STRTAB	0x0038->0x0327							; "Setup_Machine"
030c 0043       | C  |		.STRTAB	0x0043->0x032d							; "&Login_Alive&"
030d 004e       | N  |		.STRTAB	0x004e->0x0334							; "This machine has already been assigned a Site.  Contact your Rational representative for further assistance."
030e 00b8       |    |		.STRTAB	0x00b8->0x036a							; "Answer each of the following questions."
030f 00dd       |    |		.STRTAB	0x00dd->0x037d							; "No action will be taken until all answers have been given."
0310 0115       |    |		.STRTAB	0x0115->0x039a							; "Default value for each token count is given in []"
0311 0144       | D  |		.STRTAB	0x0144->0x03b3							; "All values start at 0, except Login."
0312 0166       | f  |		.STRTAB	0x0166->0x03c5							; "End of file encountered"
0313 017b       | {  |		.STRTAB	0x017b->0x03d0							; " ["
0314 017b       | {  |		.STRTAB	0x017b->0x03d1							; "]: "
0315 017c       | |  |		.STRTAB	0x017c->0x03d3							; ": "
0316 017c       | |  |		.STRTAB	0x017c->0x03d4							; "There is no default, and null string not a valid value."
0317 01b1       |    |		.STRTAB	0x01b1->0x03ef							; "Login"
0318 01b4       |    |		.STRTAB	0x01b4->0x03f2							; "Full Session"
0319 01be       |    |		.STRTAB	0x01be->0x03f8							; "Fundamental Session"
031a 01cf       |    |		.STRTAB	0x01cf->0x0401							; "Yes"
031b 01d0       |    |		.STRTAB	0x01d0->0x0403							; "No"
031c 01d0       |    |		.STRTAB	0x01d0->0x0404							; "Site"
031d 01d2       |    |		.STRTAB	0x01d2->0x0406							; "More than one of Login, Full Session, or Fundamental Session are non-zero.  "
031e 021c       |    |		.STRTAB	0x021c->0x042c							; "This must be fixed before proceeding."
031f 023f       | ?  |		.STRTAB	0x023f->0x043e							; " Logins"
0320 0244       | D  |		.STRTAB	0x0244->0x0442							; "01/01/90"
0321 024a       | J  |		.STRTAB	0x024a->0x0446							; "Value must be in the range "
0322 0263       | c  |		.STRTAB	0x0263->0x0453							; ".."
0323 0263       | c  |		.STRTAB	0x0263->0x0454							; "Numeric value is required."
0324 027b       | {  |		.STRTAB	0x027b->0x0461							; "All answers correct"
0325 028c       |    |		.STRTAB	0x028c->0x046b							; "Y"
0326 028b       |    |		.STREND 0x028b->0x046b
0327 5365 7475  |Setu|		.STRTAB_STRINGS
046c 0000 0000  |    |		.BLANK	0000[0x4]
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug Table
0470 ; --------------------------------------------------------------------------------------
0470 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x3d44,0x0000,0x0001,0x0000
0476 8620 0188  |    |		.XXX[0x18a]
0478 6988 2a6a  |i *j|
047a 6be8 2be8  |k + |
047c aa2b e846  | + F|
047e 2002 89c9  |    |
0480 ea8b e869  |   i|
0482 882a 6a6b  | *jk|
0484 e82b e84b  | + K|
0486 e989 2a8b  |  * |
0488 e8aa 2620  |  & |
048a 020a 082a  |   *|
048c 6a68 aa6b  |jh k|
048e ea0a 492a  |  I*|
0490 c828 6b2b  | (k+|
0492 e826 2002  | &  |
0494 0a08 2a6a  |  *j|
0496 68aa 6bea  |h k |
0498 0a49 2ac8  | I* |
049a 286b 2be8  |(k+ |
049c 4620 03aa  |F   |
049e 082a 6a68  | *jh|
04a0 aa6b ea0a  | k  |
04a2 492a c828  |I* (|
04a4 6b2b e8c9  |k+  |
04a6 ea4b e989  | K  |
04a8 29a9 2a88  |) * |
04aa a88b e9ea  |    |
04ac 0620 024a  |   J|
04ae 082a 6a68  | *jh|
04b0 aa6b ea0a  | k  |
04b2 492a c828  |I* (|
04b4 6b2b e82b  |k+ +|
04b6 e846 2002  | F  |
04b8 4a6a 8828  |Jj (|
04ba 696b e9c8  |ik  |
04bc 29a8 aa6b  |)  k|
04be e9c9 ea8b  |    |
04c0 e8aa 2620  |  & |
04c2 010a 082a  |   *|
04c4 890a 6be8  |  k |
04c6 aa26 2003  | &  |
04c8 c8c8 2929  |  ))|
04ca 8a6b ea0a  | k  |
04cc 492a c828  |I* (|
04ce 6b2b e8c9  |k+  |
04d0 ea4b ea6a  | K j|
04d2 8a4a a86a  | J j|
04d4 8aaa 48ab  |  H |
04d6 e9ea 0620  |    |
04d8 020a 082a  |   *|
04da 6a6b ea0a  |jk  |
04dc 492a c828  |I* (|
04de 6b2b e849  |k+ I|
04e0 2a86 2001  |*   |
04e2 084b e84a  | K J|
04e4 aa6b e666  | k f|
04e6 4620 0108  |F   |
04e8 4be8 4aaa  |K J |
04ea 6be6 6666  |k ff|
04ec 2001 084b  |   K|
04ee e84a aa6b  | J k|
04f0 e666 8620  | f  |
04f2 0108 4be8  |  K |
04f4 4aaa 6be6  |J k |
04f6 66a6 2001  |f   |
04f8 084b e84a  | K J|
04fa aa6b e666  | k f|
04fc c620 02a9  |    |
04fe c9ea 8be8  |    |
0500 4be8 4aaa  |K J |
0502 6be6 666b  |k fk|
0504 e666 8be9  | f  |
0506 ea4b e666  | K f|
0508 c620 014a  |   J|
050a 8b2a 0bea  | *  |
050c 6a08 2a48  |j *H|
050e a666 2001  | f  |
0510 4a8b 2a0b  |J * |
0512 ea6a 082a  | j *|
0514 48a6 8620  |H   |
0516 014a 8b2a  | J *|
0518 0bea 6a08  |  j |
051a 2a48 a6a6  |*H  |
051c 2001 4a8b  |  J |
051e 2a0b ea6a  |*  j|
0520 082a 48a6  | *H |
0522 c620 0108  |    |
0524 4be8 4aaa  |K J |
0526 6be6 4626  |k F&|
0528 2002 2a48  |  *H|
052a aa6a 882a  | j *|
052c 4a88 2849  |J (I|
052e 88ab e82a  |   *|
0530 8bea 0866  |   f|
0532 2002 4a48  |  JH|
0534 aa6a 882a  | j *|
0536 4a88 2849  |J (I|
0538 88ab e82a  |   *|
053a 8be8 88a8  |    |
053c 6620 01a9  |f   |
053e 88ab 0be9  |    |
0540 2a6b e929  |*k )|
0542 aa09 ea4a  |   J|
0544 8620 01a9  |    |
0546 c9ea 8be9  |    |
0548 88ab 0bea  |    |
054a c829 8928  | ) (|
054c 8620 0269  |   i|
054e c9ea 8bea  |    |
0550 89ea 6be9  |  k |
0552 882a 8869  | * i|
0554 0bea c829  |   )|
0556 8928 8620  | (  |
0558 01aa 682a  |  h*|
055a c8a8 8be9  |    |
055c 882a 8869  | * i|
055e 08a8 8620  |    |
0560 024a 0a48  | J H|
0562 aac9 29ea  |  ) |
0564 aa69 8b2b  | i +|
0566 e988 2a88  |  * |
0568 6908 a886  |i   |
056a 2002 29a9  |  ) |
056c 286a 49eb  |(jI |
056e ea6a 8828  | j (|
0570 696b e8a9  |ik  |
0572 aa0a 8b26  |   &|
0574 2002 09c9  |    |
0576 ebe8 6a68  |  jh|
0578 2bea a9c8  |+   |
057a 88aa 48c9  |  H |
057c 89ea e620  |    |
057e 01e9 c9eb  |    |
0580 e86a 682b  | jh+|
0582 e9ea c8aa  |    |
0584 48c9 89ea  |H   |
0586 e620 01e9  |    |
0588 c9eb ea48  |   H|
058a aa69 e98a  | i  |
058c c8ab e9a9  |    |
058e 2a6a 6620  |*jf |
0590 0269 c9eb  | i  |
0592 ea89 ea6b  |   k|
0594 e9ea 0a89  |    |
0596 29a9 2b48  |) +H|
0598 2a89 29e9  |* ) |
059a c620 01c9  |    |
059c c9eb e84a  |   J|
059e 48a8 296b  |H )k|
05a0 e869 882a  | i *|
05a2 6a66 2002  |jf  |
05a4 29c9 ebe9  |)   |
05a6 2be8 4aa8  |+ J |
05a8 c8c8 aa4b  |   K|
05aa e8a9 aa0a  |    |
05ac 8b26 2001  | &  |
05ae 4a68 aa2b  |Jh +|
05b0 ea6a 082a  | j *|
05b2 48a6 2620  |H & |
05b4 03c8 892a  |   *|
05b6 6a08 2a88  |j * |
05b8 6909 29c8  |i ) |
05ba ebea 48a8  |  H |
05bc 288a 6be8  |( k |
05be 69e9 ca8a  |i   |
05c0 49e9 8bea  |I   |
05c2 0a48 a886  | H  |
05c4 2001 ca48  |   H|
05c6 a8ca 48aa  |  H |
05c8 690b e9a8  |i   |
05ca a9a9 ea4b  |   K|
05cc 2620 01aa  |&   |
05ce 6b2a 684a  |k*hJ|
05d0 aa6b ea6a  | k j|
05d2 882a 8aaa  | *  |
05d4 6620 01aa  |f   |
05d6 6b2a 684a  |k*hJ|
05d8 aa6b ea08  | k  |
05da 2869 68aa  |(ih |
05dc 8620 016a  |   j|
05de 6989 2868  |i (h|
05e0 abea 8929  |   )|
05e2 a8aa 4620  |  F |
05e4 0108 ea0b  |    |
05e6 ea89 29a8  |  ) |
05e8 aa46 2002  | F  |
05ea 69c9 ea8b  |i   |
05ec e829 cb2b  | ) +|
05ee e8a8 2a49  |  *I|
05f0 8b2b e9a8  | +  |
05f2 286a 49e6  |(jI |
05f4 2002 c9c9  |    |
05f6 ea8b ea0a  |    |
05f8 48aa c929  |H  )|
05fa eaaa 698b  |  i |
05fc 2be9 882a  |+  *|
05fe 8869 08a8  | i  |