|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_00c0
0037 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0
0039 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
003b 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
003d 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
003f 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100
0041 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0043 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110
0045 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0047 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0049 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
004b 0007 | | Action Break_Optional
004c 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
004e 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0050 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
0052 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0054 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0056 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
0058 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
005a 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
005c 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
005e 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
0060 029a 02c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c0
0062 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
0064 029a 031b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0318
0066 00c4 | | Action Make_Default
0067 00c4 | | Action Make_Default
0068 029a 032b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0328
006a c22e | . | Store 0x1,0x2e
006b 029a 03b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b0
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 For_Call,INIT_03c0
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 For_Call,INIT_03d0
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_Subprogram 0x2
00da TRAP_00c0:
00da 0007 | | Action Break_Optional
00db 4502 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 0x3
00ec TRAP_00e8:
00ec 0007 | | Action Break_Optional
00ed 4503 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 0x2
011f TRAP_0118:
011f 0007 | | Action Break_Optional
0120 4502 |E | Exit_Subprogram 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_Subprogram 0x2
0131 TRAP_0128:
0131 0007 | | Action Break_Optional
0132 4502 |E | Exit_Subprogram 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_Subprogram 0x5
013e TRAP_0138:
013e 0007 | | Action Break_Optional
013f 4505 |E | Exit_Subprogram 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_Subprogram 0x2
0144 TRAP_0140:
0144 0007 | | Action Break_Optional
0145 4502 |E | Exit_Subprogram 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_Subprogram 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 For_Call,INIT_03e8
0155 BODY_0150:
0155 8402 | | Call 0x2,0x2
0156 4503 |E | Exit_Subprogram 0x3
0157 TRAP_0150:
0157 0007 | | Action Break_Optional
0158 4503 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 0x4
016f TRAP_0168:
016f 0007 | | Action Break_Optional
0170 4504 |E | Exit_Subprogram 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 For_Call,INIT_03f0
017d BODY_0178:
017d 8402 | | Call 0x2,0x2
017e 4504 |E | Exit_Subprogram 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 For_Call,INIT_0418
0185 BODY_0180:
0185 8402 | | Call 0x2,0x2
0186 4504 |E | Exit_Subprogram 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 For_Call,INIT_0440
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_Subprogram 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 For_Call,INIT_0468
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 0x2
02b2 00c9 | | Action Pop_Auxiliary_Loop
02b3 7f49 | I | Jump 0x1fd
02b4 TRAP_01e8:
02b4 0007 | | Action Break_Optional
02b5 4502 |E | Exit_Subprogram 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 0x7ff
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_Subprogram 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_Subprogram 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_Subprogram 0x4
0300 TRAP_02c0:
0300 0007 | | Action Break_Optional
0301 4504 |E | Exit_Subprogram 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 For_Call,INIT_0490
030d BODY_0308:
030d 8402 | | Call 0x2,0x2
030e 4506 |E | Exit_Subprogram 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_Subprogram 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 For_Call,INIT_0580
031d BODY_0318:
031d 8402 | | Call 0x2,0x2
031e 4501 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0620
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_06d8
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_Subprogram 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 For_Call,INIT_0710
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_Subprogram 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_Subprogram 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 0x7ff
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 0x7ff
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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"
; "\x1b[1D"
; "\x1b[1D"
; "\x1b[1D"
; "\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"
; "0"
; "0"
; "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"
; "CT500"
0794 018f | | .STRTAB 0x018f->0x085b ; "VT100"
; "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"
; "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"
; "y"
07a4 0204 | | .STRTAB 0x0204->0x08a6 ; "Y"
07a5 0203 | | .STRTAB 0x0203->0x08a6 ; "n"
; "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]