|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0f80a5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 0380 | | .CONST 0x0380 ; 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 0047 | G | .CONST 0x0047 ; Address of begin
0009 007f | | .CONST 0x007f ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 0092 0273 | s| Action Push_String_Extended,0x273 ; "Setup_Machine"
000d e21e | | Load 0x1,0x1e
000e 02c7 | | Declare_Variable Any
000f e002 | | Load 0x0,0x2
0010 180e | | Execute Package,Field_Execute,Field_Number 0xe
0011 a403 | | Store_Unchecked 0x2,0x3
0012 4801 |H | Short_Literal 0x1
0013 e015 | | Load 0x0,0x15
0014 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0015 00e3 | | Load_Encached Natural_Cache
0016 02a0 | | Declare_Subprogram Null_Subprogram
0017 4801 |H | Short_Literal 0x1
0018 035d | ] | Declare_Type Array,Defined
0019 00d8 | | Load_Top At_Offset_0
001a 0337 | 7 | Declare_Variable Array
001b 00d8 | | Load_Top At_Offset_0
001c 0335 | 5 | Declare_Variable Array,Duplicate
001d 00cd | | Action Spare6_Action
001e e405 | | Load 0x2,0x5
001f 01d9 | | Execute Vector,Reverse_Bounds
0020 0263 | c | Execute Discrete,Above_Bound
0021 7005 |p | Jump_Nonzero 0x27
0022 4800 |H | Short_Literal 0x0
0023 e408 | | Load 0x2,0x8
0024 e406 | | Load 0x2,0x6
0025 01d6 | | Execute Vector,Field_Write
0026 3ffb |? | Loop_Increasing 0x22
0027 e405 | | Load 0x2,0x5
0028 01d4 | | Execute Vector,Structure_Write
0029 4850 |HP | Short_Literal 0x50
002a e019 | | Load 0x0,0x19
002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002c 1c08 | | Execute_Immediate Run_Utility,0x8
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0031 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0033 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0035 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0037 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0039 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
003b 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
003d 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
003f 029f 018b | | Declare_Subprogram INIT_0188,For_Call
0041 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0043 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0045 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0047 BODY_0008:
0047 e403 | | Load 0x2,0x3
0048 e5ff | | Load 0x2,-0x1
0049 e402 | | Load 0x2,0x2
004a e21f | | Load 0x1,0x1f
004b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
004c c403 | | Store 0x2,0x3
004d e403 | | Load 0x2,0x3
004e e21f | | Load 0x1,0x1f
004f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0050 8210 | | Call 0x1,0x10
0051 01db | | Execute Vector,Length
0052 6805 |h | Jump_Zero 0x58
0053 e403 | | Load 0x2,0x3
0054 0092 0274 | t| Action Push_String_Extended,0x274 ; "This machine has already been assigned a Site. Contact your Rational representative for further assistance."
0056 e21f | | Load 0x1,0x1f
0057 180d | | Execute Package,Field_Execute,Field_Number 0xd
0058 8410 | | Call 0x2,0x10
0059 0092 0275 | u| Action Push_String_Extended,0x275 ; "Answer each of the following questions."
005b e016 | | Load 0x0,0x16
005c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
005d 0092 0276 | v| Action Push_String_Extended,0x276 ; "No action will be taken until all answers have been given."
005f e016 | | Load 0x0,0x16
0060 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0061 0092 0277 | w| Action Push_String_Extended,0x277 ; "Default value for each token count is given in []"
0063 e016 | | Load 0x0,0x16
0064 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0065 0092 0278 | x| Action Push_String_Extended,0x278 ; "All values start at 0, except Login."
0067 e016 | | Load 0x0,0x16
0068 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0069 4801 |H | Short_Literal 0x1
006a e016 | | Load 0x0,0x16
006b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
006c 840b | | Call 0x2,0xb
006d 840c | | Call 0x2,0xc
006e 8412 | | Call 0x2,0x12
006f 4801 |H | Short_Literal 0x1
0070 e016 | | Load 0x0,0x16
0071 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0072 4800 |H | Short_Literal 0x0
0073 4800 |H | Short_Literal 0x0
0074 4801 |H | Short_Literal 0x1
0075 00ea | | Load_Encached Null_String_Cache
0076 00ea | | Load_Encached Null_String_Cache
0077 e015 | | Load 0x0,0x15
0078 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0079 e403 | | Load 0x2,0x3
007a 00ea | | Load_Encached Null_String_Cache
007b e402 | | Load 0x2,0x2
007c e21f | | Load 0x1,0x1f
007d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007f TRAP_0008:
007f e002 | | Load 0x0,0x2
0080 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0081 010f | | Execute Exception,Equal
0082 6806 |h | Jump_Zero 0x89
0083 e403 | | Load 0x2,0x3
0084 e402 | | Load 0x2,0x2
0085 e21f | | Load 0x1,0x1f
0086 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0087 00d8 | | Load_Top At_Offset_0
0088 0101 | | Execute Exception,Reraise
0089 e00a | | Load 0x0,0xa
008a 010f | | Execute Exception,Equal
008b 6805 |h | Jump_Zero 0x91
008c e403 | | Load 0x2,0x3
008d e402 | | Load 0x2,0x2
008e e21f | | Load 0x1,0x1f
008f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0090 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0091 00d8 | | Load_Top At_Offset_0
0092 0107 | | Execute Exception,Get_Name
0093 4950 |IP | Short_Literal 0x150
0094 495f |I_ | Short_Literal 0x15f
0095 0262 | b | Execute Discrete,In_Range
0096 6807 |h | Jump_Zero 0x9e
0097 e403 | | Load 0x2,0x3
0098 0092 0279 | y| Action Push_String_Extended,0x279 ; "End of file encountered"
009a e402 | | Load 0x2,0x2
009b e21f | | Load 0x1,0x1f
009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009e e403 | | Load 0x2,0x3
009f 4800 |H | Short_Literal 0x0
00a0 4801 |H | Short_Literal 0x1
00a1 e017 | | Load 0x0,0x17
00a2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a3 e402 | | Load 0x2,0x2
00a4 e21f | | Load 0x1,0x1f
00a5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00c1 | | .CONST 0x00c1 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0005 | | .CONST 0x0005 ; Number of locals
00ab INIT_00a8:
00ab e016 | | Load 0x0,0x16
00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ad 02c7 | | Declare_Variable Any
00ae e016 | | Load 0x0,0x16
00af 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00b0 a602 | | Store_Unchecked 0x3,0x2
00b1 00d8 | | Load_Top At_Offset_0
00b2 e016 | | Load 0x0,0x16
00b3 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00b4 00e2 | | Load_Encached Integer_Cache
00b5 03f1 | | Declare_Variable Discrete,With_Value
00b6 e016 | | Load 0x0,0x16
00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b8 02c7 | | Declare_Variable Any
00b9 e016 | | Load 0x0,0x16
00ba 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00bb a604 | | Store_Unchecked 0x3,0x4
00bc 00d8 | | Load_Top At_Offset_0
00bd e016 | | Load 0x0,0x16
00be 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00bf 00e2 | | Load_Encached Integer_Cache
00c0 03f1 | | Declare_Variable Discrete,With_Value
00c1 BODY_00a8:
00c1 e603 | | Load 0x3,0x3
00c2 0c02 | | Execute_Immediate Greater_Equal,0x2
00c3 6806 |h | Jump_Zero 0xca
00c4 00d8 | | Load_Top At_Offset_0
00c5 0c02 | | Execute_Immediate Greater_Equal,0x2
00c6 6803 |h | Jump_Zero 0xca
00c7 4801 |H | Short_Literal 0x1
00c8 e016 | | Load 0x0,0x16
00c9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 8407 | | Call 0x2,0x7
00d4 e7ff | | Load 0x3,-0x1
00d5 e016 | | Load 0x0,0x16
00d6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00d7 e7fe | | Load 0x3,-0x2
00d8 01db | | Execute Vector,Length
00d9 680a |h | Jump_Zero 0xe4
00da 0092 027a | z| Action Push_String_Extended,0x27a ; " ["
00dc e7fe | | Load 0x3,-0x2
00dd 01cc | | Execute Vector,Catenate
00de 0092 027b | {| Action Push_String_Extended,0x27b ; "]: "
00e0 01cc | | Execute Vector,Catenate
00e1 e016 | | Load 0x0,0x16
00e2 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00e3 7804 |x | Jump 0xe8
00e4 0092 027c | || Action Push_String_Extended,0x27c ; ": "
00e6 e016 | | Load 0x0,0x16
00e7 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00e8 e016 | | Load 0x0,0x16
00e9 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
00ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f6 | | .CONST 0x00f6 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e7fe | | Load 0x3,-0x2
00f4 e7ff | | Load 0x3,-0x1
00f5 8408 | | Call 0x2,0x8
00f6 BODY_00f0:
00f6 00d8 | | Load_Top At_Offset_0
00f7 01db | | Execute Vector,Length
00f8 7014 |p | Jump_Nonzero 0x10d
00f9 e7fe | | Load 0x3,-0x2
00fa 01db | | Execute Vector,Length
00fb 700b |p | Jump_Nonzero 0x107
00fc 8407 | | Call 0x2,0x7
00fd 0092 027d | }| Action Push_String_Extended,0x27d ; "There is no default, and null string not a valid value."
00ff e016 | | Load 0x0,0x16
0100 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0101 e7fd | | Load 0x3,-0x3
0102 e7fe | | Load 0x3,-0x2
0103 e7ff | | Load 0x3,-0x1
0104 8409 | | Call 0x2,0x9
0105 00d1 | | Pop_Control Pop_Count_1
0106 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0107 e7fd | | Load 0x3,-0x3
0108 e7fe | | Load 0x3,-0x2
0109 e019 | | Load 0x0,0x19
010a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010b 00d1 | | Pop_Control Pop_Count_1
010c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010d e7fd | | Load 0x3,-0x3
010e e602 | | Load 0x3,0x2
010f e019 | | Load 0x0,0x19
0110 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0111 00d1 | | Pop_Control Pop_Count_1
0112 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0129 | ) | .CONST 0x0129 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0004 | | .CONST 0x0004 ; Number of locals
011b INIT_0118:
011b 4820 |H | Short_Literal 0x20
011c 4800 |H | Short_Literal 0x0
011d 480a |H | Short_Literal 0xa
011e e7ff | | Load 0x3,-0x1
011f e405 | | Load 0x2,0x5
0120 01d7 | | Execute Vector,Field_Read
0121 8222 | " | Call 0x1,0x22
0122 e7ff | | Load 0x3,-0x1
0123 e015 | | Load 0x0,0x15
0124 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0125 8408 | | Call 0x2,0x8
0126 00e3 | | Load_Encached Natural_Cache
0127 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0129 BODY_0118:
0129 4820 |H | Short_Literal 0x20
012a e602 | | Load 0x3,0x2
012b e006 | | Load 0x0,0x6
012c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012d 01db | | Execute Vector,Length
012e 6801 |h | Jump_Zero 0x130
012f 8604 | | Call 0x3,0x4
0130 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d | = | .CONST 0x013d ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
013d BODY_0138:
013d 00cf | | Action Mark_Auxiliary
013e e406 | | Load 0x2,0x6
013f 00d8 | | Load_Top At_Offset_0
0140 e019 | | Load 0x0,0x19
0141 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0142 0092 027e | ~| Action Push_String_Extended,0x27e ; "Site"
0144 8409 | | Call 0x2,0x9
0145 00d1 | | Pop_Control Pop_Count_1
0146 00cf | | Action Mark_Auxiliary
0147 e405 | | Load 0x2,0x5
0148 01d9 | | Execute Vector,Reverse_Bounds
0149 0263 | c | Execute Discrete,Above_Bound
014a 7004 |p | Jump_Nonzero 0x14f
014b 00d8 | | Load_Top At_Offset_0
014c 840a | | Call 0x2,0xa
014d 00c8 | | Action Pop_Auxiliary_Range
014e 3ffc |? | Loop_Increasing 0x14b
014f 00ce | | Action Pop_Auxiliary
0150 8602 | | Call 0x3,0x2
0151 00c9 | | Action Pop_Auxiliary_Loop
0152 7feb | | Jump 0x13e
0153 0000 0000 | | .BLANK 0000[0x5]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0160 | ` | .CONST 0x0160 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b e406 | | Load 0x2,0x6
015c e019 | | Load 0x0,0x19
015d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015e 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
0160 BODY_0158:
0160 e225 | % | Load 0x1,0x25
0161 8211 | | Call 0x1,0x11
0162 e602 | | Load 0x3,0x2
0163 8228 | ( | Call 0x1,0x28
0164 e602 | | Load 0x3,0x2
0165 e221 | ! | Load 0x1,0x21
0166 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0167 00cf | | Action Mark_Auxiliary
0168 e405 | | Load 0x2,0x5
0169 01d9 | | Execute Vector,Reverse_Bounds
016a 0263 | c | Execute Discrete,Above_Bound
016b 7003 |p | Jump_Nonzero 0x16f
016c 8603 | | Call 0x3,0x3
016d 00c8 | | Action Pop_Auxiliary_Range
016e 3ffd |? | Loop_Increasing 0x16c
016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4820 |H | Short_Literal 0x20
0174 4800 |H | Short_Literal 0x0
0175 480a |H | Short_Literal 0xa
0176 e7ff | | Load 0x3,-0x1
0177 e006 | | Load 0x0,0x6
0178 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0179 0092 027f | | Action Push_String_Extended,0x27f ; " Logins"
017b 01cc | | Execute Vector,Catenate
017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
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 840d | | Call 0x2,0xd
0185 e008 | | Load 0x0,0x8
0186 180e | | Execute Package,Field_Execute,Field_Number 0xe
0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00cf | | Action Mark_Auxiliary
018c 4801 |H | Short_Literal 0x1
018d 4840 |H@ | Short_Literal 0x40
018e 0007 | | Action Break_Optional
018f 00d8 | | Load_Top At_Offset_0
0190 840e | | Call 0x2,0xe
0191 6802 |h | Jump_Zero 0x194
0192 00d8 | | Load_Top At_Offset_0
0193 00ca | | Action Exit_Nullary_Function
0194 00c8 | | Action Pop_Auxiliary_Range
0195 37f9 |7 | Loop_Decreasing 0x18f
0196 00ce | | Action Pop_Auxiliary
0197 4800 |H | Short_Literal 0x0
0198 00ca | | Action Exit_Nullary_Function
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ad | | .CONST 0x01ad ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 840f | | Call 0x2,0xf
01a4 00e3 | | Load_Encached Natural_Cache
01a5 03f1 | | Declare_Variable Discrete,With_Value
01a6 0092 0280 | | Action Push_String_Extended,0x280 ; "Login"
01a8 e015 | | Load 0x0,0x15
01a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
01aa e015 | | Load 0x0,0x15
01ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ac 03f1 | | Declare_Variable Discrete,With_Value
01ad BODY_01a0:
01ad e602 | | Load 0x3,0x2
01ae e603 | | Load 0x3,0x3
01af e405 | | Load 0x2,0x5
01b0 01d6 | | Execute Vector,Field_Write
01b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c2 | | .CONST 0x01c2 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0004 | | .CONST 0x0004 ; Number of locals
01bb INIT_01b8:
01bb e7ff | | Load 0x3,-0x1
01bc 840d | | Call 0x2,0xd
01bd 8211 | | Call 0x1,0x11
01be 00e5 | | Load_Encached Long_Integer_Cache
01bf 03f1 | | Declare_Variable Discrete,With_Value
01c0 0092 0281 | | Action Push_String_Extended,0x281 ; "01/01/90"
01c2 BODY_01b8:
01c2 00d8 | | Load_Top At_Offset_0
01c3 e604 | | Load 0x3,0x4
01c4 e603 | | Load 0x3,0x3
01c5 e602 | | Load 0x3,0x2
01c6 e008 | | Load 0x0,0x8
01c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c8 e602 | | Load 0x3,0x2
01c9 e008 | | Load 0x0,0x8
01ca 180d | | Execute Package,Field_Execute,Field_Number 0xd
01cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5 | | .CONST 0x01d5 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00e1 | | Load_Encached Boolean_Cache
01d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01d5 BODY_01d0:
01d5 00cf | | Action Mark_Auxiliary
01d6 4801 |H | Short_Literal 0x1
01d7 4840 |H@ | Short_Literal 0x40
01d8 0007 | | Action Break_Optional
01d9 00d8 | | Load_Top At_Offset_0
01da 840e | | Call 0x2,0xe
01db 6804 |h | Jump_Zero 0x1e0
01dc 4801 |H | Short_Literal 0x1
01dd a602 | | Store_Unchecked 0x3,0x2
01de 00d8 | | Load_Top At_Offset_0
01df 8411 | | Call 0x2,0x11
01e0 00c8 | | Action Pop_Auxiliary_Range
01e1 37f7 |7 | Loop_Decreasing 0x1d9
01e2 00ce | | Action Pop_Auxiliary
01e3 00d8 | | Load_Top At_Offset_0
01e4 6804 |h | Jump_Zero 0x1e9
01e5 e008 | | Load 0x0,0x8
01e6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e7 e008 | | Load 0x0,0x8
01e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0217 | | .CONST 0x0217 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e602 | | Load 0x3,0x2
01f4 00e2 | | Load_Encached Integer_Cache
01f5 00e0 | | Load_Encached Standard_Cache
01f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01f7 c603 | | Store 0x3,0x3
01f8 e603 | | Load 0x3,0x3
01f9 e21d | | Load 0x1,0x1d
01fa 0260 | ` | Execute Discrete,In_Type
01fb 6805 |h | Jump_Zero 0x201
01fc e603 | | Load 0x3,0x3
01fd e7ff | | Load 0x3,-0x1
01fe e405 | | Load 0x2,0x5
01ff 01d6 | | Execute Vector,Field_Write
0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0201 482e |H. | Short_Literal 0x2e
0202 0092 0282 | | Action Push_String_Extended,0x282 ; "Value must be in the range "
0204 4820 |H | Short_Literal 0x20
0205 4800 |H | Short_Literal 0x0
0206 480a |H | Short_Literal 0xa
0207 4800 |H | Short_Literal 0x0
0208 8222 | " | Call 0x1,0x22
0209 01cc | | Execute Vector,Catenate
020a 0092 0283 | | Action Push_String_Extended,0x283 ; ".."
020c 01cc | | Execute Vector,Catenate
020d 4820 |H | Short_Literal 0x20
020e 4800 |H | Short_Literal 0x0
020f 480a |H | Short_Literal 0xa
0210 4840 |H@ | Short_Literal 0x40
0211 8222 | " | Call 0x1,0x22
0212 01cc | | Execute Vector,Catenate
0213 01cb | | Execute Vector,Append
0214 e016 | | Load 0x0,0x16
0215 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0217 TRAP_01f0:
0217 010e | | Execute Exception,Is_Constraint_Error
0218 6807 |h | Jump_Zero 0x220
0219 0092 0284 | | Action Push_String_Extended,0x284 ; "Numeric value is required."
021b e016 | | Load 0x0,0x16
021c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
021d e7ff | | Load 0x3,-0x1
021e 840a | | Call 0x2,0xa
021f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0220 0100 | | Execute Exception,Raise
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0233 | 3 | .CONST 0x0233 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b 4820 |H | Short_Literal 0x20
022c 0092 0285 | | Action Push_String_Extended,0x285 ; "Yes"
022e 0092 0286 | | Action Push_String_Extended,0x286 ; "All answers correct"
0230 8408 | | Call 0x2,0x8
0231 e006 | | Load 0x0,0x6
0232 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0233 BODY_0228:
0233 00d8 | | Load_Top At_Offset_0
0234 01db | | Execute Vector,Length
0235 680e |h | Jump_Zero 0x244
0236 4801 |H | Short_Literal 0x1
0237 0092 0287 | | Action Push_String_Extended,0x287 ; "Y"
0239 e802 | | Load 0x4,0x2
023a e006 | | Load 0x0,0x6
023b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
023c 7007 |p | Jump_Nonzero 0x244
023d 4801 |H | Short_Literal 0x1
023e 0092 0285 | | Action Push_String_Extended,0x285 ; "Yes"
0240 e802 | | Load 0x4,0x2
0241 e006 | | Load 0x0,0x6
0242 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0243 6802 |h | Jump_Zero 0x246
0244 00cc | | Action Pop_Block
0245 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0246 4801 |H | Short_Literal 0x1
0247 e016 | | Load 0x0,0x16
0248 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0249 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0256 | V | .CONST 0x0256 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0002 | | .CONST 0x0002 ; Number of locals
0253 INIT_0250:
0253 e606 | | Load 0x3,0x6
0254 e015 | | Load 0x0,0x15
0255 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0256 BODY_0250:
0256 e606 | | Load 0x3,0x6
0257 e405 | | Load 0x2,0x5
0258 01d7 | | Execute Vector,Field_Read
0259 e802 | | Load 0x4,0x2
025a e015 | | Load 0x0,0x15
025b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025c e606 | | Load 0x3,0x6
025d e405 | | Load 0x2,0x5
025e 01d7 | | Execute Vector,Field_Read
025f 0c01 | | Execute_Immediate Greater_Equal,0x1
0260 680d |h | Jump_Zero 0x26e
0261 00d8 | | Load_Top At_Offset_0
0262 e008 | | Load 0x0,0x8
0263 180e | | Execute Package,Field_Execute,Field_Number 0xe
0264 7009 |p | Jump_Nonzero 0x26e
0265 00ea | | Load_Encached Null_String_Cache
0266 00ea | | Load_Encached Null_String_Cache
0267 8211 | | Call 0x1,0x11
0268 e802 | | Load 0x4,0x2
0269 e008 | | Load 0x0,0x8
026a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
026b e802 | | Load 0x4,0x2
026c e008 | | Load 0x0,0x8
026d 180d | | Execute Package,Field_Execute,Field_Number 0xd
026e 480c |H | Short_Literal 0xc
026f e802 | | Load 0x4,0x2
0270 e015 | | Load 0x0,0x15
0271 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0272 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0273 ; --------------------------------------------------------------------------------------
0273 ; STRING TABLE
0273 ; --------------------------------------------------------------------------------------
0273 002c | , | .STRTAB 0x002c->0x0289 ; "Setup_Machine"
0274 0037 | 7 | .STRTAB 0x0037->0x028f ; "This machine has already been assigned a Site. Contact your Rational representative for further assistance."
0275 00a1 | | .STRTAB 0x00a1->0x02c5 ; "Answer each of the following questions."
0276 00c6 | | .STRTAB 0x00c6->0x02d9 ; "No action will be taken until all answers have been given."
0277 00fe | | .STRTAB 0x00fe->0x02f6 ; "Default value for each token count is given in []"
0278 012d | - | .STRTAB 0x012d->0x030e ; "All values start at 0, except Login."
0279 014f | O | .STRTAB 0x014f->0x0320 ; "End of file encountered"
027a 0164 | d | .STRTAB 0x0164->0x032c ; " ["
027b 0164 | d | .STRTAB 0x0164->0x032d ; "]: "
027c 0165 | e | .STRTAB 0x0165->0x032e ; ": "
027d 0165 | e | .STRTAB 0x0165->0x032f ; "There is no default, and null string not a valid value."
027e 019a | | .STRTAB 0x019a->0x034b ; "Site"
027f 019c | | .STRTAB 0x019c->0x034d ; " Logins"
0280 01a1 | | .STRTAB 0x01a1->0x0350 ; "Login"
0281 01a4 | | .STRTAB 0x01a4->0x0353 ; "01/01/90"
0282 01aa | | .STRTAB 0x01aa->0x0357 ; "Value must be in the range "
0283 01c3 | | .STRTAB 0x01c3->0x0364 ; ".."
0284 01c3 | | .STRTAB 0x01c3->0x0365 ; "Numeric value is required."
0285 01db | | .STRTAB 0x01db->0x0372 ; "Yes"
0286 01dc | | .STRTAB 0x01dc->0x0374 ; "All answers correct"
0287 01ed | | .STRTAB 0x01ed->0x037d ; "Y"
0288 01ec | | .STREND 0x01ec->0x037e
0289 5365 7475 |Setu| .STRTAB_STRINGS
037e 0000 0000 | | .XXX[0x2]
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug Table
0380 ; --------------------------------------------------------------------------------------
0380 0004 000e | | .DEBUG4 0x0004,0x000e,0xd0d3,0x0000,0x0001,0x0000
0386 0008 7996 | y | .XXX[0x41]
0388 b400 0000 | |
038a 0008 b5ba | |
038c e800 1952 | R|
038e 6804 0002 |h |
0390 f5d8 1081 | |
0392 0b80 0080 | |
0394 005e bb00 | ^ |
0396 0074 a781 | t |
0398 0f34 4600 | 4F |
039a 0000 0001 | |
039c 0f33 9600 | 3 |
039e 0000 0001 | |
03a0 173a ef80 | : |
03a2 032a 4d00 | *M |
03a4 8000 5ebb | ^ |
03a6 0210 2170 | !p|
03a8 0018 000b | |
03aa d760 05d7 | ` |
03ac 26b8 000d |& |
03ae de60 21e5 | `! |
03b0 b2d0 21e5 | ! |
03b2 f2d0 0247 | G|
03b4 35d0 000d |5 |
03b6 8970 21e5 | p! |
03b8 bad0 21e5 | ! |
03ba dad0 02c2 | |
03bc 2c08 000d |, |
03be 8f90 21e5 | ! |
03c0 c2d0 21e5 | ! |
03c2 cad0 10cf | |
03c4 5538 000e |U8 |
03c6 91b0 | |
03c7 0000 0000 | | .BLANK 0000[0x4]
03cb 02c4 0270 | p| .XXX[0xc]
03cd 000d 8ff0 | |
03cf 0000 0000 | |
03d1 21e5 d2d8 |! |
03d3 0247 2b50 | G+P|
03d5 000d 8950 | P|
03d7 0000 0000 | | .BLANK 0000[0x4]
03db 05c3 cf58 | X| .XXX[0xc]
03dd 000d da30 | 0|
03df 21e5 e2d0 |! |
03e1 21e5 ead0 |! |
03e3 05ae b210 | |
03e5 000d d7d0 | |
03e7 0000 0000 | | .BLANK 0000[0x4]
03eb 05d1 ea10 | | .XXX[0x4]
03ed 000d dd80 | |
03ef 0000 0000 | | .BLANK 0000[0x4]
03f3 0247 72d0 | Gr | .XXX[0xd]
03f5 000d 87a0 | |
03f7 21e5 fad0 |! |
03f9 21e6 12d8 |! |
03fb 05aa e368 | h|
03fd 000d d770 | p|
03ff 21e6 |! |