|
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]