|
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, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 07e0 | | .CONST 0x07e0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0091 | | .CONST 0x0091 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0037 | 7 | .CONST 0x0037 ; 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 00e8 | | Load_Encached Character_Cache
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 4801 |H | Short_Literal 0x1
0013 032d | - | Declare_Type Record,Defined
0014 4801 |H | Short_Literal 0x1
0015 4884 |H | Short_Literal 0x84
0016 e20e | | Load 0x1,0xe
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 4801 |H | Short_Literal 0x1
0019 035d | ] | Declare_Type Array,Defined
001a 00e3 | | Load_Encached Natural_Cache
001b e20f | | Load 0x1,0xf
001c 02a0 | | Declare_Subprogram Null_Subprogram
001d 4802 |H | Short_Literal 0x2
001e 032d | - | Declare_Type Record,Defined
001f 4801 |H | Short_Literal 0x1
0020 483c |H< | Short_Literal 0x3c
0021 e210 | | Load 0x1,0x10
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4801 |H | Short_Literal 0x1
0024 035d | ] | Declare_Type Array,Defined
0025 00d8 | | Load_Top At_Offset_0
0026 0337 | 7 | Declare_Variable Array
0027 00e1 | | Load_Encached Boolean_Cache
0028 00e1 | | Load_Encached Boolean_Cache
0029 00e3 | | Load_Encached Natural_Cache
002a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002b 00e3 | | Load_Encached Natural_Cache
002c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002d 00e3 | | Load_Encached Natural_Cache
002e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002f 00e1 | | Load_Encached Boolean_Cache
0030 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0031 00e1 | | Load_Encached Boolean_Cache
0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0033 00e3 | | Load_Encached Natural_Cache
0034 0604 | | Execute_Immediate Set_Value_Unchecked,0x4
0035 00e3 | | Load_Encached Natural_Cache
0036 064f | O | Execute_Immediate Set_Value_Unchecked,0x4f
0037 e002 | | Load 0x0,0x2
0038 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0039 02c7 | | Declare_Variable Any
003a 00d8 | | Load_Top At_Offset_0
003b 1c00 | | Execute_Immediate Run_Utility,0x0
003c 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call
003e 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call
0040 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call
0042 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call
0044 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call
0046 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
0048 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call
004a 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call
004c 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call
004e 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
0050 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
0052 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
0054 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
0056 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0058 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
005a 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
005c 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
005e 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0060 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0062 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
0064 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0066 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
0068 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
006a 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
006c 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call
006e 029d 060b | | Declare_Subprogram INIT_0608,For_Outer_Call
0070 e003 | | Load 0x0,0x3
0071 e004 | | Load 0x0,0x4
0072 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0073 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0074 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0075 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0076 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0077 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0078 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0079 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
007b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
007c 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
007d 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
007e 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
007f 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0080 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0081 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0082 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0083 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0084 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0085 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0086 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0087 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0088 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0089 0092 06d0 | | Action Push_String_Extended,0x6d0 ; "LinePrinter"
008b e005 | | Load 0x0,0x5
008c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
008d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
008e 0387 | | Declare_Variable Package
008f 00d8 | | Load_Top At_Offset_0
0090 020f | | Execute Module,Activate
0091 BODY_0008:
0091 00bc | | Action Signal_Activated
0092 00bb | | Action Signal_Completion
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4800 |H | Short_Literal 0x0
009c 00ca | | Action Exit_Nullary_Function
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e005 | | Load 0x0,0x5
00a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a5 0322 | " | Declare_Variable Record
00a6 6021 |`! | Indirect_Literal Discrete,0xc8,{0x00000000, 0x000c15c0}
00a7 e402 | | Load 0x2,0x2
00a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a9 601a |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00004650}
00aa e402 | | Load 0x2,0x2
00ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00ac 6013 |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x000ec6d0}
00ad e402 | | Load 0x2,0x2
00ae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00af 600c |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00008ca0}
00b0 e402 | | Load 0x2,0x2
00b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00b2 6005 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x000b8920}
00b3 e402 | | Load 0x2,0x2
00b4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00b5 e5fe | | Load 0x2,-0x2
00b6 017d | } | Execute Record,Structure_Write
00b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b8 0000 0000 | | .LITERAL {0x00000000, 0x000b8920}
00bc 0000 0000 | | .LITERAL {0x00000000, 0x00008ca0}
00c0 0000 0000 | | .LITERAL {0x00000000, 0x000ec6d0}
00c4 0000 0000 | | .LITERAL {0x00000000, 0x00004650}
00c8 0000 0000 | | .LITERAL {0x00000000, 0x000c15c0}
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 0092 06d1 | | Action Push_String_Extended,0x6d1 ; "The LinePrinter device does not support defining forms"
00dd e006 | | Load 0x0,0x6
00de 180e | | Execute Package,Field_Execute,Field_Number 0xe
00df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ec | | .CONST 0x00ec ; Address of begin
00e1 00f1 | | .CONST 0x00f1 ; Address of exception handler
00e2 0004 | | .CONST 0x0004 ; Number of locals
00e3 INIT_00e0:
00e3 e007 | | Load 0x0,0x7
00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e5 02c7 | | Declare_Variable Any
00e6 00d8 | | Load_Top At_Offset_0
00e7 1c00 | | Execute_Immediate Run_Utility,0x0
00e8 029f 063b | ;| Declare_Subprogram INIT_0638,For_Call
00ea 029f 065b | [| Declare_Subprogram INIT_0658,For_Call
00ec BODY_00e0:
00ec 8403 | | Call 0x2,0x3
00ed 00cf | | Action Mark_Auxiliary
00ee 8404 | | Call 0x2,0x4
00ef 00c9 | | Action Pop_Auxiliary_Loop
00f0 7ffd | | Jump 0xee
00f1 TRAP_00e0:
00f1 00d8 | | Load_Top At_Offset_0
00f2 0107 | | Execute Exception,Get_Name
00f3 4950 |IP | Short_Literal 0x150
00f4 495f |I_ | Short_Literal 0x15f
00f5 0262 | b | Execute Discrete,In_Range
00f6 6805 |h | Jump_Zero 0xfc
00f7 e402 | | Load 0x2,0x2
00f8 e007 | | Load 0x0,0x7
00f9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fa c402 | | Store 0x2,0x2
00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fc e001 | | Load 0x0,0x1
00fd 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00fe 010f | | Execute Exception,Equal
00ff 6802 |h | Jump_Zero 0x102
0100 00d8 | | Load_Top At_Offset_0
0101 0101 | | Execute Exception,Reraise
0102 0092 06d2 | | Action Push_String_Extended,0x6d2 ; "Could not define forms in "
0104 e5ff | | Load 0x2,-0x1
0105 01cc | | Execute Vector,Catenate
0106 e006 | | Load 0x0,0x6
0107 180e | | Execute Package,Field_Execute,Field_Number 0xe
0108 e001 | | Load 0x0,0x1
0109 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
010a 0257 | W | Execute Discrete,Raise
010b 0000 0000 | | .BLANK 0000[0x5]
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 0092 06d3 | | Action Push_String_Extended,0x6d3 ; "The LinePrinter device does not support defining fonts"
0115 e006 | | Load 0x0,0x6
0116 180e | | Execute Package,Field_Execute,Field_Number 0xe
0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4801 |H | Short_Literal 0x1
0124 a5fe | | Store_Unchecked 0x2,-0x2
0125 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0126 0000 0000 | | .XXX[0x2]
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 0092 06d4 | | Action Push_String_Extended,0x6d4 ; "Standard"
012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 480a |H | Short_Literal 0xa
0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
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 6004 |` | Indirect_Literal Discrete,0x140,{0x00000000, 0x00001c20}
013c 00ca | | Action Exit_Nullary_Function
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 0000 0000 | | .LITERAL {0x00000000, 0x00001c20}
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 6004 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00002ee0}
014c 00ca | | Action Exit_Nullary_Function
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 0000 0000 | | .LITERAL {0x00000000, 0x00002ee0}
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e5ff | | Load 0x2,-0x1
015c 600b |` | Indirect_Literal Discrete,0x168,{0x00000000, 0x00001c20}
015d 0270 | p | Execute Discrete,Divide
015e 6009 |` | Indirect_Literal Discrete,0x168,{0x00000000, 0x00001c20}
015f 0271 | q | Execute Discrete,Times
0160 e001 | | Load 0x0,0x1
0161 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0162 00d9 | | Load_Top At_Offset_1
0163 00d0 | | Action Swap_Control
0164 0260 | ` | Execute Discrete,In_Type
0165 7001 |p | Jump_Nonzero 0x167
0166 0801 | | Execute_Immediate Raise,0x1
0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0168 0000 0000 | | .LITERAL {0x00000000, 0x00001c20}
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e5ff | | Load 0x2,-0x1
0174 0c00 | | Execute_Immediate Greater_Equal,0x0
0175 680f |h | Jump_Zero 0x185
0176 e5ff | | Load 0x2,-0x1
0177 6024 |`$ | Indirect_Literal Discrete,0x19c,{0x00000000, 0x00002edf}
0178 0273 | s | Execute Discrete,Plus
0179 601e |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00002ee0}
017a 0270 | p | Execute Discrete,Divide
017b 601c |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00002ee0}
017c 0271 | q | Execute Discrete,Times
017d e001 | | Load 0x0,0x1
017e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
017f 00d9 | | Load_Top At_Offset_1
0180 00d0 | | Action Swap_Control
0181 0260 | ` | Execute Discrete,In_Type
0182 7001 |p | Jump_Nonzero 0x184
0183 0801 | | Execute_Immediate Raise,0x1
0184 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0185 e5ff | | Load 0x2,-0x1
0186 600d |` | Indirect_Literal Discrete,0x194,{0xffffffff, 0xffffd121}
0187 0273 | s | Execute Discrete,Plus
0188 600f |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00002ee0}
0189 0270 | p | Execute Discrete,Divide
018a 600d |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00002ee0}
018b 0271 | q | Execute Discrete,Times
018c e001 | | Load 0x0,0x1
018d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
018e 00d9 | | Load_Top At_Offset_1
018f 00d0 | | Action Swap_Control
0190 0260 | ` | Execute Discrete,In_Type
0191 7001 |p | Jump_Nonzero 0x193
0192 0801 | | Execute_Immediate Raise,0x1
0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0194 ffff ffff | | .LITERAL {0xffffffff, 0xffffd121}
0198 0000 0000 | | .LITERAL {0x00000000, 0x00002ee0}
019c 0000 0000 | | .LITERAL {0x00000000, 0x00002edf}
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 6004 |` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x00001c20}
01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 0000 0000 | | .LITERAL {0x00000000, 0x00001c20}
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 6004 |` | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x00002710}
01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cb | | .CONST 0x01cb ; Address of begin
01c1 01d3 | | .CONST 0x01d3 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e5ff | | Load 0x2,-0x1
01c4 e008 | | Load 0x0,0x8
01c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
01c7 0092 06d5 | | Action Push_String_Extended,0x6d5 ; "_LPT"
01c9 01cc | | Execute Vector,Catenate
01ca 0007 | | Action Break_Optional
01cb BODY_01c0:
01cb e21c | | Load 0x1,0x1c
01cc e009 | | Load 0x0,0x9
01cd 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
01ce e402 | | Load 0x2,0x2
01cf e002 | | Load 0x0,0x2
01d0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01d1 c21c | | Store 0x1,0x1c
01d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d3 TRAP_01c0:
01d3 0007 | | Action Break_Optional
01d4 4829 |H) | Short_Literal 0x29
01d5 0092 06d6 | | Action Push_String_Extended,0x6d6 ; "Cannot create output "
01d7 e402 | | Load 0x2,0x2
01d8 01cc | | Execute Vector,Catenate
01d9 0092 06d7 | | Action Push_String_Extended,0x6d7 ; " ("
01db 01cc | | Execute Vector,Catenate
01dc 4800 |H | Short_Literal 0x0
01dd 4801 |H | Short_Literal 0x1
01de e00a | | Load 0x0,0xa
01df 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01e0 01cc | | Execute Vector,Catenate
01e1 01cb | | Execute Vector,Append
01e2 e006 | | Load 0x0,0x6
01e3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e4 e001 | | Load 0x0,0x1
01e5 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01e6 0257 | W | Execute Discrete,Raise
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e21c | | Load 0x1,0x1c
01ec e002 | | Load 0x0,0x2
01ed 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ee c21c | | Store 0x1,0x1c
01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 0092 06d8 | | Action Push_String_Extended,0x6d8 ; "_LPT_AUX"
01f5 00ca | | Action Exit_Nullary_Function
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fe | | .CONST 0x01fe ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb 00e3 | | Load_Encached Natural_Cache
01fc 029f 066b | k| Declare_Subprogram INIT_0668,For_Call
01fe BODY_01f8:
01fe e217 | | Load 0x1,0x17
01ff 0c01 | | Execute_Immediate Greater_Equal,0x1
0200 6817 |h | Jump_Zero 0x218
0201 e217 | | Load 0x1,0x17
0202 0c3d | = | Execute_Immediate Greater_Equal,0x3d
0203 6802 |h | Jump_Zero 0x206
0204 483c |H< | Short_Literal 0x3c
0205 a217 | | Store_Unchecked 0x1,0x17
0206 4801 |H | Short_Literal 0x1
0207 a402 | | Store_Unchecked 0x2,0x2
0208 00cf | | Action Mark_Auxiliary
0209 8403 | | Call 0x2,0x3
020a e402 | | Load 0x2,0x2
020b 0a01 | | Execute_Immediate Plus,0x1
020c c402 | | Store 0x2,0x2
020d e402 | | Load 0x2,0x2
020e e217 | | Load 0x1,0x17
020f 027d | } | Execute Discrete,Greater
0210 7006 |p | Jump_Nonzero 0x217
0211 00ea | | Load_Encached Null_String_Cache
0212 e21c | | Load 0x1,0x1c
0213 e002 | | Load 0x0,0x2
0214 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0215 00c9 | | Action Pop_Auxiliary_Loop
0216 7ff2 | | Jump 0x209
0217 00ce | | Action Pop_Auxiliary
0218 e21c | | Load 0x1,0x1c
0219 e002 | | Load 0x0,0x2
021a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
021b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0225 | % | .CONST 0x0225 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 029f 068b | | Declare_Subprogram INIT_0688,For_Call
0225 BODY_0220:
0225 00cf | | Action Mark_Auxiliary
0226 e212 | | Load 0x1,0x12
0227 01d9 | | Execute Vector,Reverse_Bounds
0228 0007 | | Action Break_Optional
0229 8402 | | Call 0x2,0x2
022a 00c8 | | Action Pop_Auxiliary_Range
022b 3ffd |? | Loop_Increasing 0x229
022c 00ce | | Action Pop_Auxiliary
022d 4800 |H | Short_Literal 0x0
022e a213 | | Store_Unchecked 0x1,0x13
022f 4800 |H | Short_Literal 0x0
0230 a214 | | Store_Unchecked 0x1,0x14
0231 4800 |H | Short_Literal 0x0
0232 a217 | | Store_Unchecked 0x1,0x17
0233 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0234 0000 0000 | | .BLANK 0000[0x4]
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 e216 | | Load 0x1,0x16
023c e212 | | Load 0x1,0x12
023d 01d5 | | Execute Vector,Field_Reference
023e 0007 | | Action Break_Optional
023f BODY_0238:
023f e215 | | Load 0x1,0x15
0240 0a01 | | Execute_Immediate Plus,0x1
0241 c215 | | Store 0x1,0x15
0242 e215 | | Load 0x1,0x15
0243 0c85 | | Execute_Immediate Greater_Equal,-0x7b
0244 6809 |h | Jump_Zero 0x24e
0245 e214 | | Load 0x1,0x14
0246 7006 |p | Jump_Nonzero 0x24d
0247 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "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 a214 | | Store_Unchecked 0x1,0x14
024d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
024e e5ff | | Load 0x2,-0x1
024f e215 | | Load 0x1,0x15
0250 e402 | | Load 0x2,0x2
0251 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0252 01d5 | | Execute Vector,Field_Reference
0253 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0254 00d8 | | Load_Top At_Offset_0
0255 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0256 e215 | | Load 0x1,0x15
0257 027c | | | Execute Discrete,Less
0258 6803 |h | Jump_Zero 0x25c
0259 e215 | | Load 0x1,0x15
025a e402 | | Load 0x2,0x2
025b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
025c e5fe | | Load 0x2,-0x2
025d 600a |` | Indirect_Literal Discrete,0x268,{0x00000000, 0x00001c20}
025e 027f | | Execute Discrete,Equal
025f 7007 |p | Jump_Nonzero 0x267
0260 e215 | | Load 0x1,0x15
0261 e5fe | | Load 0x2,-0x2
0262 6005 |` | Indirect_Literal Discrete,0x268,{0x00000000, 0x00001c20}
0263 0270 | p | Execute Discrete,Divide
0264 0aff | | Execute_Immediate Plus,-0x1
0265 0273 | s | Execute Discrete,Plus
0266 c215 | | Store 0x1,0x15
0267 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0268 0000 0000 | | .LITERAL {0x00000000, 0x00001c20}
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0279 | y | .CONST 0x0279 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0005 | | .CONST 0x0005 ; Number of locals
0273 INIT_0270:
0273 00e3 | | Load_Encached Natural_Cache
0274 03e9 | | Declare_Variable Discrete,Duplicate
0275 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
0277 029f 06bb | | Declare_Subprogram INIT_06b8,For_Call
0279 BODY_0270:
0279 8404 | | Call 0x2,0x4
027a 8405 | | Call 0x2,0x5
027b e402 | | Load 0x2,0x2
027c e215 | | Load 0x1,0x15
027d 027d | } | Execute Discrete,Greater
027e e216 | | Load 0x1,0x16
027f 0e00 | | Execute_Immediate Not_Equal,0x0
0280 0279 | y | Execute Discrete,And
0281 682a |h* | Jump_Zero 0x2ac
0282 e216 | | Load 0x1,0x16
0283 0d3d | = | Execute_Immediate Less,0x3d
0284 6827 |h' | Jump_Zero 0x2ac
0285 00cf | | Action Mark_Auxiliary
0286 e402 | | Load 0x2,0x2
0287 0aff | | Execute_Immediate Plus,-0x1
0288 e215 | | Load 0x1,0x15
0289 0a01 | | Execute_Immediate Plus,0x1
028a 00d8 | | Load_Top At_Offset_0
028b 00e2 | | Load_Encached Integer_Cache
028c 0260 | ` | Execute Discrete,In_Type
028d 7001 |p | Jump_Nonzero 0x28f
028e 0801 | | Execute_Immediate Raise,0x1
028f 0263 | c | Execute Discrete,Above_Bound
0290 700d |p | Jump_Nonzero 0x29e
0291 00d8 | | Load_Top At_Offset_0
0292 0d84 | | Execute_Immediate Less,-0x7c
0293 6808 |h | Jump_Zero 0x29c
0294 482d |H- | Short_Literal 0x2d
0295 e408 | | Load 0x2,0x8
0296 e216 | | Load 0x1,0x16
0297 e212 | | Load 0x1,0x12
0298 01d5 | | Execute Vector,Field_Reference
0299 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
029a 01d5 | | Execute Vector,Field_Reference
029b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
029c 00c8 | | Action Pop_Auxiliary_Range
029d 3ff3 |? | Loop_Increasing 0x291
029e 00ce | | Action Pop_Auxiliary
029f e402 | | Load 0x2,0x2
02a0 e216 | | Load 0x1,0x16
02a1 e212 | | Load 0x1,0x12
02a2 01d5 | | Execute Vector,Field_Reference
02a3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a4 027d | } | Execute Discrete,Greater
02a5 6898 |h | Jump_Zero 0x33e
02a6 e402 | | Load 0x2,0x2
02a7 e216 | | Load 0x1,0x16
02a8 e212 | | Load 0x1,0x12
02a9 01d5 | | Execute Vector,Field_Reference
02aa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02ab 7892 |x | Jump 0x33e
02ac e215 | | Load 0x1,0x15
02ad e402 | | Load 0x2,0x2
02ae 027d | } | Execute Discrete,Greater
02af e216 | | Load 0x1,0x16
02b0 0e00 | | Execute_Immediate Not_Equal,0x0
02b1 0279 | y | Execute Discrete,And
02b2 682a |h* | Jump_Zero 0x2dd
02b3 e216 | | Load 0x1,0x16
02b4 0d3d | = | Execute_Immediate Less,0x3d
02b5 6827 |h' | Jump_Zero 0x2dd
02b6 00cf | | Action Mark_Auxiliary
02b7 e215 | | Load 0x1,0x15
02b8 0aff | | Execute_Immediate Plus,-0x1
02b9 e402 | | Load 0x2,0x2
02ba 0a01 | | Execute_Immediate Plus,0x1
02bb 00d8 | | Load_Top At_Offset_0
02bc 00e2 | | Load_Encached Integer_Cache
02bd 0260 | ` | Execute Discrete,In_Type
02be 7001 |p | Jump_Nonzero 0x2c0
02bf 0801 | | Execute_Immediate Raise,0x1
02c0 0263 | c | Execute Discrete,Above_Bound
02c1 700d |p | Jump_Nonzero 0x2cf
02c2 00d8 | | Load_Top At_Offset_0
02c3 0d84 | | Execute_Immediate Less,-0x7c
02c4 6808 |h | Jump_Zero 0x2cd
02c5 482d |H- | Short_Literal 0x2d
02c6 e408 | | Load 0x2,0x8
02c7 e216 | | Load 0x1,0x16
02c8 e212 | | Load 0x1,0x12
02c9 01d5 | | Execute Vector,Field_Reference
02ca 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02cb 01d5 | | Execute Vector,Field_Reference
02cc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02cd 00c8 | | Action Pop_Auxiliary_Range
02ce 3ff3 |? | Loop_Increasing 0x2c2
02cf 00ce | | Action Pop_Auxiliary
02d0 e215 | | Load 0x1,0x15
02d1 e216 | | Load 0x1,0x16
02d2 e212 | | Load 0x1,0x12
02d3 01d5 | | Execute Vector,Field_Reference
02d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d5 027d | } | Execute Discrete,Greater
02d6 6867 |hg | Jump_Zero 0x33e
02d7 e215 | | Load 0x1,0x15
02d8 e216 | | Load 0x1,0x16
02d9 e212 | | Load 0x1,0x12
02da 01d5 | | Execute Vector,Field_Reference
02db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02dc 7861 |xa | Jump 0x33e
02dd e403 | | Load 0x2,0x3
02de e216 | | Load 0x1,0x16
02df 027d | } | Execute Discrete,Greater
02e0 e215 | | Load 0x1,0x15
02e1 0e00 | | Execute_Immediate Not_Equal,0x0
02e2 0279 | y | Execute Discrete,And
02e3 682a |h* | Jump_Zero 0x30e
02e4 e215 | | Load 0x1,0x15
02e5 0d85 | | Execute_Immediate Less,-0x7b
02e6 6827 |h' | Jump_Zero 0x30e
02e7 00cf | | Action Mark_Auxiliary
02e8 e403 | | Load 0x2,0x3
02e9 0aff | | Execute_Immediate Plus,-0x1
02ea e216 | | Load 0x1,0x16
02eb 0a01 | | Execute_Immediate Plus,0x1
02ec 00d8 | | Load_Top At_Offset_0
02ed 00e2 | | Load_Encached Integer_Cache
02ee 0260 | ` | Execute Discrete,In_Type
02ef 7001 |p | Jump_Nonzero 0x2f1
02f0 0801 | | Execute_Immediate Raise,0x1
02f1 0263 | c | Execute Discrete,Above_Bound
02f2 7019 |p | Jump_Nonzero 0x30c
02f3 00d8 | | Load_Top At_Offset_0
02f4 0d3c | < | Execute_Immediate Less,0x3c
02f5 6814 |h | Jump_Zero 0x30a
02f6 487c |H| | Short_Literal 0x7c
02f7 e215 | | Load 0x1,0x15
02f8 e408 | | Load 0x2,0x8
02f9 e212 | | Load 0x1,0x12
02fa 01d5 | | Execute Vector,Field_Reference
02fb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02fc 01d5 | | Execute Vector,Field_Reference
02fd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02fe 00d8 | | Load_Top At_Offset_0
02ff e212 | | Load 0x1,0x12
0300 01d5 | | Execute Vector,Field_Reference
0301 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0302 e215 | | Load 0x1,0x15
0303 027c | | | Execute Discrete,Less
0304 6805 |h | Jump_Zero 0x30a
0305 e215 | | Load 0x1,0x15
0306 e408 | | Load 0x2,0x8
0307 e212 | | Load 0x1,0x12
0308 01d5 | | Execute Vector,Field_Reference
0309 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
030a 00c8 | | Action Pop_Auxiliary_Range
030b 3fe7 |? | Loop_Increasing 0x2f3
030c 00ce | | Action Pop_Auxiliary
030d 7830 |x0 | Jump 0x33e
030e e216 | | Load 0x1,0x16
030f e403 | | Load 0x2,0x3
0310 027d | } | Execute Discrete,Greater
0311 e215 | | Load 0x1,0x15
0312 0e00 | | Execute_Immediate Not_Equal,0x0
0313 0279 | y | Execute Discrete,And
0314 6829 |h) | Jump_Zero 0x33e
0315 e215 | | Load 0x1,0x15
0316 0d85 | | Execute_Immediate Less,-0x7b
0317 6826 |h& | Jump_Zero 0x33e
0318 00cf | | Action Mark_Auxiliary
0319 e216 | | Load 0x1,0x16
031a 0aff | | Execute_Immediate Plus,-0x1
031b e403 | | Load 0x2,0x3
031c 0a01 | | Execute_Immediate Plus,0x1
031d 00d8 | | Load_Top At_Offset_0
031e 00e2 | | Load_Encached Integer_Cache
031f 0260 | ` | Execute Discrete,In_Type
0320 7001 |p | Jump_Nonzero 0x322
0321 0801 | | Execute_Immediate Raise,0x1
0322 0263 | c | Execute Discrete,Above_Bound
0323 7019 |p | Jump_Nonzero 0x33d
0324 00d8 | | Load_Top At_Offset_0
0325 0d3c | < | Execute_Immediate Less,0x3c
0326 6814 |h | Jump_Zero 0x33b
0327 487c |H| | Short_Literal 0x7c
0328 e215 | | Load 0x1,0x15
0329 e408 | | Load 0x2,0x8
032a e212 | | Load 0x1,0x12
032b 01d5 | | Execute Vector,Field_Reference
032c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
032d 01d5 | | Execute Vector,Field_Reference
032e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
032f 00d8 | | Load_Top At_Offset_0
0330 e212 | | Load 0x1,0x12
0331 01d5 | | Execute Vector,Field_Reference
0332 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0333 e215 | | Load 0x1,0x15
0334 027c | | | Execute Discrete,Less
0335 6805 |h | Jump_Zero 0x33b
0336 e215 | | Load 0x1,0x15
0337 e408 | | Load 0x2,0x8
0338 e212 | | Load 0x1,0x12
0339 01d5 | | Execute Vector,Field_Reference
033a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
033b 00c8 | | Action Pop_Auxiliary_Range
033c 3fe7 |? | Loop_Increasing 0x324
033d 00ce | | Action Pop_Auxiliary
033e e402 | | Load 0x2,0x2
033f a215 | | Store_Unchecked 0x1,0x15
0340 e403 | | Load 0x2,0x3
0341 a216 | | Store_Unchecked 0x1,0x16
0342 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034f | O | .CONST 0x034f ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0003 | | .CONST 0x0003 ; Number of locals
034b INIT_0348:
034b e001 | | Load 0x0,0x1
034c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
034d 0322 | " | Declare_Variable Record
034e 00e3 | | Load_Encached Natural_Cache
034f BODY_0348:
034f e5ff | | Load 0x2,-0x1
0350 0227 | ' | Execute Access,All_Reference
0351 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0352 00a2 05f8 | | Action Push_Discrete_Extended
0354 0270 | p | Execute Discrete,Divide
0355 00d8 | | Load_Top At_Offset_0
0356 00e3 | | Load_Encached Natural_Cache
0357 0260 | ` | Execute Discrete,In_Type
0358 7001 |p | Jump_Nonzero 0x35a
0359 0801 | | Execute_Immediate Raise,0x1
035a a216 | | Store_Unchecked 0x1,0x16
035b e218 | | Load 0x1,0x18
035c 6806 |h | Jump_Zero 0x363
035d e21a | | Load 0x1,0x1a
035e a215 | | Store_Unchecked 0x1,0x15
035f 00a2 05f4 | | Action Push_Discrete_Extended
0361 487c |H| | Short_Literal 0x7c
0362 8232 | 2 | Call 0x1,0x32
0363 e219 | | Load 0x1,0x19
0364 6806 |h | Jump_Zero 0x36b
0365 e21b | | Load 0x1,0x1b
0366 a215 | | Store_Unchecked 0x1,0x15
0367 00a2 05f4 | | Action Push_Discrete_Extended
0369 487c |H| | Short_Literal 0x7c
036a 8232 | 2 | Call 0x1,0x32
036b e20d | | Load 0x1,0xd
036c 00a2 05f4 | | Action Push_Discrete_Extended
036e 0270 | p | Execute Discrete,Divide
036f 00d8 | | Load_Top At_Offset_0
0370 00e3 | | Load_Encached Natural_Cache
0371 0260 | ` | Execute Discrete,In_Type
0372 7001 |p | Jump_Nonzero 0x374
0373 0801 | | Execute_Immediate Raise,0x1
0374 a215 | | Store_Unchecked 0x1,0x15
0375 e5ff | | Load 0x2,-0x1
0376 0227 | ' | Execute Access,All_Reference
0377 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0378 6896 |h | Jump_Zero 0x40f
0379 00cf | | Action Mark_Auxiliary
037a e5ff | | Load 0x2,-0x1
037b 0227 | ' | Execute Access,All_Reference
037c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
037d 4801 |H | Short_Literal 0x1
037e 0263 | c | Execute Discrete,Above_Bound
037f 7087 |p | Jump_Nonzero 0x407
0380 00d8 | | Load_Top At_Offset_0
0381 e5ff | | Load 0x2,-0x1
0382 0227 | ' | Execute Access,All_Reference
0383 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0384 01d5 | | Execute Vector,Field_Reference
0385 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0386 00d8 | | Load_Top At_Offset_0
0387 494e |IN | Short_Literal 0x14e
0388 027c | | | Execute Discrete,Less
0389 700a |p | Jump_Nonzero 0x394
038a 4eb2 |N | Short_Literal -0x14e
038b 0273 | s | Execute Discrete,Plus
038c 4606 |F | Jump_Case 0x7
038d 7866 |xf | Jump 0x3f4 ; case 0x0
038e 7807 |x | Jump 0x396 ; case 0x1
038f 7816 |x | Jump 0x3a6 ; case 0x2
0390 7822 |x" | Jump 0x3b3 ; case 0x3
0391 782e |x. | Jump 0x3c0 ; case 0x4
0392 783c |x< | Jump 0x3cf ; case 0x5
0393 7871 |xq | Jump 0x405 ; case 0x6
0394 00d1 | | Pop_Control Pop_Count_1
0395 786f |xo | Jump 0x405
0396 00d8 | | Load_Top At_Offset_0
0397 e5ff | | Load 0x2,-0x1
0398 0227 | ' | Execute Access,All_Reference
0399 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
039a 01d5 | | Execute Vector,Field_Reference
039b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
039c 00a2 05f8 | | Action Push_Discrete_Extended
039e 0270 | p | Execute Discrete,Divide
039f 00d8 | | Load_Top At_Offset_0
03a0 00e3 | | Load_Encached Natural_Cache
03a1 0260 | ` | Execute Discrete,In_Type
03a2 7001 |p | Jump_Nonzero 0x3a4
03a3 0801 | | Execute_Immediate Raise,0x1
03a4 a216 | | Store_Unchecked 0x1,0x16
03a5 785f |x_ | Jump 0x405
03a6 e215 | | Load 0x1,0x15
03a7 e406 | | Load 0x2,0x6
03a8 e5ff | | Load 0x2,-0x1
03a9 0227 | ' | Execute Access,All_Reference
03aa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03ab 01d5 | | Execute Vector,Field_Reference
03ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03ad 00a2 05f4 | | Action Push_Discrete_Extended
03af 0270 | p | Execute Discrete,Divide
03b0 0273 | s | Execute Discrete,Plus
03b1 c215 | | Store 0x1,0x15
03b2 7852 |xR | Jump 0x405
03b3 e216 | | Load 0x1,0x16
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 00a2 05f8 | | Action Push_Discrete_Extended
03bc 0270 | p | Execute Discrete,Divide
03bd 0273 | s | Execute Discrete,Plus
03be c216 | | Store 0x1,0x16
03bf 7845 |xE | Jump 0x405
03c0 00d8 | | Load_Top At_Offset_0
03c1 0a01 | | Execute_Immediate Plus,0x1
03c2 e5ff | | Load 0x2,-0x1
03c3 0227 | ' | Execute Access,All_Reference
03c4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03c5 01d5 | | Execute Vector,Field_Reference
03c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03c7 e406 | | Load 0x2,0x6
03c8 e5ff | | Load 0x2,-0x1
03c9 0227 | ' | Execute Access,All_Reference
03ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03cb 01d5 | | Execute Vector,Field_Reference
03cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03cd 8233 | 3 | Call 0x1,0x33
03ce 7836 |x6 | Jump 0x405
03cf 00d8 | | Load_Top At_Offset_0
03d0 0a01 | | Execute_Immediate Plus,0x1
03d1 e5ff | | Load 0x2,-0x1
03d2 0227 | ' | Execute Access,All_Reference
03d3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d4 01d5 | | Execute Vector,Field_Reference
03d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d6 4800 |H | Short_Literal 0x0
03d7 8233 | 3 | Call 0x1,0x33
03d8 4800 |H | Short_Literal 0x0
03d9 e406 | | Load 0x2,0x6
03da e5ff | | Load 0x2,-0x1
03db 0227 | ' | Execute Access,All_Reference
03dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03dd 01d5 | | Execute Vector,Field_Reference
03de 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03df 8233 | 3 | Call 0x1,0x33
03e0 00d8 | | Load_Top At_Offset_0
03e1 0a01 | | Execute_Immediate Plus,0x1
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 0275 | u | Execute Discrete,Unary_Minus
03e8 4800 |H | Short_Literal 0x0
03e9 8233 | 3 | Call 0x1,0x33
03ea 4800 |H | Short_Literal 0x0
03eb e406 | | Load 0x2,0x6
03ec e5ff | | Load 0x2,-0x1
03ed 0227 | ' | Execute Access,All_Reference
03ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03ef 01d5 | | Execute Vector,Field_Reference
03f0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03f1 0275 | u | Execute Discrete,Unary_Minus
03f2 8233 | 3 | Call 0x1,0x33
03f3 7811 |x | Jump 0x405
03f4 00d8 | | Load_Top At_Offset_0
03f5 e5ff | | Load 0x2,-0x1
03f6 0227 | ' | Execute Access,All_Reference
03f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03f8 01d5 | | Execute Vector,Field_Reference
03f9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03fa e20d | | Load 0x1,0xd
03fb 0273 | s | Execute Discrete,Plus
03fc 00a2 05f4 | | Action Push_Discrete_Extended
03fe 0270 | p | Execute Discrete,Divide
03ff 00d8 | | Load_Top At_Offset_0
0400 00e3 | | Load_Encached Natural_Cache
0401 0260 | ` | Execute Discrete,In_Type
0402 7001 |p | Jump_Nonzero 0x404
0403 0801 | | Execute_Immediate Raise,0x1
0404 a215 | | Store_Unchecked 0x1,0x15
0405 00c8 | | Action Pop_Auxiliary_Range
0406 3f79 |?y | Loop_Increasing 0x380
0407 00ce | | Action Pop_Auxiliary
0408 e216 | | Load 0x1,0x16
0409 e217 | | Load 0x1,0x17
040a 027d | } | Execute Discrete,Greater
040b 6802 |h | Jump_Zero 0x40e
040c e216 | | Load 0x1,0x16
040d a217 | | Store_Unchecked 0x1,0x17
040e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040f e216 | | Load 0x1,0x16
0410 7001 |p | Jump_Nonzero 0x412
0411 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0412 e216 | | Load 0x1,0x16
0413 0c3d | = | Execute_Immediate Greater_Equal,0x3d
0414 6809 |h | Jump_Zero 0x41e
0415 e213 | | Load 0x1,0x13
0416 7006 |p | Jump_Nonzero 0x41d
0417 0092 06da | | Action Push_String_Extended,0x6da ; "Lines off bottom of page ignored"
0419 e006 | | Load 0x0,0x6
041a 180e | | Execute Package,Field_Execute,Field_Number 0xe
041b 4801 |H | Short_Literal 0x1
041c a213 | | Store_Unchecked 0x1,0x13
041d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041e e216 | | Load 0x1,0x16
041f e217 | | Load 0x1,0x17
0420 027d | } | Execute Discrete,Greater
0421 6802 |h | Jump_Zero 0x424
0422 e216 | | Load 0x1,0x16
0423 a217 | | Store_Unchecked 0x1,0x17
0424 00cf | | Action Mark_Auxiliary
0425 e5ff | | Load 0x2,-0x1
0426 0227 | ' | Execute Access,All_Reference
0427 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0428 0aff | | Execute_Immediate Plus,-0x1
0429 4801 |H | Short_Literal 0x1
042a 0263 | c | Execute Discrete,Above_Bound
042b 71c4 |q | Jump_Nonzero 0x5f0
042c 00d8 | | Load_Top At_Offset_0
042d e5ff | | Load 0x2,-0x1
042e 0227 | ' | Execute Access,All_Reference
042f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0430 01d5 | | Execute Vector,Field_Reference
0431 e402 | | Load 0x2,0x2
0432 017d | } | Execute Record,Structure_Write
0433 e402 | | Load 0x2,0x2
0434 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0435 00d8 | | Load_Top At_Offset_0
0436 0d7f | | Execute_Immediate Less,0x7f
0437 70dc |p | Jump_Nonzero 0x514
0438 0a81 | | Execute_Immediate Plus,-0x7f
0439 46d5 |F | Jump_Case 0xd6
043a 78d5 |x | Jump 0x510 ; case 0x0
043b 78d4 |x | Jump 0x510 ; case 0x1
043c 78d3 |x | Jump 0x510 ; case 0x2
043d 78d2 |x | Jump 0x510 ; case 0x3
043e 78d1 |x | Jump 0x510 ; case 0x4
043f 78d0 |x | Jump 0x510 ; case 0x5
0440 78cf |x | Jump 0x510 ; case 0x6
0441 78ce |x | Jump 0x510 ; case 0x7
0442 78cd |x | Jump 0x510 ; case 0x8
0443 78cc |x | Jump 0x510 ; case 0x9
0444 78cb |x | Jump 0x510 ; case 0xa
0445 78ca |x | Jump 0x510 ; case 0xb
0446 78c9 |x | Jump 0x510 ; case 0xc
0447 78c8 |x | Jump 0x510 ; case 0xd
0448 78c7 |x | Jump 0x510 ; case 0xe
0449 78c6 |x | Jump 0x510 ; case 0xf
044a 78c5 |x | Jump 0x510 ; case 0x10
044b 78c4 |x | Jump 0x510 ; case 0x11
044c 78c3 |x | Jump 0x510 ; case 0x12
044d 78c2 |x | Jump 0x510 ; case 0x13
044e 78c1 |x | Jump 0x510 ; case 0x14
044f 78c0 |x | Jump 0x510 ; case 0x15
0450 78bf |x | Jump 0x510 ; case 0x16
0451 78be |x | Jump 0x510 ; case 0x17
0452 78bd |x | Jump 0x510 ; case 0x18
0453 78bc |x | Jump 0x510 ; case 0x19
0454 78bb |x | Jump 0x510 ; case 0x1a
0455 78ba |x | Jump 0x510 ; case 0x1b
0456 78b9 |x | Jump 0x510 ; case 0x1c
0457 78b8 |x | Jump 0x510 ; case 0x1d
0458 78b7 |x | Jump 0x510 ; case 0x1e
0459 78b6 |x | Jump 0x510 ; case 0x1f
045a 78b5 |x | Jump 0x510 ; case 0x20
045b 78b4 |x | Jump 0x510 ; case 0x21
045c 78b3 |x | Jump 0x510 ; case 0x22
045d 78b2 |x | Jump 0x510 ; case 0x23
045e 78b1 |x | Jump 0x510 ; case 0x24
045f 793e |y> | Jump 0x59e ; case 0x25
0460 78af |x | Jump 0x510 ; case 0x26
0461 78ae |x | Jump 0x510 ; case 0x27
0462 78ad |x | Jump 0x510 ; case 0x28
0463 78ac |x | Jump 0x510 ; case 0x29
0464 7979 |yy | Jump 0x5de ; case 0x2a
0465 7974 |yt | Jump 0x5da ; case 0x2b
0466 793b |y; | Jump 0x5a2 ; case 0x2c
0467 793a |y: | Jump 0x5a2 ; case 0x2d
0468 793d |y= | Jump 0x5a6 ; case 0x2e
0469 7978 |yx | Jump 0x5e2 ; case 0x2f
046a 7928 |y( | Jump 0x593 ; case 0x30
046b 78a4 |x | Jump 0x510 ; case 0x31
046c 791e |y | Jump 0x58b ; case 0x32
046d 78a2 |x | Jump 0x510 ; case 0x33
046e 78a1 |x | Jump 0x510 ; case 0x34
046f 7966 |yf | Jump 0x5d6 ; case 0x35
0470 789f |x | Jump 0x510 ; case 0x36
0471 789e |x | Jump 0x510 ; case 0x37
0472 78da |x | Jump 0x54d ; case 0x38
0473 789c |x | Jump 0x510 ; case 0x39
0474 789b |x | Jump 0x510 ; case 0x3a
0475 7964 |yd | Jump 0x5da ; case 0x3b
0476 792f |y/ | Jump 0x5a6 ; case 0x3c
0477 7905 |y | Jump 0x57d ; case 0x3d
0478 7897 |x | Jump 0x510 ; case 0x3e
0479 7896 |x | Jump 0x510 ; case 0x3f
047a 7895 |x | Jump 0x510 ; case 0x40
047b 7894 |x | Jump 0x510 ; case 0x41
047c 7893 |x | Jump 0x510 ; case 0x42
047d 7892 |x | Jump 0x510 ; case 0x43
047e 7891 |x | Jump 0x510 ; case 0x44
047f 7890 |x | Jump 0x510 ; case 0x45
0480 788f |x | Jump 0x510 ; case 0x46
0481 788e |x | Jump 0x510 ; case 0x47
0482 788d |x | Jump 0x510 ; case 0x48
0483 788c |x | Jump 0x510 ; case 0x49
0484 788b |x | Jump 0x510 ; case 0x4a
0485 788a |x | Jump 0x510 ; case 0x4b
0486 7889 |x | Jump 0x510 ; case 0x4c
0487 7888 |x | Jump 0x510 ; case 0x4d
0488 7887 |x | Jump 0x510 ; case 0x4e
0489 7886 |x | Jump 0x510 ; case 0x4f
048a 7885 |x | Jump 0x510 ; case 0x50
048b 78ff |x | Jump 0x58b ; case 0x51
048c 7883 |x | Jump 0x510 ; case 0x52
048d 7882 |x | Jump 0x510 ; case 0x53
048e 7881 |x | Jump 0x510 ; case 0x54
048f 7880 |x | Jump 0x510 ; case 0x55
0490 787f |x | Jump 0x510 ; case 0x56
0491 787e |x~ | Jump 0x510 ; case 0x57
0492 787d |x} | Jump 0x510 ; case 0x58
0493 787c |x| | Jump 0x510 ; case 0x59
0494 787b |x{ | Jump 0x510 ; case 0x5a
0495 787a |xz | Jump 0x510 ; case 0x5b
0496 7879 |xy | Jump 0x510 ; case 0x5c
0497 7878 |xx | Jump 0x510 ; case 0x5d
0498 7877 |xw | Jump 0x510 ; case 0x5e
0499 7876 |xv | Jump 0x510 ; case 0x5f
049a 7875 |xu | Jump 0x510 ; case 0x60
049b 7874 |xt | Jump 0x510 ; case 0x61
049c 7873 |xs | Jump 0x510 ; case 0x62
049d 7872 |xr | Jump 0x510 ; case 0x63
049e 7871 |xq | Jump 0x510 ; case 0x64
049f 7870 |xp | Jump 0x510 ; case 0x65
04a0 786f |xo | Jump 0x510 ; case 0x66
04a1 786e |xn | Jump 0x510 ; case 0x67
04a2 786d |xm | Jump 0x510 ; case 0x68
04a3 786c |xl | Jump 0x510 ; case 0x69
04a4 786b |xk | Jump 0x510 ; case 0x6a
04a5 786a |xj | Jump 0x510 ; case 0x6b
04a6 7869 |xi | Jump 0x510 ; case 0x6c
04a7 7868 |xh | Jump 0x510 ; case 0x6d
04a8 7867 |xg | Jump 0x510 ; case 0x6e
04a9 7866 |xf | Jump 0x510 ; case 0x6f
04aa 7865 |xe | Jump 0x510 ; case 0x70
04ab 7864 |xd | Jump 0x510 ; case 0x71
04ac 7863 |xc | Jump 0x510 ; case 0x72
04ad 7862 |xb | Jump 0x510 ; case 0x73
04ae 7861 |xa | Jump 0x510 ; case 0x74
04af 7860 |x` | Jump 0x510 ; case 0x75
04b0 785f |x_ | Jump 0x510 ; case 0x76
04b1 785e |x^ | Jump 0x510 ; case 0x77
04b2 785d |x] | Jump 0x510 ; case 0x78
04b3 785c |x\ | Jump 0x510 ; case 0x79
04b4 785b |x[ | Jump 0x510 ; case 0x7a
04b5 785a |xZ | Jump 0x510 ; case 0x7b
04b6 7859 |xY | Jump 0x510 ; case 0x7c
04b7 7858 |xX | Jump 0x510 ; case 0x7d
04b8 7857 |xW | Jump 0x510 ; case 0x7e
04b9 7856 |xV | Jump 0x510 ; case 0x7f
04ba 7855 |xU | Jump 0x510 ; case 0x80
04bb 7895 |x | Jump 0x551 ; case 0x81
04bc 7894 |x | Jump 0x551 ; case 0x82
04bd 7893 |x | Jump 0x551 ; case 0x83
04be 7892 |x | Jump 0x551 ; case 0x84
04bf 7891 |x | Jump 0x551 ; case 0x85
04c0 7890 |x | Jump 0x551 ; case 0x86
04c1 7893 |x | Jump 0x555 ; case 0x87
04c2 7896 |x | Jump 0x559 ; case 0x88
04c3 7895 |x | Jump 0x559 ; case 0x89
04c4 7894 |x | Jump 0x559 ; case 0x8a
04c5 7893 |x | Jump 0x559 ; case 0x8b
04c6 78c8 |x | Jump 0x58f ; case 0x8c
04c7 78c7 |x | Jump 0x58f ; case 0x8d
04c8 78c6 |x | Jump 0x58f ; case 0x8e
04c9 78c5 |x | Jump 0x58f ; case 0x8f
04ca 789a |x | Jump 0x565 ; case 0x90
04cb 789d |x | Jump 0x569 ; case 0x91
04cc 789c |x | Jump 0x569 ; case 0x92
04cd 789b |x | Jump 0x569 ; case 0x93
04ce 789a |x | Jump 0x569 ; case 0x94
04cf 7899 |x | Jump 0x569 ; case 0x95
04d0 789c |x | Jump 0x56d ; case 0x96
04d1 789f |x | Jump 0x571 ; case 0x97
04d2 789e |x | Jump 0x571 ; case 0x98
04d3 789d |x | Jump 0x571 ; case 0x99
04d4 789c |x | Jump 0x571 ; case 0x9a
04d5 789f |x | Jump 0x575 ; case 0x9b
04d6 78a2 |x | Jump 0x579 ; case 0x9c
04d7 78d6 |x | Jump 0x5ae ; case 0x9d
04d8 78d5 |x | Jump 0x5ae ; case 0x9e
04d9 78d4 |x | Jump 0x5ae ; case 0x9f
04da 78d3 |x | Jump 0x5ae ; case 0xa0
04db 78d2 |x | Jump 0x5ae ; case 0xa1
04dc 78d1 |x | Jump 0x5ae ; case 0xa2
04dd 78d4 |x | Jump 0x5b2 ; case 0xa3
04de 78d7 |x | Jump 0x5b6 ; case 0xa4
04df 78d6 |x | Jump 0x5b6 ; case 0xa5
04e0 78d5 |x | Jump 0x5b6 ; case 0xa6
04e1 78d4 |x | Jump 0x5b6 ; case 0xa7
04e2 78d7 |x | Jump 0x5ba ; case 0xa8
04e3 78d6 |x | Jump 0x5ba ; case 0xa9
04e4 78d5 |x | Jump 0x5ba ; case 0xaa
04e5 78d4 |x | Jump 0x5ba ; case 0xab
04e6 78d7 |x | Jump 0x5be ; case 0xac
04e7 78da |x | Jump 0x5c2 ; case 0xad
04e8 78d9 |x | Jump 0x5c2 ; case 0xae
04e9 78d8 |x | Jump 0x5c2 ; case 0xaf
04ea 78d7 |x | Jump 0x5c2 ; case 0xb0
04eb 78d6 |x | Jump 0x5c2 ; case 0xb1
04ec 78d9 |x | Jump 0x5c6 ; case 0xb2
04ed 78dc |x | Jump 0x5ca ; case 0xb3
04ee 78db |x | Jump 0x5ca ; case 0xb4
04ef 78da |x | Jump 0x5ca ; case 0xb5
04f0 78d9 |x | Jump 0x5ca ; case 0xb6
04f1 78dc |x | Jump 0x5ce ; case 0xb7
04f2 78df |x | Jump 0x5d2 ; case 0xb8
04f3 78f9 |x | Jump 0x5ed ; case 0xb9
04f4 78f8 |x | Jump 0x5ed ; case 0xba
04f5 78f7 |x | Jump 0x5ed ; case 0xbb
04f6 78b3 |x | Jump 0x5aa ; case 0xbc
04f7 7893 |x | Jump 0x58b ; case 0xbd
04f8 7817 |x | Jump 0x510 ; case 0xbe
04f9 7816 |x | Jump 0x510 ; case 0xbf
04fa 7815 |x | Jump 0x510 ; case 0xc0
04fb 7814 |x | Jump 0x510 ; case 0xc1
04fc 7813 |x | Jump 0x510 ; case 0xc2
04fd 781b |x | Jump 0x519 ; case 0xc3
04fe 7836 |x6 | Jump 0x535 ; case 0xc4
04ff 7810 |x | Jump 0x510 ; case 0xc5
0500 785c |x\ | Jump 0x55d ; case 0xc6
0501 785b |x[ | Jump 0x55d ; case 0xc7
0502 785a |xZ | Jump 0x55d ; case 0xc8
0503 7859 |xY | Jump 0x55d ; case 0xc9
0504 7858 |xX | Jump 0x55d ; case 0xca
0505 7857 |xW | Jump 0x55d ; case 0xcb
0506 7809 |x | Jump 0x510 ; case 0xcc
0507 7808 |x | Jump 0x510 ; case 0xcd
0508 7831 |x1 | Jump 0x53a ; case 0xce
0509 7806 |x | Jump 0x510 ; case 0xcf
050a 7805 |x | Jump 0x510 ; case 0xd0
050b 7804 |x | Jump 0x510 ; case 0xd1
050c 7803 |x | Jump 0x510 ; case 0xd2
050d 7802 |x | Jump 0x510 ; case 0xd3
050e 7801 |x | Jump 0x510 ; case 0xd4
050f 7800 |x | Jump 0x510 ; case 0xd5
0510 60e3 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0511 4823 |H# | Short_Literal 0x23
0512 8232 | 2 | Call 0x1,0x32
0513 78d9 |x | Jump 0x5ed
0514 4820 |H | Short_Literal 0x20
0515 487e |H~ | Short_Literal 0x7e
0516 0262 | b | Execute Discrete,In_Range
0517 702a |p* | Jump_Nonzero 0x542
0518 7ff7 | | Jump 0x510
0519 e402 | | Load 0x2,0x2
051a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
051b 0d00 | | Execute_Immediate Less,0x0
051c 6803 |h | Jump_Zero 0x520
051d 4801 |H | Short_Literal 0x1
051e a218 | | Store_Unchecked 0x1,0x18
051f 7802 |x | Jump 0x522
0520 4801 |H | Short_Literal 0x1
0521 a219 | | Store_Unchecked 0x1,0x19
0522 e215 | | Load 0x1,0x15
0523 a403 | | Store_Unchecked 0x2,0x3
0524 e218 | | Load 0x1,0x18
0525 6805 |h | Jump_Zero 0x52b
0526 e21a | | Load 0x1,0x1a
0527 a215 | | Store_Unchecked 0x1,0x15
0528 60cb |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0529 487c |H| | Short_Literal 0x7c
052a 8232 | 2 | Call 0x1,0x32
052b e219 | | Load 0x1,0x19
052c 6805 |h | Jump_Zero 0x532
052d e21b | | Load 0x1,0x1b
052e a215 | | Store_Unchecked 0x1,0x15
052f 60c4 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0530 487c |H| | Short_Literal 0x7c
0531 8232 | 2 | Call 0x1,0x32
0532 e403 | | Load 0x2,0x3
0533 a215 | | Store_Unchecked 0x1,0x15
0534 78b8 |x | Jump 0x5ed
0535 4800 |H | Short_Literal 0x0
0536 a218 | | Store_Unchecked 0x1,0x18
0537 4800 |H | Short_Literal 0x0
0538 a219 | | Store_Unchecked 0x1,0x19
0539 78b3 |x | Jump 0x5ed
053a e216 | | Load 0x1,0x16
053b e402 | | Load 0x2,0x2
053c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
053d 60ba |` | Indirect_Literal Discrete,0x5f8,{0x00000000, 0x00002ee0}
053e 0270 | p | Execute Discrete,Divide
053f 0273 | s | Execute Discrete,Plus
0540 c216 | | Store 0x1,0x16
0541 78ab |x | Jump 0x5ed
0542 e402 | | Load 0x2,0x2
0543 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0544 e402 | | Load 0x2,0x2
0545 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0546 00d8 | | Load_Top At_Offset_0
0547 00e8 | | Load_Encached Character_Cache
0548 0260 | ` | Execute Discrete,In_Type
0549 7001 |p | Jump_Nonzero 0x54b
054a 0801 | | Execute_Immediate Raise,0x1
054b 8232 | 2 | Call 0x1,0x32
054c 78a0 |x | Jump 0x5ed
054d 60a6 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
054e 482a |H* | Short_Literal 0x2a
054f 8232 | 2 | Call 0x1,0x32
0550 789c |x | Jump 0x5ed
0551 60a2 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0552 4841 |HA | Short_Literal 0x41
0553 8232 | 2 | Call 0x1,0x32
0554 7898 |x | Jump 0x5ed
0555 609e |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0556 4843 |HC | Short_Literal 0x43
0557 8232 | 2 | Call 0x1,0x32
0558 7894 |x | Jump 0x5ed
0559 609a |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
055a 4845 |HE | Short_Literal 0x45
055b 8232 | 2 | Call 0x1,0x32
055c 7890 |x | Jump 0x5ed
055d e215 | | Load 0x1,0x15
055e e402 | | Load 0x2,0x2
055f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0560 6093 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0561 0270 | p | Execute Discrete,Divide
0562 0273 | s | Execute Discrete,Plus
0563 c215 | | Store 0x1,0x15
0564 7888 |x | Jump 0x5ed
0565 608e |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0566 484e |HN | Short_Literal 0x4e
0567 8232 | 2 | Call 0x1,0x32
0568 7884 |x | Jump 0x5ed
0569 608a |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
056a 484f |HO | Short_Literal 0x4f
056b 8232 | 2 | Call 0x1,0x32
056c 7880 |x | Jump 0x5ed
056d 6086 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
056e 4853 |HS | Short_Literal 0x53
056f 8232 | 2 | Call 0x1,0x32
0570 787c |x| | Jump 0x5ed
0571 6082 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0572 4855 |HU | Short_Literal 0x55
0573 8232 | 2 | Call 0x1,0x32
0574 7878 |xx | Jump 0x5ed
0575 607e |`~ | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0576 4859 |HY | Short_Literal 0x59
0577 8232 | 2 | Call 0x1,0x32
0578 7874 |xt | Jump 0x5ed
0579 607a |`z | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
057a 485a |HZ | Short_Literal 0x5a
057b 8232 | 2 | Call 0x1,0x32
057c 7870 |xp | Jump 0x5ed
057d 0092 06db | | Action Push_String_Extended,0x6db ; "Expanding ellipsis"
057f e006 | | Load 0x0,0x6
0580 180f | | Execute Package,Field_Execute,Field_Number 0xf
0581 6072 |`r | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0582 482e |H. | Short_Literal 0x2e
0583 8232 | 2 | Call 0x1,0x32
0584 606f |`o | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0585 482e |H. | Short_Literal 0x2e
0586 8232 | 2 | Call 0x1,0x32
0587 606c |`l | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0588 482e |H. | Short_Literal 0x2e
0589 8232 | 2 | Call 0x1,0x32
058a 7862 |xb | Jump 0x5ed
058b 6068 |`h | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
058c 482d |H- | Short_Literal 0x2d
058d 8232 | 2 | Call 0x1,0x32
058e 785e |x^ | Jump 0x5ed
058f 6064 |`d | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0590 4849 |HI | Short_Literal 0x49
0591 8232 | 2 | Call 0x1,0x32
0592 785a |xZ | Jump 0x5ed
0593 0092 06dc | | Action Push_String_Extended,0x6dc ; "Expanding 'fl' ligature"
0595 e006 | | Load 0x0,0x6
0596 180f | | Execute Package,Field_Execute,Field_Number 0xf
0597 605c |`\ | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
0598 4866 |Hf | Short_Literal 0x66
0599 8232 | 2 | Call 0x1,0x32
059a 6059 |`Y | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
059b 486c |Hl | Short_Literal 0x6c
059c 8232 | 2 | Call 0x1,0x32
059d 784f |xO | Jump 0x5ed
059e 6055 |`U | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
059f 482f |H/ | Short_Literal 0x2f
05a0 8232 | 2 | Call 0x1,0x32
05a1 784b |xK | Jump 0x5ed
05a2 6051 |`Q | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05a3 483c |H< | Short_Literal 0x3c
05a4 8232 | 2 | Call 0x1,0x32
05a5 7847 |xG | Jump 0x5ed
05a6 604d |`M | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05a7 483e |H> | Short_Literal 0x3e
05a8 8232 | 2 | Call 0x1,0x32
05a9 7843 |xC | Jump 0x5ed
05aa 6049 |`I | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05ab 487e |H~ | Short_Literal 0x7e
05ac 8232 | 2 | Call 0x1,0x32
05ad 783f |x? | Jump 0x5ed
05ae 6045 |`E | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05af 4861 |Ha | Short_Literal 0x61
05b0 8232 | 2 | Call 0x1,0x32
05b1 783b |x; | Jump 0x5ed
05b2 6041 |`A | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05b3 4863 |Hc | Short_Literal 0x63
05b4 8232 | 2 | Call 0x1,0x32
05b5 7837 |x7 | Jump 0x5ed
05b6 603d |`= | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05b7 4865 |He | Short_Literal 0x65
05b8 8232 | 2 | Call 0x1,0x32
05b9 7833 |x3 | Jump 0x5ed
05ba 6039 |`9 | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05bb 4869 |Hi | Short_Literal 0x69
05bc 8232 | 2 | Call 0x1,0x32
05bd 782f |x/ | Jump 0x5ed
05be 6035 |`5 | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05bf 486e |Hn | Short_Literal 0x6e
05c0 8232 | 2 | Call 0x1,0x32
05c1 782b |x+ | Jump 0x5ed
05c2 6031 |`1 | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05c3 486f |Ho | Short_Literal 0x6f
05c4 8232 | 2 | Call 0x1,0x32
05c5 7827 |x' | Jump 0x5ed
05c6 602d |`- | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05c7 4873 |Hs | Short_Literal 0x73
05c8 8232 | 2 | Call 0x1,0x32
05c9 7823 |x# | Jump 0x5ed
05ca 6029 |`) | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05cb 4875 |Hu | Short_Literal 0x75
05cc 8232 | 2 | Call 0x1,0x32
05cd 781f |x | Jump 0x5ed
05ce 6025 |`% | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05cf 4879 |Hy | Short_Literal 0x79
05d0 8232 | 2 | Call 0x1,0x32
05d1 781b |x | Jump 0x5ed
05d2 6021 |`! | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05d3 487a |Hz | Short_Literal 0x7a
05d4 8232 | 2 | Call 0x1,0x32
05d5 7817 |x | Jump 0x5ed
05d6 601d |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05d7 4858 |HX | Short_Literal 0x58
05d8 8232 | 2 | Call 0x1,0x32
05d9 7813 |x | Jump 0x5ed
05da 6019 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05db 4822 |H" | Short_Literal 0x22
05dc 8232 | 2 | Call 0x1,0x32
05dd 780f |x | Jump 0x5ed
05de 6015 |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05df 4827 |H' | Short_Literal 0x27
05e0 8232 | 2 | Call 0x1,0x32
05e1 780b |x | Jump 0x5ed
05e2 0092 06dd | | Action Push_String_Extended,0x6dd ; "Expanding 'fi' ligature"
05e4 e006 | | Load 0x0,0x6
05e5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05e6 600d |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05e7 4866 |Hf | Short_Literal 0x66
05e8 8232 | 2 | Call 0x1,0x32
05e9 600a |` | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00001c20}
05ea 4869 |Hi | Short_Literal 0x69
05eb 8232 | 2 | Call 0x1,0x32
05ec 7800 |x | Jump 0x5ed
05ed 00c8 | | Action Pop_Auxiliary_Range
05ee 00a4 042c | ,| Action Loop_Increasing_Extended,0x42c
05f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f1 0000 0000 | | .XXX[0x3]
05f3 0000 | |
05f4 0000 0000 | | .LITERAL {0x00000000, 0x00001c20}
05f8 0000 0000 | | .LITERAL {0x00000000, 0x00002ee0}
05fc 0000 0000 | | .BLANK 0000[0x4]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 0092 06de | | Action Push_String_Extended,0x6de ; "Cannot interpolate files when using the LinePrinter device"
0605 e006 | | Load 0x0,0x6
0606 180e | | Execute Package,Field_Execute,Field_Number 0xe
0607 450b |E | Exit_Suprogram New_Top_Offset 0xb
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0613 | | .CONST 0x0613 ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0003 | | .CONST 0x0003 ; Number of locals
060b INIT_0608:
060b e5ff | | Load 0x2,-0x1
060c 6027 |`' | Indirect_Literal Discrete,0x634,{0x00000000, 0x00001c20}
060d 0270 | p | Execute Discrete,Divide
060e 0007 | | Action Break_Optional
060f e5fe | | Load 0x2,-0x2
0610 6023 |`# | Indirect_Literal Discrete,0x634,{0x00000000, 0x00001c20}
0611 0270 | p | Execute Discrete,Divide
0612 0007 | | Action Break_Optional
0613 BODY_0608:
0613 e402 | | Load 0x2,0x2
0614 0d01 | | Execute_Immediate Less,0x1
0615 6803 |h | Jump_Zero 0x619
0616 4800 |H | Short_Literal 0x0
0617 a21a | | Store_Unchecked 0x1,0x1a
0618 7809 |x | Jump 0x622
0619 e402 | | Load 0x2,0x2
061a 0c85 | | Execute_Immediate Greater_Equal,-0x7b
061b 6803 |h | Jump_Zero 0x61f
061c 4883 |H | Short_Literal 0x83
061d a21a | | Store_Unchecked 0x1,0x1a
061e 7803 |x | Jump 0x622
061f e402 | | Load 0x2,0x2
0620 0aff | | Execute_Immediate Plus,-0x1
0621 c21a | | Store 0x1,0x1a
0622 00d8 | | Load_Top At_Offset_0
0623 0d01 | | Execute_Immediate Less,0x1
0624 6803 |h | Jump_Zero 0x628
0625 4800 |H | Short_Literal 0x0
0626 a21b | | Store_Unchecked 0x1,0x1b
0627 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0628 00d8 | | Load_Top At_Offset_0
0629 0c85 | | Execute_Immediate Greater_Equal,-0x7b
062a 6803 |h | Jump_Zero 0x62e
062b 4883 |H | Short_Literal 0x83
062c a21b | | Store_Unchecked 0x1,0x1b
062d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
062e 00d8 | | Load_Top At_Offset_0
062f 0aff | | Execute_Immediate Plus,-0x1
0630 c21b | | Store 0x1,0x1b
0631 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0632 0000 0000 | | .XXX[0x2]
0634 0000 0000 | | .LITERAL {0x00000000, 0x00001c20}
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0643 | C | .CONST 0x0643 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b e402 | | Load 0x2,0x2
063c 00ea | | Load_Encached Null_String_Cache
063d e5ff | | Load 0x2,-0x1
063e 4800 |H | Short_Literal 0x0
063f e007 | | Load 0x0,0x7
0640 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0641 c402 | | Store 0x2,0x2
0642 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0643 TRAP_0638:
0643 0007 | | Action Break_Optional
0644 4829 |H) | Short_Literal 0x29
0645 0092 06df | | Action Push_String_Extended,0x6df ; "Could not open the form setup file "
0647 e5ff | | Load 0x2,-0x1
0648 01cc | | Execute Vector,Catenate
0649 0092 06d7 | | Action Push_String_Extended,0x6d7 ; " ("
064b 01cc | | Execute Vector,Catenate
064c 4800 |H | Short_Literal 0x0
064d 4801 |H | Short_Literal 0x1
064e e00a | | Load 0x0,0xa
064f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0650 01cc | | Execute Vector,Catenate
0651 01cb | | Execute Vector,Append
0652 e006 | | Load 0x0,0x6
0653 180e | | Execute Package,Field_Execute,Field_Number 0xe
0654 e001 | | Load 0x0,0x1
0655 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0656 0257 | W | Execute Discrete,Raise
0657 0000 | | .XXX[0x1]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065e | ^ | .CONST 0x065e ; Address of begin
0659 0004 | | .CONST 0x0004 ; Address of exception handler
065a 0002 | | .CONST 0x0002 ; Number of locals
065b INIT_0658:
065b e402 | | Load 0x2,0x2
065c e007 | | Load 0x0,0x7
065d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
065e BODY_0658:
065e 00d8 | | Load_Top At_Offset_0
065f 01db | | Execute Vector,Length
0660 0c01 | | Execute_Immediate Greater_Equal,0x1
0661 6802 |h | Jump_Zero 0x664
0662 00d8 | | Load_Top At_Offset_0
0663 8220 | | Call 0x1,0x20
0664 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0665 0000 0000 | | .XXX[0x3]
0667 0000 | |
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066f | o | .CONST 0x066f ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0002 | | .CONST 0x0002 ; Number of locals
066b INIT_0668:
066b e402 | | Load 0x2,0x2
066c e212 | | Load 0x1,0x12
066d 01d5 | | Execute Vector,Field_Reference
066e 0007 | | Action Break_Optional
066f BODY_0668:
066f 00d8 | | Load_Top At_Offset_0
0670 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0671 0c85 | | Execute_Immediate Greater_Equal,-0x7b
0672 6803 |h | Jump_Zero 0x676
0673 4884 |H | Short_Literal 0x84
0674 e602 | | Load 0x3,0x2
0675 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0676 00cf | | Action Mark_Auxiliary
0677 e602 | | Load 0x3,0x2
0678 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0679 4801 |H | Short_Literal 0x1
067a 0263 | c | Execute Discrete,Above_Bound
067b 700a |p | Jump_Nonzero 0x686
067c 00d8 | | Load_Top At_Offset_0
067d e602 | | Load 0x3,0x2
067e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
067f 01d5 | | Execute Vector,Field_Reference
0680 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0681 e21c | | Load 0x1,0x1c
0682 e002 | | Load 0x0,0x2
0683 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0684 00c8 | | Action Pop_Auxiliary_Range
0685 3ff6 |? | Loop_Increasing 0x67c
0686 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0687 0000 | | .XXX[0x1]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068f | | .CONST 0x068f ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b e405 | | Load 0x2,0x5
068c e212 | | Load 0x1,0x12
068d 01d5 | | Execute Vector,Field_Reference
068e 0007 | | Action Break_Optional
068f BODY_0688:
068f 4800 |H | Short_Literal 0x0
0690 e602 | | Load 0x3,0x2
0691 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0692 00cf | | Action Mark_Auxiliary
0693 e602 | | Load 0x3,0x2
0694 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0695 01d9 | | Execute Vector,Reverse_Bounds
0696 0007 | | Action Break_Optional
0697 4820 |H | Short_Literal 0x20
0698 e605 | | Load 0x3,0x5
0699 e602 | | Load 0x3,0x2
069a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
069b 01d5 | | Execute Vector,Field_Reference
069c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
069d 00c8 | | Action Pop_Auxiliary_Range
069e 3ff8 |? | Loop_Increasing 0x697
069f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 06aa | | .CONST 0x06aa ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 e215 | | Load 0x1,0x15
06a4 e5ff | | Load 0x2,-0x1
06a5 600e |` | Indirect_Literal Discrete,0x6b4,{0x00000000, 0x00001c20}
06a6 0270 | p | Execute Discrete,Divide
06a7 0273 | s | Execute Discrete,Plus
06a8 c402 | | Store 0x2,0x2
06a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06aa TRAP_06a0:
06aa 010e | | Execute Exception,Is_Constraint_Error
06ab 6806 |h | Jump_Zero 0x6b2
06ac 0092 06e0 | | Action Push_String_Extended,0x6e0 ; "Cannot draw line beyond left edge of page"
06ae e006 | | Load 0x0,0x6
06af 180e | | Execute Package,Field_Execute,Field_Number 0xe
06b0 00cc | | Action Pop_Block
06b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06b2 0100 | | Execute Exception,Raise
06b3 0000 | | .XXX[0x1]
06b4 0000 0000 | | .LITERAL {0x00000000, 0x00001c20}
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 06c2 | | .CONST 0x06c2 ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb e216 | | Load 0x1,0x16
06bc e5fe | | Load 0x2,-0x2
06bd 600e |` | Indirect_Literal Discrete,0x6cc,{0x00000000, 0x00002ee0}
06be 0270 | p | Execute Discrete,Divide
06bf 0273 | s | Execute Discrete,Plus
06c0 c403 | | Store 0x2,0x3
06c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06c2 TRAP_06b8:
06c2 010e | | Execute Exception,Is_Constraint_Error
06c3 6806 |h | Jump_Zero 0x6ca
06c4 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "Table row too big to fit on single page"
06c6 e006 | | Load 0x0,0x6
06c7 180e | | Execute Package,Field_Execute,Field_Number 0xe
06c8 00cc | | Action Pop_Block
06c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06ca 0100 | | Execute Exception,Raise
06cb 0000 | | .XXX[0x1]
06cc 0000 0000 | | .LITERAL {0x00000000, 0x00002ee0}
06d0 ; --------------------------------------------------------------------------------------
06d0 ; STRING TABLE
06d0 ; --------------------------------------------------------------------------------------
06d0 0026 | & | .STRTAB 0x0026->0x06e3 ; "LinePrinter"
06d1 002f | / | .STRTAB 0x002f->0x06e8 ; "The LinePrinter device does not support defining forms"
06d2 0063 | c | .STRTAB 0x0063->0x0703 ; "Could not define forms in "
06d3 007b | { | .STRTAB 0x007b->0x0710 ; "The LinePrinter device does not support defining fonts"
06d4 00af | | .STRTAB 0x00af->0x072b ; "Standard"
06d5 00b5 | | .STRTAB 0x00b5->0x072f ; "_LPT"
06d6 00b7 | | .STRTAB 0x00b7->0x0731 ; "Cannot create output "
06d7 00ca | | .STRTAB 0x00ca->0x073c ; " ("
06d8 00ca | | .STRTAB 0x00ca->0x073d ; "_LPT_AUX"
06d9 00d0 | | .STRTAB 0x00d0->0x0741 ; "Characters beyond right edge of page ignored"
06da 00fa | | .STRTAB 0x00fa->0x0757 ; "Lines off bottom of page ignored"
06db 0118 | | .STRTAB 0x0118->0x0767 ; "Expanding ellipsis"
06dc 0128 | ( | .STRTAB 0x0128->0x0770 ; "Expanding 'fl' ligature"
06dd 013d | = | .STRTAB 0x013d->0x077b ; "Expanding 'fi' ligature"
06de 0152 | R | .STRTAB 0x0152->0x0787 ; "Cannot interpolate files when using the LinePrinter device"
06df 018a | | .STRTAB 0x018a->0x07a4 ; "Could not open the form setup file "
06e0 01ab | | .STRTAB 0x01ab->0x07b5 ; "Cannot draw line beyond left edge of page"
06e1 01d2 | | .STRTAB 0x01d2->0x07ca ; "Table row too big to fit on single page"
06e2 01f7 | | .STREND 0x01f7->0x07dd
06e3 4c69 6e65 |Line| .STRTAB_STRINGS
07de 0000 0000 | | .XXX[0x2]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; Debug Table
07e0 ; --------------------------------------------------------------------------------------
07e0 0004 000f | | .DEBUG4 0x0004,0x000f,0x430e,0x0000,0x0001,0x0000
07e6 0000 0000 | | .BLANK 0000[0x1a]