|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0ac8 | | .CONST 0x0ac8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0018
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0087 | | .CONST 0x0087 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0013 | | .CONST 0x0013 ; Number of locals
001b INIT_0018:
001b e5fb | | Load 0x2,-0x5
001c 0092 0860 | `| Action Push_String_Extended,0x860 ; ".Remote_Access"
001e 01cc | | Execute Vector,Catenate
001f 0007 | | Action Break_Optional
0020 4801 |H | Short_Literal 0x1
0021 4806 |H | Short_Literal 0x6
0022 00e9 | | Load_Encached String_Cache
0023 0334 | 4 | Declare_Variable Array,With_Constraint
0024 509f |P | Indirect_Literal Any,0xc4,{0x7463702f, 0x69702020}
0025 e002 | | Load 0x0,0x2
0026 180f | | Execute Package,Field_Execute,Field_Number 0xf
0027 00e9 | | Load_Encached String_Cache
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 4818 |H | Short_Literal 0x18
002a 03d3 | | Declare_Type Access,Defined,Accesses_Protected
002b 00d8 | | Load_Top At_Offset_0
002c 0007 | | Action Break_Optional
002d 00d9 | | Load_Top At_Offset_1
002e 00da | | Load_Top At_Offset_2
002f 00db | | Load_Top At_Offset_3
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 4803 |H | Short_Literal 0x3
0032 032d | - | Declare_Type Record,Defined
0033 00d8 | | Load_Top At_Offset_0
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 4818 |H | Short_Literal 0x18
0036 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0037 e003 | | Load 0x0,0x3
0038 e004 | | Load 0x0,0x4
0039 4864 |Hd | Short_Literal 0x64
003a 00db | | Load_Top At_Offset_3
003b 4801 |H | Short_Literal 0x1
003c e005 | | Load 0x0,0x5
003d 0387 | | Declare_Variable Package
003e 00d8 | | Load_Top At_Offset_0
003f 020f | | Execute Module,Activate
0040 00d8 | | Load_Top At_Offset_0
0041 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0042 4800 |H | Short_Literal 0x0
0043 4801 |H | Short_Literal 0x1
0044 029f 00cb | | Declare_Subprogram For_Call,INIT_00c8
0046 03fd | | Declare_Type Discrete,Defined
0047 e006 | | Load 0x0,0x6
0048 e007 | | Load 0x0,0x7
0049 00da | | Load_Top At_Offset_2
004a 4800 |H | Short_Literal 0x0
004b 4801 |H | Short_Literal 0x1
004c 4801 |H | Short_Literal 0x1
004d 0092 0861 | a| Action Push_String_Extended,0x861 ; "others => Unspecified"
004f 00ea | | Load_Encached Null_String_Cache
0050 00ea | | Load_Encached Null_String_Cache
0051 4801 |H | Short_Literal 0x1
0052 4801 |H | Short_Literal 0x1
0053 e008 | | Load 0x0,0x8
0054 0387 | | Declare_Variable Package
0055 00d8 | | Load_Top At_Offset_0
0056 020f | | Execute Module,Activate
0057 4800 |H | Short_Literal 0x0
0058 480b |H | Short_Literal 0xb
0059 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
005b 03fd | | Declare_Type Discrete,Defined
005c e009 | | Load 0x0,0x9
005d e00a | | Load 0x0,0xa
005e 00da | | Load_Top At_Offset_2
005f 4800 |H | Short_Literal 0x0
0060 4801 |H | Short_Literal 0x1
0061 480b |H | Short_Literal 0xb
0062 0092 0862 | b| Action Push_String_Extended,0x862 ; "Laser_Comm | Reverse_Output_Pages => Boolean_Valued, others => unspecified"
0064 00ea | | Load_Encached Null_String_Cache
0065 00ea | | Load_Encached Null_String_Cache
0066 4801 |H | Short_Literal 0x1
0067 480b |H | Short_Literal 0xb
0068 e008 | | Load 0x0,0x8
0069 0387 | | Declare_Variable Package
006a 00d8 | | Load_Top At_Offset_0
006b 020f | | Execute Module,Activate
006c 4800 |H | Short_Literal 0x0
006d 4804 |H | Short_Literal 0x4
006e 029f 011b | | Declare_Subprogram For_Call,INIT_0118
0070 03fd | | Declare_Type Discrete,Defined
0071 4800 |H | Short_Literal 0x0
0072 4802 |H | Short_Literal 0x2
0073 029f 0143 | C| Declare_Subprogram For_Call,INIT_0140
0075 03fd | | Declare_Type Discrete,Defined
0076 e00b | | Load 0x0,0xb
0077 e00c | | Load 0x0,0xc
0078 00da | | Load_Top At_Offset_2
0079 4800 |H | Short_Literal 0x0
007a 4800 |H | Short_Literal 0x0
007b 4801 |H | Short_Literal 0x1
007c e40d | | Load 0x2,0xd
007d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
007e 0387 | | Declare_Variable Package
007f 00d8 | | Load_Top At_Offset_0
0080 020f | | Execute Module,Activate
0081 029f 016b | k| Declare_Subprogram For_Call,INIT_0168
0083 029f 01cb | | Declare_Subprogram For_Call,INIT_01c8
0085 029f 0203 | | Declare_Subprogram For_Call,INIT_0200
0087 BODY_0018:
0087 e5fa | | Load 0x2,-0x6
0088 7018 |p | Jump_Nonzero 0xa1
0089 e00d | | Load 0x0,0xd
008a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008b e5fb | | Load 0x2,-0x5
008c 8413 | | Call 0x2,0x13
008d 7008 |p | Jump_Nonzero 0x96
008e 0092 0863 | c| Action Push_String_Extended,0x863 ; "<ERRORS>"
0090 00ea | | Load_Encached Null_String_Cache
0091 4800 |H | Short_Literal 0x0
0092 4801 |H | Short_Literal 0x1
0093 e5fb | | Load 0x2,-0x5
0094 e00e | | Load 0x0,0xe
0095 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0096 0092 0864 | d| Action Push_String_Extended,0x864 ; "Holding"
0098 e00d | | Load 0x0,0xd
0099 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
009a 680d |h | Jump_Zero 0xa8
009b 00ea | | Load_Encached Null_String_Cache
009c 0092 0864 | d| Action Push_String_Extended,0x864 ; "Holding"
009e e00d | | Load 0x0,0xd
009f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00a0 7807 |x | Jump 0xa8
00a1 0092 0865 | e| Action Push_String_Extended,0x865 ; ">>> Set EFFORT_ONLY to false for these settings to take effect <<<"
00a3 e00f | | Load 0x0,0xf
00a4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00a5 4801 |H | Short_Literal 0x1
00a6 e00f | | Load 0x0,0xf
00a7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00a8 e408 | | Load 0x2,0x8
00a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00aa 4864 |Hd | Short_Literal 0x64
00ab e408 | | Load 0x2,0x8
00ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ad c409 | | Store 0x2,0x9
00ae e5ff | | Load 0x2,-0x1
00af 8411 | | Call 0x2,0x11
00b0 e5fe | | Load 0x2,-0x2
00b1 8411 | | Call 0x2,0x11
00b2 e405 | | Load 0x2,0x5
00b3 6804 |h | Jump_Zero 0xb8
00b4 e5fc | | Load 0x2,-0x4
00b5 e5fd | | Load 0x2,-0x3
00b6 8412 | | Call 0x2,0x12
00b7 4507 |E | Exit_Subprogram 0x7
00b8 0092 0866 | f| Action Push_String_Extended,0x866 ; "The file "
00ba e5fc | | Load 0x2,-0x4
00bb 01cc | | Execute Vector,Catenate
00bc 0092 0867 | g| Action Push_String_Extended,0x867 ; " will not be created"
00be 01cc | | Execute Vector,Catenate
00bf e00f | | Load 0x0,0xf
00c0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c1 4507 |E | Exit_Subprogram 0x7
00c2 0000 0000 | | .XXX[0x2]
00c4 7463 702f |tcp/| .LITERAL {0x7463702f, 0x69702020}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4607 |F | Jump_Case 0x7
00cc 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00cd 7807 |x | Jump 0xd5 ; case 0x1
00ce 780a |x | Jump 0xd9 ; case 0x2
00cf 780e |x | Jump 0xde ; case 0x3
00d0 7811 |x | Jump 0xe2 ; case 0x4
00d1 7812 |x | Jump 0xe4 ; case 0x5
00d2 7813 |x | Jump 0xe6 ; case 0x6
00d3 7816 |x | Jump 0xea ; case 0x7
00d4 4302 |C | .XXX[0x1]
00d5 00da | | Load_Top At_Offset_2
00d6 0091 084a | J| Action Push_String_Extended_Indexed,0x84a ; "NIL"
00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00d9 00db | | Load_Top At_Offset_3
00da 00db | | Load_Top At_Offset_3
00db 00e0 | | Load_Encached Standard_Cache
00dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00de 00da | | Load_Top At_Offset_2
00df 00e0 | | Load_Encached Standard_Cache
00e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e1 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00e2 00db | | Load_Top At_Offset_3
00e3 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e4 00db | | Load_Top At_Offset_3
00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e6 e40a | | Load 0x2,0xa
00e7 00dc | | Load_Top At_Offset_4
00e8 0267 | g | Execute Discrete,Predecessor
00e9 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ea e40a | | Load 0x2,0xa
00eb 00dc | | Load_Top At_Offset_4
00ec 0268 | h | Execute Discrete,Successor
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4607 |F | Jump_Case 0x7
00f4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00f5 7807 |x | Jump 0xfd ; case 0x1
00f6 780a |x | Jump 0x101 ; case 0x2
00f7 780e |x | Jump 0x106 ; case 0x3
00f8 7811 |x | Jump 0x10a ; case 0x4
00f9 7812 |x | Jump 0x10c ; case 0x5
00fa 7813 |x | Jump 0x10e ; case 0x6
00fb 7816 |x | Jump 0x112 ; case 0x7
00fc 4302 |C | .XXX[0x1]
00fd 00da | | Load_Top At_Offset_2
00fe 0091 084c | L| Action Push_String_Extended_Indexed,0x84c ; "NIL"
0100 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0101 00db | | Load_Top At_Offset_3
0102 00db | | Load_Top At_Offset_3
0103 00e0 | | Load_Encached Standard_Cache
0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0106 00da | | Load_Top At_Offset_2
0107 00e0 | | Load_Encached Standard_Cache
0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0109 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
010a 00db | | Load_Top At_Offset_3
010b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
010c 00db | | Load_Top At_Offset_3
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
010e e40c | | Load 0x2,0xc
010f 00dc | | Load_Top At_Offset_4
0110 0267 | g | Execute Discrete,Predecessor
0111 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0112 e40c | | Load 0x2,0xc
0113 00dc | | Load_Top At_Offset_4
0114 0268 | h | Execute Discrete,Successor
0115 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0116 0000 0000 | | .XXX[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 4607 |F | Jump_Case 0x7
011c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
011d 7807 |x | Jump 0x125 ; case 0x1
011e 780a |x | Jump 0x129 ; case 0x2
011f 780e |x | Jump 0x12e ; case 0x3
0120 7811 |x | Jump 0x132 ; case 0x4
0121 7812 |x | Jump 0x134 ; case 0x5
0122 7813 |x | Jump 0x136 ; case 0x6
0123 7816 |x | Jump 0x13a ; case 0x7
0124 4302 |C | .XXX[0x1]
0125 00da | | Load_Top At_Offset_2
0126 0091 0858 | X| Action Push_String_Extended_Indexed,0x858 ; "NIL"
0128 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0129 00db | | Load_Top At_Offset_3
012a 00db | | Load_Top At_Offset_3
012b 00e0 | | Load_Encached Standard_Cache
012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
012d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
012e 00da | | Load_Top At_Offset_2
012f 00e0 | | Load_Encached Standard_Cache
0130 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0131 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0132 00db | | Load_Top At_Offset_3
0133 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0134 00db | | Load_Top At_Offset_3
0135 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0136 e40e | | Load 0x2,0xe
0137 00dc | | Load_Top At_Offset_4
0138 0267 | g | Execute Discrete,Predecessor
0139 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
013a e40e | | Load 0x2,0xe
013b 00dc | | Load_Top At_Offset_4
013c 0268 | h | Execute Discrete,Successor
013d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4607 |F | Jump_Case 0x7
0144 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0145 7807 |x | Jump 0x14d ; case 0x1
0146 780a |x | Jump 0x151 ; case 0x2
0147 780e |x | Jump 0x156 ; case 0x3
0148 7811 |x | Jump 0x15a ; case 0x4
0149 7812 |x | Jump 0x15c ; case 0x5
014a 7813 |x | Jump 0x15e ; case 0x6
014b 7816 |x | Jump 0x162 ; case 0x7
014c 4302 |C | .XXX[0x1]
014d 00da | | Load_Top At_Offset_2
014e 0091 085d | ]| Action Push_String_Extended_Indexed,0x85d ; "NIL"
0150 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0151 00db | | Load_Top At_Offset_3
0152 00db | | Load_Top At_Offset_3
0153 00e0 | | Load_Encached Standard_Cache
0154 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0155 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0156 00da | | Load_Top At_Offset_2
0157 00e0 | | Load_Encached Standard_Cache
0158 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0159 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
015a 00db | | Load_Top At_Offset_3
015b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
015c 00db | | Load_Top At_Offset_3
015d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
015e e40f | | Load 0x2,0xf
015f 00dc | | Load_Top At_Offset_4
0160 0267 | g | Execute Discrete,Predecessor
0161 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0162 e40f | | Load 0x2,0xf
0163 00dc | | Load_Top At_Offset_4
0164 0268 | h | Execute Discrete,Successor
0165 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0191 | | .CONST 0x0191 ; Address of begin
0169 01a8 | | .CONST 0x01a8 ; Address of exception handler
016a 0011 | | .CONST 0x0011 ; Number of locals
016b INIT_0168:
016b e00f | | Load 0x0,0xf
016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016d 02c7 | | Declare_Variable Any
016e 00d8 | | Load_Top At_Offset_0
016f 1c00 | | Execute_Immediate Run_Utility,0x0
0170 0093 0000 | | PushFullAddress InMicrocode
0172 604d |`M | Indirect_Literal Discrete,0x1c0,{0x80000000, 0x00010000}
0173 0273 | s | Execute Discrete,Plus
0174 0007 | | Action Break_Optional
0175 029f 0233 | 3| Declare_Subprogram For_Call,INIT_0230
0177 029f 024b | K| Declare_Subprogram For_Call,INIT_0248
0179 029f 0263 | c| Declare_Subprogram For_Call,INIT_0260
017b 029f 02cb | | Declare_Subprogram For_Call,INIT_02c8
017d 029f 02eb | | Declare_Subprogram For_Call,INIT_02e8
017f 029f 031b | | Declare_Subprogram For_Call,INIT_0318
0181 029f 033b | ;| Declare_Subprogram For_Call,INIT_0338
0183 029f 035b | [| Declare_Subprogram For_Call,INIT_0358
0185 029f 03cb | | Declare_Subprogram For_Call,INIT_03c8
0187 029f 03f3 | | Declare_Subprogram For_Call,INIT_03f0
0189 029f 043b | ;| Declare_Subprogram For_Call,INIT_0438
018b 029f 04eb | | Declare_Subprogram For_Call,INIT_04e8
018d 029f 051b | | Declare_Subprogram For_Call,INIT_0518
018f 029f 0573 | s| Declare_Subprogram For_Call,INIT_0570
0191 BODY_0168:
0191 e602 | | Load 0x3,0x2
0192 00ea | | Load_Encached Null_String_Cache
0193 e7ff | | Load 0x3,-0x1
0194 4800 |H | Short_Literal 0x0
0195 e00f | | Load 0x0,0xf
0196 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0197 c602 | | Store 0x3,0x2
0198 00cf | | Action Mark_Auxiliary
0199 7804 |x | Jump 0x19e
019a e602 | | Load 0x3,0x2
019b 8611 | | Call 0x3,0x11
019c 8610 | | Call 0x3,0x10
019d 00c9 | | Action Pop_Auxiliary_Loop
019e e602 | | Load 0x3,0x2
019f e00f | | Load 0x0,0xf
01a0 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01a1 6ff8 |o | Jump_Zero 0x19a
01a2 00ce | | Action Pop_Auxiliary
01a3 e602 | | Load 0x3,0x2
01a4 e00f | | Load 0x0,0xf
01a5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a6 c602 | | Store 0x3,0x2
01a7 4502 |E | Exit_Subprogram 0x2
01a8 TRAP_0168:
01a8 00d8 | | Load_Top At_Offset_0
01a9 0107 | | Execute Exception,Get_Name
01aa 4920 |I | Short_Literal 0x120
01ab 492f |I/ | Short_Literal 0x12f
01ac 0262 | b | Execute Discrete,In_Range
01ad 6807 |h | Jump_Zero 0x1b5
01ae e7ff | | Load 0x3,-0x1
01af 0092 0868 | h| Action Push_String_Extended,0x868 ; " does not exist"
01b1 01cc | | Execute Vector,Catenate
01b2 e00f | | Load 0x0,0xf
01b3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b4 4502 |E | Exit_Subprogram 0x2
01b5 00d8 | | Load_Top At_Offset_0
01b6 0107 | | Execute Exception,Get_Name
01b7 4950 |IP | Short_Literal 0x150
01b8 495f |I_ | Short_Literal 0x15f
01b9 0262 | b | Execute Discrete,In_Range
01ba 6801 |h | Jump_Zero 0x1bc
01bb 4502 |E | Exit_Subprogram 0x2
01bc 0100 | | Execute Exception,Raise
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01c4 0000 0000 | | .BLANK 0000[0x4]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01dd | | .CONST 0x01dd ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0007 | | .CONST 0x0007 ; Number of locals
01cb INIT_01c8:
01cb e00f | | Load 0x0,0xf
01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cd 02c7 | | Declare_Variable Any
01ce 00d8 | | Load_Top At_Offset_0
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 e00f | | Load 0x0,0xf
01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d2 02c7 | | Declare_Variable Any
01d3 00d8 | | Load_Top At_Offset_0
01d4 1c00 | | Execute_Immediate Run_Utility,0x0
01d5 029f 05ab | | Declare_Subprogram For_Call,INIT_05a8
01d7 029f 05eb | | Declare_Subprogram For_Call,INIT_05e8
01d9 029f 0623 | #| Declare_Subprogram For_Call,INIT_0620
01db 029f 0643 | C| Declare_Subprogram For_Call,INIT_0640
01dd BODY_01c8:
01dd e5fa | | Load 0x2,-0x6
01de 7007 |p | Jump_Nonzero 0x1e6
01df e603 | | Load 0x3,0x3
01e0 00ea | | Load_Encached Null_String_Cache
01e1 e7fe | | Load 0x3,-0x2
01e2 4801 |H | Short_Literal 0x1
01e3 e00f | | Load 0x0,0xf
01e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e5 c603 | | Store 0x3,0x3
01e6 00ea | | Load_Encached Null_String_Cache
01e7 e00f | | Load 0x0,0xf
01e8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e9 0092 0869 | i| Action Push_String_Extended,0x869 ; "The contents of the file "
01eb e7fe | | Load 0x3,-0x2
01ec e010 | | Load 0x0,0x10
01ed 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01ee 01cc | | Execute Vector,Catenate
01ef 0092 086a | j| Action Push_String_Extended,0x86a ; " are:"
01f1 01cc | | Execute Vector,Catenate
01f2 e00f | | Load 0x0,0xf
01f3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f4 8607 | | Call 0x3,0x7
01f5 8606 | | Call 0x3,0x6
01f6 e5fa | | Load 0x2,-0x6
01f7 7004 |p | Jump_Nonzero 0x1fc
01f8 e603 | | Load 0x3,0x3
01f9 e00f | | Load 0x0,0xf
01fa 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01fb c603 | | Store 0x3,0x3
01fc 4503 |E | Exit_Subprogram 0x3
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020b | | .CONST 0x020b ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 e011 | | Load 0x0,0x11
0204 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0205 02c7 | | Declare_Variable Any
0206 00d8 | | Load_Top At_Offset_0
0207 1c00 | | Execute_Immediate Run_Utility,0x0
0208 e011 | | Load 0x0,0x11
0209 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
020a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020b BODY_0200:
020b e011 | | Load 0x0,0x11
020c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
020d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020e 00da | | Load_Top At_Offset_2
020f 0120 | | Execute Any,Is_Value
0210 6803 |h | Jump_Zero 0x214
0211 e011 | | Load 0x0,0x11
0212 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0213 7801 |x | Jump 0x215
0214 00da | | Load_Top At_Offset_2
0215 6012 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x00004000}
0216 e012 | | Load 0x0,0x12
0217 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0218 e013 | | Load 0x0,0x13
0219 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021a e011 | | Load 0x0,0x11
021b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
021c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
021d e7ff | | Load 0x3,-0x1
021e e011 | | Load 0x0,0x11
021f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0220 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0221 c602 | | Store 0x3,0x2
0222 0059 | Y | Store_Top Discrete,At_Offset_1
0223 00d8 | | Load_Top At_Offset_0
0224 0f00 | | Execute_Immediate Equal,0x0
0225 4401 |D | Exit_Subprogram With_Result,0x1
0226 0000 0000 | | .XXX[0x2]
0228 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023d | = | .CONST 0x023d ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0003 | | .CONST 0x0003 ; Number of locals
0233 INIT_0230:
0233 4801 |H | Short_Literal 0x1
0234 00db | | Load_Top At_Offset_3
0235 0092 086b | k| Action Push_String_Extended,0x86b ; "="
0237 e010 | | Load 0x0,0x10
0238 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0239 00e3 | | Load_Encached Natural_Cache
023a 03f1 | | Declare_Variable Discrete,With_Value
023b 029f 0673 | s| Declare_Subprogram For_Call,INIT_0670
023d BODY_0230:
023d 00d9 | | Load_Top At_Offset_1
023e 0c01 | | Execute_Immediate Greater_Equal,0x1
023f 6801 |h | Jump_Zero 0x241
0240 8803 | | Call 0x4,0x3
0241 4502 |E | Exit_Subprogram 0x2
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024d | M | .CONST 0x024d ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b e404 | | Load 0x2,0x4
024c 0007 | | Action Break_Optional
024d BODY_0248:
024d 4801 |H | Short_Literal 0x1
024e e9ff | | Load 0x4,-0x1
024f 01db | | Execute Vector,Length
0250 00d8 | | Load_Top At_Offset_0
0251 00e2 | | Load_Encached Integer_Cache
0252 0260 | ` | Execute Discrete,In_Type
0253 7001 |p | Jump_Nonzero 0x255
0254 0801 | | Execute_Immediate Raise,0x1
0255 e404 | | Load 0x2,0x4
0256 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0257 0039 | 9 | Store_Top Access,At_Offset_1
0258 00db | | Load_Top At_Offset_3
0259 00d9 | | Load_Top At_Offset_1
025a 0228 | ( | Execute Access,All_Write
025b 00d8 | | Load_Top At_Offset_0
025c 4401 |D | Exit_Subprogram With_Result,0x1
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0271 | q | .CONST 0x0271 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0003 | | .CONST 0x0003 ; Number of locals
0263 INIT_0260:
0263 480a |H | Short_Literal 0xa
0264 e9fe | | Load 0x4,-0x2
0265 e40d | | Load 0x2,0xd
0266 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0267 4800 |H | Short_Literal 0x0
0268 480a |H | Short_Literal 0xa
0269 e9fe | | Load 0x4,-0x2
026a e40d | | Load 0x2,0xd
026b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
026c 0279 | y | Execute Discrete,And
026d 00e1 | | Load_Encached Boolean_Cache
026e 03f1 | | Declare_Variable Discrete,With_Value
026f e407 | | Load 0x2,0x7
0270 0007 | | Action Break_Optional
0271 BODY_0260:
0271 e407 | | Load 0x2,0x7
0272 03bc | | Declare_Variable Access,By_Allocation
0273 0039 | 9 | Store_Top Access,At_Offset_1
0274 e9fc | | Load 0x4,-0x4
0275 01db | | Execute Vector,Length
0276 7006 |p | Jump_Nonzero 0x27d
0277 e9ff | | Load 0x4,-0x1
0278 8605 | | Call 0x3,0x5
0279 00d9 | | Load_Top At_Offset_1
027a 0227 | ' | Execute Access,All_Reference
027b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
027c 780d |x | Jump 0x28a
027d 0092 086c | l| Action Push_String_Extended,0x86c ; "!!"
027f e9fc | | Load 0x4,-0x4
0280 01cc | | Execute Vector,Catenate
0281 0092 086d | m| Action Push_String_Extended,0x86d ; "."
0283 01cc | | Execute Vector,Catenate
0284 e9ff | | Load 0x4,-0x1
0285 01cc | | Execute Vector,Catenate
0286 8605 | | Call 0x3,0x5
0287 00d9 | | Load_Top At_Offset_1
0288 0227 | ' | Execute Access,All_Reference
0289 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
028a 00d9 | | Load_Top At_Offset_1
028b 6807 |h | Jump_Zero 0x293
028c 0092 086e | n| Action Push_String_Extended,0x86e ; "Laser"
028e 8605 | | Call 0x3,0x5
028f 00d9 | | Load_Top At_Offset_1
0290 0227 | ' | Execute Access,All_Reference
0291 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0292 7806 |x | Jump 0x299
0293 0092 086f | o| Action Push_String_Extended,0x86f ; "Other"
0295 8605 | | Call 0x3,0x5
0296 00d9 | | Load_Top At_Offset_1
0297 0227 | ' | Execute Access,All_Reference
0298 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0299 00d9 | | Load_Top At_Offset_1
029a 6819 |h | Jump_Zero 0x2b4
029b 480b |H | Short_Literal 0xb
029c e9fe | | Load 0x4,-0x2
029d e40d | | Load 0x2,0xd
029e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
029f 6814 |h | Jump_Zero 0x2b4
02a0 4800 |H | Short_Literal 0x0
02a1 480b |H | Short_Literal 0xb
02a2 e9fe | | Load 0x4,-0x2
02a3 e40d | | Load 0x2,0xd
02a4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02a5 6807 |h | Jump_Zero 0x2ad
02a6 0092 0870 | p| Action Push_String_Extended,0x870 ; "Reversed => True"
02a8 8605 | | Call 0x3,0x5
02a9 00d9 | | Load_Top At_Offset_1
02aa 0227 | ' | Execute Access,All_Reference
02ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ac 780d |x | Jump 0x2ba
02ad 0092 0871 | q| Action Push_String_Extended,0x871 ; "Reversed => False"
02af 8605 | | Call 0x3,0x5
02b0 00d9 | | Load_Top At_Offset_1
02b1 0227 | ' | Execute Access,All_Reference
02b2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02b3 7806 |x | Jump 0x2ba
02b4 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
02b6 8605 | | Call 0x3,0x5
02b7 00d9 | | Load_Top At_Offset_1
02b8 0227 | ' | Execute Access,All_Reference
02b9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ba e409 | | Load 0x2,0x9
02bb 4800 |H | Short_Literal 0x0
02bc 00da | | Load_Top At_Offset_2
02bd e9ff | | Load 0x4,-0x1
02be e408 | | Load 0x2,0x8
02bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02c0 c409 | | Store 0x2,0x9
02c1 e405 | | Load 0x2,0x5
02c2 7003 |p | Jump_Nonzero 0x2c6
02c3 e9ff | | Load 0x4,-0x1
02c4 8605 | | Call 0x3,0x5
02c5 a405 | | Store_Unchecked 0x2,0x5
02c6 4505 |E | Exit_Subprogram 0x5
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 02d6 | | .CONST 0x02d6 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 01db | | Execute Vector,Length
02cd 7002 |p | Jump_Nonzero 0x2d0
02ce 4801 |H | Short_Literal 0x1
02cf 4401 |D | Exit_Subprogram With_Result,0x1
02d0 00da | | Load_Top At_Offset_2
02d1 e014 | | Load 0x0,0x14
02d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d3 e403 | | Load 0x2,0x3
02d4 01df | | Execute Vector,Equal
02d5 4401 |D | Exit_Subprogram With_Result,0x1
02d6 TRAP_02c8:
02d6 e014 | | Load 0x0,0x14
02d7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d8 010f | | Execute Exception,Equal
02d9 6808 |h | Jump_Zero 0x2e2
02da 00db | | Load_Top At_Offset_3
02db 0092 0873 | s| Action Push_String_Extended,0x873 ; " is not defined on the server"
02dd 01cc | | Execute Vector,Catenate
02de e00f | | Load 0x0,0xf
02df 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e0 e603 | | Load 0x3,0x3
02e1 0257 | W | Execute Discrete,Raise
02e2 0100 | | Execute Exception,Raise
02e3 0000 0000 | | .BLANK 0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4802 |H | Short_Literal 0x2
02ec 00db | | Load_Top At_Offset_3
02ed e40d | | Load 0x2,0xd
02ee 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02ef 4803 |H | Short_Literal 0x3
02f0 e9ff | | Load 0x4,-0x1
02f1 e40d | | Load 0x2,0xd
02f2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02f3 0279 | y | Execute Discrete,And
02f4 6802 |h | Jump_Zero 0x2f7
02f5 4801 |H | Short_Literal 0x1
02f6 4401 |D | Exit_Subprogram With_Result,0x1
02f7 4804 |H | Short_Literal 0x4
02f8 00db | | Load_Top At_Offset_3
02f9 e40d | | Load 0x2,0xd
02fa 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02fb 4803 |H | Short_Literal 0x3
02fc e9ff | | Load 0x4,-0x1
02fd e40d | | Load 0x2,0xd
02fe 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02ff 0279 | y | Execute Discrete,And
0300 6802 |h | Jump_Zero 0x303
0301 4802 |H | Short_Literal 0x2
0302 4401 |D | Exit_Subprogram With_Result,0x1
0303 4806 |H | Short_Literal 0x6
0304 00db | | Load_Top At_Offset_3
0305 e40d | | Load 0x2,0xd
0306 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0307 6802 |h | Jump_Zero 0x30a
0308 4803 |H | Short_Literal 0x3
0309 4401 |D | Exit_Subprogram With_Result,0x1
030a 4807 |H | Short_Literal 0x7
030b 00db | | Load_Top At_Offset_3
030c e40d | | Load 0x2,0xd
030d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
030e 4808 |H | Short_Literal 0x8
030f e9ff | | Load 0x4,-0x1
0310 e40d | | Load 0x2,0xd
0311 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0312 0279 | y | Execute Discrete,And
0313 6802 |h | Jump_Zero 0x316
0314 4804 |H | Short_Literal 0x4
0315 4401 |D | Exit_Subprogram With_Result,0x1
0316 4800 |H | Short_Literal 0x0
0317 4401 |D | Exit_Subprogram With_Result,0x1
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031c | | .CONST 0x031c ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b 00e1 | | Load_Encached Boolean_Cache
031c BODY_0318:
031c 480a |H | Short_Literal 0xa
031d e9ff | | Load 0x4,-0x1
031e e40d | | Load 0x2,0xd
031f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0320 6810 |h | Jump_Zero 0x331
0321 4800 |H | Short_Literal 0x0
0322 480a |H | Short_Literal 0xa
0323 e9ff | | Load 0x4,-0x1
0324 e40d | | Load 0x2,0xd
0325 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0326 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0327 00d8 | | Load_Top At_Offset_0
0328 6808 |h | Jump_Zero 0x331
0329 e9fe | | Load 0x4,-0x2
032a 6803 |h | Jump_Zero 0x32e
032b 0092 0874 | t| Action Push_String_Extended,0x874 ; ", Laser_Comm"
032d 4402 |D | Exit_Subprogram With_Result,0x2
032e 0092 0875 | u| Action Push_String_Extended,0x875 ; "Laser_Comm"
0330 4402 |D | Exit_Subprogram With_Result,0x2
0331 00ea | | Load_Encached Null_String_Cache
0332 4402 |D | Exit_Subprogram With_Result,0x2
0333 0000 0000 | | .BLANK 0000[0x5]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0343 | C | .CONST 0x0343 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0002 | | .CONST 0x0002 ; Number of locals
033b INIT_0338:
033b 4800 |H | Short_Literal 0x0
033c 4801 |H | Short_Literal 0x1
033d 4802 |H | Short_Literal 0x2
033e e9ff | | Load 0x4,-0x1
033f e410 | | Load 0x2,0x10
0340 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0341 e40f | | Load 0x2,0xf
0342 03f1 | | Declare_Variable Discrete,With_Value
0343 BODY_0338:
0343 00d8 | | Load_Top At_Offset_0
0344 6806 |h | Jump_Zero 0x34b
0345 00ea | | Load_Encached Null_String_Cache
0346 4802 |H | Short_Literal 0x2
0347 e9ff | | Load 0x4,-0x1
0348 e40d | | Load 0x2,0xd
0349 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
034a 4401 |D | Exit_Subprogram With_Result,0x1
034b 00ea | | Load_Encached Null_String_Cache
034c 4802 |H | Short_Literal 0x2
034d e9ff | | Load 0x4,-0x1
034e e40d | | Load 0x2,0xd
034f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0350 0092 0876 | v| Action Push_String_Extended,0x876 ; " is not a proper protocol"
0352 01cc | | Execute Vector,Catenate
0353 e00f | | Load 0x0,0xf
0354 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0355 e603 | | Load 0x3,0x3
0356 0257 | W | Execute Discrete,Raise
0357 0000 | | .XXX[0x1]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 037b | { | .CONST 0x037b ; Address of begin
0359 03b4 | | .CONST 0x03b4 ; Address of exception handler
035a 0006 | | .CONST 0x0006 ; Number of locals
035b INIT_0358:
035b 00ea | | Load_Encached Null_String_Cache
035c 4807 |H | Short_Literal 0x7
035d e9fe | | Load 0x4,-0x2
035e e40d | | Load 0x2,0xd
035f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0360 00ea | | Load_Encached Null_String_Cache
0361 4808 |H | Short_Literal 0x8
0362 e9fe | | Load 0x4,-0x2
0363 e40d | | Load 0x2,0xd
0364 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0365 00ea | | Load_Encached Null_String_Cache
0366 4809 |H | Short_Literal 0x9
0367 e9fe | | Load 0x4,-0x2
0368 e40d | | Load 0x2,0xd
0369 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
036a e5fb | | Load 0x2,-0x5
036b 0092 086d | m| Action Push_String_Extended,0x86d ; "."
036d 01cc | | Execute Vector,Catenate
036e 00db | | Load_Top At_Offset_3
036f 01cc | | Execute Vector,Catenate
0370 0092 0877 | w| Action Push_String_Extended,0x877 ; "_"
0372 01cc | | Execute Vector,Catenate
0373 e9ff | | Load 0x4,-0x1
0374 01cc | | Execute Vector,Catenate
0375 0007 | | Action Break_Optional
0376 e00f | | Load 0x0,0xf
0377 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0378 02c7 | | Declare_Variable Any
0379 00d8 | | Load_Top At_Offset_0
037a 1c00 | | Execute_Immediate Run_Utility,0x0
037b BODY_0358:
037b 0092 0878 | x| Action Push_String_Extended,0x878 ; "Creating a file "
037d 00da | | Load_Top At_Offset_2
037e 01cc | | Execute Vector,Catenate
037f e00f | | Load 0x0,0xf
0380 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0381 0092 0879 | y| Action Push_String_Extended,0x879 ; " containing -> "
0383 e802 | | Load 0x4,0x2
0384 01cc | | Execute Vector,Catenate
0385 0092 087a | z| Action Push_String_Extended,0x87a ; " nl "
0387 01cc | | Execute Vector,Catenate
0388 e803 | | Load 0x4,0x3
0389 01cc | | Execute Vector,Catenate
038a 0092 087a | z| Action Push_String_Extended,0x87a ; " nl "
038c 01cc | | Execute Vector,Catenate
038d 00db | | Load_Top At_Offset_3
038e 01cc | | Execute Vector,Catenate
038f 0092 087a | z| Action Push_String_Extended,0x87a ; " nl "
0391 01cc | | Execute Vector,Catenate
0392 e402 | | Load 0x2,0x2
0393 01cc | | Execute Vector,Catenate
0394 e00f | | Load 0x0,0xf
0395 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0396 e5fa | | Load 0x2,-0x6
0397 701b |p | Jump_Nonzero 0x3b3
0398 00d8 | | Load_Top At_Offset_0
0399 00ea | | Load_Encached Null_String_Cache
039a 00db | | Load_Top At_Offset_3
039b 4801 |H | Short_Literal 0x1
039c e00f | | Load 0x0,0xf
039d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
039e c806 | | Store 0x4,0x6
039f e802 | | Load 0x4,0x2
03a0 00d9 | | Load_Top At_Offset_1
03a1 e00f | | Load 0x0,0xf
03a2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03a3 00db | | Load_Top At_Offset_3
03a4 00d9 | | Load_Top At_Offset_1
03a5 e00f | | Load 0x0,0xf
03a6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03a7 00da | | Load_Top At_Offset_2
03a8 00d9 | | Load_Top At_Offset_1
03a9 e00f | | Load 0x0,0xf
03aa 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03ab e402 | | Load 0x2,0x2
03ac 00d9 | | Load_Top At_Offset_1
03ad e00f | | Load 0x0,0xf
03ae 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03af 00d8 | | Load_Top At_Offset_0
03b0 e00f | | Load 0x0,0xf
03b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b2 c806 | | Store 0x4,0x6
03b3 4503 |E | Exit_Subprogram 0x3
03b4 TRAP_0358:
03b4 00d8 | | Load_Top At_Offset_0
03b5 0107 | | Execute Exception,Get_Name
03b6 4920 |I | Short_Literal 0x120
03b7 492f |I/ | Short_Literal 0x12f
03b8 0262 | b | Execute Discrete,In_Range
03b9 6808 |h | Jump_Zero 0x3c2
03ba 0092 087b | {| Action Push_String_Extended,0x87b ; "*** Cound not create the file "
03bc 00db | | Load_Top At_Offset_3
03bd 01cc | | Execute Vector,Catenate
03be e00f | | Load 0x0,0xf
03bf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03c0 e603 | | Load 0x3,0x3
03c1 0257 | W | Execute Discrete,Raise
03c2 0100 | | Execute Exception,Raise
03c3 0000 0000 | | .BLANK 0000[0x5]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cd | | .CONST 0x03cd ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0002 | | .CONST 0x0002 ; Number of locals
03cb INIT_03c8:
03cb 029f 068b | | Declare_Subprogram For_Call,INIT_0688
03cd BODY_03c8:
03cd e9fd | | Load 0x4,-0x3
03ce 4604 |F | Jump_Case 0x4
03cf 781c |x | Jump 0x3ec ; case 0x0
03d0 7813 |x | Jump 0x3e4 ; case 0x1
03d1 7812 |x | Jump 0x3e4 ; case 0x2
03d2 7813 |x | Jump 0x3e6 ; case 0x3
03d3 7800 |x | Jump 0x3d4 ; case 0x4
03d4 e5fb | | Load 0x2,-0x5
03d5 0092 086d | m| Action Push_String_Extended,0x86d ; "."
03d7 01cc | | Execute Vector,Catenate
03d8 00ea | | Load_Encached Null_String_Cache
03d9 4807 |H | Short_Literal 0x7
03da e9fe | | Load 0x4,-0x2
03db e40d | | Load 0x2,0xd
03dc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
03dd 01cc | | Execute Vector,Catenate
03de 0092 0877 | w| Action Push_String_Extended,0x877 ; "_"
03e0 01cc | | Execute Vector,Catenate
03e1 e9ff | | Load 0x4,-0x1
03e2 01cc | | Execute Vector,Catenate
03e3 4403 |D | Exit_Subprogram With_Result,0x3
03e4 8802 | | Call 0x4,0x2
03e5 7808 |x | Jump 0x3ee
03e6 00ea | | Load_Encached Null_String_Cache
03e7 4806 |H | Short_Literal 0x6
03e8 e9fe | | Load 0x4,-0x2
03e9 e40d | | Load 0x2,0xd
03ea 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
03eb 4403 |D | Exit_Subprogram With_Result,0x3
03ec e603 | | Load 0x3,0x3
03ed 0257 | W | Execute Discrete,Raise
03ee 0831 | 1 | Execute_Immediate Raise,0x31
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 00db | | Load_Top At_Offset_3
03f4 4604 |F | Jump_Case 0x4
03f5 783c |x< | Jump 0x432 ; case 0x0
03f6 7806 |x | Jump 0x3fd ; case 0x1
03f7 780c |x | Jump 0x404 ; case 0x2
03f8 7836 |x6 | Jump 0x42f ; case 0x3
03f9 7800 |x | Jump 0x3fa ; case 0x4
03fa 0092 087c | || Action Push_String_Extended,0x87c ; "FTP"
03fc 4402 |D | Exit_Subprogram With_Result,0x2
03fd 00da | | Load_Top At_Offset_2
03fe 860a | | Call 0x3,0xa
03ff 4801 |H | Short_Literal 0x1
0400 e9ff | | Load 0x4,-0x1
0401 8609 | | Call 0x3,0x9
0402 01cc | | Execute Vector,Catenate
0403 4402 |D | Exit_Subprogram With_Result,0x2
0404 4805 |H | Short_Literal 0x5
0405 00db | | Load_Top At_Offset_3
0406 e40d | | Load 0x2,0xd
0407 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0408 6819 |h | Jump_Zero 0x422
0409 0092 087d | }| Action Push_String_Extended,0x87d ; "Host => "
040b 00ea | | Load_Encached Null_String_Cache
040c 4804 |H | Short_Literal 0x4
040d e9ff | | Load 0x4,-0x1
040e e40d | | Load 0x2,0xd
040f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0410 01cc | | Execute Vector,Catenate
0411 0092 087e | ~| Action Push_String_Extended,0x87e ; ", Socket => ("
0413 01cc | | Execute Vector,Catenate
0414 00ea | | Load_Encached Null_String_Cache
0415 4805 |H | Short_Literal 0x5
0416 e9ff | | Load 0x4,-0x1
0417 e40d | | Load 0x2,0xd
0418 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0419 01cc | | Execute Vector,Catenate
041a 0092 087f | | Action Push_String_Extended,0x87f ; ")"
041c 01cc | | Execute Vector,Catenate
041d 4801 |H | Short_Literal 0x1
041e e9ff | | Load 0x4,-0x1
041f 8609 | | Call 0x3,0x9
0420 01cc | | Execute Vector,Catenate
0421 4402 |D | Exit_Subprogram With_Result,0x2
0422 0092 087d | }| Action Push_String_Extended,0x87d ; "Host => "
0424 00ea | | Load_Encached Null_String_Cache
0425 4804 |H | Short_Literal 0x4
0426 e9ff | | Load 0x4,-0x1
0427 e40d | | Load 0x2,0xd
0428 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0429 01cc | | Execute Vector,Catenate
042a 4801 |H | Short_Literal 0x1
042b e9ff | | Load 0x4,-0x1
042c 8609 | | Call 0x3,0x9
042d 01cc | | Execute Vector,Catenate
042e 4402 |D | Exit_Subprogram With_Result,0x2
042f 0092 0880 | | Action Push_String_Extended,0x880 ; "Xon_Xoff"
0431 4402 |D | Exit_Subprogram With_Result,0x2
0432 e603 | | Load 0x3,0x3
0433 0257 | W | Execute Discrete,Raise
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0446 | F | .CONST 0x0446 ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0005 | | .CONST 0x0005 ; Number of locals
043b INIT_0438:
043b e9fd | | Load 0x4,-0x3
043c e9fe | | Load 0x4,-0x2
043d e9ff | | Load 0x4,-0x1
043e 860c | | Call 0x3,0xc
043f e9fd | | Load 0x4,-0x3
0440 e9fe | | Load 0x4,-0x2
0441 860d | | Call 0x3,0xd
0442 029f 06ab | | Declare_Subprogram For_Call,INIT_06a8
0444 029f 06d3 | | Declare_Subprogram For_Call,INIT_06d0
0446 BODY_0438:
0446 0092 0881 | | Action Push_String_Extended,0x881 ; "Setting up "
0448 e9ff | | Load 0x4,-0x1
0449 01cc | | Execute Vector,Catenate
044a e00f | | Load 0x0,0xf
044b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
044c 0092 0882 | | Action Push_String_Extended,0x882 ; " Class -> "
044e e9ff | | Load 0x4,-0x1
044f 01cc | | Execute Vector,Catenate
0450 e00f | | Load 0x0,0xf
0451 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0452 0092 0883 | | Action Push_String_Extended,0x883 ; " Device -> "
0454 e802 | | Load 0x4,0x2
0455 01cc | | Execute Vector,Catenate
0456 e00f | | Load 0x0,0xf
0457 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0458 0092 0884 | | Action Push_String_Extended,0x884 ; " Options -> "
045a 00db | | Load_Top At_Offset_3
045b 01cc | | Execute Vector,Catenate
045c e00f | | Load 0x0,0xf
045d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
045e e5fa | | Load 0x2,-0x6
045f 7050 |pP | Jump_Nonzero 0x4b0
0460 e00f | | Load 0x0,0xf
0461 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0462 e00f | | Load 0x0,0xf
0463 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0464 0092 0864 | d| Action Push_String_Extended,0x864 ; "Holding"
0466 e00d | | Load 0x0,0xd
0467 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0468 00db | | Load_Top At_Offset_3
0469 e00d | | Load 0x0,0xd
046a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
046b 680f |h | Jump_Zero 0x47b
046c 0092 0885 | | Action Push_String_Extended,0x885 ; "---"
046e e00f | | Load 0x0,0xf
046f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0470 0092 0886 | | Action Push_String_Extended,0x886 ; "Disabling device: "
0472 e802 | | Load 0x4,0x2
0473 01cc | | Execute Vector,Catenate
0474 e00f | | Load 0x0,0xf
0475 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0476 4800 |H | Short_Literal 0x0
0477 e802 | | Load 0x4,0x2
0478 e00d | | Load 0x0,0xd
0479 1820 | | Execute Package,Field_Execute,Field_Number 0x20
047a 8804 | | Call 0x4,0x4
047b 6068 |`h | Indirect_Literal Discrete,0x4e4,{0x00000000, 0x00050000}
047c 00ba | | Action Initiate_Delay
047d e9ff | | Load 0x4,-0x1
047e e00d | | Load 0x0,0xd
047f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0480 6806 |h | Jump_Zero 0x487
0481 0092 0864 | d| Action Push_String_Extended,0x864 ; "Holding"
0483 e9ff | | Load 0x4,-0x1
0484 e00d | | Load 0x0,0xd
0485 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0486 8805 | | Call 0x4,0x5
0487 00db | | Load_Top At_Offset_3
0488 e00d | | Load 0x0,0xd
0489 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
048a 680e |h | Jump_Zero 0x499
048b 0092 0885 | | Action Push_String_Extended,0x885 ; "---"
048d e00f | | Load 0x0,0xf
048e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
048f 0092 0887 | | Action Push_String_Extended,0x887 ; "Deleting existing device: "
0491 e802 | | Load 0x4,0x2
0492 01cc | | Execute Vector,Catenate
0493 e00f | | Load 0x0,0xf
0494 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0495 4800 |H | Short_Literal 0x0
0496 e802 | | Load 0x4,0x2
0497 e00d | | Load 0x0,0xd
0498 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0499 0092 0885 | | Action Push_String_Extended,0x885 ; "---"
049b e00f | | Load 0x0,0xf
049c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
049d 0092 0888 | | Action Push_String_Extended,0x888 ; "Creating class: "
049f e9ff | | Load 0x4,-0x1
04a0 01cc | | Execute Vector,Catenate
04a1 e00f | | Load 0x0,0xf
04a2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04a3 e9ff | | Load 0x4,-0x1
04a4 e00d | | Load 0x0,0xd
04a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04a6 0092 0885 | | Action Push_String_Extended,0x885 ; "---"
04a8 e00f | | Load 0x0,0xf
04a9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04aa 0092 0889 | | Action Push_String_Extended,0x889 ; "Creating device: "
04ac e802 | | Load 0x4,0x2
04ad 01cc | | Execute Vector,Catenate
04ae e00f | | Load 0x0,0xf
04af 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04b0 e9fd | | Load 0x4,-0x3
04b1 0f04 | | Execute_Immediate Equal,0x4
04b2 6803 |h | Jump_Zero 0x4b6
04b3 e9fe | | Load 0x4,-0x2
04b4 e9ff | | Load 0x4,-0x1
04b5 860b | | Call 0x3,0xb
04b6 e5fa | | Load 0x2,-0x6
04b7 702b |p+ | Jump_Nonzero 0x4e3
04b8 00da | | Load_Top At_Offset_2
04b9 e802 | | Load 0x4,0x2
04ba e00d | | Load 0x0,0xd
04bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04bc 0092 0885 | | Action Push_String_Extended,0x885 ; "---"
04be e00f | | Load 0x0,0xf
04bf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04c0 0092 088a | | Action Push_String_Extended,0x88a ; "Registering "
04c2 e802 | | Load 0x4,0x2
04c3 01cc | | Execute Vector,Catenate
04c4 0092 088b | | Action Push_String_Extended,0x88b ; " with "
04c6 01cc | | Execute Vector,Catenate
04c7 e9ff | | Load 0x4,-0x1
04c8 01cc | | Execute Vector,Catenate
04c9 e00f | | Load 0x0,0xf
04ca 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04cb e9ff | | Load 0x4,-0x1
04cc e802 | | Load 0x4,0x2
04cd e00d | | Load 0x0,0xd
04ce 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04cf 0092 0885 | | Action Push_String_Extended,0x885 ; "---"
04d1 e00f | | Load 0x0,0xf
04d2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04d3 0092 088c | | Action Push_String_Extended,0x88c ; "Enabling device. See error log if there are errors for more information"
04d5 e00f | | Load 0x0,0xf
04d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04d7 00db | | Load_Top At_Offset_3
04d8 e00d | | Load 0x0,0xd
04d9 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04da 0092 0885 | | Action Push_String_Extended,0x885 ; "---"
04dc e00f | | Load 0x0,0xf
04dd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04de e9ff | | Load 0x4,-0x1
04df 0092 0864 | d| Action Push_String_Extended,0x864 ; "Holding"
04e1 e00d | | Load 0x0,0xd
04e2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04e3 4504 |E | Exit_Subprogram 0x4
04e4 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ef | | .CONST 0x04ef ; Address of begin
04e9 050c | | .CONST 0x050c ; Address of exception handler
04ea 0003 | | .CONST 0x0003 ; Number of locals
04eb INIT_04e8:
04eb e40d | | Load 0x2,0xd
04ec 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
04ed 029f 06fb | | Declare_Subprogram For_Call,INIT_06f8
04ef BODY_04e8:
04ef e9fe | | Load 0x4,-0x2
04f0 01db | | Execute Vector,Length
04f1 6819 |h | Jump_Zero 0x50b
04f2 e9fe | | Load 0x4,-0x2
04f3 e40d | | Load 0x2,0xd
04f4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04f5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
04f6 00d9 | | Load_Top At_Offset_1
04f7 e40d | | Load 0x2,0xd
04f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04f9 6802 |h | Jump_Zero 0x4fc
04fa 8803 | | Call 0x4,0x3
04fb 4503 |E | Exit_Subprogram 0x3
04fc 0092 088d | | Action Push_String_Extended,0x88d ; "Illegal format: "
04fe e9fe | | Load 0x4,-0x2
04ff 01cc | | Execute Vector,Catenate
0500 e00f | | Load 0x0,0xf
0501 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0502 0092 088e | | Action Push_String_Extended,0x88e ; " "
0504 4800 |H | Short_Literal 0x0
0505 00db | | Load_Top At_Offset_3
0506 e40d | | Load 0x2,0xd
0507 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0508 01cc | | Execute Vector,Catenate
0509 e00f | | Load 0x0,0xf
050a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
050b 4503 |E | Exit_Subprogram 0x3
050c TRAP_04e8:
050c e603 | | Load 0x3,0x3
050d 010f | | Execute Exception,Equal
050e 6807 |h | Jump_Zero 0x516
050f 0092 088f | | Action Push_String_Extended,0x88f ; "Illegal item in line: "
0511 e9fe | | Load 0x4,-0x2
0512 01cc | | Execute Vector,Catenate
0513 e00f | | Load 0x0,0xf
0514 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0515 4503 |E | Exit_Subprogram 0x3
0516 0100 | | Execute Exception,Raise
0517 0000 | | .XXX[0x1]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051f | | .CONST 0x051f ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0003 | | .CONST 0x0003 ; Number of locals
051b INIT_0518:
051b e40b | | Load 0x2,0xb
051c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
051d 029f 072b | +| Declare_Subprogram For_Call,INIT_0728
051f BODY_0518:
051f e9ff | | Load 0x4,-0x1
0520 01db | | Execute Vector,Length
0521 6846 |hF | Jump_Zero 0x568
0522 e9ff | | Load 0x4,-0x1
0523 01db | | Execute Vector,Length
0524 0c02 | | Execute_Immediate Greater_Equal,0x2
0525 6811 |h | Jump_Zero 0x537
0526 e9ff | | Load 0x4,-0x1
0527 01dd | | Execute Vector,First
0528 e9ff | | Load 0x4,-0x1
0529 01dd | | Execute Vector,First
052a 0a01 | | Execute_Immediate Plus,0x1
052b 00d8 | | Load_Top At_Offset_0
052c 00e2 | | Load_Encached Integer_Cache
052d 0260 | ` | Execute Discrete,In_Type
052e 7001 |p | Jump_Nonzero 0x530
052f 0801 | | Execute_Immediate Raise,0x1
0530 e9ff | | Load 0x4,-0x1
0531 01cf | | Execute Vector,Slice_Read
0532 0092 0890 | | Action Push_String_Extended,0x890 ; "--"
0534 01df | | Execute Vector,Equal
0535 6801 |h | Jump_Zero 0x537
0536 4502 |E | Exit_Subprogram 0x2
0537 e9ff | | Load 0x4,-0x1
0538 8604 | | Call 0x3,0x4
0539 e9ff | | Load 0x4,-0x1
053a e40b | | Load 0x2,0xb
053b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
053c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
053d 00d9 | | Load_Top At_Offset_1
053e e40b | | Load 0x2,0xb
053f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0540 6818 |h | Jump_Zero 0x559
0541 4800 |H | Short_Literal 0x0
0542 00da | | Load_Top At_Offset_2
0543 e40b | | Load 0x2,0xb
0544 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0545 6802 |h | Jump_Zero 0x548
0546 8803 | | Call 0x4,0x3
0547 4502 |E | Exit_Subprogram 0x2
0548 480a |H | Short_Literal 0xa
0549 0092 088f | | Action Push_String_Extended,0x88f ; "Illegal item in line: "
054b e9ff | | Load 0x4,-0x1
054c 01cc | | Execute Vector,Catenate
054d 01cb | | Execute Vector,Append
054e 0092 088e | | Action Push_String_Extended,0x88e ; " "
0550 01cc | | Execute Vector,Catenate
0551 4800 |H | Short_Literal 0x0
0552 00db | | Load_Top At_Offset_3
0553 e40b | | Load 0x2,0xb
0554 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0555 01cc | | Execute Vector,Catenate
0556 e00f | | Load 0x0,0xf
0557 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0558 4502 |E | Exit_Subprogram 0x2
0559 0092 088d | | Action Push_String_Extended,0x88d ; "Illegal format: "
055b e9ff | | Load 0x4,-0x1
055c 01cc | | Execute Vector,Catenate
055d e00f | | Load 0x0,0xf
055e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
055f 0092 088e | | Action Push_String_Extended,0x88e ; " "
0561 4800 |H | Short_Literal 0x0
0562 00db | | Load_Top At_Offset_3
0563 e40b | | Load 0x2,0xb
0564 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0565 01cc | | Execute Vector,Catenate
0566 e00f | | Load 0x0,0xf
0567 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0568 4502 |E | Exit_Subprogram 0x2
0569 0000 0000 | | .BLANK 0000[0x7]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0582 | | .CONST 0x0582 ; Address of begin
0571 058e | | .CONST 0x058e ; Address of exception handler
0572 0007 | | .CONST 0x0007 ; Number of locals
0573 INIT_0570:
0573 4801 |H | Short_Literal 0x1
0574 4be8 |K | Short_Literal 0x3e8
0575 00e9 | | Load_Encached String_Cache
0576 035b | [ | Declare_Type Array,Constrained
0577 0337 | 7 | Declare_Variable Array
0578 00e3 | | Load_Encached Natural_Cache
0579 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
057a 00e3 | | Load_Encached Natural_Cache
057b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
057c 00e3 | | Load_Encached Natural_Cache
057d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
057e 029f 0743 | C| Declare_Subprogram For_Call,INIT_0740
0580 029f 0763 | c| Declare_Subprogram For_Call,INIT_0760
0582 BODY_0570:
0582 00cf | | Action Mark_Auxiliary
0583 8807 | | Call 0x4,0x7
0584 00c9 | | Action Pop_Auxiliary_Loop
0585 7ffd | | Jump 0x583
0586 00ce | | Action Pop_Auxiliary
0587 4801 |H | Short_Literal 0x1
0588 e803 | | Load 0x4,0x3
0589 e802 | | Load 0x4,0x2
058a 01cf | | Execute Vector,Slice_Read
058b 00e9 | | Load_Encached String_Cache
058c 01c6 | | Execute Vector,Convert_To_Formal
058d 4401 |D | Exit_Subprogram With_Result,0x1
058e TRAP_0570:
058e 00d8 | | Load_Top At_Offset_0
058f 0107 | | Execute Exception,Get_Name
0590 4950 |IP | Short_Literal 0x150
0591 495f |I_ | Short_Literal 0x15f
0592 0262 | b | Execute Discrete,In_Range
0593 680f |h | Jump_Zero 0x5a3
0594 e804 | | Load 0x4,0x4
0595 e805 | | Load 0x4,0x5
0596 027e | ~ | Execute Discrete,Not_Equal
0597 6809 |h | Jump_Zero 0x5a1
0598 0092 0891 | | Action Push_String_Extended,0x891 ; "The parentheses in the file "
059a e7ff | | Load 0x3,-0x1
059b 01cc | | Execute Vector,Catenate
059c 0092 0892 | | Action Push_String_Extended,0x892 ; " do not match"
059e 01cc | | Execute Vector,Catenate
059f e00f | | Load 0x0,0xf
05a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05a1 00d8 | | Load_Top At_Offset_0
05a2 0101 | | Execute Exception,Reraise
05a3 0100 | | Execute Exception,Raise
05a4 0000 0000 | | .BLANK 0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b1 | | .CONST 0x05b1 ; Address of begin
05a9 0004 | | .CONST 0x0004 ; Address of exception handler
05aa 0003 | | .CONST 0x0003 ; Number of locals
05ab INIT_05a8:
05ab 00da | | Load_Top At_Offset_2
05ac 01dd | | Execute Vector,First
05ad 00e2 | | Load_Encached Integer_Cache
05ae 03f1 | | Declare_Variable Discrete,With_Value
05af 00e2 | | Load_Encached Integer_Cache
05b0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
05b1 BODY_05a8:
05b1 00cf | | Action Mark_Auxiliary
05b2 e9ff | | Load 0x4,-0x1
05b3 01d9 | | Execute Vector,Reverse_Bounds
05b4 0263 | c | Execute Discrete,Above_Bound
05b5 701f |p | Jump_Nonzero 0x5d5
05b6 00d8 | | Load_Top At_Offset_0
05b7 e9ff | | Load 0x4,-0x1
05b8 01d7 | | Execute Vector,Field_Read
05b9 0f20 | | Execute_Immediate Equal,0x20
05ba 6818 |h | Jump_Zero 0x5d3
05bb e802 | | Load 0x4,0x2
05bc 00d9 | | Load_Top At_Offset_1
05bd 027f | | Execute Discrete,Equal
05be 6804 |h | Jump_Zero 0x5c3
05bf 00d8 | | Load_Top At_Offset_0
05c0 0a01 | | Execute_Immediate Plus,0x1
05c1 c802 | | Store 0x4,0x2
05c2 7810 |x | Jump 0x5d3
05c3 00db | | Load_Top At_Offset_3
05c4 0a01 | | Execute_Immediate Plus,0x1
05c5 c803 | | Store 0x4,0x3
05c6 00db | | Load_Top At_Offset_3
05c7 e9fe | | Load 0x4,-0x2
05c8 027f | | Execute Discrete,Equal
05c9 6806 |h | Jump_Zero 0x5d0
05ca e802 | | Load 0x4,0x2
05cb 00d9 | | Load_Top At_Offset_1
05cc 0aff | | Execute_Immediate Plus,-0x1
05cd e9ff | | Load 0x4,-0x1
05ce 01cf | | Execute Vector,Slice_Read
05cf 4402 |D | Exit_Subprogram With_Result,0x2
05d0 00d8 | | Load_Top At_Offset_0
05d1 0a01 | | Execute_Immediate Plus,0x1
05d2 c802 | | Store 0x4,0x2
05d3 00c8 | | Action Pop_Auxiliary_Range
05d4 3fe1 |? | Loop_Increasing 0x5b6
05d5 00ce | | Action Pop_Auxiliary
05d6 00d8 | | Load_Top At_Offset_0
05d7 0a01 | | Execute_Immediate Plus,0x1
05d8 0059 | Y | Store_Top Discrete,At_Offset_1
05d9 00d8 | | Load_Top At_Offset_0
05da e9fe | | Load 0x4,-0x2
05db 027f | | Execute Discrete,Equal
05dc 6806 |h | Jump_Zero 0x5e3
05dd 00d9 | | Load_Top At_Offset_1
05de e9ff | | Load 0x4,-0x1
05df 01dc | | Execute Vector,Last
05e0 e9ff | | Load 0x4,-0x1
05e1 01cf | | Execute Vector,Slice_Read
05e2 4402 |D | Exit_Subprogram With_Result,0x2
05e3 00ea | | Load_Encached Null_String_Cache
05e4 4402 |D | Exit_Subprogram With_Result,0x2
05e5 0000 0000 | | .XXX[0x3]
05e7 0000 | |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f3 | | .CONST 0x05f3 ; Address of begin
05e9 060d | | .CONST 0x060d ; Address of exception handler
05ea 0004 | | .CONST 0x0004 ; Number of locals
05eb INIT_05e8:
05eb 4801 |H | Short_Literal 0x1
05ec 00db | | Load_Top At_Offset_3
05ed 8604 | | Call 0x3,0x4
05ee 4802 |H | Short_Literal 0x2
05ef e9ff | | Load 0x4,-0x1
05f0 8604 | | Call 0x3,0x4
05f1 029f 07c3 | | Declare_Subprogram For_Call,INIT_07c0
05f3 BODY_05e8:
05f3 e9ff | | Load 0x4,-0x1
05f4 01db | | Execute Vector,Length
05f5 6816 |h | Jump_Zero 0x60c
05f6 e9ff | | Load 0x4,-0x1
05f7 01db | | Execute Vector,Length
05f8 0c02 | | Execute_Immediate Greater_Equal,0x2
05f9 6811 |h | Jump_Zero 0x60b
05fa e9ff | | Load 0x4,-0x1
05fb 01dd | | Execute Vector,First
05fc e9ff | | Load 0x4,-0x1
05fd 01dd | | Execute Vector,First
05fe 0a01 | | Execute_Immediate Plus,0x1
05ff 00d8 | | Load_Top At_Offset_0
0600 00e2 | | Load_Encached Integer_Cache
0601 0260 | ` | Execute Discrete,In_Type
0602 7001 |p | Jump_Nonzero 0x604
0603 0801 | | Execute_Immediate Raise,0x1
0604 e9ff | | Load 0x4,-0x1
0605 01cf | | Execute Vector,Slice_Read
0606 0092 0890 | | Action Push_String_Extended,0x890 ; "--"
0608 01df | | Execute Vector,Equal
0609 6801 |h | Jump_Zero 0x60b
060a 4502 |E | Exit_Subprogram 0x2
060b 8804 | | Call 0x4,0x4
060c 4502 |E | Exit_Subprogram 0x2
060d TRAP_05e8:
060d e408 | | Load 0x2,0x8
060e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
060f 010f | | Execute Exception,Equal
0610 680d |h | Jump_Zero 0x61e
0611 00da | | Load_Top At_Offset_2
0612 0092 0893 | | Action Push_String_Extended,0x893 ; " is not a defined printer"
0614 01cc | | Execute Vector,Catenate
0615 e00f | | Load 0x0,0xf
0616 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0617 0092 0894 | | Action Push_String_Extended,0x894 ; " In line: "
0619 e9ff | | Load 0x4,-0x1
061a 01cc | | Execute Vector,Catenate
061b e00f | | Load 0x0,0xf
061c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
061d 4502 |E | Exit_Subprogram 0x2
061e 0100 | | Execute Exception,Raise
061f 0000 | | .XXX[0x1]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0628 | ( | .CONST 0x0628 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0003 | | .CONST 0x0003 ; Number of locals
0623 INIT_0620:
0623 e408 | | Load 0x2,0x8
0624 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0625 0322 | " | Declare_Variable Record
0626 029f 07f3 | | Declare_Subprogram For_Call,INIT_07f0
0628 BODY_0620:
0628 00d9 | | Load_Top At_Offset_1
0629 e409 | | Load 0x2,0x9
062a e408 | | Load 0x2,0x8
062b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
062c 00d1 | | Pop_Control Pop_Count_1
062d 00cf | | Action Mark_Auxiliary
062e 7806 |x | Jump 0x635
062f 8803 | | Call 0x4,0x3
0630 00da | | Load_Top At_Offset_2
0631 e408 | | Load 0x2,0x8
0632 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0633 00d1 | | Pop_Control Pop_Count_1
0634 00c9 | | Action Pop_Auxiliary_Loop
0635 00da | | Load_Top At_Offset_2
0636 e408 | | Load 0x2,0x8
0637 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0638 6ff6 |o | Jump_Zero 0x62f
0639 4501 |E | Exit_Subprogram 0x1
063a 0000 0000 | | .BLANK 0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0645 | E | .CONST 0x0645 ; Address of begin
0641 0660 | ` | .CONST 0x0660 ; Address of exception handler
0642 0002 | | .CONST 0x0002 ; Number of locals
0643 INIT_0640:
0643 029f 082b | +| Declare_Subprogram For_Call,INIT_0828
0645 BODY_0640:
0645 e602 | | Load 0x3,0x2
0646 00ea | | Load_Encached Null_String_Cache
0647 e7ff | | Load 0x3,-0x1
0648 4800 |H | Short_Literal 0x0
0649 e00f | | Load 0x0,0xf
064a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
064b c602 | | Store 0x3,0x2
064c 00cf | | Action Mark_Auxiliary
064d 7808 |x | Jump 0x656
064e 4820 |H | Short_Literal 0x20
064f e602 | | Load 0x3,0x2
0650 e00f | | Load 0x0,0xf
0651 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0652 e010 | | Load 0x0,0x10
0653 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0654 8605 | | Call 0x3,0x5
0655 00c9 | | Action Pop_Auxiliary_Loop
0656 e602 | | Load 0x3,0x2
0657 e00f | | Load 0x0,0xf
0658 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0659 6ff4 |o | Jump_Zero 0x64e
065a 00ce | | Action Pop_Auxiliary
065b e602 | | Load 0x3,0x2
065c e00f | | Load 0x0,0xf
065d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
065e c602 | | Store 0x3,0x2
065f 4501 |E | Exit_Subprogram 0x1
0660 TRAP_0640:
0660 00d8 | | Load_Top At_Offset_0
0661 0107 | | Execute Exception,Get_Name
0662 4920 |I | Short_Literal 0x120
0663 492f |I/ | Short_Literal 0x12f
0664 0262 | b | Execute Discrete,In_Range
0665 6802 |h | Jump_Zero 0x668
0666 8802 | | Call 0x4,0x2
0667 4501 |E | Exit_Subprogram 0x1
0668 0100 | | Execute Exception,Raise
0669 0000 0000 | | .BLANK 0000[0x7]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 067c | | | .CONST 0x067c ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0002 | | .CONST 0x0002 ; Number of locals
0673 INIT_0670:
0673 4820 |H | Short_Literal 0x20
0674 e9ff | | Load 0x4,-0x1
0675 01dd | | Execute Vector,First
0676 e802 | | Load 0x4,0x2
0677 0aff | | Execute_Immediate Plus,-0x1
0678 e9ff | | Load 0x4,-0x1
0679 01cf | | Execute Vector,Slice_Read
067a e010 | | Load 0x0,0x10
067b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
067c BODY_0670:
067c 4800 |H | Short_Literal 0x0
067d 00ea | | Load_Encached Null_String_Cache
067e 4800 |H | Short_Literal 0x0
067f 00db | | Load_Top At_Offset_3
0680 4801 |H | Short_Literal 0x1
0681 e40b | | Load 0x2,0xb
0682 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0683 4501 |E | Exit_Subprogram 0x1
0684 0000 0000 | | .BLANK 0000[0x4]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0690 | | .CONST 0x0690 ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b 00ea | | Load_Encached Null_String_Cache
068c 4803 |H | Short_Literal 0x3
068d e9fe | | Load 0x4,-0x2
068e e40d | | Load 0x2,0xd
068f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0690 BODY_0688:
0690 4801 |H | Short_Literal 0x1
0691 00d9 | | Load_Top At_Offset_1
0692 0092 0895 | | Action Push_String_Extended,0x895 ; "Terminal_"
0694 e010 | | Load 0x0,0x10
0695 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0696 0c01 | | Execute_Immediate Greater_Equal,0x1
0697 6803 |h | Jump_Zero 0x69b
0698 00d8 | | Load_Top At_Offset_0
0699 00cb | | Action Pop_Block_With_Result
069a 4403 |D | Exit_Subprogram With_Result,0x3
069b 00d8 | | Load_Top At_Offset_0
069c 0092 0896 | | Action Push_String_Extended,0x896 ; " is not a proper device name"
069e 01cc | | Execute Vector,Catenate
069f e00f | | Load 0x0,0xf
06a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06a1 e603 | | Load 0x3,0x3
06a2 0257 | W | Execute Discrete,Raise
06a3 0000 0000 | | .BLANK 0000[0x5]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06b4 | | .CONST 0x06b4 ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0002 | | .CONST 0x0002 ; Number of locals
06ab INIT_06a8:
06ab e015 | | Load 0x0,0x15
06ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ad 02c7 | | Declare_Variable Any
06ae 6019 |` | Indirect_Literal Discrete,0x6c8,{0x00000000, 0x012c0000}
06af e015 | | Load 0x0,0x15
06b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06b1 e015 | | Load 0x0,0x15
06b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06b3 aa02 | | Store_Unchecked 0x5,0x2
06b4 BODY_06a8:
06b4 00cf | | Action Mark_Auxiliary
06b5 7803 |x | Jump 0x6b9
06b6 600d |` | Indirect_Literal Discrete,0x6c4,{0x00000000, 0x00028000}
06b7 00ba | | Action Initiate_Delay
06b8 00c9 | | Action Pop_Auxiliary_Loop
06b9 e802 | | Load 0x4,0x2
06ba e00d | | Load 0x0,0xd
06bb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
06bc 00da | | Load_Top At_Offset_2
06bd e015 | | Load 0x0,0x15
06be 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06bf e015 | | Load 0x0,0x15
06c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06c1 0279 | y | Execute Discrete,And
06c2 77f3 |w | Jump_Nonzero 0x6b6
06c3 4501 |E | Exit_Subprogram 0x1
06c4 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
06c8 0000 0000 | | .LITERAL {0x00000000, 0x012c0000}
06cc 0000 0000 | | .BLANK 0000[0x4]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06dc | | .CONST 0x06dc ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0002 | | .CONST 0x0002 ; Number of locals
06d3 INIT_06d0:
06d3 e015 | | Load 0x0,0x15
06d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06d5 02c7 | | Declare_Variable Any
06d6 6019 |` | Indirect_Literal Discrete,0x6f0,{0x00000000, 0x00960000}
06d7 e015 | | Load 0x0,0x15
06d8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06d9 e015 | | Load 0x0,0x15
06da 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06db aa02 | | Store_Unchecked 0x5,0x2
06dc BODY_06d0:
06dc 00cf | | Action Mark_Auxiliary
06dd 7803 |x | Jump 0x6e1
06de 600d |` | Indirect_Literal Discrete,0x6ec,{0x00000000, 0x00010000}
06df 00ba | | Action Initiate_Delay
06e0 00c9 | | Action Pop_Auxiliary_Loop
06e1 e9ff | | Load 0x4,-0x1
06e2 e00d | | Load 0x0,0xd
06e3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
06e4 00da | | Load_Top At_Offset_2
06e5 e015 | | Load 0x0,0x15
06e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06e7 e015 | | Load 0x0,0x15
06e8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06e9 0279 | y | Execute Discrete,And
06ea 77f3 |w | Jump_Nonzero 0x6de
06eb 4501 |E | Exit_Subprogram 0x1
06ec 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
06f0 0000 0000 | | .LITERAL {0x00000000, 0x00960000}
06f4 0000 0000 | | .BLANK 0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0704 | | .CONST 0x0704 ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0003 | | .CONST 0x0003 ; Number of locals
06fb INIT_06f8:
06fb 00ea | | Load_Encached Null_String_Cache
06fc 4801 |H | Short_Literal 0x1
06fd e802 | | Load 0x4,0x2
06fe e40d | | Load 0x2,0xd
06ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0700 e802 | | Load 0x4,0x2
0701 8608 | | Call 0x3,0x8
0702 e40e | | Load 0x2,0xe
0703 03f1 | | Declare_Variable Discrete,With_Value
0704 BODY_06f8:
0704 00d9 | | Load_Top At_Offset_1
0705 8607 | | Call 0x3,0x7
0706 6812 |h | Jump_Zero 0x719
0707 00d8 | | Load_Top At_Offset_0
0708 680a |h | Jump_Zero 0x713
0709 00d8 | | Load_Top At_Offset_0
070a e802 | | Load 0x4,0x2
070b e9ff | | Load 0x4,-0x1
070c 860e | | Call 0x3,0xe
070d 00ea | | Load_Encached Null_String_Cache
070e 00d9 | | Load_Top At_Offset_1
070f e802 | | Load 0x4,0x2
0710 e9ff | | Load 0x4,-0x1
0711 8606 | | Call 0x3,0x6
0712 4501 |E | Exit_Subprogram 0x1
0713 0092 0897 | | Action Push_String_Extended,0x897 ; "The current options do not define a device"
0715 e00f | | Load 0x0,0xf
0716 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0717 e603 | | Load 0x3,0x3
0718 0257 | W | Execute Discrete,Raise
0719 e9ff | | Load 0x4,-0x1
071a 0092 0898 | | Action Push_String_Extended,0x898 ; " is located on "
071c 01cc | | Execute Vector,Catenate
071d 00da | | Load_Top At_Offset_2
071e 01cc | | Execute Vector,Catenate
071f e00f | | Load 0x0,0xf
0720 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0721 00d9 | | Load_Top At_Offset_1
0722 00d9 | | Load_Top At_Offset_1
0723 e802 | | Load 0x4,0x2
0724 e9ff | | Load 0x4,-0x1
0725 8606 | | Call 0x3,0x6
0726 4501 |E | Exit_Subprogram 0x1
0727 0000 | | .XXX[0x1]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072f | / | .CONST 0x072f ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0002 | | .CONST 0x0002 ; Number of locals
072b INIT_0728:
072b 4800 |H | Short_Literal 0x0
072c e802 | | Load 0x4,0x2
072d e40b | | Load 0x2,0xb
072e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
072f BODY_0728:
072f 4820 |H | Short_Literal 0x20
0730 00ea | | Load_Encached Null_String_Cache
0731 4800 |H | Short_Literal 0x0
0732 e802 | | Load 0x4,0x2
0733 e40b | | Load 0x2,0xb
0734 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0735 e010 | | Load 0x0,0x10
0736 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0737 00d9 | | Load_Top At_Offset_1
0738 860f | | Call 0x3,0xf
0739 4501 |E | Exit_Subprogram 0x1
073a 0000 0000 | | .BLANK 0000[0x6]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743 | C | .CONST 0x0743 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0001 | | .CONST 0x0001 ; Number of locals
0743 BODY_0740:
0743 INIT_0740:
0743 00cf | | Action Mark_Auxiliary
0744 00db | | Load_Top At_Offset_3
0745 01dc | | Execute Vector,Last
0746 ebff | | Load 0x5,-0x1
0747 01dd | | Execute Vector,First
0748 0263 | c | Execute Discrete,Above_Bound
0749 7012 |p | Jump_Nonzero 0x75c
074a 00d8 | | Load_Top At_Offset_0
074b ebff | | Load 0x5,-0x1
074c 01d7 | | Execute Vector,Field_Read
074d 0f28 | ( | Execute_Immediate Equal,0x28
074e 6803 |h | Jump_Zero 0x752
074f ebfe | | Load 0x5,-0x2
0750 0a01 | | Execute_Immediate Plus,0x1
0751 cbfe | | Store 0x5,-0x2
0752 00d8 | | Load_Top At_Offset_0
0753 ebff | | Load 0x5,-0x1
0754 01d7 | | Execute Vector,Field_Read
0755 0f29 | ) | Execute_Immediate Equal,0x29
0756 6803 |h | Jump_Zero 0x75a
0757 ebfd | | Load 0x5,-0x3
0758 0a01 | | Execute_Immediate Plus,0x1
0759 cbfd | | Store 0x5,-0x3
075a 00c8 | | Action Pop_Auxiliary_Range
075b 3fee |? | Loop_Increasing 0x74a
075c 4502 |E | Exit_Subprogram 0x2
075d 0000 0000 | | .XXX[0x3]
075f 0000 | |
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 077d | } | .CONST 0x077d ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0006 | | .CONST 0x0006 ; Number of locals
0763 INIT_0760:
0763 4820 |H | Short_Literal 0x20
0764 e9ff | | Load 0x4,-0x1
0765 e00f | | Load 0x0,0xf
0766 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0767 e010 | | Load 0x0,0x10
0768 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0769 00d8 | | Load_Top At_Offset_0
076a 01dd | | Execute Vector,First
076b 00e3 | | Load_Encached Natural_Cache
076c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
076d 00d9 | | Load_Top At_Offset_1
076e 01dc | | Execute Vector,Last
076f 00e3 | | Load_Encached Natural_Cache
0770 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0771 00da | | Load_Top At_Offset_2
0772 01db | | Execute Vector,Length
0773 00e3 | | Load_Encached Natural_Cache
0774 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0775 4801 |H | Short_Literal 0x1
0776 ea02 | | Load 0x5,0x2
0777 0092 0890 | | Action Push_String_Extended,0x890 ; "--"
0779 e010 | | Load 0x0,0x10
077a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
077b 00e3 | | Load_Encached Natural_Cache
077c 03f1 | | Declare_Variable Discrete,With_Value
077d BODY_0760:
077d 00d8 | | Load_Top At_Offset_0
077e 0c01 | | Execute_Immediate Greater_Equal,0x1
077f 6810 |h | Jump_Zero 0x790
0780 4820 |H | Short_Literal 0x20
0781 ea03 | | Load 0x5,0x3
0782 00da | | Load_Top At_Offset_2
0783 0aff | | Execute_Immediate Plus,-0x1
0784 ea02 | | Load 0x5,0x2
0785 01cf | | Execute Vector,Slice_Read
0786 e010 | | Load 0x0,0x10
0787 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0788 01dc | | Execute Vector,Last
0789 005b | [ | Store_Top Discrete,At_Offset_3
078a 00db | | Load_Top At_Offset_3
078b 00db | | Load_Top At_Offset_3
078c ea02 | | Load 0x5,0x2
078d 01cf | | Execute Vector,Slice_Read
078e 01db | | Execute Vector,Length
078f 005a | Z | Store_Top Discrete,At_Offset_2
0790 00da | | Load_Top At_Offset_2
0791 ea03 | | Load 0x5,0x3
0792 027d | } | Execute Discrete,Greater
0793 6828 |h( | Jump_Zero 0x7bc
0794 00db | | Load_Top At_Offset_3
0795 00db | | Load_Top At_Offset_3
0796 ea02 | | Load 0x5,0x2
0797 01cf | | Execute Vector,Slice_Read
0798 e803 | | Load 0x4,0x3
0799 0a01 | | Execute_Immediate Plus,0x1
079a 00d8 | | Load_Top At_Offset_0
079b 00e2 | | Load_Encached Integer_Cache
079c 0260 | ` | Execute Discrete,In_Type
079d 7001 |p | Jump_Nonzero 0x79f
079e 0801 | | Execute_Immediate Raise,0x1
079f e803 | | Load 0x4,0x3
07a0 ea05 | | Load 0x5,0x5
07a1 0273 | s | Execute Discrete,Plus
07a2 00d8 | | Load_Top At_Offset_0
07a3 00e2 | | Load_Encached Integer_Cache
07a4 0260 | ` | Execute Discrete,In_Type
07a5 7001 |p | Jump_Nonzero 0x7a7
07a6 0801 | | Execute_Immediate Raise,0x1
07a7 e802 | | Load 0x4,0x2
07a8 01ce | | Execute Vector,Slice_Write
07a9 e803 | | Load 0x4,0x3
07aa 00da | | Load_Top At_Offset_2
07ab 0273 | s | Execute Discrete,Plus
07ac c803 | | Store 0x4,0x3
07ad e805 | | Load 0x4,0x5
07ae e804 | | Load 0x4,0x4
07af ea03 | | Load 0x5,0x3
07b0 ea04 | | Load 0x5,0x4
07b1 ea02 | | Load 0x5,0x2
07b2 01cf | | Execute Vector,Slice_Read
07b3 8806 | | Call 0x4,0x6
07b4 c804 | | Store 0x4,0x4
07b5 c805 | | Store 0x4,0x5
07b6 e804 | | Load 0x4,0x4
07b7 e805 | | Load 0x4,0x5
07b8 027f | | Execute Discrete,Equal
07b9 6802 |h | Jump_Zero 0x7bc
07ba 00cc | | Action Pop_Block
07bb 7dca |} | Jump 0x586
07bc 4501 |E | Exit_Subprogram 0x1
07bd 0000 0000 | | .XXX[0x3]
07bf 0000 | |
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07e1 | | .CONST 0x07e1 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0003 | | .CONST 0x0003 ; Number of locals
07c3 INIT_07c0:
07c3 e803 | | Load 0x4,0x3
07c4 e409 | | Load 0x2,0x9
07c5 e408 | | Load 0x2,0x8
07c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07c7 e802 | | Load 0x4,0x2
07c8 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
07ca 01cc | | Execute Vector,Catenate
07cb 00d9 | | Load_Top At_Offset_1
07cc 0227 | ' | Execute Access,All_Reference
07cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07ce 0227 | ' | Execute Access,All_Reference
07cf 01cc | | Execute Vector,Catenate
07d0 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
07d2 01cc | | Execute Vector,Catenate
07d3 00d9 | | Load_Top At_Offset_1
07d4 0227 | ' | Execute Access,All_Reference
07d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07d6 0227 | ' | Execute Access,All_Reference
07d7 01cc | | Execute Vector,Catenate
07d8 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
07da 01cc | | Execute Vector,Catenate
07db 00d9 | | Load_Top At_Offset_1
07dc 0227 | ' | Execute Access,All_Reference
07dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07de 0227 | ' | Execute Access,All_Reference
07df 01cc | | Execute Vector,Catenate
07e0 0007 | | Action Break_Optional
07e1 BODY_07c0:
07e1 00d8 | | Load_Top At_Offset_0
07e2 e00f | | Load 0x0,0xf
07e3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
07e4 e5fa | | Load 0x2,-0x6
07e5 7004 |p | Jump_Nonzero 0x7ea
07e6 00d8 | | Load_Top At_Offset_0
07e7 e603 | | Load 0x3,0x3
07e8 e00f | | Load 0x0,0xf
07e9 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
07ea 4501 |E | Exit_Subprogram 0x1
07eb 0000 0000 | | .BLANK 0000[0x5]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 0817 | | .CONST 0x0817 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0004 | | .CONST 0x0004 ; Number of locals
07f3 INIT_07f0:
07f3 e802 | | Load 0x4,0x2
07f4 e408 | | Load 0x2,0x8
07f5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
07f6 00d8 | | Load_Top At_Offset_0
07f7 e409 | | Load 0x2,0x9
07f8 e408 | | Load 0x2,0x8
07f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07fa 0092 0899 | | Action Push_String_Extended,0x899 ; "*"
07fc 00da | | Load_Top At_Offset_2
07fd 01cc | | Execute Vector,Catenate
07fe 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
0800 01cc | | Execute Vector,Catenate
0801 00d9 | | Load_Top At_Offset_1
0802 0227 | ' | Execute Access,All_Reference
0803 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0804 0227 | ' | Execute Access,All_Reference
0805 01cc | | Execute Vector,Catenate
0806 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
0808 01cc | | Execute Vector,Catenate
0809 00d9 | | Load_Top At_Offset_1
080a 0227 | ' | Execute Access,All_Reference
080b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
080c 0227 | ' | Execute Access,All_Reference
080d 01cc | | Execute Vector,Catenate
080e 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
0810 01cc | | Execute Vector,Catenate
0811 00d9 | | Load_Top At_Offset_1
0812 0227 | ' | Execute Access,All_Reference
0813 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0814 0227 | ' | Execute Access,All_Reference
0815 01cc | | Execute Vector,Catenate
0816 0007 | | Action Break_Optional
0817 BODY_07f0:
0817 00d8 | | Load_Top At_Offset_0
0818 e00f | | Load 0x0,0xf
0819 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
081a e5fa | | Load 0x2,-0x6
081b 7004 |p | Jump_Nonzero 0x820
081c 00d8 | | Load_Top At_Offset_0
081d e603 | | Load 0x3,0x3
081e e00f | | Load 0x0,0xf
081f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0820 4501 |E | Exit_Subprogram 0x1
0821 0000 0000 | | .BLANK 0000[0x7]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 0840 | @ | .CONST 0x0840 ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0003 | | .CONST 0x0003 ; Number of locals
082b INIT_0828:
082b e405 | | Load 0x2,0x5
082c 0227 | ' | Execute Access,All_Reference
082d e409 | | Load 0x2,0x9
082e e408 | | Load 0x2,0x8
082f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0830 0092 089a | | Action Push_String_Extended,0x89a ; "others "
0832 00d9 | | Load_Top At_Offset_1
0833 0227 | ' | Execute Access,All_Reference
0834 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0835 0227 | ' | Execute Access,All_Reference
0836 01cc | | Execute Vector,Catenate
0837 0092 0872 | r| Action Push_String_Extended,0x872 ; " "
0839 01cc | | Execute Vector,Catenate
083a 00d9 | | Load_Top At_Offset_1
083b 0227 | ' | Execute Access,All_Reference
083c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
083d 0227 | ' | Execute Access,All_Reference
083e 01cc | | Execute Vector,Catenate
083f 0007 | | Action Break_Optional
0840 BODY_0828:
0840 00d8 | | Load_Top At_Offset_0
0841 e00f | | Load 0x0,0xf
0842 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0843 e5fa | | Load 0x2,-0x6
0844 7004 |p | Jump_Nonzero 0x849
0845 00d8 | | Load_Top At_Offset_0
0846 e603 | | Load 0x3,0x3
0847 e00f | | Load 0x0,0xf
0848 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0849 4501 |E | Exit_Subprogram 0x1
084a ; --------------------------------------------------------------------------------------
084a ; STRING TABLE
084a ; --------------------------------------------------------------------------------------
084a 00a4 | | .STRTAB 0x00a4->0x089c ; "NIL"
084b 00a5 | | .STRTAB 0x00a5->0x089d ; "NEW_NAME"
084c 00ab | | .STRTAB 0x00ab->0x08a1 ; "NIL"
084d 00ac | | .STRTAB 0x00ac->0x08a3 ; "ON_NODE"
084e 00b1 | | .STRTAB 0x00b1->0x08a6 ; "DIRECT"
084f 00b5 | | .STRTAB 0x00b5->0x08a9 ; "DEVICE"
0850 00b9 | | .STRTAB 0x00b9->0x08ac ; "TELNET"
0851 00bd | | .STRTAB 0x00bd->0x08af ; "SOCKET"
0852 00c1 | | .STRTAB 0x00c1->0x08b2 ; "FILE"
0853 00c3 | | .STRTAB 0x00c3->0x08b4 ; "WORKSTATION"
0854 00cc | | .STRTAB 0x00cc->0x08ba ; "PATH"
0855 00ce | | .STRTAB 0x00ce->0x08bc ; "SUFFIX"
0856 00d2 | | .STRTAB 0x00d2->0x08bf ; "LASER_COMM"
0857 00da | | .STRTAB 0x00da->0x08c4 ; "REVERSE_OUTPUT_PAGES"
0858 00ec | | .STRTAB 0x00ec->0x08ce ; "NIL"
0859 00ed | | .STRTAB 0x00ed->0x08cf ; "DIRECT_CONNECTION"
085a 00fc | | .STRTAB 0x00fc->0x08d8 ; "TELNET_CONNECTION"
085b 010b | | .STRTAB 0x010b->0x08e0 ; "LOCAL_FILE"
085c 0113 | | .STRTAB 0x0113->0x08e5 ; "REMOTE_FILE"
085d 011c | | .STRTAB 0x011c->0x08eb ; "NIL"
085e 011d | | .STRTAB 0x011d->0x08ec ; "XON_XOFF"
085f 0123 | # | .STRTAB 0x0123->0x08f0 ; "RTS"
0860 0124 | $ | .STRTAB 0x0124->0x08f2 ; ".Remote_Access"
0861 0130 | 0 | .STRTAB 0x0130->0x08f9 ; "others => Unspecified"
0862 0143 | C | .STRTAB 0x0143->0x0903 ; "Laser_Comm | Reverse_Output_Pages => Boolean_Valued, others => unspecified"
0863 018b | | .STRTAB 0x018b->0x0928 ; "<ERRORS>"
0864 0191 | | .STRTAB 0x0191->0x092c ; "Holding"
; "Holding"
; "Holding"
; "Holding"
; "Holding"
0865 0196 | | .STRTAB 0x0196->0x0930 ; ">>> Set EFFORT_ONLY to false for these settings to take effect <<<"
0866 01d7 | | .STRTAB 0x01d7->0x0951 ; "The file "
0867 01de | | .STRTAB 0x01de->0x0956 ; " will not be created"
0868 01f0 | | .STRTAB 0x01f0->0x0960 ; " does not exist"
0869 01fd | | .STRTAB 0x01fd->0x0967 ; "The contents of the file "
086a 0214 | | .STRTAB 0x0214->0x0974 ; " are:"
086b 0217 | | .STRTAB 0x0217->0x0976 ; "="
086c 0216 | | .STRTAB 0x0216->0x0977 ; "!!"
086d 0216 | | .STRTAB 0x0216->0x0978 ; "."
; "."
; "."
086e 0215 | | .STRTAB 0x0215->0x0978 ; "Laser"
086f 0218 | | .STRTAB 0x0218->0x097b ; "Other"
0870 021b | | .STRTAB 0x021b->0x097d ; "Reversed => True"
0871 0229 | ) | .STRTAB 0x0229->0x0985 ; "Reversed => False"
0872 0238 | 8 | .STRTAB 0x0238->0x098e ; " "
; " "
; " "
; " "
; " "
; " "
; " "
; " "
0873 0237 | 7 | .STRTAB 0x0237->0x098e ; " is not defined on the server"
0874 0252 | R | .STRTAB 0x0252->0x099d ; ", Laser_Comm"
0875 025c | \ | .STRTAB 0x025c->0x09a3 ; "Laser_Comm"
0876 0264 | d | .STRTAB 0x0264->0x09a8 ; " is not a proper protocol"
0877 027b | { | .STRTAB 0x027b->0x09b4 ; "_"
; "_"
0878 027a | z | .STRTAB 0x027a->0x09b5 ; "Creating a file "
0879 0288 | | .STRTAB 0x0288->0x09bd ; " containing -> "
087a 0297 | | .STRTAB 0x0297->0x09c5 ; " nl "
; " nl "
; " nl "
087b 0299 | | .STRTAB 0x0299->0x09c7 ; "*** Cound not create the file "
087c 02b5 | | .STRTAB 0x02b5->0x09d6 ; "FTP"
087d 02b6 | | .STRTAB 0x02b6->0x09d8 ; "Host => "
; "Host => "
087e 02bc | | .STRTAB 0x02bc->0x09dc ; ", Socket => ("
087f 02c7 | | .STRTAB 0x02c7->0x09e2 ; ")"
0880 02c6 | | .STRTAB 0x02c6->0x09e3 ; "Xon_Xoff"
0881 02cc | | .STRTAB 0x02cc->0x09e7 ; "Setting up "
0882 02d5 | | .STRTAB 0x02d5->0x09ec ; " Class -> "
0883 02e0 | | .STRTAB 0x02e0->0x09f3 ; " Device -> "
0884 02eb | | .STRTAB 0x02eb->0x09f9 ; " Options -> "
0885 02f6 | | .STRTAB 0x02f6->0x0a00 ; "---"
; "---"
; "---"
; "---"
; "---"
; "---"
; "---"
0886 02f7 | | .STRTAB 0x02f7->0x0a01 ; "Disabling device: "
0887 0307 | | .STRTAB 0x0307->0x0a0a ; "Deleting existing device: "
0888 031f | | .STRTAB 0x031f->0x0a17 ; "Creating class: "
0889 032d | - | .STRTAB 0x032d->0x0a1f ; "Creating device: "
088a 033c | < | .STRTAB 0x033c->0x0a28 ; "Registering "
088b 0346 | F | .STRTAB 0x0346->0x0a2e ; " with "
088c 034a | J | .STRTAB 0x034a->0x0a31 ; "Enabling device. See error log if there are errors for more information"
088d 0390 | | .STRTAB 0x0390->0x0a55 ; "Illegal format: "
; "Illegal format: "
088e 039e | | .STRTAB 0x039e->0x0a5d ; " "
; " "
; " "
088f 03a1 | | .STRTAB 0x03a1->0x0a5f ; "Illegal item in line: "
; "Illegal item in line: "
0890 03b5 | | .STRTAB 0x03b5->0x0a6a ; "--"
; "--"
; "--"
0891 03b5 | | .STRTAB 0x03b5->0x0a6b ; "The parentheses in the file "
0892 03cf | | .STRTAB 0x03cf->0x0a79 ; " do not match"
0893 03da | | .STRTAB 0x03da->0x0a80 ; " is not a defined printer"
0894 03f1 | | .STRTAB 0x03f1->0x0a8c ; " In line: "
0895 03fb | | .STRTAB 0x03fb->0x0a92 ; "Terminal_"
0896 0402 | | .STRTAB 0x0402->0x0a97 ; " is not a proper device name"
0897 041c | | .STRTAB 0x041c->0x0aa5 ; "The current options do not define a device"
0898 0444 | D | .STRTAB 0x0444->0x0aba ; " is located on "
0899 0451 | Q | .STRTAB 0x0451->0x0ac1 ; "*"
089a 0450 | P | .STRTAB 0x0450->0x0ac2 ; "others "
089b 0455 | U | .STREND 0x0455->0x0ac5
089c 4e49 4c4e |NILN| .STRTAB_STRINGS
0ac6 0000 0000 | | .XXX[0x2]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; Debug Table
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x06d6,0x0000,0x0001,0x0000
0ace 033d e040 | = @| .XXX[0x29]
0ad0 036c 03ac | l |
0ad2 6164 00cc |ad |
0ad4 0368 03ac | h |
0ad6 6050 3e99 |`P> |
0ad8 a008 0369 | i|
0ada 1004 036c | l|
0adc 03ac 616a | aj|
0ade 9008 0324 | $|
0ae0 036c 03ac | l |
0ae2 6161 bfb0 |aa |
0ae4 0339 88a0 | 9 |
0ae6 095f 97fd | _ |
0ae8 241c 03ac |$ |
0aea 025a 0af1 | Z |
0aec 1007 97fc | |
0aee 03ac 63a2 | c |
0af0 0af1 1007 | |
0af2 97fc 03ac | |
0af4 637a 0af1 |cz |
0af6 1004 | |
0af7 0000 0000 | | .BLANK 0000[0x7]
0afe a30c 0010 | | .XXX[0x1c]
0b00 0008 03b8 | |
0b02 036e 0af0 | n |
0b04 03ac 63a8 | c |
0b06 03ac 6220 | b |
0b08 00c4 033f | ?|
0b0a 97f8 f005 | |
0b0c 2008 098d | |
0b0e c018 036c | l|
0b10 03ac 616a | aj|
0b12 9008 0320 | |
0b14 ffe8 0338 | 8|
0b16 0360 03ac | ` |
0b18 6165 1008 |ae |
0b1a 0000 0000 | | .BLANK 0000[0x4]
0b1e a378 a418 | x | .XXX[0x31]
0b20 000c 03b8 | |
0b22 0a7c b9af | | |
0b24 97fc 03ac | |
0b26 620c 3c11 |b < |
0b28 a033 97fc | 3 |
0b2a 03ac 6220 | b |
0b2c 00c8 0364 | d|
0b2e 03ac 6161 | aa|
0b30 c00a 100d | |
0b32 1007 97fd | |
0b34 1007 97fc | |
0b36 03ac 63b0 | c |
0b38 03ac 620c | b |
0b3a 3c11 a03b |< ;|
0b3c 97fd 25d4 | % |
0b3e 03ac 0260 | `|
0b40 6074 00c8 |`t |
0b42 0364 03ac | d |
0b44 6161 c00a |aa |
0b46 100d 1007 | |
0b48 97fd 1005 | |
0b4a 870c 095c | \|
0b4c 001d 8700 | |
0b4e 095c | \ |
0b4f 0000 0000 | | .BLANK 0000[0x7]
0b56 a45c a530 | \ 0| .XXX[0x93]
0b58 0014 03b0 | |
0b5a 03b0 03b8 | |
0b5c 03bb 97fc | |
0b5e 03ac 63b0 | c |
0b60 03ac 620c | b |
0b62 3c11 a0ab |< |
0b64 97fc 03ac | |
0b66 63b0 03ac |c |
0b68 6220 00c4 |b |
0b6a 0360 03ac | ` |
0b6c 6166 9008 |af |
0b6e 0360 03ac | ` |
0b70 6168 00c8 |ah |
0b72 033c 001c | < |
0b74 0368 03ac | h |
0b76 6161 c050 |aa P|
0b78 0368 03ac | h |
0b7a 6166 900c |af |
0b7c 036f 97fc | o |
0b7e 087d a00b | } |
0b80 9009 1004 | |
0b82 036e 9008 | n |
0b84 0368 00c8 | h |
0b86 0368 03ac | h |
0b88 6168 00cc |ah |
0b8a 0325 ffa0 | % |
0b8c 0339 e009 | 9 |
0b8e 85fc 095d | ]|
0b90 20c4 095c | \|
0b92 001d 85e8 | |
0b94 095c 0000 | \ |
0b96 a550 a608 | P |
0b98 0008 03b8 | |
0b9a 036c 03ac | l |
0b9c 63b0 03ac |c |
0b9e 620c 3c11 |b < |
0ba0 a048 036d | H m|
0ba2 25d4 03ac |% |
0ba4 0260 6074 | ``t|
0ba6 03ac 6168 | ah|
0ba8 00c4 0360 | `|
0baa 03ac 6161 | aa|
0bac c010 0360 | `|
0bae 03ac 6165 | ae|
0bb0 1005 8570 | p|
0bb2 095c 036c | \ l|
0bb4 03ac 620c | b |
0bb6 3c11 a038 |< 8|
0bb8 036c 03ac | l |
0bba 6220 00c4 |b |
0bbc 0360 03ac | ` |
0bbe 6161 c010 |aa |
0bc0 0360 03ac | ` |
0bc2 6165 1005 |ae |
0bc4 8524 095d | $ ]|
0bc6 851c 095c | \|
0bc8 001d 8510 | |
0bca 095c 0000 | \ |
0bcc 0000 0000 | |
0bce a630 0010 | 0 |
0bd0 0008 03b8 | |
0bd2 036c 03ac | l |
0bd4 620c 3c11 |b < |
0bd6 a038 036c | 8 l|
0bd8 03ac 6220 | b |
0bda 00c4 0360 | `|
0bdc 03ac 6161 | aa|
0bde c010 0360 | `|
0be0 03ac 6165 | ae|
0be2 1005 84a8 | |
0be4 095c 036c | \ l|
0be6 03ac 6215 | b |
0be8 1004 | |
0be9 0000 0000 | | .BLANK 0000[0x5]
0bee a6b8 a6f4 | | .XXX[0x12]
0bf0 0008 03b0 | |
0bf2 036c 00c4 | l |
0bf4 033f 97f8 | ? |
0bf6 f005 2004 | |
0bf8 098d c018 | |
0bfa 036c 03ac | l |
0bfc 63b2 9008 |c |
0bfe 0320 ffe8 | |