|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦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 08c8 | | .CONST 0x08c8 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b5 | | .CONST 0x00b5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4805 |H | Short_Literal 0x5 000d 00e9 | | Load_Encached String_Cache 000e 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 000f 52ac |R | Indirect_Literal Any,0x2bc,{0x43543530, 0x30202020} 0010 00e2 | | Load_Encached Integer_Cache 0011 0417 | | Execute_Immediate Set_Value_Visible_Unchecked,0x17 0012 00e2 | | Load_Encached Integer_Cache 0013 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0014 e20e | | Load 0x1,0xe 0015 00e2 | | Load_Encached Integer_Cache 0016 03f0 | | Declare_Variable Discrete,Visible,With_Value 0017 00e2 | | Load_Encached Integer_Cache 0018 043d | = | Execute_Immediate Set_Value_Visible_Unchecked,0x3d 0019 629e |b | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0000c000} 001a 00e7 | | Load_Encached Duration_Cache 001b 03f0 | | Declare_Variable Discrete,Visible,With_Value 001c 4801 |H | Short_Literal 0x1 001d 4850 |HP | Short_Literal 0x50 001e 00e9 | | Load_Encached String_Cache 001f 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0020 4801 |H | Short_Literal 0x1 0021 4850 |HP | Short_Literal 0x50 0022 00e9 | | Load_Encached String_Cache 0023 0334 | 4 | Declare_Variable Array,With_Constraint 0024 4850 |HP | Short_Literal 0x50 0025 4801 |H | Short_Literal 0x1 0026 4820 |H | Short_Literal 0x20 0027 e216 | | Load 0x1,0x16 0028 e214 | | Load 0x1,0x14 0029 01d6 | | Execute Vector,Field_Write 002a 3ffb |? | Loop_Increasing 0x26 002b e213 | | Load 0x1,0x13 002c 01d4 | | Execute Vector,Structure_Write 002d e001 | | Load 0x0,0x1 002e e002 | | Load 0x0,0x2 002f 00e2 | | Load_Encached Integer_Cache 0030 e003 | | Load 0x0,0x3 0031 1b50 | P | Execute Package,Field_Read,Field_Number 0x50 0032 0386 | | Declare_Variable Package,Visible 0033 00d8 | | Load_Top At_Offset_0 0034 020f | | Execute Module,Activate 0035 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0037 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0039 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 003b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 003d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 003f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0041 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0043 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0045 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0047 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0049 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 004b 0007 | | Action Break_Optional 004c 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 004e 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0050 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0052 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0054 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0056 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0058 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 005a 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 005c 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 005e 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0060 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0062 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0064 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 0066 00c4 | | Action Make_Default 0067 00c4 | | Action Make_Default 0068 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 006a c22e | . | Store 0x1,0x2e 006b 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 006d c22d | - | Store 0x1,0x2d 006e 00bf | | Action Accept_Activation 006f 0007 | | Action Break_Optional 0070 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0071 00c7 | | Action Elaborate_Subprogram 0072 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0073 00c7 | | Action Elaborate_Subprogram 0074 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0075 00c7 | | Action Elaborate_Subprogram 0076 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0077 00c7 | | Action Elaborate_Subprogram 0078 0007 | | Action Break_Optional 0079 1d19 | | Execute_Immediate Reference_Lex_1,0x19 007a 00c7 | | Action Elaborate_Subprogram 007b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 007c 00c7 | | Action Elaborate_Subprogram 007d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 007e 00c7 | | Action Elaborate_Subprogram 007f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0080 00c7 | | Action Elaborate_Subprogram 0081 0007 | | Action Break_Optional 0082 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0083 00c7 | | Action Elaborate_Subprogram 0084 0007 | | Action Break_Optional 0085 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0086 00c7 | | Action Elaborate_Subprogram 0087 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0088 00c7 | | Action Elaborate_Subprogram 0089 0007 | | Action Break_Optional 008a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 008b 00c7 | | Action Elaborate_Subprogram 008c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 008d 00c7 | | Action Elaborate_Subprogram 008e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 008f 00c7 | | Action Elaborate_Subprogram 0090 0007 | | Action Break_Optional 0091 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0092 00c7 | | Action Elaborate_Subprogram 0093 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0094 00c7 | | Action Elaborate_Subprogram 0095 0007 | | Action Break_Optional 0096 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0097 00c7 | | Action Elaborate_Subprogram 0098 0007 | | Action Break_Optional 0099 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 009a 00c7 | | Action Elaborate_Subprogram 009b 0007 | | Action Break_Optional 009c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 009d 00c7 | | Action Elaborate_Subprogram 009e 0007 | | Action Break_Optional 009f 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00a0 00c7 | | Action Elaborate_Subprogram 00a1 0007 | | Action Break_Optional 00a2 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00a3 00c7 | | Action Elaborate_Subprogram 00a4 0007 | | Action Break_Optional 00a5 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00a6 00c7 | | Action Elaborate_Subprogram 00a7 0007 | | Action Break_Optional 00a8 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00a9 00c7 | | Action Elaborate_Subprogram 00aa 0007 | | Action Break_Optional 00ab 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 00ac 00c7 | | Action Elaborate_Subprogram 00ad 0007 | | Action Break_Optional 00ae 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 00af 00c7 | | Action Elaborate_Subprogram 00b0 0007 | | Action Break_Optional 00b1 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00b2 00c7 | | Action Elaborate_Subprogram 00b3 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call 00b5 BODY_0008: 00b5 0007 | | Action Break_Optional 00b6 822f | / | Call 0x1,0x2f 00b7 00bc | | Action Signal_Activated 00b8 00bb | | Action Signal_Completion 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00ca | | .CONST 0x00ca ; Address of begin 00c1 00da | | .CONST 0x00da ; Address of exception handler 00c2 0005 | | .CONST 0x0005 ; Number of locals 00c3 INIT_00c0: 00c3 0007 | | Action Break_Optional 00c4 00e2 | | Load_Encached Integer_Cache 00c5 00e2 | | Load_Encached Integer_Cache 00c6 00e8 | | Load_Encached Character_Cache 00c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c8 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 00ca BODY_00c0: 00ca 00cf | | Action Mark_Auxiliary 00cb 0007 | | Action Break_Optional 00cc 8405 | | Call 0x2,0x5 00cd 00c9 | | Action Pop_Auxiliary_Loop 00ce 7ffd | | Jump 0xcc 00cf 00ce | | Action Pop_Auxiliary 00d0 e5fe | | Load 0x2,-0x2 00d1 0c20 | | Execute_Immediate Greater_Equal,0x20 00d2 e5fe | | Load 0x2,-0x2 00d3 0d7f | | Execute_Immediate Less,0x7f 00d4 0279 | y | Execute Discrete,And 00d5 6803 |h | Jump_Zero 0xd9 00d6 e5ff | | Load 0x2,-0x1 00d7 0f01 | | Execute_Immediate Equal,0x1 00d8 6800 |h | Jump_Zero 0xd9 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00da TRAP_00c0: 00da 0007 | | Action Break_Optional 00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 00ec | | .CONST 0x00ec ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ec TRAP_00e8: 00ec 0007 | | Action Break_Optional 00ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f4 0000 0000 | | .BLANK 0000[0x4] 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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 011f | | .CONST 0x011f ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e5ff | | Load 0x2,-0x1 011c e003 | | Load 0x0,0x3 011d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011f TRAP_0118: 011f 0007 | | Action Break_Optional 0120 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0131 | 1 | .CONST 0x0131 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e5ff | | Load 0x2,-0x1 012c 00e0 | | Load_Encached Standard_Cache 012d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012e e003 | | Load 0x0,0x3 012f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0130 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0131 TRAP_0128: 0131 0007 | | Action Break_Optional 0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0133 0000 0000 | | .BLANK 0000[0x5] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 013e | > | .CONST 0x013e ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b e5fc | | Load 0x2,-0x4 013c 821d | | Call 0x1,0x1d 013d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 013e TRAP_0138: 013e 0007 | | Action Break_Optional 013f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0144 | D | .CONST 0x0144 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0144 TRAP_0140: 0144 0007 | | Action Break_Optional 0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4801 |H | Short_Literal 0x1 014c e003 | | Load 0x0,0x3 014d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0157 | W | .CONST 0x0157 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0155 BODY_0150: 0155 8402 | | Call 0x2,0x2 0156 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0157 TRAP_0150: 0157 0007 | | Action Break_Optional 0158 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0159 0000 0000 | | .BLANK 0000[0x7] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0164 0000 0000 | | .BLANK 0000[0x4] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 016f | o | .CONST 0x016f ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e5ff | | Load 0x2,-0x1 016c 821d | | Call 0x1,0x1d 016d 8221 | ! | Call 0x1,0x21 016e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 016f TRAP_0168: 016f 0007 | | Action Break_Optional 0170 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017d | } | .CONST 0x017d ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call 017d BODY_0178: 017d 8402 | | Call 0x2,0x2 017e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0185 | | .CONST 0x0185 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 029f 041b | | Declare_Subprogram INIT_0418,For_Call 0185 BODY_0180: 0185 8402 | | Call 0x2,0x2 0186 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018d | | .CONST 0x018d ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call 018d BODY_0188: 018d e5fe | | Load 0x2,-0x2 018e 01db | | Execute Vector,Length 018f 0c51 | Q | Execute_Immediate Greater_Equal,0x51 0190 6809 |h | Jump_Zero 0x19a 0191 4801 |H | Short_Literal 0x1 0192 4850 |HP | Short_Literal 0x50 0193 e213 | | Load 0x1,0x13 0194 01cf | | Execute Vector,Slice_Read 0195 4801 |H | Short_Literal 0x1 0196 4850 |HP | Short_Literal 0x50 0197 e5fe | | Load 0x2,-0x2 0198 01ce | | Execute Vector,Slice_Write 0199 780a |x | Jump 0x1a4 019a 4801 |H | Short_Literal 0x1 019b e5fe | | Load 0x2,-0x2 019c 01db | | Execute Vector,Length 019d e213 | | Load 0x1,0x13 019e 01cf | | Execute Vector,Slice_Read 019f 4801 |H | Short_Literal 0x1 01a0 e5fe | | Load 0x2,-0x2 01a1 01db | | Execute Vector,Length 01a2 e5fe | | Load 0x2,-0x2 01a3 01ce | | Execute Vector,Slice_Write 01a4 4800 |H | Short_Literal 0x0 01a5 a5fd | | Store_Unchecked 0x2,-0x3 01a6 00cf | | Action Mark_Auxiliary 01a7 0007 | | Action Break_Optional 01a8 8402 | | Call 0x2,0x2 01a9 00c9 | | Action Pop_Auxiliary_Loop 01aa 7ffd | | Jump 0x1a8 01ab 00ce | | Action Pop_Auxiliary 01ac e5fd | | Load 0x2,-0x3 01ad 0a01 | | Execute_Immediate Plus,0x1 01ae 0248 | H | Execute Discrete,Check_In_Integer 01af a5fd | | Store_Unchecked 0x2,-0x3 01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bd | | .CONST 0x01bd ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 029f 046b | k| Declare_Subprogram INIT_0468,For_Call 01bd BODY_01b8: 01bd e5fe | | Load 0x2,-0x2 01be 01db | | Execute Vector,Length 01bf 0c51 | Q | Execute_Immediate Greater_Equal,0x51 01c0 6809 |h | Jump_Zero 0x1ca 01c1 4801 |H | Short_Literal 0x1 01c2 4850 |HP | Short_Literal 0x50 01c3 e213 | | Load 0x1,0x13 01c4 01cf | | Execute Vector,Slice_Read 01c5 4801 |H | Short_Literal 0x1 01c6 4850 |HP | Short_Literal 0x50 01c7 e5fe | | Load 0x2,-0x2 01c8 01ce | | Execute Vector,Slice_Write 01c9 780a |x | Jump 0x1d4 01ca 4801 |H | Short_Literal 0x1 01cb e5fe | | Load 0x2,-0x2 01cc 01db | | Execute Vector,Length 01cd e213 | | Load 0x1,0x13 01ce 01cf | | Execute Vector,Slice_Read 01cf 4801 |H | Short_Literal 0x1 01d0 e5fe | | Load 0x2,-0x2 01d1 01db | | Execute Vector,Length 01d2 e5fe | | Load 0x2,-0x2 01d3 01ce | | Execute Vector,Slice_Write 01d4 4800 |H | Short_Literal 0x0 01d5 a5fd | | Store_Unchecked 0x2,-0x3 01d6 4800 |H | Short_Literal 0x0 01d7 a5fc | | Store_Unchecked 0x2,-0x4 01d8 00cf | | Action Mark_Auxiliary 01d9 0007 | | Action Break_Optional 01da 8402 | | Call 0x2,0x2 01db 00c9 | | Action Pop_Auxiliary_Loop 01dc 7ffd | | Jump 0x1da 01dd 00ce | | Action Pop_Auxiliary 01de e5fd | | Load 0x2,-0x3 01df 0a01 | | Execute_Immediate Plus,0x1 01e0 0248 | H | Execute Discrete,Check_In_Integer 01e1 a5fd | | Store_Unchecked 0x2,-0x3 01e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ed | | .CONST 0x01ed ; Address of begin 01e9 02b4 | | .CONST 0x02b4 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb 00e8 | | Load_Encached Character_Cache 01ec 00e2 | | Load_Encached Integer_Cache 01ed BODY_01e8: 01ed 4801 |H | Short_Literal 0x1 01ee e5fe | | Load 0x2,-0x2 01ef 01db | | Execute Vector,Length 01f0 e213 | | Load 0x1,0x13 01f1 01cf | | Execute Vector,Slice_Read 01f2 4801 |H | Short_Literal 0x1 01f3 e5fe | | Load 0x2,-0x2 01f4 01db | | Execute Vector,Length 01f5 e5fe | | Load 0x2,-0x2 01f6 01ce | | Execute Vector,Slice_Write 01f7 4800 |H | Short_Literal 0x0 01f8 a5fd | | Store_Unchecked 0x2,-0x3 01f9 4800 |H | Short_Literal 0x0 01fa a403 | | Store_Unchecked 0x2,0x3 01fb 00cf | | Action Mark_Auxiliary 01fc 0007 | | Action Break_Optional 01fd e402 | | Load 0x2,0x2 01fe e5ff | | Load 0x2,-0x1 01ff 8215 | | Call 0x1,0x15 0200 c402 | | Store 0x2,0x2 0201 e402 | | Load 0x2,0x2 0202 0f1b | | Execute_Immediate Equal,0x1b 0203 6802 |h | Jump_Zero 0x206 0204 487c |H| | Short_Literal 0x7c 0205 a402 | | Store_Unchecked 0x2,0x2 0206 e402 | | Load 0x2,0x2 0207 0f7f | | Execute_Immediate Equal,0x7f 0208 6820 |h | Jump_Zero 0x229 0209 e403 | | Load 0x2,0x3 020a 0c01 | | Execute_Immediate Greater_Equal,0x1 020b 689b |h | Jump_Zero 0x2a7 020c e5ff | | Load 0x2,-0x1 020d 0f01 | | Execute_Immediate Equal,0x1 020e 6809 |h | Jump_Zero 0x218 020f 0092 0780 | | Action Push_String_Extended,0x780 ; "\x1b[1D" 0211 8220 | | Call 0x1,0x20 0212 0092 0781 | | Action Push_String_Extended,0x781 ; " " 0214 8220 | | Call 0x1,0x20 0215 0092 0780 | | Action Push_String_Extended,0x780 ; "\x1b[1D" 0217 8220 | | Call 0x1,0x20 0218 4820 |H | Short_Literal 0x20 0219 e403 | | Load 0x2,0x3 021a e5fe | | Load 0x2,-0x2 021b 01d6 | | Execute Vector,Field_Write 021c e403 | | Load 0x2,0x3 021d e5fd | | Load 0x2,-0x3 021e 027f | | Execute Discrete,Equal 021f 6804 |h | Jump_Zero 0x224 0220 e5fd | | Load 0x2,-0x3 0221 0aff | | Execute_Immediate Plus,-0x1 0222 0248 | H | Execute Discrete,Check_In_Integer 0223 a5fd | | Store_Unchecked 0x2,-0x3 0224 e403 | | Load 0x2,0x3 0225 0aff | | Execute_Immediate Plus,-0x1 0226 0248 | H | Execute Discrete,Check_In_Integer 0227 a403 | | Store_Unchecked 0x2,0x3 0228 787e |x~ | Jump 0x2a7 0229 e402 | | Load 0x2,0x2 022a 0f19 | | Execute_Immediate Equal,0x19 022b 680e |h | Jump_Zero 0x23a 022c e403 | | Load 0x2,0x3 022d 0c01 | | Execute_Immediate Greater_Equal,0x1 022e 6878 |hx | Jump_Zero 0x2a7 022f e5ff | | Load 0x2,-0x1 0230 0f01 | | Execute_Immediate Equal,0x1 0231 6803 |h | Jump_Zero 0x235 0232 0092 0780 | | Action Push_String_Extended,0x780 ; "\x1b[1D" 0234 8220 | | Call 0x1,0x20 0235 e403 | | Load 0x2,0x3 0236 0aff | | Execute_Immediate Plus,-0x1 0237 0248 | H | Execute Discrete,Check_In_Integer 0238 a403 | | Store_Unchecked 0x2,0x3 0239 786d |xm | Jump 0x2a7 023a e402 | | Load 0x2,0x2 023b 0f18 | | Execute_Immediate Equal,0x18 023c 680e |h | Jump_Zero 0x24b 023d e403 | | Load 0x2,0x3 023e 0d51 | Q | Execute_Immediate Less,0x51 023f 6867 |hg | Jump_Zero 0x2a7 0240 e5ff | | Load 0x2,-0x1 0241 0f01 | | Execute_Immediate Equal,0x1 0242 6803 |h | Jump_Zero 0x246 0243 0092 0782 | | Action Push_String_Extended,0x782 ; "\x1b[1C" 0245 8220 | | Call 0x1,0x20 0246 e403 | | Load 0x2,0x3 0247 0a01 | | Execute_Immediate Plus,0x1 0248 0248 | H | Execute Discrete,Check_In_Integer 0249 a403 | | Store_Unchecked 0x2,0x3 024a 785c |x\ | Jump 0x2a7 024b e402 | | Load 0x2,0x2 024c 0f15 | | Execute_Immediate Equal,0x15 024d 6823 |h# | Jump_Zero 0x271 024e 00cf | | Action Mark_Auxiliary 024f e403 | | Load 0x2,0x3 0250 4801 |H | Short_Literal 0x1 0251 0263 | c | Execute Discrete,Above_Bound 0252 700e |p | Jump_Nonzero 0x261 0253 e5ff | | Load 0x2,-0x1 0254 0f01 | | Execute_Immediate Equal,0x1 0255 6809 |h | Jump_Zero 0x25f 0256 0092 0780 | | Action Push_String_Extended,0x780 ; "\x1b[1D" 0258 8220 | | Call 0x1,0x20 0259 0092 0781 | | Action Push_String_Extended,0x781 ; " " 025b 8220 | | Call 0x1,0x20 025c 0092 0780 | | Action Push_String_Extended,0x780 ; "\x1b[1D" 025e 8220 | | Call 0x1,0x20 025f 00c8 | | Action Pop_Auxiliary_Range 0260 3ff2 |? | Loop_Increasing 0x253 0261 00ce | | Action Pop_Auxiliary 0262 4800 |H | Short_Literal 0x0 0263 a403 | | Store_Unchecked 0x2,0x3 0264 e403 | | Load 0x2,0x3 0265 a5fd | | Store_Unchecked 0x2,-0x3 0266 4801 |H | Short_Literal 0x1 0267 e5fe | | Load 0x2,-0x2 0268 01db | | Execute Vector,Length 0269 e213 | | Load 0x1,0x13 026a 01cf | | Execute Vector,Slice_Read 026b 4801 |H | Short_Literal 0x1 026c e5fe | | Load 0x2,-0x2 026d 01db | | Execute Vector,Length 026e e5fe | | Load 0x2,-0x2 026f 01ce | | Execute Vector,Slice_Write 0270 7836 |x6 | Jump 0x2a7 0271 e402 | | Load 0x2,0x2 0272 0f0d | | Execute_Immediate Equal,0xd 0273 e402 | | Load 0x2,0x2 0274 0f0a | | Execute_Immediate Equal,0xa 0275 0278 | x | Execute Discrete,Or 0276 681a |h | Jump_Zero 0x291 0277 e5fd | | Load 0x2,-0x3 0278 e403 | | Load 0x2,0x3 0279 027d | } | Execute Discrete,Greater 027a 680b |h | Jump_Zero 0x286 027b e402 | | Load 0x2,0x2 027c e5fd | | Load 0x2,-0x3 027d 0a01 | | Execute_Immediate Plus,0x1 027e 0248 | H | Execute Discrete,Check_In_Integer 027f e5fe | | Load 0x2,-0x2 0280 01d6 | | Execute Vector,Field_Write 0281 e5fd | | Load 0x2,-0x3 0282 0a01 | | Execute_Immediate Plus,0x1 0283 0248 | H | Execute Discrete,Check_In_Integer 0284 a5fd | | Store_Unchecked 0x2,-0x3 0285 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0286 e403 | | Load 0x2,0x3 0287 0a01 | | Execute_Immediate Plus,0x1 0288 0248 | H | Execute Discrete,Check_In_Integer 0289 a403 | | Store_Unchecked 0x2,0x3 028a e402 | | Load 0x2,0x2 028b e403 | | Load 0x2,0x3 028c e5fe | | Load 0x2,-0x2 028d 01d6 | | Execute Vector,Field_Write 028e e403 | | Load 0x2,0x3 028f a5fd | | Store_Unchecked 0x2,-0x3 0290 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0291 e402 | | Load 0x2,0x2 0292 0c20 | | Execute_Immediate Greater_Equal,0x20 0293 e402 | | Load 0x2,0x2 0294 0d7f | | Execute_Immediate Less,0x7f 0295 0279 | y | Execute Discrete,And 0296 680f |h | Jump_Zero 0x2a6 0297 e403 | | Load 0x2,0x3 0298 0a01 | | Execute_Immediate Plus,0x1 0299 0248 | H | Execute Discrete,Check_In_Integer 029a a403 | | Store_Unchecked 0x2,0x3 029b e402 | | Load 0x2,0x2 029c e403 | | Load 0x2,0x3 029d e5fe | | Load 0x2,-0x2 029e 01d6 | | Execute Vector,Field_Write 029f e403 | | Load 0x2,0x3 02a0 e5fd | | Load 0x2,-0x3 02a1 027d | } | Execute Discrete,Greater 02a2 6804 |h | Jump_Zero 0x2a7 02a3 e403 | | Load 0x2,0x3 02a4 a5fd | | Store_Unchecked 0x2,-0x3 02a5 7801 |x | Jump 0x2a7 02a6 0007 | | Action Break_Optional 02a7 e403 | | Load 0x2,0x3 02a8 e5fe | | Load 0x2,-0x2 02a9 01db | | Execute Vector,Length 02aa 027f | | Execute Discrete,Equal 02ab e403 | | Load 0x2,0x3 02ac e5fe | | Load 0x2,-0x2 02ad 01db | | Execute Vector,Length 02ae 027d | } | Execute Discrete,Greater 02af 0278 | x | Execute Discrete,Or 02b0 6801 |h | Jump_Zero 0x2b2 02b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b2 00c9 | | Action Pop_Auxiliary_Loop 02b3 7f49 | I | Jump 0x1fd 02b4 TRAP_01e8: 02b4 0007 | | Action Break_Optional 02b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b6 0000 0000 | | .XXX[0x2] 02b8 0000 0000 | | .LITERAL {0x00000000, 0x0000c000} 02bc 4354 3530 |CT50| .LITERAL {0x43543530, 0x30202020} 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c5 | | .CONST 0x02c5 ; Address of begin 02c1 0300 | | .CONST 0x0300 ; Address of exception handler 02c2 0002 | | .CONST 0x0002 ; Number of locals 02c3 INIT_02c0: 02c3 00e2 | | Load_Encached Integer_Cache 02c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02c5 BODY_02c0: 02c5 00cf | | Action Mark_Auxiliary 02c6 0007 | | Action Break_Optional 02c7 e5ff | | Load 0x2,-0x1 02c8 4fff |O | Short_Literal -0x1 02c9 027f | | Execute Discrete,Equal 02ca 6804 |h | Jump_Zero 0x2cf 02cb e5fc | | Load 0x2,-0x4 02cc 01db | | Execute Vector,Length 02cd a402 | | Store_Unchecked 0x2,0x2 02ce 7802 |x | Jump 0x2d1 02cf e5ff | | Load 0x2,-0x1 02d0 a402 | | Store_Unchecked 0x2,0x2 02d1 e402 | | Load 0x2,0x2 02d2 0d01 | | Execute_Immediate Less,0x1 02d3 6801 |h | Jump_Zero 0x2d5 02d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02d5 e402 | | Load 0x2,0x2 02d6 e5fc | | Load 0x2,-0x4 02d7 01db | | Execute Vector,Length 02d8 027d | } | Execute Discrete,Greater 02d9 6805 |h | Jump_Zero 0x2df 02da 0092 0783 | | Action Push_String_Extended,0x783 ; "Calling parameter error." 02dc e003 | | Load 0x0,0x3 02dd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 02de 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02df 00cf | | Action Mark_Auxiliary 02e0 e5fc | | Load 0x2,-0x4 02e1 01dd | | Execute Vector,First 02e2 e402 | | Load 0x2,0x2 02e3 0273 | s | Execute Discrete,Plus 02e4 0aff | | Execute_Immediate Plus,-0x1 02e5 0248 | H | Execute Discrete,Check_In_Integer 02e6 e5fc | | Load 0x2,-0x4 02e7 01dd | | Execute Vector,First 02e8 0263 | c | Execute Discrete,Above_Bound 02e9 7014 |p | Jump_Nonzero 0x2fe 02ea 00d8 | | Load_Top At_Offset_0 02eb e406 | | Load 0x2,0x6 02ec e5fc | | Load 0x2,-0x4 02ed 01cf | | Execute Vector,Slice_Read 02ee 4801 |H | Short_Literal 0x1 02ef 4801 |H | Short_Literal 0x1 02f0 e5fe | | Load 0x2,-0x2 02f1 01cf | | Execute Vector,Slice_Read 02f2 01df | | Execute Vector,Equal 02f3 6808 |h | Jump_Zero 0x2fc 02f4 4801 |H | Short_Literal 0x1 02f5 4801 |H | Short_Literal 0x1 02f6 e5fd | | Load 0x2,-0x3 02f7 01cf | | Execute Vector,Slice_Read 02f8 e406 | | Load 0x2,0x6 02f9 e406 | | Load 0x2,0x6 02fa e5fc | | Load 0x2,-0x4 02fb 01ce | | Execute Vector,Slice_Write 02fc 00c8 | | Action Pop_Auxiliary_Range 02fd 3fec |? | Loop_Increasing 0x2ea 02fe 00ce | | Action Pop_Auxiliary 02ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0300 TRAP_02c0: 0300 0007 | | Action Break_Optional 0301 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030d | | .CONST 0x030d ; Address of begin 0309 030f | | .CONST 0x030f ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 030d BODY_0308: 030d 8402 | | Call 0x2,0x2 030e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 030f TRAP_0308: 030f 0007 | | Action Break_Optional 0310 0092 0784 | | Action Push_String_Extended,0x784 ; "Exception in ap_compare_up_low_strings, pos. called with size > string" 0312 e003 | | Load 0x0,0x3 0313 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0314 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031d | | .CONST 0x031d ; Address of begin 0319 031f | | .CONST 0x031f ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 031d BODY_0318: 031d 8402 | | Call 0x2,0x2 031e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031f TRAP_0318: 031f 0007 | | Action Break_Optional 0320 0092 0785 | | Action Push_String_Extended,0x785 ; "Exception in ap_get_date_string." 0322 e003 | | Load 0x0,0x3 0323 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0324 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0344 | D | .CONST 0x0344 ; Address of begin 0329 03a9 | | .CONST 0x03a9 ; Address of exception handler 032a 0008 | | .CONST 0x0008 ; Number of locals 032b INIT_0328: 032b 00e2 | | Load_Encached Integer_Cache 032c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 032d 00e2 | | Load_Encached Integer_Cache 032e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 032f 00e2 | | Load_Encached Integer_Cache 0330 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0331 4801 |H | Short_Literal 0x1 0332 4802 |H | Short_Literal 0x2 0333 00e9 | | Load_Encached String_Cache 0334 0334 | 4 | Declare_Variable Array,With_Constraint 0335 523e |R> | Indirect_Literal Any,0x574,{0x30302020, 0x20202020} 0336 4801 |H | Short_Literal 0x1 0337 4802 |H | Short_Literal 0x2 0338 00e9 | | Load_Encached String_Cache 0339 0334 | 4 | Declare_Variable Array,With_Constraint 033a 523d |R= | Indirect_Literal Any,0x578,{0x30302020, 0x20202020} 033b 4801 |H | Short_Literal 0x1 033c 4802 |H | Short_Literal 0x2 033d 00e9 | | Load_Encached String_Cache 033e 0334 | 4 | Declare_Variable Array,With_Constraint 033f 523c |R< | Indirect_Literal Any,0x57c,{0x30302020, 0x20202020} 0340 4801 |H | Short_Literal 0x1 0341 4808 |H | Short_Literal 0x8 0342 00e9 | | Load_Encached String_Cache 0343 0334 | 4 | Declare_Variable Array,With_Constraint 0344 BODY_0328: 0344 e004 | | Load 0x0,0x4 0345 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0346 e004 | | Load 0x0,0x4 0347 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0348 00d8 | | Load_Top At_Offset_0 0349 0c00 | | Execute_Immediate Greater_Equal,0x0 034a 7003 |p | Jump_Nonzero 0x34e 034b 6224 |b$ | Indirect_Literal Discrete,0x570,{0xffffffff, 0xffffc000} 034c 0273 | s | Execute Discrete,Plus 034d 7802 |x | Jump 0x350 034e 621d |b | Indirect_Literal Discrete,0x56c,{0x00000000, 0x00004000} 034f 0273 | s | Execute Discrete,Plus 0350 09f1 | | Execute_Immediate Binary_Scale,-0xf 0351 a402 | | Store_Unchecked 0x2,0x2 0352 e402 | | Load 0x2,0x2 0353 6214 |b | Indirect_Literal Discrete,0x568,{0x00000000, 0x00000e10} 0354 0270 | p | Execute Discrete,Divide 0355 a404 | | Store_Unchecked 0x2,0x4 0356 e402 | | Load 0x2,0x2 0357 483c |H< | Short_Literal 0x3c 0358 0270 | p | Execute Discrete,Divide 0359 e404 | | Load 0x2,0x4 035a 483c |H< | Short_Literal 0x3c 035b 0271 | q | Execute Discrete,Times 035c 0272 | r | Execute Discrete,Minus 035d 0248 | H | Execute Discrete,Check_In_Integer 035e a403 | | Store_Unchecked 0x2,0x3 035f e402 | | Load 0x2,0x2 0360 e404 | | Load 0x2,0x4 0361 6206 |b | Indirect_Literal Discrete,0x568,{0x00000000, 0x00000e10} 0362 0271 | q | Execute Discrete,Times 0363 0248 | H | Execute Discrete,Check_In_Integer 0364 0272 | r | Execute Discrete,Minus 0365 e403 | | Load 0x2,0x3 0366 483c |H< | Short_Literal 0x3c 0367 0271 | q | Execute Discrete,Times 0368 0272 | r | Execute Discrete,Minus 0369 0248 | H | Execute Discrete,Check_In_Integer 036a a402 | | Store_Unchecked 0x2,0x2 036b e407 | | Load 0x2,0x7 036c e214 | | Load 0x1,0x14 036d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 036e e404 | | Load 0x2,0x4 036f e214 | | Load 0x1,0x14 0370 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0371 00d1 | | Pop_Control Pop_Count_1 0372 e406 | | Load 0x2,0x6 0373 e214 | | Load 0x1,0x14 0374 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0375 e403 | | Load 0x2,0x3 0376 e214 | | Load 0x1,0x14 0377 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0378 00d1 | | Pop_Control Pop_Count_1 0379 e405 | | Load 0x2,0x5 037a e214 | | Load 0x1,0x14 037b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 037c e402 | | Load 0x2,0x2 037d e214 | | Load 0x1,0x14 037e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 037f 00d1 | | Pop_Control Pop_Count_1 0380 4801 |H | Short_Literal 0x1 0381 4802 |H | Short_Literal 0x2 0382 e407 | | Load 0x2,0x7 0383 01cf | | Execute Vector,Slice_Read 0384 0092 0786 | | Action Push_String_Extended,0x786 ; ":" 0386 01cc | | Execute Vector,Catenate 0387 4801 |H | Short_Literal 0x1 0388 4802 |H | Short_Literal 0x2 0389 e406 | | Load 0x2,0x6 038a 01cf | | Execute Vector,Slice_Read 038b 01cc | | Execute Vector,Catenate 038c 0092 0786 | | Action Push_String_Extended,0x786 ; ":" 038e 01cc | | Execute Vector,Catenate 038f 4801 |H | Short_Literal 0x1 0390 4802 |H | Short_Literal 0x2 0391 e405 | | Load 0x2,0x5 0392 01cf | | Execute Vector,Slice_Read 0393 01cc | | Execute Vector,Catenate 0394 4801 |H | Short_Literal 0x1 0395 4808 |H | Short_Literal 0x8 0396 e408 | | Load 0x2,0x8 0397 01ce | | Execute Vector,Slice_Write 0398 00d8 | | Load_Top At_Offset_0 0399 0092 0787 | | Action Push_String_Extended,0x787 ; "0" 039b 0092 0781 | | Action Push_String_Extended,0x781 ; " " 039d 4808 |H | Short_Literal 0x8 039e 822a | * | Call 0x1,0x2a 039f 00d1 | | Pop_Control Pop_Count_1 03a0 4801 |H | Short_Literal 0x1 03a1 4808 |H | Short_Literal 0x8 03a2 e408 | | Load 0x2,0x8 03a3 01cf | | Execute Vector,Slice_Read 03a4 4801 |H | Short_Literal 0x1 03a5 4808 |H | Short_Literal 0x8 03a6 e5ff | | Load 0x2,-0x1 03a7 01ce | | Execute Vector,Slice_Write 03a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a9 TRAP_0328: 03a9 0007 | | Action Break_Optional 03aa 0092 0788 | | Action Push_String_Extended,0x788 ; "Exception in ap_get_time_string." 03ac e003 | | Load 0x0,0x3 03ad 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 03ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03af 0000 | | .XXX[0x1] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b5 | | .CONST 0x03b5 ; Address of begin 03b1 03ba | | .CONST 0x03ba ; Address of exception handler 03b2 0002 | | .CONST 0x0002 ; Number of locals 03b3 INIT_03b0: 03b3 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call 03b5 BODY_03b0: 03b5 00cf | | Action Mark_Auxiliary 03b6 0007 | | Action Break_Optional 03b7 8402 | | Call 0x2,0x2 03b8 00c9 | | Action Pop_Auxiliary_Loop 03b9 7ffd | | Jump 0x3b7 03ba TRAP_03b0: 03ba 0007 | | Action Break_Optional 03bb 0092 0789 | | Action Push_String_Extended,0x789 ; "Exception in ap_ask_user_for_term_type." 03bd e003 | | Load 0x0,0x3 03be 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 03bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c4 | | .CONST 0x03c4 ; Address of begin 03c1 03c5 | | .CONST 0x03c5 ; Address of exception handler 03c2 0002 | | .CONST 0x0002 ; Number of locals 03c3 INIT_03c0: 03c3 00e2 | | Load_Encached Integer_Cache 03c4 BODY_03c0: 03c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c5 TRAP_03c0: 03c5 0007 | | Action Break_Optional 03c6 4800 |H | Short_Literal 0x0 03c7 4801 |H | Short_Literal 0x1 03c8 0092 078a | | Action Push_String_Extended,0x78a ; "Exception occurred in ap_screen_procedures." 03ca 8224 | $ | Call 0x1,0x24 03cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03cc 0000 0000 | | .BLANK 0000[0x4] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 03df | | .CONST 0x03df ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 0007 | | Action Break_Optional 03d4 e402 | | Load 0x2,0x2 03d5 0b00 | | Execute_Immediate Case_Compare,0x0 03d6 7003 |p | Jump_Nonzero 0x3da 03d7 4820 |H | Short_Literal 0x20 03d8 a5fe | | Store_Unchecked 0x2,-0x2 03d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03da e404 | | Load 0x2,0x4 03db a5fe | | Store_Unchecked 0x2,-0x2 03dc 00d1 | | Pop_Control Pop_Count_1 03dd 00cc | | Action Pop_Block 03de 7cf0 || | Jump 0xcf 03df TRAP_03d0: 03df 0007 | | Action Break_Optional 03e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e1 0000 0000 | | .BLANK 0000[0x7] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03ed | | .CONST 0x03ed ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0002 | | .CONST 0x0002 ; Number of locals 03eb INIT_03e8: 03eb 00e2 | | Load_Encached Integer_Cache 03ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03ed BODY_03e8: 03ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ee 0000 0000 | | .XXX[0x2] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 040a | | .CONST 0x040a ; Address of begin 03f1 040f | | .CONST 0x040f ; Address of exception handler 03f2 0005 | | .CONST 0x0005 ; Number of locals 03f3 INIT_03f0: 03f3 4801 |H | Short_Literal 0x1 03f4 480a |H | Short_Literal 0xa 03f5 00e9 | | Load_Encached String_Cache 03f6 0334 | 4 | Declare_Variable Array,With_Constraint 03f7 4801 |H | Short_Literal 0x1 03f8 480a |H | Short_Literal 0xa 03f9 00e9 | | Load_Encached String_Cache 03fa 0334 | 4 | Declare_Variable Array,With_Constraint 03fb 480a |H | Short_Literal 0xa 03fc 4801 |H | Short_Literal 0x1 03fd 4820 |H | Short_Literal 0x20 03fe e605 | | Load 0x3,0x5 03ff e603 | | Load 0x3,0x3 0400 01d6 | | Execute Vector,Field_Write 0401 3ffb |? | Loop_Increasing 0x3fd 0402 e602 | | Load 0x3,0x2 0403 01d4 | | Execute Vector,Structure_Write 0404 00e2 | | Load_Encached Integer_Cache 0405 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0406 00e2 | | Load_Encached Integer_Cache 0407 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0408 029f 06db | | Declare_Subprogram INIT_06d8,For_Call 040a BODY_03f0: 040a 00cf | | Action Mark_Auxiliary 040b 0007 | | Action Break_Optional 040c 8605 | | Call 0x3,0x5 040d 00c9 | | Action Pop_Auxiliary_Loop 040e 7ffd | | Jump 0x40c 040f TRAP_03f0: 040f 0007 | | Action Break_Optional 0410 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0411 0000 0000 | | .BLANK 0000[0x7] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0432 | 2 | .CONST 0x0432 ; Address of begin 0419 0437 | 7 | .CONST 0x0437 ; Address of exception handler 041a 0005 | | .CONST 0x0005 ; Number of locals 041b INIT_0418: 041b 4801 |H | Short_Literal 0x1 041c 480a |H | Short_Literal 0xa 041d 00e9 | | Load_Encached String_Cache 041e 0334 | 4 | Declare_Variable Array,With_Constraint 041f 4801 |H | Short_Literal 0x1 0420 480a |H | Short_Literal 0xa 0421 00e9 | | Load_Encached String_Cache 0422 0334 | 4 | Declare_Variable Array,With_Constraint 0423 480a |H | Short_Literal 0xa 0424 4801 |H | Short_Literal 0x1 0425 4820 |H | Short_Literal 0x20 0426 e605 | | Load 0x3,0x5 0427 e603 | | Load 0x3,0x3 0428 01d6 | | Execute Vector,Field_Write 0429 3ffb |? | Loop_Increasing 0x425 042a e602 | | Load 0x3,0x2 042b 01d4 | | Execute Vector,Structure_Write 042c 00e2 | | Load_Encached Integer_Cache 042d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 042e 00e2 | | Load_Encached Integer_Cache 042f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0430 029f 0713 | | Declare_Subprogram INIT_0710,For_Call 0432 BODY_0418: 0432 00cf | | Action Mark_Auxiliary 0433 0007 | | Action Break_Optional 0434 8605 | | Call 0x3,0x5 0435 00c9 | | Action Pop_Auxiliary_Loop 0436 7ffd | | Jump 0x434 0437 TRAP_0418: 0437 0007 | | Action Break_Optional 0438 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0439 0000 0000 | | .BLANK 0000[0x7] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0448 | H | .CONST 0x0448 ; Address of begin 0441 0450 | P | .CONST 0x0450 ; Address of exception handler 0442 0002 | | .CONST 0x0002 ; Number of locals 0443 INIT_0440: 0443 e005 | | Load 0x0,0x5 0444 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0445 02c7 | | Declare_Variable Any 0446 00d8 | | Load_Top At_Offset_0 0447 1c00 | | Execute_Immediate Run_Utility,0x0 0448 BODY_0440: 0448 00e3 | | Load_Encached Natural_Cache 0449 e5fe | | Load 0x2,-0x2 044a e003 | | Load 0x0,0x3 044b 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 044c 00d1 | | Pop_Control Pop_Count_1 044d c5fd | | Store 0x2,-0x3 044e 00cc | | Action Pop_Block 044f 7d5b |}[ | Jump 0x1ab 0450 TRAP_0440: 0450 00d8 | | Load_Top At_Offset_0 0451 0107 | | Execute Exception,Get_Name 0452 4950 |IP | Short_Literal 0x150 0453 495f |I_ | Short_Literal 0x15f 0454 0262 | b | Execute Discrete,In_Range 0455 680b |h | Jump_Zero 0x461 0456 e005 | | Load 0x0,0x5 0457 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0458 c602 | | Store 0x3,0x2 0459 e602 | | Load 0x3,0x2 045a e005 | | Load 0x0,0x5 045b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 045c c602 | | Store 0x3,0x2 045d 4801 |H | Short_Literal 0x1 045e e005 | | Load 0x0,0x5 045f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0460 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0461 0100 | | Execute Exception,Raise 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0470 | p | .CONST 0x0470 ; Address of begin 0469 0478 | x | .CONST 0x0478 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b e005 | | Load 0x0,0x5 046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046d 02c7 | | Declare_Variable Any 046e 00d8 | | Load_Top At_Offset_0 046f 1c00 | | Execute_Immediate Run_Utility,0x0 0470 BODY_0468: 0470 00e3 | | Load_Encached Natural_Cache 0471 e5fe | | Load 0x2,-0x2 0472 e003 | | Load 0x0,0x3 0473 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 0474 00d1 | | Pop_Control Pop_Count_1 0475 c5fd | | Store 0x2,-0x3 0476 00cc | | Action Pop_Block 0477 7d65 |}e | Jump 0x1dd 0478 TRAP_0468: 0478 00d8 | | Load_Top At_Offset_0 0479 0107 | | Execute Exception,Get_Name 047a 4950 |IP | Short_Literal 0x150 047b 495f |I_ | Short_Literal 0x15f 047c 0262 | b | Execute Discrete,In_Range 047d 680e |h | Jump_Zero 0x48c 047e 4801 |H | Short_Literal 0x1 047f a5fc | | Store_Unchecked 0x2,-0x4 0480 e005 | | Load 0x0,0x5 0481 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0482 c602 | | Store 0x3,0x2 0483 e602 | | Load 0x3,0x2 0484 e005 | | Load 0x0,0x5 0485 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0486 c602 | | Store 0x3,0x2 0487 4801 |H | Short_Literal 0x1 0488 e005 | | Load 0x0,0x5 0489 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 048a 00cc | | Action Pop_Block 048b 7d51 |}Q | Jump 0x1dd 048c 0100 | | Execute Exception,Raise 048d 0000 0000 | | .XXX[0x3] 048f 0000 | | 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 049b | | .CONST 0x049b ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0006 | | .CONST 0x0006 ; Number of locals 0493 INIT_0490: 0493 00e2 | | Load_Encached Integer_Cache 0494 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0495 00e2 | | Load_Encached Integer_Cache 0496 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0497 00e2 | | Load_Encached Integer_Cache 0498 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0499 00e8 | | Load_Encached Character_Cache 049a 00e8 | | Load_Encached Character_Cache 049b BODY_0490: 049b 4800 |H | Short_Literal 0x0 049c a5fa | | Store_Unchecked 0x2,-0x6 049d e5fe | | Load 0x2,-0x2 049e 4fff |O | Short_Literal -0x1 049f 027f | | Execute Discrete,Equal 04a0 6804 |h | Jump_Zero 0x4a5 04a1 e5ff | | Load 0x2,-0x1 04a2 01db | | Execute Vector,Length 04a3 a602 | | Store_Unchecked 0x3,0x2 04a4 7802 |x | Jump 0x4a7 04a5 e5fe | | Load 0x2,-0x2 04a6 a602 | | Store_Unchecked 0x3,0x2 04a7 e5fc | | Load 0x2,-0x4 04a8 4fff |O | Short_Literal -0x1 04a9 027f | | Execute Discrete,Equal 04aa 6804 |h | Jump_Zero 0x4af 04ab e5fd | | Load 0x2,-0x3 04ac 01db | | Execute Vector,Length 04ad a603 | | Store_Unchecked 0x3,0x3 04ae 7802 |x | Jump 0x4b1 04af e5fc | | Load 0x2,-0x4 04b0 a603 | | Store_Unchecked 0x3,0x3 04b1 e602 | | Load 0x3,0x2 04b2 e603 | | Load 0x3,0x3 04b3 027d | } | Execute Discrete,Greater 04b4 6804 |h | Jump_Zero 0x4b9 04b5 4800 |H | Short_Literal 0x0 04b6 a5fa | | Store_Unchecked 0x2,-0x6 04b7 00cc | | Action Pop_Block 04b8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 04b9 0007 | | Action Break_Optional 04ba e602 | | Load 0x3,0x2 04bb 7004 |p | Jump_Nonzero 0x4c0 04bc 4801 |H | Short_Literal 0x1 04bd a5fa | | Store_Unchecked 0x2,-0x6 04be 00cc | | Action Pop_Block 04bf 4506 |E | Exit_Suprogram New_Top_Offset 0x6 04c0 e603 | | Load 0x3,0x3 04c1 7004 |p | Jump_Nonzero 0x4c6 04c2 4800 |H | Short_Literal 0x0 04c3 a5fa | | Store_Unchecked 0x2,-0x6 04c4 00cc | | Action Pop_Block 04c5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 04c6 4800 |H | Short_Literal 0x0 04c7 a5fa | | Store_Unchecked 0x2,-0x6 04c8 00cf | | Action Mark_Auxiliary 04c9 e602 | | Load 0x3,0x2 04ca 4801 |H | Short_Literal 0x1 04cb 0263 | c | Execute Discrete,Above_Bound 04cc 703e |p> | Jump_Nonzero 0x50b 04cd e5ff | | Load 0x2,-0x1 04ce 01dd | | Execute Vector,First 04cf 0aff | | Execute_Immediate Plus,-0x1 04d0 e609 | | Load 0x3,0x9 04d1 0273 | s | Execute Discrete,Plus 04d2 0248 | H | Execute Discrete,Check_In_Integer 04d3 e5ff | | Load 0x2,-0x1 04d4 01d7 | | Execute Vector,Field_Read 04d5 a605 | | Store_Unchecked 0x3,0x5 04d6 e5fd | | Load 0x2,-0x3 04d7 01dd | | Execute Vector,First 04d8 0aff | | Execute_Immediate Plus,-0x1 04d9 e609 | | Load 0x3,0x9 04da 0273 | s | Execute Discrete,Plus 04db 0248 | H | Execute Discrete,Check_In_Integer 04dc e5fd | | Load 0x2,-0x3 04dd 01d7 | | Execute Vector,Field_Read 04de a606 | | Store_Unchecked 0x3,0x6 04df e605 | | Load 0x3,0x5 04e0 0c41 | A | Execute_Immediate Greater_Equal,0x41 04e1 e605 | | Load 0x3,0x5 04e2 0d5b | [ | Execute_Immediate Less,0x5b 04e3 0279 | y | Execute Discrete,And 04e4 6809 |h | Jump_Zero 0x4ee 04e5 e605 | | Load 0x3,0x5 04e6 0a20 | | Execute_Immediate Plus,0x20 04e7 00d8 | | Load_Top At_Offset_0 04e8 00e8 | | Load_Encached Character_Cache 04e9 0260 | ` | Execute Discrete,In_Type 04ea 7002 |p | Jump_Nonzero 0x4ed 04eb 48e0 |H | Short_Literal 0xe0 04ec 0257 | W | Execute Discrete,Raise 04ed a605 | | Store_Unchecked 0x3,0x5 04ee e606 | | Load 0x3,0x6 04ef 0c41 | A | Execute_Immediate Greater_Equal,0x41 04f0 e606 | | Load 0x3,0x6 04f1 0d5b | [ | Execute_Immediate Less,0x5b 04f2 0279 | y | Execute Discrete,And 04f3 6809 |h | Jump_Zero 0x4fd 04f4 e606 | | Load 0x3,0x6 04f5 0a20 | | Execute_Immediate Plus,0x20 04f6 00d8 | | Load_Top At_Offset_0 04f7 00e8 | | Load_Encached Character_Cache 04f8 0260 | ` | Execute Discrete,In_Type 04f9 7002 |p | Jump_Nonzero 0x4fc 04fa 48e0 |H | Short_Literal 0xe0 04fb 0257 | W | Execute Discrete,Raise 04fc a606 | | Store_Unchecked 0x3,0x6 04fd e605 | | Load 0x3,0x5 04fe e606 | | Load 0x3,0x6 04ff 027e | ~ | Execute Discrete,Not_Equal 0500 6802 |h | Jump_Zero 0x503 0501 00d2 | | Pop_Control Pop_Count_2 0502 7808 |x | Jump 0x50b 0503 00d8 | | Load_Top At_Offset_0 0504 e602 | | Load 0x3,0x2 0505 027f | | Execute Discrete,Equal 0506 6802 |h | Jump_Zero 0x509 0507 4801 |H | Short_Literal 0x1 0508 a5fa | | Store_Unchecked 0x2,-0x6 0509 00c8 | | Action Pop_Auxiliary_Range 050a 3fc2 |? | Loop_Increasing 0x4cd 050b 00ce | | Action Pop_Auxiliary 050c e5fb | | Load 0x2,-0x5 050d 0f01 | | Execute_Immediate Equal,0x1 050e 6802 |h | Jump_Zero 0x511 050f 00cc | | Action Pop_Block 0510 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0511 e603 | | Load 0x3,0x3 0512 e602 | | Load 0x3,0x2 0513 0272 | r | Execute Discrete,Minus 0514 0248 | H | Execute Discrete,Check_In_Integer 0515 a604 | | Store_Unchecked 0x3,0x4 0516 00cf | | Action Mark_Auxiliary 0517 e604 | | Load 0x3,0x4 0518 4801 |H | Short_Literal 0x1 0519 0263 | c | Execute Discrete,Above_Bound 051a 7049 |pI | Jump_Nonzero 0x564 051b 00cf | | Action Mark_Auxiliary 051c e602 | | Load 0x3,0x2 051d 4801 |H | Short_Literal 0x1 051e 0263 | c | Execute Discrete,Above_Bound 051f 7041 |pA | Jump_Nonzero 0x561 0520 e5ff | | Load 0x2,-0x1 0521 01dd | | Execute Vector,First 0522 0aff | | Execute_Immediate Plus,-0x1 0523 e60c | | Load 0x3,0xc 0524 0273 | s | Execute Discrete,Plus 0525 0248 | H | Execute Discrete,Check_In_Integer 0526 e5ff | | Load 0x2,-0x1 0527 01d7 | | Execute Vector,Field_Read 0528 a605 | | Store_Unchecked 0x3,0x5 0529 e5fd | | Load 0x2,-0x3 052a 01dd | | Execute Vector,First 052b 0aff | | Execute_Immediate Plus,-0x1 052c 0248 | H | Execute Discrete,Check_In_Integer 052d e60c | | Load 0x3,0xc 052e 0273 | s | Execute Discrete,Plus 052f e609 | | Load 0x3,0x9 0530 0273 | s | Execute Discrete,Plus 0531 0248 | H | Execute Discrete,Check_In_Integer 0532 e5fd | | Load 0x2,-0x3 0533 01d7 | | Execute Vector,Field_Read 0534 a606 | | Store_Unchecked 0x3,0x6 0535 e605 | | Load 0x3,0x5 0536 0c41 | A | Execute_Immediate Greater_Equal,0x41 0537 e605 | | Load 0x3,0x5 0538 0d5b | [ | Execute_Immediate Less,0x5b 0539 0279 | y | Execute Discrete,And 053a 6809 |h | Jump_Zero 0x544 053b e605 | | Load 0x3,0x5 053c 0a20 | | Execute_Immediate Plus,0x20 053d 00d8 | | Load_Top At_Offset_0 053e 00e8 | | Load_Encached Character_Cache 053f 0260 | ` | Execute Discrete,In_Type 0540 7002 |p | Jump_Nonzero 0x543 0541 48e0 |H | Short_Literal 0xe0 0542 0257 | W | Execute Discrete,Raise 0543 a605 | | Store_Unchecked 0x3,0x5 0544 e606 | | Load 0x3,0x6 0545 0c41 | A | Execute_Immediate Greater_Equal,0x41 0546 e606 | | Load 0x3,0x6 0547 0d5b | [ | Execute_Immediate Less,0x5b 0548 0279 | y | Execute Discrete,And 0549 6809 |h | Jump_Zero 0x553 054a e606 | | Load 0x3,0x6 054b 0a20 | | Execute_Immediate Plus,0x20 054c 00d8 | | Load_Top At_Offset_0 054d 00e8 | | Load_Encached Character_Cache 054e 0260 | ` | Execute Discrete,In_Type 054f 7002 |p | Jump_Nonzero 0x552 0550 48e0 |H | Short_Literal 0xe0 0551 0257 | W | Execute Discrete,Raise 0552 a606 | | Store_Unchecked 0x3,0x6 0553 e605 | | Load 0x3,0x5 0554 e606 | | Load 0x3,0x6 0555 027e | ~ | Execute Discrete,Not_Equal 0556 6802 |h | Jump_Zero 0x559 0557 00d2 | | Pop_Control Pop_Count_2 0558 7808 |x | Jump 0x561 0559 00d8 | | Load_Top At_Offset_0 055a e602 | | Load 0x3,0x2 055b 027f | | Execute Discrete,Equal 055c 6802 |h | Jump_Zero 0x55f 055d 4801 |H | Short_Literal 0x1 055e a5fa | | Store_Unchecked 0x2,-0x6 055f 00c8 | | Action Pop_Auxiliary_Range 0560 3fbf |? | Loop_Increasing 0x520 0561 00ce | | Action Pop_Auxiliary 0562 00c8 | | Action Pop_Auxiliary_Range 0563 3fb7 |? | Loop_Increasing 0x51b 0564 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 0000 0000 | | .LITERAL {0x00000000, 0x00000e10} 056c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0570 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 0574 3030 2020 |00 | .LITERAL {0x30302020, 0x20202020} 0578 3030 2020 |00 | .LITERAL {0x30302020, 0x20202020} 057c 3030 2020 |00 | .LITERAL {0x30302020, 0x20202020} 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 05a9 | | .CONST 0x05a9 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0008 | | .CONST 0x0008 ; Number of locals 0583 INIT_0580: 0583 00e2 | | Load_Encached Integer_Cache 0584 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0585 00e2 | | Load_Encached Integer_Cache 0586 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0587 00e2 | | Load_Encached Integer_Cache 0588 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0589 4801 |H | Short_Literal 0x1 058a 4804 |H | Short_Literal 0x4 058b 00e9 | | Load_Encached String_Cache 058c 0334 | 4 | Declare_Variable Array,With_Constraint 058d 51e6 |Q | Indirect_Literal Any,0x774,{0x20202020, 0x20202020} 058e 4801 |H | Short_Literal 0x1 058f 4802 |H | Short_Literal 0x2 0590 00e9 | | Load_Encached String_Cache 0591 0334 | 4 | Declare_Variable Array,With_Constraint 0592 51e5 |Q | Indirect_Literal Any,0x778,{0x20202020, 0x20202020} 0593 4801 |H | Short_Literal 0x1 0594 4802 |H | Short_Literal 0x2 0595 00e9 | | Load_Encached String_Cache 0596 0334 | 4 | Declare_Variable Array,With_Constraint 0597 51e4 |Q | Indirect_Literal Any,0x77c,{0x20202020, 0x20202020} 0598 4801 |H | Short_Literal 0x1 0599 4808 |H | Short_Literal 0x8 059a 00e9 | | Load_Encached String_Cache 059b 0334 | 4 | Declare_Variable Array,With_Constraint 059c 4801 |H | Short_Literal 0x1 059d 4808 |H | Short_Literal 0x8 059e 00e9 | | Load_Encached String_Cache 059f 0334 | 4 | Declare_Variable Array,With_Constraint 05a0 4808 |H | Short_Literal 0x8 05a1 4801 |H | Short_Literal 0x1 05a2 4820 |H | Short_Literal 0x20 05a3 e60b | | Load 0x3,0xb 05a4 e609 | | Load 0x3,0x9 05a5 01d6 | | Execute Vector,Field_Write 05a6 3ffb |? | Loop_Increasing 0x5a2 05a7 e608 | | Load 0x3,0x8 05a8 01d4 | | Execute Vector,Structure_Write 05a9 BODY_0580: 05a9 e004 | | Load 0x0,0x4 05aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05ab e004 | | Load 0x0,0x4 05ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05ad a603 | | Store_Unchecked 0x3,0x3 05ae e004 | | Load 0x0,0x4 05af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05b0 e004 | | Load 0x0,0x4 05b1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05b2 a604 | | Store_Unchecked 0x3,0x4 05b3 e004 | | Load 0x0,0x4 05b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 05b5 e004 | | Load 0x0,0x4 05b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05b7 a602 | | Store_Unchecked 0x3,0x2 05b8 e606 | | Load 0x3,0x6 05b9 e214 | | Load 0x1,0x14 05ba 1b11 | | Execute Package,Field_Read,Field_Number 0x11 05bb e603 | | Load 0x3,0x3 05bc e214 | | Load 0x1,0x14 05bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05be 00d1 | | Pop_Control Pop_Count_1 05bf e607 | | Load 0x3,0x7 05c0 e214 | | Load 0x1,0x14 05c1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 05c2 e604 | | Load 0x3,0x4 05c3 e214 | | Load 0x1,0x14 05c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05c5 00d1 | | Pop_Control Pop_Count_1 05c6 e605 | | Load 0x3,0x5 05c7 e214 | | Load 0x1,0x14 05c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 05c9 e602 | | Load 0x3,0x2 05ca e214 | | Load 0x1,0x14 05cb 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05cc 00d1 | | Pop_Control Pop_Count_1 05cd 4801 |H | Short_Literal 0x1 05ce 4801 |H | Short_Literal 0x1 05cf e606 | | Load 0x3,0x6 05d0 01cf | | Execute Vector,Slice_Read 05d1 0092 0781 | | Action Push_String_Extended,0x781 ; " " 05d3 01df | | Execute Vector,Equal 05d4 6806 |h | Jump_Zero 0x5db 05d5 0092 0787 | | Action Push_String_Extended,0x787 ; "0" 05d7 4801 |H | Short_Literal 0x1 05d8 4801 |H | Short_Literal 0x1 05d9 e606 | | Load 0x3,0x6 05da 01ce | | Execute Vector,Slice_Write 05db 4802 |H | Short_Literal 0x2 05dc 4802 |H | Short_Literal 0x2 05dd e606 | | Load 0x3,0x6 05de 01cf | | Execute Vector,Slice_Read 05df 0092 0781 | | Action Push_String_Extended,0x781 ; " " 05e1 01df | | Execute Vector,Equal 05e2 6806 |h | Jump_Zero 0x5e9 05e3 0092 0787 | | Action Push_String_Extended,0x787 ; "0" 05e5 4802 |H | Short_Literal 0x2 05e6 4802 |H | Short_Literal 0x2 05e7 e606 | | Load 0x3,0x6 05e8 01ce | | Execute Vector,Slice_Write 05e9 4801 |H | Short_Literal 0x1 05ea 4801 |H | Short_Literal 0x1 05eb e607 | | Load 0x3,0x7 05ec 01cf | | Execute Vector,Slice_Read 05ed 0092 0781 | | Action Push_String_Extended,0x781 ; " " 05ef 01df | | Execute Vector,Equal 05f0 6806 |h | Jump_Zero 0x5f7 05f1 0092 0787 | | Action Push_String_Extended,0x787 ; "0" 05f3 4801 |H | Short_Literal 0x1 05f4 4801 |H | Short_Literal 0x1 05f5 e607 | | Load 0x3,0x7 05f6 01ce | | Execute Vector,Slice_Write 05f7 4803 |H | Short_Literal 0x3 05f8 4804 |H | Short_Literal 0x4 05f9 e605 | | Load 0x3,0x5 05fa 01cf | | Execute Vector,Slice_Read 05fb 0092 078b | | Action Push_String_Extended,0x78b ; "-" 05fd 01cc | | Execute Vector,Catenate 05fe e606 | | Load 0x3,0x6 05ff 01cc | | Execute Vector,Catenate 0600 0092 078b | | Action Push_String_Extended,0x78b ; "-" 0602 01cc | | Execute Vector,Catenate 0603 e607 | | Load 0x3,0x7 0604 01cc | | Execute Vector,Catenate 0605 e608 | | Load 0x3,0x8 0606 01d4 | | Execute Vector,Structure_Write 0607 e5ff | | Load 0x2,-0x1 0608 01db | | Execute Vector,Length 0609 0d08 | | Execute_Immediate Less,0x8 060a 680b |h | Jump_Zero 0x616 060b 4801 |H | Short_Literal 0x1 060c e5ff | | Load 0x2,-0x1 060d 01db | | Execute Vector,Length 060e e608 | | Load 0x3,0x8 060f 01cf | | Execute Vector,Slice_Read 0610 4801 |H | Short_Literal 0x1 0611 e5ff | | Load 0x2,-0x1 0612 01db | | Execute Vector,Length 0613 e5ff | | Load 0x2,-0x1 0614 01ce | | Execute Vector,Slice_Write 0615 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0616 4801 |H | Short_Literal 0x1 0617 4808 |H | Short_Literal 0x8 0618 e608 | | Load 0x3,0x8 0619 01cf | | Execute Vector,Slice_Read 061a 4801 |H | Short_Literal 0x1 061b 4808 |H | Short_Literal 0x8 061c e5ff | | Load 0x2,-0x1 061d 01ce | | Execute Vector,Slice_Write 061e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 061f 0000 | | .XXX[0x1] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0629 | ) | .CONST 0x0629 ; Address of begin 0621 06cf | | .CONST 0x06cf ; Address of exception handler 0622 0003 | | .CONST 0x0003 ; Number of locals 0623 INIT_0620: 0623 4801 |H | Short_Literal 0x1 0624 480a |H | Short_Literal 0xa 0625 00e9 | | Load_Encached String_Cache 0626 0334 | 4 | Declare_Variable Array,With_Constraint 0627 00e2 | | Load_Encached Integer_Cache 0628 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0629 BODY_0620: 0629 4800 |H | Short_Literal 0x0 062a 4801 |H | Short_Literal 0x1 062b 0092 078c | | Action Push_String_Extended,0x78c ; "Please select terminal type: Rational, VT100, FACIT [Rational]:" 062d 8224 | $ | Call 0x1,0x24 062e 0092 078d | | Action Push_String_Extended,0x78d ; " " 0630 4801 |H | Short_Literal 0x1 0631 480a |H | Short_Literal 0xa 0632 e602 | | Load 0x3,0x2 0633 01ce | | Execute Vector,Slice_Write 0634 00d8 | | Load_Top At_Offset_0 0635 e602 | | Load 0x3,0x2 0636 4801 |H | Short_Literal 0x1 0637 8227 | ' | Call 0x1,0x27 0638 00d1 | | Pop_Control Pop_Count_1 0639 c603 | | Store 0x3,0x3 063a 4801 |H | Short_Literal 0x1 063b 4808 |H | Short_Literal 0x8 063c e602 | | Load 0x3,0x2 063d 01cf | | Execute Vector,Slice_Read 063e 0092 078e | | Action Push_String_Extended,0x78e ; "Rational" 0640 01df | | Execute Vector,Equal 0641 4801 |H | Short_Literal 0x1 0642 4808 |H | Short_Literal 0x8 0643 e602 | | Load 0x3,0x2 0644 01cf | | Execute Vector,Slice_Read 0645 0092 078f | | Action Push_String_Extended,0x78f ; "RATIONAL" 0647 01df | | Execute Vector,Equal 0648 4801 |H | Short_Literal 0x1 0649 4801 |H | Short_Literal 0x1 064a e602 | | Load 0x3,0x2 064b 01cf | | Execute Vector,Slice_Read 064c 0092 0790 | | Action Push_String_Extended,0x790 ; "R" 064e 01df | | Execute Vector,Equal 064f 4801 |H | Short_Literal 0x1 0650 4801 |H | Short_Literal 0x1 0651 e602 | | Load 0x3,0x2 0652 01cf | | Execute Vector,Slice_Read 0653 0092 0791 | | Action Push_String_Extended,0x791 ; "r" 0655 01df | | Execute Vector,Equal 0656 4801 |H | Short_Literal 0x1 0657 4808 |H | Short_Literal 0x8 0658 e602 | | Load 0x3,0x2 0659 01cf | | Execute Vector,Slice_Read 065a 0092 0792 | | Action Push_String_Extended,0x792 ; "rational" 065c 01df | | Execute Vector,Equal 065d e603 | | Load 0x3,0x3 065e 0d02 | | Execute_Immediate Less,0x2 065f 0278 | x | Execute Discrete,Or 0660 0278 | x | Execute Discrete,Or 0661 0278 | x | Execute Discrete,Or 0662 0278 | x | Execute Discrete,Or 0663 0278 | x | Execute Discrete,Or 0664 6806 |h | Jump_Zero 0x66b 0665 0092 0793 | | Action Push_String_Extended,0x793 ; "CT500" 0667 e20d | | Load 0x1,0xd 0668 01d4 | | Execute Vector,Structure_Write 0669 00cc | | Action Pop_Block 066a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 066b 4801 |H | Short_Literal 0x1 066c 4805 |H | Short_Literal 0x5 066d e602 | | Load 0x3,0x2 066e 01cf | | Execute Vector,Slice_Read 066f 0092 0794 | | Action Push_String_Extended,0x794 ; "VT100" 0671 01df | | Execute Vector,Equal 0672 4801 |H | Short_Literal 0x1 0673 4805 |H | Short_Literal 0x5 0674 e602 | | Load 0x3,0x2 0675 01cf | | Execute Vector,Slice_Read 0676 0092 0795 | | Action Push_String_Extended,0x795 ; "vt100" 0678 01df | | Execute Vector,Equal 0679 4801 |H | Short_Literal 0x1 067a 4801 |H | Short_Literal 0x1 067b e602 | | Load 0x3,0x2 067c 01cf | | Execute Vector,Slice_Read 067d 0092 0796 | | Action Push_String_Extended,0x796 ; "V" 067f 01df | | Execute Vector,Equal 0680 4801 |H | Short_Literal 0x1 0681 4801 |H | Short_Literal 0x1 0682 e602 | | Load 0x3,0x2 0683 01cf | | Execute Vector,Slice_Read 0684 0092 0797 | | Action Push_String_Extended,0x797 ; "v" 0686 01df | | Execute Vector,Equal 0687 4801 |H | Short_Literal 0x1 0688 4805 |H | Short_Literal 0x5 0689 e602 | | Load 0x3,0x2 068a 01cf | | Execute Vector,Slice_Read 068b 0092 0798 | | Action Push_String_Extended,0x798 ; "Vt100" 068d 01df | | Execute Vector,Equal 068e 0278 | x | Execute Discrete,Or 068f 0278 | x | Execute Discrete,Or 0690 0278 | x | Execute Discrete,Or 0691 0278 | x | Execute Discrete,Or 0692 6808 |h | Jump_Zero 0x69b 0693 0092 0794 | | Action Push_String_Extended,0x794 ; "VT100" 0695 e20d | | Load 0x1,0xd 0696 01d4 | | Execute Vector,Structure_Write 0697 4815 |H | Short_Literal 0x15 0698 a211 | | Store_Unchecked 0x1,0x11 0699 00cc | | Action Pop_Block 069a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 069b 4801 |H | Short_Literal 0x1 069c 4805 |H | Short_Literal 0x5 069d e602 | | Load 0x3,0x2 069e 01cf | | Execute Vector,Slice_Read 069f 0092 0799 | | Action Push_String_Extended,0x799 ; "FACIT" 06a1 01df | | Execute Vector,Equal 06a2 4801 |H | Short_Literal 0x1 06a3 4805 |H | Short_Literal 0x5 06a4 e602 | | Load 0x3,0x2 06a5 01cf | | Execute Vector,Slice_Read 06a6 0092 079a | | Action Push_String_Extended,0x79a ; "Facit" 06a8 01df | | Execute Vector,Equal 06a9 4801 |H | Short_Literal 0x1 06aa 4801 |H | Short_Literal 0x1 06ab e602 | | Load 0x3,0x2 06ac 01cf | | Execute Vector,Slice_Read 06ad 0092 079b | | Action Push_String_Extended,0x79b ; "F" 06af 01df | | Execute Vector,Equal 06b0 4801 |H | Short_Literal 0x1 06b1 4801 |H | Short_Literal 0x1 06b2 e602 | | Load 0x3,0x2 06b3 01cf | | Execute Vector,Slice_Read 06b4 0092 079c | | Action Push_String_Extended,0x79c ; "f" 06b6 01df | | Execute Vector,Equal 06b7 4801 |H | Short_Literal 0x1 06b8 4805 |H | Short_Literal 0x5 06b9 e602 | | Load 0x3,0x2 06ba 01cf | | Execute Vector,Slice_Read 06bb 0092 079d | | Action Push_String_Extended,0x79d ; "facit" 06bd 01df | | Execute Vector,Equal 06be 0278 | x | Execute Discrete,Or 06bf 0278 | x | Execute Discrete,Or 06c0 0278 | x | Execute Discrete,Or 06c1 0278 | x | Execute Discrete,Or 06c2 6806 |h | Jump_Zero 0x6c9 06c3 0092 0799 | | Action Push_String_Extended,0x799 ; "FACIT" 06c5 e20d | | Load 0x1,0xd 06c6 01d4 | | Execute Vector,Structure_Write 06c7 00cc | | Action Pop_Block 06c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06c9 4800 |H | Short_Literal 0x0 06ca 4802 |H | Short_Literal 0x2 06cb 0092 079e | | Action Push_String_Extended,0x79e ; "Error, please select one of FACIT, VT100, or RATIONAL." 06cd 8224 | $ | Call 0x1,0x24 06ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06cf TRAP_0620: 06cf 0007 | | Action Break_Optional 06d0 0092 0793 | | Action Push_String_Extended,0x793 ; "CT500" 06d2 e20d | | Load 0x1,0xd 06d3 01d4 | | Execute Vector,Structure_Write 06d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06d5 0000 0000 | | .XXX[0x3] 06d7 0000 | | 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06db | | .CONST 0x06db ; Address of begin 06d9 0708 | | .CONST 0x0708 ; Address of exception handler 06da 0001 | | .CONST 0x0001 ; Number of locals 06db BODY_06d8: 06db INIT_06d8: 06db e5ff | | Load 0x2,-0x1 06dc 821d | | Call 0x1,0x1d 06dd 0092 079f | | Action Push_String_Extended,0x79f ; " [" 06df 821d | | Call 0x1,0x1d 06e0 e602 | | Load 0x3,0x2 06e1 e214 | | Load 0x1,0x14 06e2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 06e3 e5fd | | Load 0x2,-0x3 06e4 e214 | | Load 0x1,0x14 06e5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06e6 00d1 | | Pop_Control Pop_Count_1 06e7 e602 | | Load 0x3,0x2 06e8 821d | | Call 0x1,0x1d 06e9 0092 07a0 | | Action Push_String_Extended,0x7a0 ; "]: " 06eb 821d | | Call 0x1,0x1d 06ec e603 | | Load 0x3,0x3 06ed e602 | | Load 0x3,0x2 06ee 4801 |H | Short_Literal 0x1 06ef 8227 | ' | Call 0x1,0x27 06f0 00d1 | | Pop_Control Pop_Count_1 06f1 c603 | | Store 0x3,0x3 06f2 e603 | | Load 0x3,0x3 06f3 0f01 | | Execute_Immediate Equal,0x1 06f4 6804 |h | Jump_Zero 0x6f9 06f5 e5fd | | Load 0x2,-0x3 06f6 a5fc | | Store_Unchecked 0x2,-0x4 06f7 00cc | | Action Pop_Block 06f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06f9 00e4 | | Load_Encached Positive_Cache 06fa e214 | | Load 0x1,0x14 06fb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06fc 4801 |H | Short_Literal 0x1 06fd e603 | | Load 0x3,0x3 06fe 0aff | | Execute_Immediate Plus,-0x1 06ff 0248 | H | Execute Discrete,Check_In_Integer 0700 e602 | | Load 0x3,0x2 0701 01cf | | Execute Vector,Slice_Read 0702 e214 | | Load 0x1,0x14 0703 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0704 c5fc | | Store 0x2,-0x4 0705 c604 | | Store 0x3,0x4 0706 00cc | | Action Pop_Block 0707 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0708 TRAP_06d8: 0708 0007 | | Action Break_Optional 0709 4801 |H | Short_Literal 0x1 070a 4804 |H | Short_Literal 0x4 070b 0092 07a1 | | Action Push_String_Extended,0x7a1 ; "Error, Please enter only numeric integer as 123" 070d 8224 | $ | Call 0x1,0x24 070e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 070f 0000 | | .XXX[0x1] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0713 | | .CONST 0x0713 ; Address of begin 0711 076a | j | .CONST 0x076a ; Address of exception handler 0712 0001 | | .CONST 0x0001 ; Number of locals 0713 BODY_0710: 0713 INIT_0710: 0713 e5ff | | Load 0x2,-0x1 0714 821d | | Call 0x1,0x1d 0715 0092 07a2 | | Action Push_String_Extended,0x7a2 ; " (y/n) [" 0717 821d | | Call 0x1,0x1d 0718 e5fd | | Load 0x2,-0x3 0719 821d | | Call 0x1,0x1d 071a 0092 07a0 | | Action Push_String_Extended,0x7a0 ; "]: " 071c 821d | | Call 0x1,0x1d 071d e603 | | Load 0x3,0x3 071e e602 | | Load 0x3,0x2 071f 4801 |H | Short_Literal 0x1 0720 8227 | ' | Call 0x1,0x27 0721 00d1 | | Pop_Control Pop_Count_1 0722 c603 | | Store 0x3,0x3 0723 e603 | | Load 0x3,0x3 0724 0f01 | | Execute_Immediate Equal,0x1 0725 680e |h | Jump_Zero 0x734 0726 e5fd | | Load 0x2,-0x3 0727 01dd | | Execute Vector,First 0728 e5fd | | Load 0x2,-0x3 0729 01dd | | Execute Vector,First 072a e5fd | | Load 0x2,-0x3 072b 01cf | | Execute Vector,Slice_Read 072c e5fc | | Load 0x2,-0x4 072d 01dd | | Execute Vector,First 072e e5fc | | Load 0x2,-0x4 072f 01dd | | Execute Vector,First 0730 e5fc | | Load 0x2,-0x4 0731 01ce | | Execute Vector,Slice_Write 0732 00cc | | Action Pop_Block 0733 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0734 4801 |H | Short_Literal 0x1 0735 4801 |H | Short_Literal 0x1 0736 e602 | | Load 0x3,0x2 0737 01cf | | Execute Vector,Slice_Read 0738 0092 07a3 | | Action Push_String_Extended,0x7a3 ; "y" 073a 01df | | Execute Vector,Equal 073b 4801 |H | Short_Literal 0x1 073c 4801 |H | Short_Literal 0x1 073d e602 | | Load 0x3,0x2 073e 01cf | | Execute Vector,Slice_Read 073f 0092 07a4 | | Action Push_String_Extended,0x7a4 ; "Y" 0741 01df | | Execute Vector,Equal 0742 0278 | x | Execute Discrete,Or 0743 680a |h | Jump_Zero 0x74e 0744 0092 07a3 | | Action Push_String_Extended,0x7a3 ; "y" 0746 e5fc | | Load 0x2,-0x4 0747 01dd | | Execute Vector,First 0748 e5fc | | Load 0x2,-0x4 0749 01dd | | Execute Vector,First 074a e5fc | | Load 0x2,-0x4 074b 01ce | | Execute Vector,Slice_Write 074c 00cc | | Action Pop_Block 074d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 074e 4801 |H | Short_Literal 0x1 074f 4801 |H | Short_Literal 0x1 0750 e602 | | Load 0x3,0x2 0751 01cf | | Execute Vector,Slice_Read 0752 0092 07a5 | | Action Push_String_Extended,0x7a5 ; "n" 0754 01df | | Execute Vector,Equal 0755 4801 |H | Short_Literal 0x1 0756 4801 |H | Short_Literal 0x1 0757 e602 | | Load 0x3,0x2 0758 01cf | | Execute Vector,Slice_Read 0759 0092 07a6 | | Action Push_String_Extended,0x7a6 ; "N" 075b 01df | | Execute Vector,Equal 075c 0278 | x | Execute Discrete,Or 075d 680a |h | Jump_Zero 0x768 075e 0092 07a5 | | Action Push_String_Extended,0x7a5 ; "n" 0760 e5fc | | Load 0x2,-0x4 0761 01dd | | Execute Vector,First 0762 e5fc | | Load 0x2,-0x4 0763 01dd | | Execute Vector,First 0764 e5fc | | Load 0x2,-0x4 0765 01ce | | Execute Vector,Slice_Write 0766 00cc | | Action Pop_Block 0767 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0768 e006 | | Load 0x0,0x6 0769 0257 | W | Execute Discrete,Raise 076a TRAP_0710: 076a 0007 | | Action Break_Optional 076b 4801 |H | Short_Literal 0x1 076c 4804 |H | Short_Literal 0x4 076d 0092 07a7 | | Action Push_String_Extended,0x7a7 ; "Error, Please enter only a y or n for yes/no as 'y'" 076f 8224 | $ | Call 0x1,0x24 0770 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0771 0000 0000 | | .XXX[0x3] 0773 0000 | | 0774 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 0778 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 077c 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 0780 ; -------------------------------------------------------------------------------------- 0780 ; STRING TABLE 0780 ; -------------------------------------------------------------------------------------- 0780 0052 | R | .STRTAB 0x0052->0x07a9 ; "\x1b[1D" 0781 0054 | T | .STRTAB 0x0054->0x07ab ; " " 0782 0053 | S | .STRTAB 0x0053->0x07ab ; "\x1b[1C" 0783 0055 | U | .STRTAB 0x0055->0x07ad ; "Calling parameter error." 0784 006b | k | .STRTAB 0x006b->0x07b9 ; "Exception in ap_compare_up_low_strings, pos. called with size > string" 0785 00af | | .STRTAB 0x00af->0x07dc ; "Exception in ap_get_date_string." 0786 00cd | | .STRTAB 0x00cd->0x07ec ; ":" 0787 00cc | | .STRTAB 0x00cc->0x07ed ; "0" 0788 00cb | | .STRTAB 0x00cb->0x07ed ; "Exception in ap_get_time_string." 0789 00e9 | | .STRTAB 0x00e9->0x07fd ; "Exception in ap_ask_user_for_term_type." 078a 010e | | .STRTAB 0x010e->0x0811 ; "Exception occurred in ap_screen_procedures." 078b 0137 | 7 | .STRTAB 0x0137->0x0826 ; "-" 078c 0136 | 6 | .STRTAB 0x0136->0x0827 ; "Please select terminal type: Rational, VT100, FACIT [Rational]:" 078d 0174 | t | .STRTAB 0x0174->0x0847 ; " " 078e 017c | | | .STRTAB 0x017c->0x084c ; "Rational" 078f 0182 | | .STRTAB 0x0182->0x0850 ; "RATIONAL" 0790 0188 | | .STRTAB 0x0188->0x0854 ; "R" 0791 0187 | | .STRTAB 0x0187->0x0854 ; "r" 0792 0186 | | .STRTAB 0x0186->0x0855 ; "rational" 0793 018c | | .STRTAB 0x018c->0x0859 ; "CT500" 0794 018f | | .STRTAB 0x018f->0x085b ; "VT100" 0795 0192 | | .STRTAB 0x0192->0x085e ; "vt100" 0796 0195 | | .STRTAB 0x0195->0x0860 ; "V" 0797 0194 | | .STRTAB 0x0194->0x0861 ; "v" 0798 0193 | | .STRTAB 0x0193->0x0861 ; "Vt100" 0799 0196 | | .STRTAB 0x0196->0x0864 ; "FACIT" 079a 0199 | | .STRTAB 0x0199->0x0866 ; "Facit" 079b 019c | | .STRTAB 0x019c->0x0869 ; "F" 079c 019b | | .STRTAB 0x019b->0x0869 ; "f" 079d 019a | | .STRTAB 0x019a->0x086a ; "facit" 079e 019d | | .STRTAB 0x019d->0x086c ; "Error, please select one of FACIT, VT100, or RATIONAL." 079f 01d1 | | .STRTAB 0x01d1->0x0887 ; " [" 07a0 01d1 | | .STRTAB 0x01d1->0x0888 ; "]: " 07a1 01d2 | | .STRTAB 0x01d2->0x088a ; "Error, Please enter only numeric integer as 123" 07a2 01ff | | .STRTAB 0x01ff->0x08a1 ; " (y/n) [" 07a3 0205 | | .STRTAB 0x0205->0x08a5 ; "y" 07a4 0204 | | .STRTAB 0x0204->0x08a6 ; "Y" 07a5 0203 | | .STRTAB 0x0203->0x08a6 ; "n" 07a6 0202 | | .STRTAB 0x0202->0x08a7 ; "N" 07a7 0201 | | .STRTAB 0x0201->0x08a7 ; "Error, Please enter only a y or n for yes/no as 'y'" 07a8 0232 | 2 | .STREND 0x0232->0x08c1 07a9 1b5b 3144 | [1D| .STRTAB_STRINGS 08c1 0000 0000 | | .BLANK 0000[0x7] 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; Debug Table 08c8 ; -------------------------------------------------------------------------------------- 08c8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x120d,0x0000,0x0001,0x0000 08ce 0011 0000 | | .XXX[0x9] 08d0 0000 0800 | | 08d2 0000 5200 | R | 08d4 0010 08ed | | 08d6 3800 |8 | 08d7 0000 0000 | | .BLANK 0000[0x1d] 08f4 0905 d8b2 | | .XXX[0x1c] 08f6 0000 0025 | %| 08f8 2000 0200 | | 08fa 1800 0100 | | 08fc 0000 005c | \| 08fe 9800 0040 | @| 0900 0000 0060 | `| 0902 0500 0000 | | 0904 0100 0000 | | 0906 4000 0002 |@ | 0908 2000 0000 | | 090a 0100 0000 | | 090c 0a40 0002 | @ | 090e 00f4 fc00 | | 0910 0000 0000 | | .BLANK 0000[0x1d] 092d 0120 bb16 | | .XXX[0x1c] 092f 8000 0005 | | 0931 2400 0040 |$ @| 0933 0300 0020 | | 0935 0000 0011 | | 0937 8f00 0008 | | 0939 0000 000c | | 093b 00a0 0000 | | 093d 0020 0000 | | 093f 0800 0000 | | 0941 4400 0000 |D | 0943 0020 0000 | | 0945 0148 0000 | H | 0947 4021 d200 |@! | 0949 0000 0000 | | .BLANK 0000[0x1d] 0966 0024 1762 | $ b| .XXX[0x1c] 0968 d800 0000 | | 096a a480 0008 | | 096c 0060 0004 | ` | 096e 0000 0001 | | 0970 ff60 0001 | ` | 0972 0000 0001 | | 0974 8014 0000 | | 0976 0004 0000 | | 0978 0100 0000 | | 097a 0880 0000 | | 097c 0004 0000 | | 097e 0029 0000 | ) | 0980 0804 2604 | & | 0982 0000 0000 | | .BLANK 0000[0x1d] 099f 0004 82ec | | .XXX[0x1d] 09a1 5c00 0000 |\ | 09a3 1490 0001 | | 09a5 000c 0000 | | 09a7 8000 0000 | | 09a9 3d30 0000 |=0 | 09ab 2000 0000 | | 09ad 3002 8000 |0 | 09af 0000 8000 | | 09b1 0020 0000 | | 09b3 0110 0000 | | 09b5 0000 8000 | | 09b7 0005 2000 | | 09b9 0100 83a6 | | 09bb 8000 | | 09bc 0000 0000 | | .BLANK 0000[0x44]