|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 06f0 | | .CONST 0x06f0 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0084 | | .CONST 0x0084 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0032 | 2 | .CONST 0x0032 ; Number of locals 000b INIT_0008: 000b 00bf | | Action Accept_Activation 000c e001 | | Load 0x0,0x1 000d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 000e 341b |4 | Execute Record,Field_Reference,Field_Number 0x1b 000f 0007 | | Action Break_Optional 0010 00e3 | | Load_Encached Natural_Cache 0011 4801 |H | Short_Literal 0x1 0012 48a0 |H | Short_Literal 0xa0 0013 00e9 | | Load_Encached String_Cache 0014 035b | [ | Declare_Type Array,Constrained 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4802 |H | Short_Literal 0x2 0017 032d | - | Declare_Type Record,Defined 0018 4801 |H | Short_Literal 0x1 0019 4a94 |J | Short_Literal 0x294 001a e20e | | Load 0x1,0xe 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4801 |H | Short_Literal 0x1 001d 035d | ] | Declare_Type Array,Defined 001e 00d8 | | Load_Top At_Offset_0 001f 0337 | 7 | Declare_Variable Array 0020 00e1 | | Load_Encached Boolean_Cache 0021 00e1 | | Load_Encached Boolean_Cache 0022 00e3 | | Load_Encached Natural_Cache 0023 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0024 00e3 | | Load_Encached Natural_Cache 0025 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0026 00e3 | | Load_Encached Natural_Cache 0027 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0028 00e1 | | Load_Encached Boolean_Cache 0029 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002a e002 | | Load 0x0,0x2 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 02c7 | | Declare_Variable Any 002d 00d8 | | Load_Top At_Offset_0 002e 1c00 | | Execute_Immediate Run_Utility,0x0 002f 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call 0031 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call 0033 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 0035 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call 0037 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call 0039 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call 003b 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 003d 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 003f 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call 0041 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 0043 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 0045 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 0047 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call 0049 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call 004b 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call 004d 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call 004f 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 0051 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0053 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 0055 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0057 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call 0059 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call 005b 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 005d 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 005f 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call 0061 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call 0063 e003 | | Load 0x0,0x3 0064 e004 | | Load 0x0,0x4 0065 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0066 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0067 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0068 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0069 1d19 | | Execute_Immediate Reference_Lex_1,0x19 006a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 006b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 006c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 006d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 006e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 006f 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0070 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0071 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0072 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0073 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0074 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0075 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0076 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0077 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0078 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0079 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 007a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 007b 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 007c 0092 060d | | Action Push_String_Extended,0x60d ; "OnLine" 007e e005 | | Load 0x0,0x5 007f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0080 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0081 0387 | | Declare_Variable Package 0082 00d8 | | Load_Top At_Offset_0 0083 020f | | Execute Module,Activate 0084 BODY_0008: 0084 00bc | | Action Signal_Activated 0085 00bb | | Action Signal_Completion 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4800 |H | Short_Literal 0x0 008c 00ca | | Action Exit_Nullary_Function 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e005 | | Load 0x0,0x5 0094 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0095 0322 | " | Declare_Variable Record 0096 6015 |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x0078d980} 0097 e402 | | Load 0x2,0x2 0098 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0099 4800 |H | Short_Literal 0x0 009a e402 | | Load 0x2,0x2 009b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009c 600b |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x00119400} 009d e402 | | Load 0x2,0x2 009e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 009f 4800 |H | Short_Literal 0x0 00a0 e402 | | Load 0x2,0x2 00a1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00a2 6009 |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x0078d980} 00a3 e402 | | Load 0x2,0x2 00a4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00a5 e5fe | | Load 0x2,-0x2 00a6 017d | } | Execute Record,Structure_Write 00a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a8 0000 0000 | | .LITERAL {0x00000000, 0x00119400} 00ac 0000 0000 | | .LITERAL {0x00000000, 0x0078d980} 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 0092 060e | | Action Push_String_Extended,0x60e ; "The OnLine device does not support defining forms" 00bd e006 | | Load 0x0,0x6 00be 180e | | Execute Package,Field_Execute,Field_Number 0xe 00bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cc | | .CONST 0x00cc ; Address of begin 00c1 00d1 | | .CONST 0x00d1 ; Address of exception handler 00c2 0004 | | .CONST 0x0004 ; Number of locals 00c3 INIT_00c0: 00c3 e007 | | Load 0x0,0x7 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 02c7 | | Declare_Variable Any 00c6 00d8 | | Load_Top At_Offset_0 00c7 1c00 | | Execute_Immediate Run_Utility,0x0 00c8 029f 05e3 | | Declare_Subprogram INIT_05e0,For_Call 00ca 029f 0603 | | Declare_Subprogram INIT_0600,For_Call 00cc BODY_00c0: 00cc 8403 | | Call 0x2,0x3 00cd 00cf | | Action Mark_Auxiliary 00ce 8404 | | Call 0x2,0x4 00cf 00c9 | | Action Pop_Auxiliary_Loop 00d0 7ffd | | Jump 0xce 00d1 TRAP_00c0: 00d1 00d8 | | Load_Top At_Offset_0 00d2 0107 | | Execute Exception,Get_Name 00d3 4950 |IP | Short_Literal 0x150 00d4 495f |I_ | Short_Literal 0x15f 00d5 0262 | b | Execute Discrete,In_Range 00d6 6805 |h | Jump_Zero 0xdc 00d7 e402 | | Load 0x2,0x2 00d8 e007 | | Load 0x0,0x7 00d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00da c402 | | Store 0x2,0x2 00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00dc e001 | | Load 0x0,0x1 00dd 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00de 010f | | Execute Exception,Equal 00df 6802 |h | Jump_Zero 0xe2 00e0 00d8 | | Load_Top At_Offset_0 00e1 0101 | | Execute Exception,Reraise 00e2 0092 060f | | Action Push_String_Extended,0x60f ; "Could not define forms in " 00e4 e5ff | | Load 0x2,-0x1 00e5 01cc | | Execute Vector,Catenate 00e6 e006 | | Load 0x0,0x6 00e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e8 e001 | | Load 0x0,0x1 00e9 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00ea 0257 | W | Execute Discrete,Raise 00eb 0000 0000 | | .BLANK 0000[0x5] 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 0092 0610 | | Action Push_String_Extended,0x610 ; "The OnLine device does not support defining fonts" 00f5 e006 | | Load 0x0,0x6 00f6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 4801 |H | Short_Literal 0x1 0104 a5fe | | Store_Unchecked 0x2,-0x2 0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0106 0000 0000 | | .XXX[0x2] 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 0092 0611 | | Action Push_String_Extended,0x611 ; "Standard" 010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010e 0000 0000 | | .XXX[0x2] 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 480a |H | Short_Literal 0xa 0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 6004 |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x00001c20} 011c 00ca | | Action Exit_Nullary_Function 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 0000 0000 | | .LITERAL {0x00000000, 0x00001c20} 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 6004 |` | Indirect_Literal Discrete,0x130,{0x00000000, 0x00002ee0} 012c 00ca | | Action Exit_Nullary_Function 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 0000 0000 | | .LITERAL {0x00000000, 0x00002ee0} 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b e5ff | | Load 0x2,-0x1 013c 600b |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x00001c20} 013d 0270 | p | Execute Discrete,Divide 013e 6009 |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x00001c20} 013f 0271 | q | Execute Discrete,Times 0140 e001 | | Load 0x0,0x1 0141 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0142 00d9 | | Load_Top At_Offset_1 0143 00d0 | | Action Swap_Control 0144 0260 | ` | Execute Discrete,In_Type 0145 7001 |p | Jump_Nonzero 0x147 0146 0801 | | Execute_Immediate Raise,0x1 0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0148 0000 0000 | | .LITERAL {0x00000000, 0x00001c20} 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e5ff | | Load 0x2,-0x1 0154 0c00 | | Execute_Immediate Greater_Equal,0x0 0155 680f |h | Jump_Zero 0x165 0156 e5ff | | Load 0x2,-0x1 0157 6024 |`$ | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00002edf} 0158 0273 | s | Execute Discrete,Plus 0159 601e |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00002ee0} 015a 0270 | p | Execute Discrete,Divide 015b 601c |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00002ee0} 015c 0271 | q | Execute Discrete,Times 015d e001 | | Load 0x0,0x1 015e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 015f 00d9 | | Load_Top At_Offset_1 0160 00d0 | | Action Swap_Control 0161 0260 | ` | Execute Discrete,In_Type 0162 7001 |p | Jump_Nonzero 0x164 0163 0801 | | Execute_Immediate Raise,0x1 0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0165 e5ff | | Load 0x2,-0x1 0166 600d |` | Indirect_Literal Discrete,0x174,{0xffffffff, 0xffffd121} 0167 0273 | s | Execute Discrete,Plus 0168 600f |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00002ee0} 0169 0270 | p | Execute Discrete,Divide 016a 600d |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00002ee0} 016b 0271 | q | Execute Discrete,Times 016c e001 | | Load 0x0,0x1 016d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 016e 00d9 | | Load_Top At_Offset_1 016f 00d0 | | Action Swap_Control 0170 0260 | ` | Execute Discrete,In_Type 0171 7001 |p | Jump_Nonzero 0x173 0172 0801 | | Execute_Immediate Raise,0x1 0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0174 ffff ffff | | .LITERAL {0xffffffff, 0xffffd121} 0178 0000 0000 | | .LITERAL {0x00000000, 0x00002ee0} 017c 0000 0000 | | .LITERAL {0x00000000, 0x00002edf} 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 6004 |` | Indirect_Literal Discrete,0x188,{0x00000000, 0x00001c20} 0184 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 0000 0000 | | .LITERAL {0x00000000, 0x00001c20} 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 6004 |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00002710} 0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 0000 0000 | | .LITERAL {0x00000000, 0x00002710} 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ab | | .CONST 0x01ab ; Address of begin 01a1 01b3 | | .CONST 0x01b3 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e5ff | | Load 0x2,-0x1 01a4 e008 | | Load 0x0,0x8 01a5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 01a7 0092 0612 | | Action Push_String_Extended,0x612 ; "_ONLINE" 01a9 01cc | | Execute Vector,Catenate 01aa 0007 | | Action Break_Optional 01ab BODY_01a0: 01ab e217 | | Load 0x1,0x17 01ac e009 | | Load 0x0,0x9 01ad 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 01ae e402 | | Load 0x2,0x2 01af e002 | | Load 0x0,0x2 01b0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01b1 c217 | | Store 0x1,0x17 01b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b3 TRAP_01a0: 01b3 0007 | | Action Break_Optional 01b4 4829 |H) | Short_Literal 0x29 01b5 0092 0613 | | Action Push_String_Extended,0x613 ; "Cannot create output " 01b7 e402 | | Load 0x2,0x2 01b8 01cc | | Execute Vector,Catenate 01b9 0092 0614 | | Action Push_String_Extended,0x614 ; " (" 01bb 01cc | | Execute Vector,Catenate 01bc 4800 |H | Short_Literal 0x0 01bd 4801 |H | Short_Literal 0x1 01be e00a | | Load 0x0,0xa 01bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c0 01cc | | Execute Vector,Catenate 01c1 01cb | | Execute Vector,Append 01c2 e006 | | Load 0x0,0x6 01c3 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c4 e001 | | Load 0x0,0x1 01c5 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01c6 0257 | W | Execute Discrete,Raise 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb e217 | | Load 0x1,0x17 01cc e002 | | Load 0x0,0x2 01cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ce c217 | | Store 0x1,0x17 01cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 0092 0615 | | Action Push_String_Extended,0x615 ; "_ONLINE_AUX" 01d5 00ca | | Action Exit_Nullary_Function 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e215 | | Load 0x1,0x15 01dc 4a94 |J | Short_Literal 0x294 01dd 027d | } | Execute Discrete,Greater 01de 6802 |h | Jump_Zero 0x1e1 01df 4a94 |J | Short_Literal 0x294 01e0 a215 | | Store_Unchecked 0x1,0x15 01e1 00cf | | Action Mark_Auxiliary 01e2 7804 |x | Jump 0x1e7 01e3 e215 | | Load 0x1,0x15 01e4 0aff | | Execute_Immediate Plus,-0x1 01e5 c215 | | Store 0x1,0x15 01e6 00c9 | | Action Pop_Auxiliary_Loop 01e7 e215 | | Load 0x1,0x15 01e8 0c01 | | Execute_Immediate Greater_Equal,0x1 01e9 6805 |h | Jump_Zero 0x1ef 01ea e215 | | Load 0x1,0x15 01eb e210 | | Load 0x1,0x10 01ec 01d5 | | Execute Vector,Field_Reference 01ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ee 6ff4 |o | Jump_Zero 0x1e3 01ef 00c9 | | Action Pop_Auxiliary_Loop 01f0 e215 | | Load 0x1,0x15 01f1 4801 |H | Short_Literal 0x1 01f2 0263 | c | Execute Discrete,Above_Bound 01f3 700f |p | Jump_Nonzero 0x203 01f4 4801 |H | Short_Literal 0x1 01f5 e404 | | Load 0x2,0x4 01f6 e210 | | Load 0x1,0x10 01f7 01d5 | | Execute Vector,Field_Reference 01f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f9 e404 | | Load 0x2,0x4 01fa e210 | | Load 0x1,0x10 01fb 01d5 | | Execute Vector,Field_Reference 01fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01fd 01cf | | Execute Vector,Slice_Read 01fe e217 | | Load 0x1,0x17 01ff e002 | | Load 0x0,0x2 0200 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0201 00c8 | | Action Pop_Auxiliary_Range 0202 3ff1 |? | Loop_Increasing 0x1f4 0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00cf | | Action Mark_Auxiliary 020c e210 | | Load 0x1,0x10 020d 01d9 | | Execute Vector,Reverse_Bounds 020e 0007 | | Action Break_Optional 020f e20e | | Load 0x1,0xe 0210 0322 | " | Declare_Variable Record 0211 4800 |H | Short_Literal 0x0 0212 e405 | | Load 0x2,0x5 0213 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0214 4801 |H | Short_Literal 0x1 0215 48a0 |H | Short_Literal 0xa0 0216 00e9 | | Load_Encached String_Cache 0217 0334 | 4 | Declare_Variable Array,With_Constraint 0218 48a0 |H | Short_Literal 0xa0 0219 4801 |H | Short_Literal 0x1 021a 4820 |H | Short_Literal 0x20 021b e408 | | Load 0x2,0x8 021c e406 | | Load 0x2,0x6 021d 01d6 | | Execute Vector,Field_Write 021e 3ffb |? | Loop_Increasing 0x21a 021f e20e | | Load 0x1,0xe 0220 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0221 0119 | | Execute Any,Check_In_Formal_Type 0222 e405 | | Load 0x2,0x5 0223 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0224 e404 | | Load 0x2,0x4 0225 e210 | | Load 0x1,0x10 0226 01d6 | | Execute Vector,Field_Write 0227 00c8 | | Action Pop_Auxiliary_Range 0228 3fe6 |? | Loop_Increasing 0x20f 0229 00ce | | Action Pop_Auxiliary 022a 4800 |H | Short_Literal 0x0 022b a211 | | Store_Unchecked 0x1,0x11 022c 4800 |H | Short_Literal 0x0 022d a212 | | Store_Unchecked 0x1,0x12 022e 4800 |H | Short_Literal 0x0 022f a215 | | Store_Unchecked 0x1,0x15 0230 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023f | ? | .CONST 0x023f ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e214 | | Load 0x1,0x14 023c e210 | | Load 0x1,0x10 023d 01d5 | | Execute Vector,Field_Reference 023e 0007 | | Action Break_Optional 023f BODY_0238: 023f e213 | | Load 0x1,0x13 0240 0a01 | | Execute_Immediate Plus,0x1 0241 c213 | | Store 0x1,0x13 0242 e213 | | Load 0x1,0x13 0243 0ca1 | | Execute_Immediate Greater_Equal,-0x5f 0244 6809 |h | Jump_Zero 0x24e 0245 e212 | | Load 0x1,0x12 0246 7006 |p | Jump_Nonzero 0x24d 0247 0092 0616 | | Action Push_String_Extended,0x616 ; "Characters beyond right edge of page ignored" 0249 e006 | | Load 0x0,0x6 024a 180e | | Execute Package,Field_Execute,Field_Number 0xe 024b 4801 |H | Short_Literal 0x1 024c a212 | | Store_Unchecked 0x1,0x12 024d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 024e e5ff | | Load 0x2,-0x1 024f e213 | | Load 0x1,0x13 0250 e402 | | Load 0x2,0x2 0251 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0252 01d6 | | Execute Vector,Field_Write 0253 00d8 | | Load_Top At_Offset_0 0254 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0255 e213 | | Load 0x1,0x13 0256 027c | | | Execute Discrete,Less 0257 6803 |h | Jump_Zero 0x25b 0258 e213 | | Load 0x1,0x13 0259 e402 | | Load 0x2,0x2 025a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 025b e5fe | | Load 0x2,-0x2 025c 600b |` | Indirect_Literal Discrete,0x268,{0x00000000, 0x00001c20} 025d 027f | | Execute Discrete,Equal 025e 7007 |p | Jump_Nonzero 0x266 025f e213 | | Load 0x1,0x13 0260 e5fe | | Load 0x2,-0x2 0261 6006 |` | Indirect_Literal Discrete,0x268,{0x00000000, 0x00001c20} 0262 0270 | p | Execute Discrete,Divide 0263 0aff | | Execute_Immediate Plus,-0x1 0264 0273 | s | Execute Discrete,Plus 0265 c213 | | Store 0x1,0x13 0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0267 0000 | | .XXX[0x1] 0268 0000 0000 | | .LITERAL {0x00000000, 0x00001c20} 026c 0000 0000 | | .BLANK 0000[0x4] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0275 | u | .CONST 0x0275 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0003 | | .CONST 0x0003 ; Number of locals 0273 INIT_0270: 0273 00e3 | | Load_Encached Natural_Cache 0274 03e9 | | Declare_Variable Discrete,Duplicate 0275 BODY_0270: 0275 e213 | | Load 0x1,0x13 0276 e5ff | | Load 0x2,-0x1 0277 67f0 |g | Indirect_Literal Discrete,0x268,{0x00000000, 0x00001c20} 0278 0270 | p | Execute Discrete,Divide 0279 0273 | s | Execute Discrete,Plus 027a c402 | | Store 0x2,0x2 027b e214 | | Load 0x1,0x14 027c e5fe | | Load 0x2,-0x2 027d 60be |` | Indirect_Literal Discrete,0x33c,{0x00000000, 0x00002ee0} 027e 0270 | p | Execute Discrete,Divide 027f 0273 | s | Execute Discrete,Plus 0280 c403 | | Store 0x2,0x3 0281 e402 | | Load 0x2,0x2 0282 e213 | | Load 0x1,0x13 0283 027d | } | Execute Discrete,Greater 0284 e214 | | Load 0x1,0x14 0285 0e00 | | Execute_Immediate Not_Equal,0x0 0286 0279 | y | Execute Discrete,And 0287 6826 |h& | Jump_Zero 0x2ae 0288 00cf | | Action Mark_Auxiliary 0289 e402 | | Load 0x2,0x2 028a 0aff | | Execute_Immediate Plus,-0x1 028b e213 | | Load 0x1,0x13 028c 0a01 | | Execute_Immediate Plus,0x1 028d 00d8 | | Load_Top At_Offset_0 028e 00e2 | | Load_Encached Integer_Cache 028f 0260 | ` | Execute Discrete,In_Type 0290 7001 |p | Jump_Nonzero 0x292 0291 0801 | | Execute_Immediate Raise,0x1 0292 0263 | c | Execute Discrete,Above_Bound 0293 700c |p | Jump_Nonzero 0x2a0 0294 00d8 | | Load_Top At_Offset_0 0295 0da0 | | Execute_Immediate Less,-0x60 0296 6807 |h | Jump_Zero 0x29e 0297 482d |H- | Short_Literal 0x2d 0298 e406 | | Load 0x2,0x6 0299 e214 | | Load 0x1,0x14 029a e210 | | Load 0x1,0x10 029b 01d5 | | Execute Vector,Field_Reference 029c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 029d 01d6 | | Execute Vector,Field_Write 029e 00c8 | | Action Pop_Auxiliary_Range 029f 3ff4 |? | Loop_Increasing 0x294 02a0 00ce | | Action Pop_Auxiliary 02a1 e402 | | Load 0x2,0x2 02a2 e214 | | Load 0x1,0x14 02a3 e210 | | Load 0x1,0x10 02a4 01d5 | | Execute Vector,Field_Reference 02a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a6 027d | } | Execute Discrete,Greater 02a7 688e |h | Jump_Zero 0x336 02a8 e402 | | Load 0x2,0x2 02a9 e214 | | Load 0x1,0x14 02aa e210 | | Load 0x1,0x10 02ab 01d5 | | Execute Vector,Field_Reference 02ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02ad 7888 |x | Jump 0x336 02ae e213 | | Load 0x1,0x13 02af e402 | | Load 0x2,0x2 02b0 027d | } | Execute Discrete,Greater 02b1 e214 | | Load 0x1,0x14 02b2 0e00 | | Execute_Immediate Not_Equal,0x0 02b3 0279 | y | Execute Discrete,And 02b4 6826 |h& | Jump_Zero 0x2db 02b5 00cf | | Action Mark_Auxiliary 02b6 e213 | | Load 0x1,0x13 02b7 0aff | | Execute_Immediate Plus,-0x1 02b8 e402 | | Load 0x2,0x2 02b9 0a01 | | Execute_Immediate Plus,0x1 02ba 00d8 | | Load_Top At_Offset_0 02bb 00e2 | | Load_Encached Integer_Cache 02bc 0260 | ` | Execute Discrete,In_Type 02bd 7001 |p | Jump_Nonzero 0x2bf 02be 0801 | | Execute_Immediate Raise,0x1 02bf 0263 | c | Execute Discrete,Above_Bound 02c0 700c |p | Jump_Nonzero 0x2cd 02c1 00d8 | | Load_Top At_Offset_0 02c2 0da0 | | Execute_Immediate Less,-0x60 02c3 6807 |h | Jump_Zero 0x2cb 02c4 482d |H- | Short_Literal 0x2d 02c5 e406 | | Load 0x2,0x6 02c6 e214 | | Load 0x1,0x14 02c7 e210 | | Load 0x1,0x10 02c8 01d5 | | Execute Vector,Field_Reference 02c9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02ca 01d6 | | Execute Vector,Field_Write 02cb 00c8 | | Action Pop_Auxiliary_Range 02cc 3ff4 |? | Loop_Increasing 0x2c1 02cd 00ce | | Action Pop_Auxiliary 02ce e213 | | Load 0x1,0x13 02cf e214 | | Load 0x1,0x14 02d0 e210 | | Load 0x1,0x10 02d1 01d5 | | Execute Vector,Field_Reference 02d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d3 027d | } | Execute Discrete,Greater 02d4 6861 |ha | Jump_Zero 0x336 02d5 e213 | | Load 0x1,0x13 02d6 e214 | | Load 0x1,0x14 02d7 e210 | | Load 0x1,0x10 02d8 01d5 | | Execute Vector,Field_Reference 02d9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02da 785b |x[ | Jump 0x336 02db 00d8 | | Load_Top At_Offset_0 02dc e214 | | Load 0x1,0x14 02dd 027d | } | Execute Discrete,Greater 02de e213 | | Load 0x1,0x13 02df 0e00 | | Execute_Immediate Not_Equal,0x0 02e0 0279 | y | Execute Discrete,And 02e1 6827 |h' | Jump_Zero 0x309 02e2 00cf | | Action Mark_Auxiliary 02e3 e403 | | Load 0x2,0x3 02e4 0aff | | Execute_Immediate Plus,-0x1 02e5 e214 | | Load 0x1,0x14 02e6 0a01 | | Execute_Immediate Plus,0x1 02e7 00d8 | | Load_Top At_Offset_0 02e8 00e2 | | Load_Encached Integer_Cache 02e9 0260 | ` | Execute Discrete,In_Type 02ea 7001 |p | Jump_Nonzero 0x2ec 02eb 0801 | | Execute_Immediate Raise,0x1 02ec 0263 | c | Execute Discrete,Above_Bound 02ed 7019 |p | Jump_Nonzero 0x307 02ee 00d8 | | Load_Top At_Offset_0 02ef 4a94 |J | Short_Literal 0x294 02f0 027c | | | Execute Discrete,Less 02f1 6813 |h | Jump_Zero 0x305 02f2 487c |H| | Short_Literal 0x7c 02f3 e213 | | Load 0x1,0x13 02f4 e406 | | Load 0x2,0x6 02f5 e210 | | Load 0x1,0x10 02f6 01d5 | | Execute Vector,Field_Reference 02f7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02f8 01d6 | | Execute Vector,Field_Write 02f9 00d8 | | Load_Top At_Offset_0 02fa e210 | | Load 0x1,0x10 02fb 01d5 | | Execute Vector,Field_Reference 02fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fd e213 | | Load 0x1,0x13 02fe 027c | | | Execute Discrete,Less 02ff 6805 |h | Jump_Zero 0x305 0300 e213 | | Load 0x1,0x13 0301 e406 | | Load 0x2,0x6 0302 e210 | | Load 0x1,0x10 0303 01d5 | | Execute Vector,Field_Reference 0304 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0305 00c8 | | Action Pop_Auxiliary_Range 0306 3fe7 |? | Loop_Increasing 0x2ee 0307 00ce | | Action Pop_Auxiliary 0308 782d |x- | Jump 0x336 0309 e214 | | Load 0x1,0x14 030a e403 | | Load 0x2,0x3 030b 027d | } | Execute Discrete,Greater 030c e213 | | Load 0x1,0x13 030d 0e00 | | Execute_Immediate Not_Equal,0x0 030e 0279 | y | Execute Discrete,And 030f 6826 |h& | Jump_Zero 0x336 0310 00cf | | Action Mark_Auxiliary 0311 e214 | | Load 0x1,0x14 0312 0aff | | Execute_Immediate Plus,-0x1 0313 e403 | | Load 0x2,0x3 0314 0a01 | | Execute_Immediate Plus,0x1 0315 00d8 | | Load_Top At_Offset_0 0316 00e2 | | Load_Encached Integer_Cache 0317 0260 | ` | Execute Discrete,In_Type 0318 7001 |p | Jump_Nonzero 0x31a 0319 0801 | | Execute_Immediate Raise,0x1 031a 0263 | c | Execute Discrete,Above_Bound 031b 7019 |p | Jump_Nonzero 0x335 031c 00d8 | | Load_Top At_Offset_0 031d 4a94 |J | Short_Literal 0x294 031e 027c | | | Execute Discrete,Less 031f 6813 |h | Jump_Zero 0x333 0320 487c |H| | Short_Literal 0x7c 0321 e213 | | Load 0x1,0x13 0322 e406 | | Load 0x2,0x6 0323 e210 | | Load 0x1,0x10 0324 01d5 | | Execute Vector,Field_Reference 0325 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0326 01d6 | | Execute Vector,Field_Write 0327 00d8 | | Load_Top At_Offset_0 0328 e210 | | Load 0x1,0x10 0329 01d5 | | Execute Vector,Field_Reference 032a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 032b e213 | | Load 0x1,0x13 032c 027c | | | Execute Discrete,Less 032d 6805 |h | Jump_Zero 0x333 032e e213 | | Load 0x1,0x13 032f e406 | | Load 0x2,0x6 0330 e210 | | Load 0x1,0x10 0331 01d5 | | Execute Vector,Field_Reference 0332 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0333 00c8 | | Action Pop_Auxiliary_Range 0334 3fe7 |? | Loop_Increasing 0x31c 0335 00ce | | Action Pop_Auxiliary 0336 e402 | | Load 0x2,0x2 0337 a213 | | Store_Unchecked 0x1,0x13 0338 00d8 | | Load_Top At_Offset_0 0339 a214 | | Store_Unchecked 0x1,0x14 033a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 033b 0000 | | .XXX[0x1] 033c 0000 0000 | | .LITERAL {0x00000000, 0x00002ee0} 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0347 | G | .CONST 0x0347 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0003 | | .CONST 0x0003 ; Number of locals 0343 INIT_0340: 0343 e001 | | Load 0x0,0x1 0344 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0345 0322 | " | Declare_Variable Record 0346 00e3 | | Load_Encached Natural_Cache 0347 BODY_0340: 0347 e5ff | | Load 0x2,-0x1 0348 0227 | ' | Execute Access,All_Reference 0349 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 034a 67f1 |g | Indirect_Literal Discrete,0x33c,{0x00000000, 0x00002ee0} 034b 0270 | p | Execute Discrete,Divide 034c 00d8 | | Load_Top At_Offset_0 034d 00e3 | | Load_Encached Natural_Cache 034e 0260 | ` | Execute Discrete,In_Type 034f 7001 |p | Jump_Nonzero 0x351 0350 0801 | | Execute_Immediate Raise,0x1 0351 a214 | | Store_Unchecked 0x1,0x14 0352 e216 | | Load 0x1,0x16 0353 6806 |h | Jump_Zero 0x35a 0354 4800 |H | Short_Literal 0x0 0355 a213 | | Store_Unchecked 0x1,0x13 0356 00a2 05cc | | Action Push_Discrete_Extended 0358 487c |H| | Short_Literal 0x7c 0359 822d | - | Call 0x1,0x2d 035a e20d | | Load 0x1,0xd 035b 00a2 05cc | | Action Push_Discrete_Extended 035d 0270 | p | Execute Discrete,Divide 035e 00d8 | | Load_Top At_Offset_0 035f 00e3 | | Load_Encached Natural_Cache 0360 0260 | ` | Execute Discrete,In_Type 0361 7001 |p | Jump_Nonzero 0x363 0362 0801 | | Execute_Immediate Raise,0x1 0363 a213 | | Store_Unchecked 0x1,0x13 0364 e5ff | | Load 0x2,-0x1 0365 0227 | ' | Execute Access,All_Reference 0366 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0367 6893 |h | Jump_Zero 0x3fb 0368 00cf | | Action Mark_Auxiliary 0369 e5ff | | Load 0x2,-0x1 036a 0227 | ' | Execute Access,All_Reference 036b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 036c 4801 |H | Short_Literal 0x1 036d 0263 | c | Execute Discrete,Above_Bound 036e 7084 |p | Jump_Nonzero 0x3f3 036f 00d8 | | Load_Top At_Offset_0 0370 e5ff | | Load 0x2,-0x1 0371 0227 | ' | Execute Access,All_Reference 0372 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0373 01d5 | | Execute Vector,Field_Reference 0374 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0375 00d8 | | Load_Top At_Offset_0 0376 494e |IN | Short_Literal 0x14e 0377 027c | | | Execute Discrete,Less 0378 700a |p | Jump_Nonzero 0x383 0379 4eb2 |N | Short_Literal -0x14e 037a 0273 | s | Execute Discrete,Plus 037b 4606 |F | Jump_Case 0x7 037c 7864 |xd | Jump 0x3e1 ; case 0x0 037d 7807 |x | Jump 0x385 ; case 0x1 037e 7815 |x | Jump 0x394 ; case 0x2 037f 7821 |x! | Jump 0x3a1 ; case 0x3 0380 782c |x, | Jump 0x3ad ; case 0x4 0381 783a |x: | Jump 0x3bc ; case 0x5 0382 786e |xn | Jump 0x3f1 ; case 0x6 0383 00d1 | | Pop_Control Pop_Count_1 0384 786c |xl | Jump 0x3f1 0385 00d8 | | Load_Top At_Offset_0 0386 e5ff | | Load 0x2,-0x1 0387 0227 | ' | Execute Access,All_Reference 0388 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0389 01d5 | | Execute Vector,Field_Reference 038a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 038b 67b0 |g | Indirect_Literal Discrete,0x33c,{0x00000000, 0x00002ee0} 038c 0270 | p | Execute Discrete,Divide 038d 00d8 | | Load_Top At_Offset_0 038e 00e3 | | Load_Encached Natural_Cache 038f 0260 | ` | Execute Discrete,In_Type 0390 7001 |p | Jump_Nonzero 0x392 0391 0801 | | Execute_Immediate Raise,0x1 0392 a214 | | Store_Unchecked 0x1,0x14 0393 785d |x] | Jump 0x3f1 0394 e213 | | Load 0x1,0x13 0395 e406 | | Load 0x2,0x6 0396 e5ff | | Load 0x2,-0x1 0397 0227 | ' | Execute Access,All_Reference 0398 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0399 01d5 | | Execute Vector,Field_Reference 039a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 039b 00a2 05cc | | Action Push_Discrete_Extended 039d 0270 | p | Execute Discrete,Divide 039e 0273 | s | Execute Discrete,Plus 039f c213 | | Store 0x1,0x13 03a0 7850 |xP | Jump 0x3f1 03a1 e214 | | Load 0x1,0x14 03a2 e406 | | Load 0x2,0x6 03a3 e5ff | | Load 0x2,-0x1 03a4 0227 | ' | Execute Access,All_Reference 03a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03a6 01d5 | | Execute Vector,Field_Reference 03a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03a8 6793 |g | Indirect_Literal Discrete,0x33c,{0x00000000, 0x00002ee0} 03a9 0270 | p | Execute Discrete,Divide 03aa 0273 | s | Execute Discrete,Plus 03ab c214 | | Store 0x1,0x14 03ac 7844 |xD | Jump 0x3f1 03ad 00d8 | | Load_Top At_Offset_0 03ae 0a01 | | Execute_Immediate Plus,0x1 03af e5ff | | Load 0x2,-0x1 03b0 0227 | ' | Execute Access,All_Reference 03b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03b2 01d5 | | Execute Vector,Field_Reference 03b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03b4 e406 | | Load 0x2,0x6 03b5 e5ff | | Load 0x2,-0x1 03b6 0227 | ' | Execute Access,All_Reference 03b7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03b8 01d5 | | Execute Vector,Field_Reference 03b9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03ba 822e | . | Call 0x1,0x2e 03bb 7835 |x5 | Jump 0x3f1 03bc 00d8 | | Load_Top At_Offset_0 03bd 0a01 | | Execute_Immediate Plus,0x1 03be e5ff | | Load 0x2,-0x1 03bf 0227 | ' | Execute Access,All_Reference 03c0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03c1 01d5 | | Execute Vector,Field_Reference 03c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03c3 4800 |H | Short_Literal 0x0 03c4 822e | . | Call 0x1,0x2e 03c5 4800 |H | Short_Literal 0x0 03c6 e406 | | Load 0x2,0x6 03c7 e5ff | | Load 0x2,-0x1 03c8 0227 | ' | Execute Access,All_Reference 03c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03ca 01d5 | | Execute Vector,Field_Reference 03cb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03cc 822e | . | Call 0x1,0x2e 03cd 00d8 | | Load_Top At_Offset_0 03ce 0a01 | | Execute_Immediate Plus,0x1 03cf e5ff | | Load 0x2,-0x1 03d0 0227 | ' | Execute Access,All_Reference 03d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03d2 01d5 | | Execute Vector,Field_Reference 03d3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03d4 0275 | u | Execute Discrete,Unary_Minus 03d5 4800 |H | Short_Literal 0x0 03d6 822e | . | Call 0x1,0x2e 03d7 4800 |H | Short_Literal 0x0 03d8 e406 | | Load 0x2,0x6 03d9 e5ff | | Load 0x2,-0x1 03da 0227 | ' | Execute Access,All_Reference 03db 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03dc 01d5 | | Execute Vector,Field_Reference 03dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03de 0275 | u | Execute Discrete,Unary_Minus 03df 822e | . | Call 0x1,0x2e 03e0 7810 |x | Jump 0x3f1 03e1 00d8 | | Load_Top At_Offset_0 03e2 e5ff | | Load 0x2,-0x1 03e3 0227 | ' | Execute Access,All_Reference 03e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03e5 01d5 | | Execute Vector,Field_Reference 03e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03e7 e20d | | Load 0x1,0xd 03e8 0273 | s | Execute Discrete,Plus 03e9 61e2 |a | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 03ea 0270 | p | Execute Discrete,Divide 03eb 00d8 | | Load_Top At_Offset_0 03ec 00e3 | | Load_Encached Natural_Cache 03ed 0260 | ` | Execute Discrete,In_Type 03ee 7001 |p | Jump_Nonzero 0x3f0 03ef 0801 | | Execute_Immediate Raise,0x1 03f0 a213 | | Store_Unchecked 0x1,0x13 03f1 00c8 | | Action Pop_Auxiliary_Range 03f2 3f7c |?| | Loop_Increasing 0x36f 03f3 00ce | | Action Pop_Auxiliary 03f4 e214 | | Load 0x1,0x14 03f5 e215 | | Load 0x1,0x15 03f6 027d | } | Execute Discrete,Greater 03f7 6802 |h | Jump_Zero 0x3fa 03f8 e214 | | Load 0x1,0x14 03f9 a215 | | Store_Unchecked 0x1,0x15 03fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fb e214 | | Load 0x1,0x14 03fc 7001 |p | Jump_Nonzero 0x3fe 03fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fe e214 | | Load 0x1,0x14 03ff 4a94 |J | Short_Literal 0x294 0400 027d | } | Execute Discrete,Greater 0401 6809 |h | Jump_Zero 0x40b 0402 e211 | | Load 0x1,0x11 0403 7006 |p | Jump_Nonzero 0x40a 0404 0092 0617 | | Action Push_String_Extended,0x617 ; "Lines off bottom of page ignored" 0406 e006 | | Load 0x0,0x6 0407 180e | | Execute Package,Field_Execute,Field_Number 0xe 0408 4801 |H | Short_Literal 0x1 0409 a211 | | Store_Unchecked 0x1,0x11 040a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 040b e214 | | Load 0x1,0x14 040c e215 | | Load 0x1,0x15 040d 027d | } | Execute Discrete,Greater 040e 6802 |h | Jump_Zero 0x411 040f e214 | | Load 0x1,0x14 0410 a215 | | Store_Unchecked 0x1,0x15 0411 00cf | | Action Mark_Auxiliary 0412 e5ff | | Load 0x2,-0x1 0413 0227 | ' | Execute Access,All_Reference 0414 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0415 0aff | | Execute_Immediate Plus,-0x1 0416 4801 |H | Short_Literal 0x1 0417 0263 | c | Execute Discrete,Above_Bound 0418 71b2 |q | Jump_Nonzero 0x5cb 0419 00d8 | | Load_Top At_Offset_0 041a e5ff | | Load 0x2,-0x1 041b 0227 | ' | Execute Access,All_Reference 041c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 041d 01d5 | | Execute Vector,Field_Reference 041e e402 | | Load 0x2,0x2 041f 017d | } | Execute Record,Structure_Write 0420 e402 | | Load 0x2,0x2 0421 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0422 00d8 | | Load_Top At_Offset_0 0423 0d7f | | Execute_Immediate Less,0x7f 0424 70dc |p | Jump_Nonzero 0x501 0425 0a81 | | Execute_Immediate Plus,-0x7f 0426 46d5 |F | Jump_Case 0xd6 0427 78d5 |x | Jump 0x4fd ; case 0x0 0428 78d4 |x | Jump 0x4fd ; case 0x1 0429 78d3 |x | Jump 0x4fd ; case 0x2 042a 78d2 |x | Jump 0x4fd ; case 0x3 042b 78d1 |x | Jump 0x4fd ; case 0x4 042c 78d0 |x | Jump 0x4fd ; case 0x5 042d 78cf |x | Jump 0x4fd ; case 0x6 042e 78ce |x | Jump 0x4fd ; case 0x7 042f 78cd |x | Jump 0x4fd ; case 0x8 0430 78cc |x | Jump 0x4fd ; case 0x9 0431 78cb |x | Jump 0x4fd ; case 0xa 0432 78ca |x | Jump 0x4fd ; case 0xb 0433 78c9 |x | Jump 0x4fd ; case 0xc 0434 78c8 |x | Jump 0x4fd ; case 0xd 0435 78c7 |x | Jump 0x4fd ; case 0xe 0436 78c6 |x | Jump 0x4fd ; case 0xf 0437 78c5 |x | Jump 0x4fd ; case 0x10 0438 78c4 |x | Jump 0x4fd ; case 0x11 0439 78c3 |x | Jump 0x4fd ; case 0x12 043a 78c2 |x | Jump 0x4fd ; case 0x13 043b 78c1 |x | Jump 0x4fd ; case 0x14 043c 78c0 |x | Jump 0x4fd ; case 0x15 043d 78bf |x | Jump 0x4fd ; case 0x16 043e 78be |x | Jump 0x4fd ; case 0x17 043f 78bd |x | Jump 0x4fd ; case 0x18 0440 78bc |x | Jump 0x4fd ; case 0x19 0441 78bb |x | Jump 0x4fd ; case 0x1a 0442 78ba |x | Jump 0x4fd ; case 0x1b 0443 78b9 |x | Jump 0x4fd ; case 0x1c 0444 78b8 |x | Jump 0x4fd ; case 0x1d 0445 78b7 |x | Jump 0x4fd ; case 0x1e 0446 78b6 |x | Jump 0x4fd ; case 0x1f 0447 78b5 |x | Jump 0x4fd ; case 0x20 0448 78b4 |x | Jump 0x4fd ; case 0x21 0449 78b3 |x | Jump 0x4fd ; case 0x22 044a 78b2 |x | Jump 0x4fd ; case 0x23 044b 78b1 |x | Jump 0x4fd ; case 0x24 044c 792c |y, | Jump 0x579 ; case 0x25 044d 78af |x | Jump 0x4fd ; case 0x26 044e 78ae |x | Jump 0x4fd ; case 0x27 044f 78ad |x | Jump 0x4fd ; case 0x28 0450 78ac |x | Jump 0x4fd ; case 0x29 0451 7967 |yg | Jump 0x5b9 ; case 0x2a 0452 7962 |yb | Jump 0x5b5 ; case 0x2b 0453 7929 |y) | Jump 0x57d ; case 0x2c 0454 7928 |y( | Jump 0x57d ; case 0x2d 0455 792b |y+ | Jump 0x581 ; case 0x2e 0456 7966 |yf | Jump 0x5bd ; case 0x2f 0457 7916 |y | Jump 0x56e ; case 0x30 0458 78a4 |x | Jump 0x4fd ; case 0x31 0459 790c |y | Jump 0x566 ; case 0x32 045a 78a2 |x | Jump 0x4fd ; case 0x33 045b 78a1 |x | Jump 0x4fd ; case 0x34 045c 7954 |yT | Jump 0x5b1 ; case 0x35 045d 789f |x | Jump 0x4fd ; case 0x36 045e 789e |x | Jump 0x4fd ; case 0x37 045f 78c8 |x | Jump 0x528 ; case 0x38 0460 789c |x | Jump 0x4fd ; case 0x39 0461 789b |x | Jump 0x4fd ; case 0x3a 0462 7952 |yR | Jump 0x5b5 ; case 0x3b 0463 791d |y | Jump 0x581 ; case 0x3c 0464 78f3 |x | Jump 0x558 ; case 0x3d 0465 7897 |x | Jump 0x4fd ; case 0x3e 0466 7896 |x | Jump 0x4fd ; case 0x3f 0467 7895 |x | Jump 0x4fd ; case 0x40 0468 7894 |x | Jump 0x4fd ; case 0x41 0469 7893 |x | Jump 0x4fd ; case 0x42 046a 7892 |x | Jump 0x4fd ; case 0x43 046b 7891 |x | Jump 0x4fd ; case 0x44 046c 7890 |x | Jump 0x4fd ; case 0x45 046d 788f |x | Jump 0x4fd ; case 0x46 046e 788e |x | Jump 0x4fd ; case 0x47 046f 788d |x | Jump 0x4fd ; case 0x48 0470 788c |x | Jump 0x4fd ; case 0x49 0471 788b |x | Jump 0x4fd ; case 0x4a 0472 788a |x | Jump 0x4fd ; case 0x4b 0473 7889 |x | Jump 0x4fd ; case 0x4c 0474 7888 |x | Jump 0x4fd ; case 0x4d 0475 7887 |x | Jump 0x4fd ; case 0x4e 0476 7886 |x | Jump 0x4fd ; case 0x4f 0477 7885 |x | Jump 0x4fd ; case 0x50 0478 78ed |x | Jump 0x566 ; case 0x51 0479 7883 |x | Jump 0x4fd ; case 0x52 047a 7882 |x | Jump 0x4fd ; case 0x53 047b 7881 |x | Jump 0x4fd ; case 0x54 047c 7880 |x | Jump 0x4fd ; case 0x55 047d 787f |x | Jump 0x4fd ; case 0x56 047e 787e |x~ | Jump 0x4fd ; case 0x57 047f 787d |x} | Jump 0x4fd ; case 0x58 0480 787c |x| | Jump 0x4fd ; case 0x59 0481 787b |x{ | Jump 0x4fd ; case 0x5a 0482 787a |xz | Jump 0x4fd ; case 0x5b 0483 7879 |xy | Jump 0x4fd ; case 0x5c 0484 7878 |xx | Jump 0x4fd ; case 0x5d 0485 7877 |xw | Jump 0x4fd ; case 0x5e 0486 7876 |xv | Jump 0x4fd ; case 0x5f 0487 7875 |xu | Jump 0x4fd ; case 0x60 0488 7874 |xt | Jump 0x4fd ; case 0x61 0489 7873 |xs | Jump 0x4fd ; case 0x62 048a 7872 |xr | Jump 0x4fd ; case 0x63 048b 7871 |xq | Jump 0x4fd ; case 0x64 048c 7870 |xp | Jump 0x4fd ; case 0x65 048d 786f |xo | Jump 0x4fd ; case 0x66 048e 786e |xn | Jump 0x4fd ; case 0x67 048f 786d |xm | Jump 0x4fd ; case 0x68 0490 786c |xl | Jump 0x4fd ; case 0x69 0491 786b |xk | Jump 0x4fd ; case 0x6a 0492 786a |xj | Jump 0x4fd ; case 0x6b 0493 7869 |xi | Jump 0x4fd ; case 0x6c 0494 7868 |xh | Jump 0x4fd ; case 0x6d 0495 7867 |xg | Jump 0x4fd ; case 0x6e 0496 7866 |xf | Jump 0x4fd ; case 0x6f 0497 7865 |xe | Jump 0x4fd ; case 0x70 0498 7864 |xd | Jump 0x4fd ; case 0x71 0499 7863 |xc | Jump 0x4fd ; case 0x72 049a 7862 |xb | Jump 0x4fd ; case 0x73 049b 7861 |xa | Jump 0x4fd ; case 0x74 049c 7860 |x` | Jump 0x4fd ; case 0x75 049d 785f |x_ | Jump 0x4fd ; case 0x76 049e 785e |x^ | Jump 0x4fd ; case 0x77 049f 785d |x] | Jump 0x4fd ; case 0x78 04a0 785c |x\ | Jump 0x4fd ; case 0x79 04a1 785b |x[ | Jump 0x4fd ; case 0x7a 04a2 785a |xZ | Jump 0x4fd ; case 0x7b 04a3 7859 |xY | Jump 0x4fd ; case 0x7c 04a4 7858 |xX | Jump 0x4fd ; case 0x7d 04a5 7857 |xW | Jump 0x4fd ; case 0x7e 04a6 7856 |xV | Jump 0x4fd ; case 0x7f 04a7 7855 |xU | Jump 0x4fd ; case 0x80 04a8 7883 |x | Jump 0x52c ; case 0x81 04a9 7882 |x | Jump 0x52c ; case 0x82 04aa 7881 |x | Jump 0x52c ; case 0x83 04ab 7880 |x | Jump 0x52c ; case 0x84 04ac 787f |x | Jump 0x52c ; case 0x85 04ad 787e |x~ | Jump 0x52c ; case 0x86 04ae 7881 |x | Jump 0x530 ; case 0x87 04af 7884 |x | Jump 0x534 ; case 0x88 04b0 7883 |x | Jump 0x534 ; case 0x89 04b1 7882 |x | Jump 0x534 ; case 0x8a 04b2 7881 |x | Jump 0x534 ; case 0x8b 04b3 78b6 |x | Jump 0x56a ; case 0x8c 04b4 78b5 |x | Jump 0x56a ; case 0x8d 04b5 78b4 |x | Jump 0x56a ; case 0x8e 04b6 78b3 |x | Jump 0x56a ; case 0x8f 04b7 7888 |x | Jump 0x540 ; case 0x90 04b8 788b |x | Jump 0x544 ; case 0x91 04b9 788a |x | Jump 0x544 ; case 0x92 04ba 7889 |x | Jump 0x544 ; case 0x93 04bb 7888 |x | Jump 0x544 ; case 0x94 04bc 7887 |x | Jump 0x544 ; case 0x95 04bd 788a |x | Jump 0x548 ; case 0x96 04be 788d |x | Jump 0x54c ; case 0x97 04bf 788c |x | Jump 0x54c ; case 0x98 04c0 788b |x | Jump 0x54c ; case 0x99 04c1 788a |x | Jump 0x54c ; case 0x9a 04c2 788d |x | Jump 0x550 ; case 0x9b 04c3 7890 |x | Jump 0x554 ; case 0x9c 04c4 78c4 |x | Jump 0x589 ; case 0x9d 04c5 78c3 |x | Jump 0x589 ; case 0x9e 04c6 78c2 |x | Jump 0x589 ; case 0x9f 04c7 78c1 |x | Jump 0x589 ; case 0xa0 04c8 78c0 |x | Jump 0x589 ; case 0xa1 04c9 78bf |x | Jump 0x589 ; case 0xa2 04ca 78c2 |x | Jump 0x58d ; case 0xa3 04cb 78c5 |x | Jump 0x591 ; case 0xa4 04cc 78c4 |x | Jump 0x591 ; case 0xa5 04cd 78c3 |x | Jump 0x591 ; case 0xa6 04ce 78c2 |x | Jump 0x591 ; case 0xa7 04cf 78c5 |x | Jump 0x595 ; case 0xa8 04d0 78c4 |x | Jump 0x595 ; case 0xa9 04d1 78c3 |x | Jump 0x595 ; case 0xaa 04d2 78c2 |x | Jump 0x595 ; case 0xab 04d3 78c5 |x | Jump 0x599 ; case 0xac 04d4 78c8 |x | Jump 0x59d ; case 0xad 04d5 78c7 |x | Jump 0x59d ; case 0xae 04d6 78c6 |x | Jump 0x59d ; case 0xaf 04d7 78c5 |x | Jump 0x59d ; case 0xb0 04d8 78c4 |x | Jump 0x59d ; case 0xb1 04d9 78c7 |x | Jump 0x5a1 ; case 0xb2 04da 78ca |x | Jump 0x5a5 ; case 0xb3 04db 78c9 |x | Jump 0x5a5 ; case 0xb4 04dc 78c8 |x | Jump 0x5a5 ; case 0xb5 04dd 78c7 |x | Jump 0x5a5 ; case 0xb6 04de 78ca |x | Jump 0x5a9 ; case 0xb7 04df 78cd |x | Jump 0x5ad ; case 0xb8 04e0 78e7 |x | Jump 0x5c8 ; case 0xb9 04e1 78e6 |x | Jump 0x5c8 ; case 0xba 04e2 78e5 |x | Jump 0x5c8 ; case 0xbb 04e3 78a1 |x | Jump 0x585 ; case 0xbc 04e4 7881 |x | Jump 0x566 ; case 0xbd 04e5 7817 |x | Jump 0x4fd ; case 0xbe 04e6 7816 |x | Jump 0x4fd ; case 0xbf 04e7 7815 |x | Jump 0x4fd ; case 0xc0 04e8 7814 |x | Jump 0x4fd ; case 0xc1 04e9 7813 |x | Jump 0x4fd ; case 0xc2 04ea 781b |x | Jump 0x506 ; case 0xc3 04eb 7826 |x& | Jump 0x512 ; case 0xc4 04ec 7810 |x | Jump 0x4fd ; case 0xc5 04ed 784a |xJ | Jump 0x538 ; case 0xc6 04ee 7849 |xI | Jump 0x538 ; case 0xc7 04ef 7848 |xH | Jump 0x538 ; case 0xc8 04f0 7847 |xG | Jump 0x538 ; case 0xc9 04f1 7846 |xF | Jump 0x538 ; case 0xca 04f2 7845 |xE | Jump 0x538 ; case 0xcb 04f3 7809 |x | Jump 0x4fd ; case 0xcc 04f4 7808 |x | Jump 0x4fd ; case 0xcd 04f5 781f |x | Jump 0x515 ; case 0xce 04f6 7806 |x | Jump 0x4fd ; case 0xcf 04f7 7805 |x | Jump 0x4fd ; case 0xd0 04f8 7804 |x | Jump 0x4fd ; case 0xd1 04f9 7803 |x | Jump 0x4fd ; case 0xd2 04fa 7802 |x | Jump 0x4fd ; case 0xd3 04fb 7801 |x | Jump 0x4fd ; case 0xd4 04fc 7800 |x | Jump 0x4fd ; case 0xd5 04fd 60ce |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 04fe 4823 |H# | Short_Literal 0x23 04ff 822d | - | Call 0x1,0x2d 0500 78c7 |x | Jump 0x5c8 0501 4820 |H | Short_Literal 0x20 0502 487e |H~ | Short_Literal 0x7e 0503 0262 | b | Execute Discrete,In_Range 0504 7018 |p | Jump_Nonzero 0x51d 0505 7ff7 | | Jump 0x4fd 0506 4801 |H | Short_Literal 0x1 0507 a216 | | Store_Unchecked 0x1,0x16 0508 e213 | | Load 0x1,0x13 0509 a403 | | Store_Unchecked 0x2,0x3 050a 4800 |H | Short_Literal 0x0 050b a213 | | Store_Unchecked 0x1,0x13 050c 60bf |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 050d 487c |H| | Short_Literal 0x7c 050e 822d | - | Call 0x1,0x2d 050f e403 | | Load 0x2,0x3 0510 a213 | | Store_Unchecked 0x1,0x13 0511 78b6 |x | Jump 0x5c8 0512 4800 |H | Short_Literal 0x0 0513 a216 | | Store_Unchecked 0x1,0x16 0514 78b3 |x | Jump 0x5c8 0515 e214 | | Load 0x1,0x14 0516 e402 | | Load 0x2,0x2 0517 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0518 6623 |f# | Indirect_Literal Discrete,0x33c,{0x00000000, 0x00002ee0} 0519 0270 | p | Execute Discrete,Divide 051a 0273 | s | Execute Discrete,Plus 051b c214 | | Store 0x1,0x14 051c 78ab |x | Jump 0x5c8 051d e402 | | Load 0x2,0x2 051e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 051f e402 | | Load 0x2,0x2 0520 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0521 00d8 | | Load_Top At_Offset_0 0522 00e8 | | Load_Encached Character_Cache 0523 0260 | ` | Execute Discrete,In_Type 0524 7001 |p | Jump_Nonzero 0x526 0525 0801 | | Execute_Immediate Raise,0x1 0526 822d | - | Call 0x1,0x2d 0527 78a0 |x | Jump 0x5c8 0528 60a3 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0529 482a |H* | Short_Literal 0x2a 052a 822d | - | Call 0x1,0x2d 052b 789c |x | Jump 0x5c8 052c 609f |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 052d 4841 |HA | Short_Literal 0x41 052e 822d | - | Call 0x1,0x2d 052f 7898 |x | Jump 0x5c8 0530 609b |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0531 4843 |HC | Short_Literal 0x43 0532 822d | - | Call 0x1,0x2d 0533 7894 |x | Jump 0x5c8 0534 6097 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0535 4845 |HE | Short_Literal 0x45 0536 822d | - | Call 0x1,0x2d 0537 7890 |x | Jump 0x5c8 0538 e213 | | Load 0x1,0x13 0539 e402 | | Load 0x2,0x2 053a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 053b 6090 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 053c 0270 | p | Execute Discrete,Divide 053d 0273 | s | Execute Discrete,Plus 053e c213 | | Store 0x1,0x13 053f 7888 |x | Jump 0x5c8 0540 608b |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0541 484e |HN | Short_Literal 0x4e 0542 822d | - | Call 0x1,0x2d 0543 7884 |x | Jump 0x5c8 0544 6087 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0545 484f |HO | Short_Literal 0x4f 0546 822d | - | Call 0x1,0x2d 0547 7880 |x | Jump 0x5c8 0548 6083 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0549 4853 |HS | Short_Literal 0x53 054a 822d | - | Call 0x1,0x2d 054b 787c |x| | Jump 0x5c8 054c 607f |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 054d 4855 |HU | Short_Literal 0x55 054e 822d | - | Call 0x1,0x2d 054f 7878 |xx | Jump 0x5c8 0550 607b |`{ | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0551 4859 |HY | Short_Literal 0x59 0552 822d | - | Call 0x1,0x2d 0553 7874 |xt | Jump 0x5c8 0554 6077 |`w | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0555 485a |HZ | Short_Literal 0x5a 0556 822d | - | Call 0x1,0x2d 0557 7870 |xp | Jump 0x5c8 0558 0092 0618 | | Action Push_String_Extended,0x618 ; "Expanding ellipsis" 055a e006 | | Load 0x0,0x6 055b 180f | | Execute Package,Field_Execute,Field_Number 0xf 055c 606f |`o | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 055d 482e |H. | Short_Literal 0x2e 055e 822d | - | Call 0x1,0x2d 055f 606c |`l | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0560 482e |H. | Short_Literal 0x2e 0561 822d | - | Call 0x1,0x2d 0562 6069 |`i | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0563 482e |H. | Short_Literal 0x2e 0564 822d | - | Call 0x1,0x2d 0565 7862 |xb | Jump 0x5c8 0566 6065 |`e | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0567 482d |H- | Short_Literal 0x2d 0568 822d | - | Call 0x1,0x2d 0569 785e |x^ | Jump 0x5c8 056a 6061 |`a | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 056b 4849 |HI | Short_Literal 0x49 056c 822d | - | Call 0x1,0x2d 056d 785a |xZ | Jump 0x5c8 056e 0092 0619 | | Action Push_String_Extended,0x619 ; "Expanding 'fl' ligature" 0570 e006 | | Load 0x0,0x6 0571 180f | | Execute Package,Field_Execute,Field_Number 0xf 0572 6059 |`Y | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0573 4866 |Hf | Short_Literal 0x66 0574 822d | - | Call 0x1,0x2d 0575 6056 |`V | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0576 486c |Hl | Short_Literal 0x6c 0577 822d | - | Call 0x1,0x2d 0578 784f |xO | Jump 0x5c8 0579 6052 |`R | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 057a 482f |H/ | Short_Literal 0x2f 057b 822d | - | Call 0x1,0x2d 057c 784b |xK | Jump 0x5c8 057d 604e |`N | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 057e 483c |H< | Short_Literal 0x3c 057f 822d | - | Call 0x1,0x2d 0580 7847 |xG | Jump 0x5c8 0581 604a |`J | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0582 483e |H> | Short_Literal 0x3e 0583 822d | - | Call 0x1,0x2d 0584 7843 |xC | Jump 0x5c8 0585 6046 |`F | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0586 487e |H~ | Short_Literal 0x7e 0587 822d | - | Call 0x1,0x2d 0588 783f |x? | Jump 0x5c8 0589 6042 |`B | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 058a 4861 |Ha | Short_Literal 0x61 058b 822d | - | Call 0x1,0x2d 058c 783b |x; | Jump 0x5c8 058d 603e |`> | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 058e 4863 |Hc | Short_Literal 0x63 058f 822d | - | Call 0x1,0x2d 0590 7837 |x7 | Jump 0x5c8 0591 603a |`: | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0592 4865 |He | Short_Literal 0x65 0593 822d | - | Call 0x1,0x2d 0594 7833 |x3 | Jump 0x5c8 0595 6036 |`6 | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 0596 4869 |Hi | Short_Literal 0x69 0597 822d | - | Call 0x1,0x2d 0598 782f |x/ | Jump 0x5c8 0599 6032 |`2 | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 059a 486e |Hn | Short_Literal 0x6e 059b 822d | - | Call 0x1,0x2d 059c 782b |x+ | Jump 0x5c8 059d 602e |`. | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 059e 486f |Ho | Short_Literal 0x6f 059f 822d | - | Call 0x1,0x2d 05a0 7827 |x' | Jump 0x5c8 05a1 602a |`* | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05a2 4873 |Hs | Short_Literal 0x73 05a3 822d | - | Call 0x1,0x2d 05a4 7823 |x# | Jump 0x5c8 05a5 6026 |`& | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05a6 4875 |Hu | Short_Literal 0x75 05a7 822d | - | Call 0x1,0x2d 05a8 781f |x | Jump 0x5c8 05a9 6022 |`" | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05aa 4879 |Hy | Short_Literal 0x79 05ab 822d | - | Call 0x1,0x2d 05ac 781b |x | Jump 0x5c8 05ad 601e |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05ae 487a |Hz | Short_Literal 0x7a 05af 822d | - | Call 0x1,0x2d 05b0 7817 |x | Jump 0x5c8 05b1 601a |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05b2 4858 |HX | Short_Literal 0x58 05b3 822d | - | Call 0x1,0x2d 05b4 7813 |x | Jump 0x5c8 05b5 6016 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05b6 4822 |H" | Short_Literal 0x22 05b7 822d | - | Call 0x1,0x2d 05b8 780f |x | Jump 0x5c8 05b9 6012 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05ba 4827 |H' | Short_Literal 0x27 05bb 822d | - | Call 0x1,0x2d 05bc 780b |x | Jump 0x5c8 05bd 0092 061a | | Action Push_String_Extended,0x61a ; "Expanding 'fi' ligature" 05bf e006 | | Load 0x0,0x6 05c0 180f | | Execute Package,Field_Execute,Field_Number 0xf 05c1 600a |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05c2 4866 |Hf | Short_Literal 0x66 05c3 822d | - | Call 0x1,0x2d 05c4 6007 |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00001c20} 05c5 4869 |Hi | Short_Literal 0x69 05c6 822d | - | Call 0x1,0x2d 05c7 7800 |x | Jump 0x5c8 05c8 00c8 | | Action Pop_Auxiliary_Range 05c9 00a4 0419 | | Action Loop_Increasing_Extended,0x419 05cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05cc 0000 0000 | | .LITERAL {0x00000000, 0x00001c20} 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d3 | | .CONST 0x05d3 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0001 | | .CONST 0x0001 ; Number of locals 05d3 BODY_05d0: 05d3 INIT_05d0: 05d3 0092 061b | | Action Push_String_Extended,0x61b ; "Cannot interpolate files when using the OnLine device" 05d5 e006 | | Load 0x0,0x6 05d6 180e | | Execute Package,Field_Execute,Field_Number 0xe 05d7 450b |E | Exit_Suprogram New_Top_Offset 0xb 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05dc 0000 0000 | | .BLANK 0000[0x4] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e3 | | .CONST 0x05e3 ; Address of begin 05e1 05eb | | .CONST 0x05eb ; Address of exception handler 05e2 0001 | | .CONST 0x0001 ; Number of locals 05e3 BODY_05e0: 05e3 INIT_05e0: 05e3 e402 | | Load 0x2,0x2 05e4 00ea | | Load_Encached Null_String_Cache 05e5 e5ff | | Load 0x2,-0x1 05e6 4800 |H | Short_Literal 0x0 05e7 e007 | | Load 0x0,0x7 05e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05e9 c402 | | Store 0x2,0x2 05ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05eb TRAP_05e0: 05eb 0007 | | Action Break_Optional 05ec 4829 |H) | Short_Literal 0x29 05ed 0092 061c | | Action Push_String_Extended,0x61c ; "Could not open the form setup file " 05ef e5ff | | Load 0x2,-0x1 05f0 01cc | | Execute Vector,Catenate 05f1 0092 0614 | | Action Push_String_Extended,0x614 ; " (" 05f3 01cc | | Execute Vector,Catenate 05f4 4800 |H | Short_Literal 0x0 05f5 4801 |H | Short_Literal 0x1 05f6 e00a | | Load 0x0,0xa 05f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 05f8 01cc | | Execute Vector,Catenate 05f9 01cb | | Execute Vector,Append 05fa e006 | | Load 0x0,0x6 05fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 05fc e001 | | Load 0x0,0x1 05fd 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 05fe 0257 | W | Execute Discrete,Raise 05ff 0000 | | .XXX[0x1] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0606 | | .CONST 0x0606 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0002 | | .CONST 0x0002 ; Number of locals 0603 INIT_0600: 0603 e402 | | Load 0x2,0x2 0604 e007 | | Load 0x0,0x7 0605 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0606 BODY_0600: 0606 00d8 | | Load_Top At_Offset_0 0607 01db | | Execute Vector,Length 0608 0c01 | | Execute_Immediate Greater_Equal,0x1 0609 6802 |h | Jump_Zero 0x60c 060a 00d8 | | Load_Top At_Offset_0 060b 821b | | Call 0x1,0x1b 060c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 060d ; -------------------------------------------------------------------------------------- 060d ; STRING TABLE 060d ; -------------------------------------------------------------------------------------- 060d 0022 | " | .STRTAB 0x0022->0x061e ; "OnLine" 060e 0026 | & | .STRTAB 0x0026->0x0621 ; "The OnLine device does not support defining forms" 060f 0055 | U | .STRTAB 0x0055->0x0639 ; "Could not define forms in " 0610 006d | m | .STRTAB 0x006d->0x0646 ; "The OnLine device does not support defining fonts" 0611 009c | | .STRTAB 0x009c->0x065f ; "Standard" 0612 00a2 | | .STRTAB 0x00a2->0x0663 ; "_ONLINE" 0613 00a7 | | .STRTAB 0x00a7->0x0666 ; "Cannot create output " 0614 00ba | | .STRTAB 0x00ba->0x0671 ; " (" 0615 00ba | | .STRTAB 0x00ba->0x0672 ; "_ONLINE_AUX" 0616 00c3 | | .STRTAB 0x00c3->0x0677 ; "Characters beyond right edge of page ignored" 0617 00ed | | .STRTAB 0x00ed->0x068d ; "Lines off bottom of page ignored" 0618 010b | | .STRTAB 0x010b->0x069d ; "Expanding ellipsis" 0619 011b | | .STRTAB 0x011b->0x06a6 ; "Expanding 'fl' ligature" 061a 0130 | 0 | .STRTAB 0x0130->0x06b2 ; "Expanding 'fi' ligature" 061b 0145 | E | .STRTAB 0x0145->0x06bd ; "Cannot interpolate files when using the OnLine device" 061c 0178 | x | .STRTAB 0x0178->0x06d8 ; "Could not open the form setup file " 061d 0199 | | .STREND 0x0199->0x06e9 061e 4f6e 4c69 |OnLi| .STRTAB_STRINGS 06ea 0000 0000 | | .BLANK 0000[0x6] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; Debug Table 06f0 ; -------------------------------------------------------------------------------------- 06f0 0004 000f | | .DEBUG4 0x0004,0x000f,0x4310,0x0000,0x0001,0x0000 06f6 0000 0000 | | .BLANK 0000[0x10a]