|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0a78 | x | .CONST 0x0a78 ; 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 INIT_0018,For_Outer_Call,Visible,Unelaborated
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 00ba | | .CONST 0x00ba ; Address of begin
0019 00dd | | .CONST 0x00dd ; Address of exception handler
001a 0020 | | .CONST 0x0020 ; Number of locals
001b INIT_0018:
001b 00e9 | | Load_Encached String_Cache
001c 02a0 | | Declare_Subprogram Null_Subprogram
001d 4818 |H | Short_Literal 0x18
001e 03d3 | | Declare_Type Access,Defined,Accesses_Protected
001f e001 | | Load 0x0,0x1
0020 e002 | | Load 0x0,0x2
0021 480b |H | Short_Literal 0xb
0022 00db | | Load_Top At_Offset_3
0023 4801 |H | Short_Literal 0x1
0024 e003 | | Load 0x0,0x3
0025 0387 | | Declare_Variable Package
0026 00d8 | | Load_Top At_Offset_0
0027 020f | | Execute Module,Activate
0028 00d8 | | Load_Top At_Offset_0
0029 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002a e004 | | Load 0x0,0x4
002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002c 02c7 | | Declare_Variable Any
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f 480f |H | Short_Literal 0xf
0030 48ff |H | Short_Literal 0xff
0031 00e3 | | Load_Encached Natural_Cache
0032 03f8 | | Declare_Type Discrete,Constrained
0033 e005 | | Load 0x0,0x5
0034 e006 | | Load 0x0,0x6
0035 00da | | Load_Top At_Offset_2
0036 480f |H | Short_Literal 0xf
0037 4810 |H | Short_Literal 0x10
0038 48ff |H | Short_Literal 0xff
0039 0092 07ff | | Action Push_String_Extended,0x7ff ; "others => Unspecified"
003b 00ea | | Load_Encached Null_String_Cache
003c 00ea | | Load_Encached Null_String_Cache
003d 4810 |H | Short_Literal 0x10
003e 48ff |H | Short_Literal 0xff
003f e007 | | Load 0x0,0x7
0040 0387 | | Declare_Variable Package
0041 00d8 | | Load_Top At_Offset_0
0042 020f | | Execute Module,Activate
0043 4800 |H | Short_Literal 0x0
0044 4814 |H | Short_Literal 0x14
0045 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0047 03fd | | Declare_Type Discrete,Defined
0048 e008 | | Load 0x0,0x8
0049 e009 | | Load 0x0,0x9
004a 00da | | Load_Top At_Offset_2
004b 4800 |H | Short_Literal 0x0
004c 4801 |H | Short_Literal 0x1
004d 4814 |H | Short_Literal 0x14
004e 0092 0800 | | Action Push_String_Extended,0x800 ; "Enable | Disable | Disconnect_On_Logoff..Detach_On_Disconnect => Boolean_Valued,Stop_Bits => Integer_Valued, others => Unspecified"
0050 00ea | | Load_Encached Null_String_Cache
0051 00ea | | Load_Encached Null_String_Cache
0052 4801 |H | Short_Literal 0x1
0053 4814 |H | Short_Literal 0x14
0054 e007 | | Load 0x0,0x7
0055 0387 | | Declare_Variable Package
0056 00d8 | | Load_Top At_Offset_0
0057 020f | | Execute Module,Activate
0058 4800 |H | Short_Literal 0x0
0059 4810 |H | Short_Literal 0x10
005a 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
005c 03fd | | Declare_Type Discrete,Defined
005d 4800 |H | Short_Literal 0x0
005e 4803 |H | Short_Literal 0x3
005f 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0061 03fd | | Declare_Type Discrete,Defined
0062 4800 |H | Short_Literal 0x0
0063 4804 |H | Short_Literal 0x4
0064 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0066 03fd | | Declare_Type Discrete,Defined
0067 4800 |H | Short_Literal 0x0
0068 4804 |H | Short_Literal 0x4
0069 029f 019b | | Declare_Subprogram INIT_0198,For_Call
006b 03fd | | Declare_Type Discrete,Defined
006c e00a | | Load 0x0,0xa
006d e00b | | Load 0x0,0xb
006e e40a | | Load 0x2,0xa
006f 4800 |H | Short_Literal 0x0
0070 4800 |H | Short_Literal 0x0
0071 4801 |H | Short_Literal 0x1
0072 e409 | | Load 0x2,0x9
0073 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0074 0387 | | Declare_Variable Package
0075 00d8 | | Load_Top At_Offset_0
0076 020f | | Execute Module,Activate
0077 e00c | | Load 0x0,0xc
0078 e00d | | Load 0x0,0xd
0079 e40b | | Load 0x2,0xb
007a 4800 |H | Short_Literal 0x0
007b 4800 |H | Short_Literal 0x0
007c 4801 |H | Short_Literal 0x1
007d e409 | | Load 0x2,0x9
007e 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
007f 0387 | | Declare_Variable Package
0080 00d8 | | Load_Top At_Offset_0
0081 020f | | Execute Module,Activate
0082 e00e | | Load 0x0,0xe
0083 e00f | | Load 0x0,0xf
0084 e40c | | Load 0x2,0xc
0085 4800 |H | Short_Literal 0x0
0086 4800 |H | Short_Literal 0x0
0087 4801 |H | Short_Literal 0x1
0088 e409 | | Load 0x2,0x9
0089 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
008a 0387 | | Declare_Variable Package
008b 00d8 | | Load_Top At_Offset_0
008c 020f | | Execute Module,Activate
008d e010 | | Load 0x0,0x10
008e e011 | | Load 0x0,0x11
008f e40d | | Load 0x2,0xd
0090 4800 |H | Short_Literal 0x0
0091 4800 |H | Short_Literal 0x0
0092 4801 |H | Short_Literal 0x1
0093 e409 | | Load 0x2,0x9
0094 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0095 0387 | | Declare_Variable Package
0096 00d8 | | Load_Top At_Offset_0
0097 020f | | Execute Module,Activate
0098 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
009a 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
009c 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
009e 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
00a0 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
00a2 029f 028b | | Declare_Subprogram INIT_0288,For_Call
00a4 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
00a6 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
00a8 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
00aa 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
00ac 029f 040b | | Declare_Subprogram INIT_0408,For_Call
00ae 029e 0453 | S| Declare_Subprogram INIT_0450,For_Call,Unelaborated
00b0 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
00b2 481d |H | Short_Literal 0x1d
00b3 4802 |H | Short_Literal 0x2
00b4 0099 | | Action Reference_Dynamic
00b5 00c7 | | Action Elaborate_Subprogram
00b6 029f 057b | {| Declare_Subprogram INIT_0578,For_Call
00b8 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call
00ba BODY_0018:
00ba e5fe | | Load 0x2,-0x2
00bb 7004 |p | Jump_Nonzero 0xc0
00bc 4800 |H | Short_Literal 0x0
00bd 4810 |H | Short_Literal 0x10
00be e012 | | Load 0x0,0x12
00bf 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00c0 e403 | | Load 0x2,0x3
00c1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00c2 4864 |Hd | Short_Literal 0x64
00c3 e403 | | Load 0x2,0x3
00c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c5 c404 | | Store 0x2,0x4
00c6 e405 | | Load 0x2,0x5
00c7 00ea | | Load_Encached Null_String_Cache
00c8 e5ff | | Load 0x2,-0x1
00c9 4800 |H | Short_Literal 0x0
00ca e004 | | Load 0x0,0x4
00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00cc c405 | | Store 0x2,0x5
00cd 00cf | | Action Mark_Auxiliary
00ce 7804 |x | Jump 0xd3
00cf e405 | | Load 0x2,0x5
00d0 8420 | | Call 0x2,0x20
00d1 841f | | Call 0x2,0x1f
00d2 00c9 | | Action Pop_Auxiliary_Loop
00d3 e405 | | Load 0x2,0x5
00d4 e004 | | Load 0x0,0x4
00d5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00d6 6ff8 |o | Jump_Zero 0xcf
00d7 00ce | | Action Pop_Auxiliary
00d8 e405 | | Load 0x2,0x5
00d9 e004 | | Load 0x0,0x4
00da 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00db c405 | | Store 0x2,0x5
00dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00dd TRAP_0018:
00dd 00d8 | | Load_Top At_Offset_0
00de 0107 | | Execute Exception,Get_Name
00df 4920 |I | Short_Literal 0x120
00e0 492f |I/ | Short_Literal 0x12f
00e1 0262 | b | Execute Discrete,In_Range
00e2 6807 |h | Jump_Zero 0xea
00e3 e5ff | | Load 0x2,-0x1
00e4 0092 0801 | | Action Push_String_Extended,0x801 ; " does not exist"
00e6 01cc | | Execute Vector,Catenate
00e7 e004 | | Load 0x0,0x4
00e8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ea 00d8 | | Load_Top At_Offset_0
00eb 0107 | | Execute Exception,Get_Name
00ec 4950 |IP | Short_Literal 0x150
00ed 495f |I_ | Short_Literal 0x15f
00ee 0262 | b | Execute Discrete,In_Range
00ef 6801 |h | Jump_Zero 0xf1
00f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f1 0100 | | Execute Exception,Raise
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4607 |F | Jump_Case 0x8
00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00fd 7806 |x | Jump 0x104 ; case 0x1
00fe 7809 |x | Jump 0x108 ; case 0x2
00ff 780d |x | Jump 0x10d ; case 0x3
0100 7810 |x | Jump 0x111 ; case 0x4
0101 7811 |x | Jump 0x113 ; case 0x5
0102 7812 |x | Jump 0x115 ; case 0x6
0103 7815 |x | Jump 0x119 ; case 0x7
0104 00da | | Load_Top At_Offset_2
0105 0091 07cb | | Action Push_String_Extended_Indexed,0x7cb ; "NIL"
0107 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0108 00db | | Load_Top At_Offset_3
0109 00db | | Load_Top At_Offset_3
010a 00e0 | | Load_Encached Standard_Cache
010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010d 00da | | Load_Top At_Offset_2
010e 00e0 | | Load_Encached Standard_Cache
010f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0111 00db | | Load_Top At_Offset_3
0112 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0113 00db | | Load_Top At_Offset_3
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0115 e408 | | Load 0x2,0x8
0116 00dc | | Load_Top At_Offset_4
0117 0267 | g | Execute Discrete,Predecessor
0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0119 e408 | | Load 0x2,0x8
011a 00dc | | Load_Top At_Offset_4
011b 0268 | h | Execute Discrete,Successor
011c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4607 |F | Jump_Case 0x8
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7806 |x | Jump 0x12c ; case 0x1
0126 7809 |x | Jump 0x130 ; case 0x2
0127 780d |x | Jump 0x135 ; case 0x3
0128 7810 |x | Jump 0x139 ; case 0x4
0129 7811 |x | Jump 0x13b ; case 0x5
012a 7812 |x | Jump 0x13d ; case 0x6
012b 7815 |x | Jump 0x141 ; case 0x7
012c 00da | | Load_Top At_Offset_2
012d 0091 07e0 | | Action Push_String_Extended_Indexed,0x7e0 ; "NIL"
012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0130 00db | | Load_Top At_Offset_3
0131 00db | | Load_Top At_Offset_3
0132 00e0 | | Load_Encached Standard_Cache
0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0135 00da | | Load_Top At_Offset_2
0136 00e0 | | Load_Encached Standard_Cache
0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0139 00db | | Load_Top At_Offset_3
013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013b 00db | | Load_Top At_Offset_3
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d e40a | | Load 0x2,0xa
013e 00dc | | Load_Top At_Offset_4
013f 0267 | g | Execute Discrete,Predecessor
0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0141 e40a | | Load 0x2,0xa
0142 00dc | | Load_Top At_Offset_4
0143 0268 | h | Execute Discrete,Successor
0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 4607 |F | Jump_Case 0x8
014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
014d 7806 |x | Jump 0x154 ; case 0x1
014e 7809 |x | Jump 0x158 ; case 0x2
014f 780d |x | Jump 0x15d ; case 0x3
0150 7810 |x | Jump 0x161 ; case 0x4
0151 7811 |x | Jump 0x163 ; case 0x5
0152 7812 |x | Jump 0x165 ; case 0x6
0153 7815 |x | Jump 0x169 ; case 0x7
0154 00da | | Load_Top At_Offset_2
0155 0091 07f1 | | Action Push_String_Extended_Indexed,0x7f1 ; "NIL"
0157 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0158 00db | | Load_Top At_Offset_3
0159 00db | | Load_Top At_Offset_3
015a 00e0 | | Load_Encached Standard_Cache
015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015d 00da | | Load_Top At_Offset_2
015e 00e0 | | Load_Encached Standard_Cache
015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0161 00db | | Load_Top At_Offset_3
0162 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0163 00db | | Load_Top At_Offset_3
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0165 e40b | | Load 0x2,0xb
0166 00dc | | Load_Top At_Offset_4
0167 0267 | g | Execute Discrete,Predecessor
0168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0169 e40b | | Load 0x2,0xb
016a 00dc | | Load_Top At_Offset_4
016b 0268 | h | Execute Discrete,Successor
016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4607 |F | Jump_Case 0x8
0174 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0175 7806 |x | Jump 0x17c ; case 0x1
0176 7809 |x | Jump 0x180 ; case 0x2
0177 780d |x | Jump 0x185 ; case 0x3
0178 7810 |x | Jump 0x189 ; case 0x4
0179 7811 |x | Jump 0x18b ; case 0x5
017a 7812 |x | Jump 0x18d ; case 0x6
017b 7815 |x | Jump 0x191 ; case 0x7
017c 00da | | Load_Top At_Offset_2
017d 0091 07f5 | | Action Push_String_Extended_Indexed,0x7f5 ; "NIL"
017f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0180 00db | | Load_Top At_Offset_3
0181 00db | | Load_Top At_Offset_3
0182 00e0 | | Load_Encached Standard_Cache
0183 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0185 00da | | Load_Top At_Offset_2
0186 00e0 | | Load_Encached Standard_Cache
0187 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0188 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0189 00db | | Load_Top At_Offset_3
018a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018b 00db | | Load_Top At_Offset_3
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018d e40c | | Load 0x2,0xc
018e 00dc | | Load_Top At_Offset_4
018f 0267 | g | Execute Discrete,Predecessor
0190 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0191 e40c | | Load 0x2,0xc
0192 00dc | | Load_Top At_Offset_4
0193 0268 | h | Execute Discrete,Successor
0194 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4607 |F | Jump_Case 0x8
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
019d 7806 |x | Jump 0x1a4 ; case 0x1
019e 7809 |x | Jump 0x1a8 ; case 0x2
019f 780d |x | Jump 0x1ad ; case 0x3
01a0 7810 |x | Jump 0x1b1 ; case 0x4
01a1 7811 |x | Jump 0x1b3 ; case 0x5
01a2 7812 |x | Jump 0x1b5 ; case 0x6
01a3 7815 |x | Jump 0x1b9 ; case 0x7
01a4 00da | | Load_Top At_Offset_2
01a5 0091 07fa | | Action Push_String_Extended_Indexed,0x7fa ; "NIL"
01a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a8 00db | | Load_Top At_Offset_3
01a9 00db | | Load_Top At_Offset_3
01aa 00e0 | | Load_Encached Standard_Cache
01ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ad 00da | | Load_Top At_Offset_2
01ae 00e0 | | Load_Encached Standard_Cache
01af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01b1 00db | | Load_Top At_Offset_3
01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b3 00db | | Load_Top At_Offset_3
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b5 e40d | | Load 0x2,0xd
01b6 00dc | | Load_Top At_Offset_4
01b7 0267 | g | Execute Discrete,Predecessor
01b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b9 e40d | | Load 0x2,0xd
01ba 00dc | | Load_Top At_Offset_4
01bb 0268 | h | Execute Discrete,Successor
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01d5 | | .CONST 0x01d5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 0092 0802 | | Action Push_String_Extended,0x802 ; " (Line => "
01c6 01cc | | Execute Vector,Catenate
01c7 e7fe | | Load 0x3,-0x2
01c8 00e0 | | Load_Encached Standard_Cache
01c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ca 01cc | | Execute Vector,Catenate
01cb 0092 0803 | | Action Push_String_Extended,0x803 ; ", To_Be => "
01cd 01cc | | Execute Vector,Catenate
01ce e7fd | | Load 0x3,-0x3
01cf 01cc | | Execute Vector,Catenate
01d0 0092 0804 | | Action Push_String_Extended,0x804 ; ");"
01d2 01cc | | Execute Vector,Catenate
01d3 e013 | | Load 0x0,0x13
01d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01d5 BODY_01c0:
01d5 00d8 | | Load_Top At_Offset_0
01d6 e004 | | Load 0x0,0x4
01d7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 0092 0805 | | Action Push_String_Extended,0x805 ; "Illegal value: The "
01e5 00db | | Load_Top At_Offset_3
01e6 e013 | | Load 0x0,0x13
01e7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01e8 01cc | | Execute Vector,Catenate
01e9 0092 0806 | | Action Push_String_Extended,0x806 ; " could not be set for port "
01eb 01cc | | Execute Vector,Catenate
01ec e7fd | | Load 0x3,-0x3
01ed 00e0 | | Load_Encached Standard_Cache
01ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ef 01cc | | Execute Vector,Catenate
01f0 e004 | | Load 0x0,0x4
01f1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f2 0092 0807 | | Action Push_String_Extended,0x807 ; " because \x22"
01f4 e7fe | | Load 0x3,-0x2
01f5 01cc | | Execute Vector,Catenate
01f6 0092 0808 | | Action Push_String_Extended,0x808 ; "\x22 is not a valid setting."
01f8 01cc | | Execute Vector,Catenate
01f9 e004 | | Load 0x0,0x4
01fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0208 | | .CONST 0x0208 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 00ea | | Load_Encached Null_String_Cache
0204 4803 |H | Short_Literal 0x3
0205 e7ff | | Load 0x3,-0x1
0206 e409 | | Load 0x2,0x9
0207 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0208 BODY_0200:
0208 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22"
020a 00d9 | | Load_Top At_Offset_1
020b 01cc | | Execute Vector,Catenate
020c 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22"
020e 01cc | | Execute Vector,Catenate
020f e7fe | | Load 0x3,-0x2
0210 0092 080a | | Action Push_String_Extended,0x80a ; "Terminal.Set_Terminal_Type"
0212 8412 | | Call 0x2,0x12
0213 e5fe | | Load 0x2,-0x2
0214 7004 |p | Jump_Nonzero 0x219
0215 00d8 | | Load_Top At_Offset_0
0216 e7fe | | Load 0x3,-0x2
0217 e012 | | Load 0x0,0x12
0218 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0219 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022f | / | .CONST 0x022f ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0003 | | .CONST 0x0003 ; Number of locals
0223 INIT_0220:
0223 4800 |H | Short_Literal 0x0
0224 4801 |H | Short_Literal 0x1
0225 4800 |H | Short_Literal 0x0
0226 e7ff | | Load 0x3,-0x1
0227 e40e | | Load 0x2,0xe
0228 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0229 e40a | | Load 0x2,0xa
022a 03f1 | | Declare_Variable Discrete,With_Value
022b e7fd | | Load 0x3,-0x3
022c e408 | | Load 0x2,0x8
022d 011c | | Execute Any,Convert_Unchecked
022e 1c01 | | Execute_Immediate Run_Utility,0x1
022f BODY_0220:
022f 00d9 | | Load_Top At_Offset_1
0230 6829 |h) | Jump_Zero 0x25a
0231 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22"
0233 00da | | Load_Top At_Offset_2
0234 e40a | | Load 0x2,0xa
0235 011c | | Execute Any,Convert_Unchecked
0236 1c01 | | Execute_Immediate Run_Utility,0x1
0237 01cc | | Execute Vector,Catenate
0238 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22"
023a 01cc | | Execute Vector,Catenate
023b e7fe | | Load 0x3,-0x2
023c 0092 080b | | Action Push_String_Extended,0x80b ; "Terminal.Set_"
023e 00db | | Load_Top At_Offset_3
023f 01cc | | Execute Vector,Catenate
0240 8412 | | Call 0x2,0x12
0241 e5fe | | Load 0x2,-0x2
0242 7016 |p | Jump_Nonzero 0x259
0243 e7fd | | Load 0x3,-0x3
0244 0b04 | | Execute_Immediate Case_Compare,0x4
0245 700b |p | Jump_Nonzero 0x251
0246 0f05 | | Execute_Immediate Equal,0x5
0247 7001 |p | Jump_Nonzero 0x249
0248 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0249 00d9 | | Load_Top At_Offset_1
024a e40a | | Load 0x2,0xa
024b 011c | | Execute Any,Convert_Unchecked
024c 1c01 | | Execute_Immediate Run_Utility,0x1
024d e7fe | | Load 0x3,-0x2
024e e012 | | Load 0x0,0x12
024f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0250 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0251 00d1 | | Pop_Control Pop_Count_1
0252 00d9 | | Load_Top At_Offset_1
0253 e40a | | Load 0x2,0xa
0254 011c | | Execute Any,Convert_Unchecked
0255 1c01 | | Execute_Immediate Run_Utility,0x1
0256 e7fe | | Load 0x3,-0x2
0257 e012 | | Load 0x0,0x12
0258 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0259 4504 |E | Exit_Suprogram New_Top_Offset 0x4
025a e7fe | | Load 0x3,-0x2
025b 00ea | | Load_Encached Null_String_Cache
025c 4800 |H | Short_Literal 0x0
025d e7ff | | Load 0x3,-0x1
025e e409 | | Load 0x2,0x9
025f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0260 00da | | Load_Top At_Offset_2
0261 8413 | | Call 0x2,0x13
0262 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0275 | u | .CONST 0x0275 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b 4800 |H | Short_Literal 0x0
026c 4801 |H | Short_Literal 0x1
026d 4800 |H | Short_Literal 0x0
026e e7ff | | Load 0x3,-0x1
026f e40f | | Load 0x2,0xf
0270 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0271 e40b | | Load 0x2,0xb
0272 03f1 | | Declare_Variable Discrete,With_Value
0273 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call
0275 BODY_0268:
0275 00d9 | | Load_Top At_Offset_1
0276 6802 |h | Jump_Zero 0x279
0277 8603 | | Call 0x3,0x3
0278 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0279 e7fe | | Load 0x3,-0x2
027a 00ea | | Load_Encached Null_String_Cache
027b 4800 |H | Short_Literal 0x0
027c e7ff | | Load 0x3,-0x1
027d e409 | | Load 0x2,0x9
027e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
027f 0092 080c | | Action Push_String_Extended,0x80c ; "Parity"
0281 8413 | | Call 0x2,0x13
0282 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0283 0000 0000 | | .BLANK 0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 02a7 | | .CONST 0x02a7 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b e012 | | Load 0x0,0x12
028c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028d BODY_0288:
028d 6026 |`& | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x7fffffff}
028e 4800 |H | Short_Literal 0x0
028f e7ff | | Load 0x3,-0x1
0290 e409 | | Load 0x2,0x9
0291 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0292 00d8 | | Load_Top At_Offset_0
0293 e014 | | Load 0x0,0x14
0294 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0295 0260 | ` | Execute Discrete,In_Type
0296 7001 |p | Jump_Nonzero 0x298
0297 0801 | | Execute_Immediate Raise,0x1
0298 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0299 00d8 | | Load_Top At_Offset_0
029a 00e0 | | Load_Encached Standard_Cache
029b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029c e7fe | | Load 0x3,-0x2
029d 0092 080d | | Action Push_String_Extended,0x80d ; "Terminal.Set_Stop_Bits"
029f 8412 | | Call 0x2,0x12
02a0 e5fe | | Load 0x2,-0x2
02a1 7004 |p | Jump_Nonzero 0x2a6
02a2 00d8 | | Load_Top At_Offset_0
02a3 e7fe | | Load 0x3,-0x2
02a4 e012 | | Load 0x0,0x12
02a5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a7 TRAP_0288:
02a7 0007 | | Action Break_Optional
02a8 e7fe | | Load 0x3,-0x2
02a9 00ea | | Load_Encached Null_String_Cache
02aa 4800 |H | Short_Literal 0x0
02ab e7ff | | Load 0x3,-0x1
02ac e409 | | Load 0x2,0x9
02ad 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02ae 0092 080e | | Action Push_String_Extended,0x80e ; "Stop_Bits"
02b0 8413 | | Call 0x2,0x13
02b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b2 0000 0000 | | .XXX[0x2]
02b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c4 | | .CONST 0x02c4 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0003 | | .CONST 0x0003 ; Number of locals
02bb INIT_02b8:
02bb 4800 |H | Short_Literal 0x0
02bc 4801 |H | Short_Literal 0x1
02bd 4800 |H | Short_Literal 0x0
02be e7ff | | Load 0x3,-0x1
02bf e410 | | Load 0x2,0x10
02c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c1 e40c | | Load 0x2,0xc
02c2 03f1 | | Declare_Variable Discrete,With_Value
02c3 00e3 | | Load_Encached Natural_Cache
02c4 BODY_02b8:
02c4 00d9 | | Load_Top At_Offset_1
02c5 6817 |h | Jump_Zero 0x2dd
02c6 00d9 | | Load_Top At_Offset_1
02c7 0a04 | | Execute_Immediate Plus,0x4
02c8 0059 | Y | Store_Top Discrete,At_Offset_1
02c9 00d8 | | Load_Top At_Offset_0
02ca 00e0 | | Load_Encached Standard_Cache
02cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02cc e7fe | | Load 0x3,-0x2
02cd 0092 080f | | Action Push_String_Extended,0x80f ; "Terminal.Set_Character_Size"
02cf 8412 | | Call 0x2,0x12
02d0 e5fe | | Load 0x2,-0x2
02d1 700a |p | Jump_Nonzero 0x2dc
02d2 00d8 | | Load_Top At_Offset_0
02d3 00d8 | | Load_Top At_Offset_0
02d4 e014 | | Load 0x0,0x14
02d5 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
02d6 0260 | ` | Execute Discrete,In_Type
02d7 7001 |p | Jump_Nonzero 0x2d9
02d8 0801 | | Execute_Immediate Raise,0x1
02d9 e7fe | | Load 0x3,-0x2
02da e012 | | Load 0x0,0x12
02db 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02dd e7fe | | Load 0x3,-0x2
02de 00ea | | Load_Encached Null_String_Cache
02df 4800 |H | Short_Literal 0x0
02e0 e7ff | | Load 0x3,-0x1
02e1 e409 | | Load 0x2,0x9
02e2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02e3 0092 0810 | | Action Push_String_Extended,0x810 ; "Bits_Per_Char"
02e5 8413 | | Call 0x2,0x13
02e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f7 | | .CONST 0x02f7 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb 4800 |H | Short_Literal 0x0
02ec 4801 |H | Short_Literal 0x1
02ed 4800 |H | Short_Literal 0x0
02ee e7ff | | Load 0x3,-0x1
02ef e411 | | Load 0x2,0x11
02f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f1 e40d | | Load 0x2,0xd
02f2 03f1 | | Declare_Variable Discrete,With_Value
02f3 e7fd | | Load 0x3,-0x3
02f4 e408 | | Load 0x2,0x8
02f5 011c | | Execute Any,Convert_Unchecked
02f6 1c01 | | Execute_Immediate Run_Utility,0x1
02f7 BODY_02e8:
02f7 00d9 | | Load_Top At_Offset_1
02f8 6839 |h9 | Jump_Zero 0x332
02f9 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22"
02fb 00da | | Load_Top At_Offset_2
02fc e40d | | Load 0x2,0xd
02fd 011c | | Execute Any,Convert_Unchecked
02fe 1c01 | | Execute_Immediate Run_Utility,0x1
02ff 01cc | | Execute Vector,Catenate
0300 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22"
0302 01cc | | Execute Vector,Catenate
0303 e7fe | | Load 0x3,-0x2
0304 0092 080b | | Action Push_String_Extended,0x80b ; "Terminal.Set_"
0306 00db | | Load_Top At_Offset_3
0307 01cc | | Execute Vector,Catenate
0308 8412 | | Call 0x2,0x12
0309 e5fe | | Load 0x2,-0x2
030a 7026 |p& | Jump_Nonzero 0x331
030b e7fd | | Load 0x3,-0x3
030c 4614 |F | Jump_Case 0x15
030d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
030e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1
030f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2
0310 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3
0311 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4
0312 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5
0313 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6
0314 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7
0315 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8
0316 780b |x | Jump 0x322 ; case 0x9
0317 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa
0318 7811 |x | Jump 0x32a ; case 0xb
0319 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xc
031a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xd
031b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xe
031c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xf
031d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x10
031e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x11
031f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x12
0320 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x13
0321 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x14
0322 00d9 | | Load_Top At_Offset_1
0323 e40d | | Load 0x2,0xd
0324 011c | | Execute Any,Convert_Unchecked
0325 1c01 | | Execute_Immediate Run_Utility,0x1
0326 e7fe | | Load 0x3,-0x2
0327 e012 | | Load 0x0,0x12
0328 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0329 4504 |E | Exit_Suprogram New_Top_Offset 0x4
032a 00d9 | | Load_Top At_Offset_1
032b e40d | | Load 0x2,0xd
032c 011c | | Execute Any,Convert_Unchecked
032d 1c01 | | Execute_Immediate Run_Utility,0x1
032e e7fe | | Load 0x3,-0x2
032f e012 | | Load 0x0,0x12
0330 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0331 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0332 e7fe | | Load 0x3,-0x2
0333 00ea | | Load_Encached Null_String_Cache
0334 4800 |H | Short_Literal 0x0
0335 e7ff | | Load 0x3,-0x1
0336 e409 | | Load 0x2,0x9
0337 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0338 00da | | Load_Top At_Offset_2
0339 8413 | | Call 0x2,0x13
033a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
033b 0000 0000 | | .BLANK 0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0354 | T | .CONST 0x0354 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0005 | | .CONST 0x0005 ; Number of locals
0343 INIT_0340:
0343 00ea | | Load_Encached Null_String_Cache
0344 4800 |H | Short_Literal 0x0
0345 e7ff | | Load 0x3,-0x1
0346 e409 | | Load 0x2,0x9
0347 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0348 4801 |H | Short_Literal 0x1
0349 4802 |H | Short_Literal 0x2
034a e015 | | Load 0x0,0x15
034b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
034c 035b | [ | Declare_Type Array,Constrained
034d 0337 | 7 | Declare_Variable Array
034e e7fd | | Load 0x3,-0x3
034f e408 | | Load 0x2,0x8
0350 011c | | Execute Any,Convert_Unchecked
0351 1c01 | | Execute_Immediate Run_Utility,0x1
0352 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call
0354 BODY_0340:
0354 8605 | | Call 0x3,0x5
0355 4801 |H | Short_Literal 0x1
0356 00db | | Load_Top At_Offset_3
0357 01d7 | | Execute Vector,Field_Read
0358 00e0 | | Load_Encached Standard_Cache
0359 1818 | | Execute Package,Field_Execute,Field_Number 0x18
035a 0092 0811 | | Action Push_String_Extended,0x811 ; ","
035c 01cc | | Execute Vector,Catenate
035d 4802 |H | Short_Literal 0x2
035e e603 | | Load 0x3,0x3
035f 01d7 | | Execute Vector,Field_Read
0360 00e0 | | Load_Encached Standard_Cache
0361 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0362 01cc | | Execute Vector,Catenate
0363 e7fe | | Load 0x3,-0x2
0364 0092 080b | | Action Push_String_Extended,0x80b ; "Terminal.Set_"
0366 e604 | | Load 0x3,0x4
0367 01cc | | Execute Vector,Catenate
0368 8412 | | Call 0x2,0x12
0369 e5fe | | Load 0x2,-0x2
036a 7020 |p | Jump_Nonzero 0x38b
036b e7fd | | Load 0x3,-0x3
036c 4614 |F | Jump_Case 0x15
036d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
036e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1
036f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2
0370 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3
0371 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4
0372 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5
0373 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6
0374 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7
0375 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8
0376 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x9
0377 780a |x | Jump 0x382 ; case 0xa
0378 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb
0379 780d |x | Jump 0x387 ; case 0xc
037a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xd
037b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xe
037c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xf
037d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x10
037e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x11
037f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x12
0380 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x13
0381 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x14
0382 00da | | Load_Top At_Offset_2
0383 e7fe | | Load 0x3,-0x2
0384 e012 | | Load 0x0,0x12
0385 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0386 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0387 00da | | Load_Top At_Offset_2
0388 e7fe | | Load 0x3,-0x2
0389 e012 | | Load 0x0,0x12
038a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
038b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
038c 0000 0000 | | .BLANK 0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03b3 | | .CONST 0x03b3 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0004 | | .CONST 0x0004 ; Number of locals
0393 INIT_0390:
0393 4800 |H | Short_Literal 0x0
0394 4800 |H | Short_Literal 0x0
0395 e7ff | | Load 0x3,-0x1
0396 e409 | | Load 0x2,0x9
0397 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0398 00e1 | | Load_Encached Boolean_Cache
0399 03f1 | | Declare_Variable Discrete,With_Value
039a 0092 0812 | | Action Push_String_Extended,0x812 ; "Terminal.SET_"
039c e7fe | | Load 0x3,-0x2
039d e408 | | Load 0x2,0x8
039e 011c | | Execute Any,Convert_Unchecked
039f 1c01 | | Execute_Immediate Run_Utility,0x1
03a0 01cc | | Execute Vector,Catenate
03a1 e013 | | Load 0x0,0x13
03a2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03a3 0092 0802 | | Action Push_String_Extended,0x802 ; " (Line => "
03a5 01cc | | Execute Vector,Catenate
03a6 e7fd | | Load 0x3,-0x3
03a7 00e0 | | Load_Encached Standard_Cache
03a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03a9 01cc | | Execute Vector,Catenate
03aa 0007 | | Action Break_Optional
03ab 00d9 | | Load_Top At_Offset_1
03ac 00e1 | | Load_Encached Boolean_Cache
03ad 011c | | Execute Any,Convert_Unchecked
03ae 1c01 | | Execute_Immediate Run_Utility,0x1
03af 0092 0804 | | Action Push_String_Extended,0x804 ; ");"
03b1 01cc | | Execute Vector,Catenate
03b2 0007 | | Action Break_Optional
03b3 BODY_0390:
03b3 e7fe | | Load 0x3,-0x2
03b4 0f12 | | Execute_Immediate Equal,0x12
03b5 6809 |h | Jump_Zero 0x3bf
03b6 00d9 | | Load_Top At_Offset_1
03b7 0092 0813 | | Action Push_String_Extended,0x813 ; ", Disabled => "
03b9 01cc | | Execute Vector,Catenate
03ba 00d9 | | Load_Top At_Offset_1
03bb 01cc | | Execute Vector,Catenate
03bc e004 | | Load 0x0,0x4
03bd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03be 7808 |x | Jump 0x3c7
03bf 00d9 | | Load_Top At_Offset_1
03c0 0092 0814 | | Action Push_String_Extended,0x814 ; ", Enabled => "
03c2 01cc | | Execute Vector,Catenate
03c3 00d9 | | Load_Top At_Offset_1
03c4 01cc | | Execute Vector,Catenate
03c5 e004 | | Load 0x0,0x4
03c6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03c7 e5fe | | Load 0x2,-0x2
03c8 7039 |p9 | Jump_Nonzero 0x402
03c9 e7fe | | Load 0x3,-0x2
03ca 4614 |F | Jump_Case 0x15
03cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
03cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1
03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2
03ce 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3
03cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4
03d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5
03d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6
03d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7
03d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8
03d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x9
03d5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa
03d6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb
03d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xc
03d8 7825 |x% | Jump 0x3fe ; case 0xd
03d9 7806 |x | Jump 0x3e0 ; case 0xe
03da 780a |x | Jump 0x3e5 ; case 0xf
03db 780e |x | Jump 0x3ea ; case 0x10
03dc 7812 |x | Jump 0x3ef ; case 0x11
03dd 7816 |x | Jump 0x3f4 ; case 0x12
03de 781a |x | Jump 0x3f9 ; case 0x13
03df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x14
03e0 00da | | Load_Top At_Offset_2
03e1 e7fd | | Load 0x3,-0x3
03e2 e012 | | Load 0x0,0x12
03e3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03e5 00da | | Load_Top At_Offset_2
03e6 e7fd | | Load 0x3,-0x3
03e7 e012 | | Load 0x0,0x12
03e8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03e9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ea 00da | | Load_Top At_Offset_2
03eb e7fd | | Load 0x3,-0x3
03ec e012 | | Load 0x0,0x12
03ed 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03ee 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ef 00da | | Load_Top At_Offset_2
03f0 e7fd | | Load 0x3,-0x3
03f1 e012 | | Load 0x0,0x12
03f2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03f3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f4 00da | | Load_Top At_Offset_2
03f5 e7fd | | Load 0x3,-0x3
03f6 e012 | | Load 0x0,0x12
03f7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03f8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f9 00da | | Load_Top At_Offset_2
03fa e7fd | | Load 0x3,-0x3
03fb e012 | | Load 0x0,0x12
03fc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03fe 00da | | Load_Top At_Offset_2
03ff e7fd | | Load 0x3,-0x3
0400 e012 | | Load 0x0,0x12
0401 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0402 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0403 0000 0000 | | .BLANK 0000[0x5]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 043f | ? | .CONST 0x043f ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0007 | | .CONST 0x0007 ; Number of locals
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c 01dd | | Execute Vector,First
040d 00e3 | | Load_Encached Natural_Cache
040e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
040f 4801 |H | Short_Literal 0x1
0410 e7ff | | Load 0x3,-0x1
0411 0092 0815 | | Action Push_String_Extended,0x815 ; "="
0413 e013 | | Load 0x0,0x13
0414 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0415 00e3 | | Load_Encached Natural_Cache
0416 03f1 | | Declare_Variable Discrete,With_Value
0417 e7ff | | Load 0x3,-0x1
0418 01dc | | Execute Vector,Last
0419 00e3 | | Load_Encached Natural_Cache
041a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
041b 4801 |H | Short_Literal 0x1
041c 00da | | Load_Top At_Offset_2
041d 0a01 | | Execute_Immediate Plus,0x1
041e 00d8 | | Load_Top At_Offset_0
041f 00e2 | | Load_Encached Integer_Cache
0420 0260 | ` | Execute Discrete,In_Type
0421 7001 |p | Jump_Nonzero 0x423
0422 0801 | | Execute_Immediate Raise,0x1
0423 00da | | Load_Top At_Offset_2
0424 e7ff | | Load 0x3,-0x1
0425 01cf | | Execute Vector,Slice_Read
0426 0092 0816 | | Action Push_String_Extended,0x816 ; "("
0428 e013 | | Load 0x0,0x13
0429 181d | | Execute Package,Field_Execute,Field_Number 0x1d
042a 00e3 | | Load_Encached Natural_Cache
042b 03f1 | | Declare_Variable Discrete,With_Value
042c 4801 |H | Short_Literal 0x1
042d 00db | | Load_Top At_Offset_3
042e 0a01 | | Execute_Immediate Plus,0x1
042f 00d8 | | Load_Top At_Offset_0
0430 00e2 | | Load_Encached Integer_Cache
0431 0260 | ` | Execute Discrete,In_Type
0432 7001 |p | Jump_Nonzero 0x434
0433 0801 | | Execute_Immediate Raise,0x1
0434 00db | | Load_Top At_Offset_3
0435 e7ff | | Load 0x3,-0x1
0436 01cf | | Execute Vector,Slice_Read
0437 0092 0817 | | Action Push_String_Extended,0x817 ; ")"
0439 e013 | | Load 0x0,0x13
043a 181f | | Execute Package,Field_Execute,Field_Number 0x1f
043b 00e3 | | Load_Encached Natural_Cache
043c 03f1 | | Declare_Variable Discrete,With_Value
043d 029f 0693 | | Declare_Subprogram INIT_0690,For_Call
043f BODY_0408:
043f e603 | | Load 0x3,0x3
0440 0c01 | | Execute_Immediate Greater_Equal,0x1
0441 6808 |h | Jump_Zero 0x44a
0442 00da | | Load_Top At_Offset_2
0443 0c01 | | Execute_Immediate Greater_Equal,0x1
0444 00da | | Load_Top At_Offset_2
0445 e605 | | Load 0x3,0x5
0446 027d | } | Execute Discrete,Greater
0447 0279 | y | Execute Discrete,And
0448 6801 |h | Jump_Zero 0x44a
0449 8607 | | Call 0x3,0x7
044a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
044b 0000 0000 | | .BLANK 0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455 | U | .CONST 0x0455 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0002 | | .CONST 0x0002 ; Number of locals
0453 INIT_0450:
0453 e409 | | Load 0x2,0x9
0454 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0455 BODY_0450:
0455 e7fe | | Load 0x3,-0x2
0456 01db | | Execute Vector,Length
0457 6843 |hC | Jump_Zero 0x49b
0458 e7fe | | Load 0x3,-0x2
0459 e409 | | Load 0x2,0x9
045a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
045b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
045c 00d8 | | Load_Top At_Offset_0
045d e409 | | Load 0x2,0x9
045e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
045f 682c |h, | Jump_Zero 0x48c
0460 00cf | | Action Mark_Auxiliary
0461 7824 |x$ | Jump 0x486
0462 4800 |H | Short_Literal 0x0
0463 00da | | Load_Top At_Offset_2
0464 e409 | | Load 0x2,0x9
0465 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0466 680a |h | Jump_Zero 0x471
0467 4800 |H | Short_Literal 0x0
0468 00da | | Load_Top At_Offset_2
0469 e409 | | Load 0x2,0x9
046a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
046b 6815 |h | Jump_Zero 0x481
046c e7ff | | Load 0x3,-0x1
046d e7fe | | Load 0x3,-0x2
046e 00db | | Load_Top At_Offset_3
046f 841e | | Call 0x2,0x1e
0470 7810 |x | Jump 0x481
0471 480a |H | Short_Literal 0xa
0472 0092 0818 | | Action Push_String_Extended,0x818 ; "Illegal item in line: "
0474 e7fe | | Load 0x3,-0x2
0475 01cc | | Execute Vector,Catenate
0476 01cb | | Execute Vector,Append
0477 0092 0819 | | Action Push_String_Extended,0x819 ; " "
0479 01cc | | Execute Vector,Catenate
047a 4800 |H | Short_Literal 0x0
047b 00db | | Load_Top At_Offset_3
047c e409 | | Load 0x2,0x9
047d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
047e 01cc | | Execute Vector,Catenate
047f e004 | | Load 0x0,0x4
0480 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0481 00d9 | | Load_Top At_Offset_1
0482 e409 | | Load 0x2,0x9
0483 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0484 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0485 00c9 | | Action Pop_Auxiliary_Loop
0486 00d9 | | Load_Top At_Offset_1
0487 e409 | | Load 0x2,0x9
0488 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0489 6fd8 |o | Jump_Zero 0x462
048a 00ce | | Action Pop_Auxiliary
048b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
048c 0092 081a | | Action Push_String_Extended,0x81a ; "Illegal format: "
048e e7fe | | Load 0x3,-0x2
048f 01cc | | Execute Vector,Catenate
0490 e004 | | Load 0x0,0x4
0491 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0492 0092 0819 | | Action Push_String_Extended,0x819 ; " "
0494 4800 |H | Short_Literal 0x0
0495 00da | | Load_Top At_Offset_2
0496 e409 | | Load 0x2,0x9
0497 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0498 01cc | | Execute Vector,Catenate
0499 e004 | | Load 0x0,0x4
049a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
049b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
049c 0000 0000 | | .BLANK 0000[0x4]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a6 | | .CONST 0x04a6 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0003 | | .CONST 0x0003 ; Number of locals
04a3 INIT_04a0:
04a3 e408 | | Load 0x2,0x8
04a4 029f 06fb | | Declare_Subprogram INIT_06f8,For_Call
04a6 BODY_04a0:
04a6 e7ff | | Load 0x3,-0x1
04a7 e409 | | Load 0x2,0x9
04a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
04a9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
04aa 00d9 | | Load_Top At_Offset_1
04ab 4614 |F | Jump_Case 0x15
04ac 7816 |x | Jump 0x4c3 ; case 0x0
04ad 7826 |x& | Jump 0x4d4 ; case 0x1
04ae 783f |x? | Jump 0x4ee ; case 0x2
04af 7858 |xX | Jump 0x508 ; case 0x3
04b0 7860 |x` | Jump 0x511 ; case 0x4
04b1 7869 |xi | Jump 0x51b ; case 0x5
04b2 7872 |xr | Jump 0x525 ; case 0x6
04b3 787a |xz | Jump 0x52e ; case 0x7
04b4 7882 |x | Jump 0x537 ; case 0x8
04b5 788a |x | Jump 0x540 ; case 0x9
04b6 7893 |x | Jump 0x54a ; case 0xa
04b7 789c |x | Jump 0x554 ; case 0xb
04b8 78a5 |x | Jump 0x55e ; case 0xc
04b9 78ae |x | Jump 0x568 ; case 0xd
04ba 78ad |x | Jump 0x568 ; case 0xe
04bb 78ac |x | Jump 0x568 ; case 0xf
04bc 78ab |x | Jump 0x568 ; case 0x10
04bd 78aa |x | Jump 0x568 ; case 0x11
04be 78a9 |x | Jump 0x568 ; case 0x12
04bf 78a8 |x | Jump 0x568 ; case 0x13
04c0 7800 |x | Jump 0x4c1 ; case 0x14
04c1 8603 | | Call 0x3,0x3
04c2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04c3 480a |H | Short_Literal 0xa
04c4 0092 081b | | Action Push_String_Extended,0x81b ; "Illegal value on line: "
04c6 e7fe | | Load 0x3,-0x2
04c7 01cc | | Execute Vector,Catenate
04c8 01cb | | Execute Vector,Append
04c9 0092 081c | | Action Push_String_Extended,0x81c ; " "
04cb 01cc | | Execute Vector,Catenate
04cc 4800 |H | Short_Literal 0x0
04cd e7ff | | Load 0x3,-0x1
04ce e409 | | Load 0x2,0x9
04cf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04d0 01cc | | Execute Vector,Catenate
04d1 e004 | | Load 0x0,0x4
04d2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04d4 0092 081d | | Action Push_String_Extended,0x81d ; "Operator.Enable_Terminal ("
04d6 e7fd | | Load 0x3,-0x3
04d7 00e0 | | Load_Encached Standard_Cache
04d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04d9 01cc | | Execute Vector,Catenate
04da 0092 0804 | | Action Push_String_Extended,0x804 ; ");"
04dc 01cc | | Execute Vector,Catenate
04dd e004 | | Load 0x0,0x4
04de 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04df e5fe | | Load 0x2,-0x2
04e0 700c |p | Jump_Nonzero 0x4ed
04e1 0092 081e | | Action Push_String_Extended,0x81e ; "<PROFILE>"
04e3 e7fd | | Load 0x3,-0x3
04e4 e012 | | Load 0x0,0x12
04e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e6 00d9 | | Load_Top At_Offset_1
04e7 00d0 | | Action Swap_Control
04e8 0260 | ` | Execute Discrete,In_Type
04e9 7001 |p | Jump_Nonzero 0x4eb
04ea 0801 | | Execute_Immediate Raise,0x1
04eb e016 | | Load 0x0,0x16
04ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04ee 0092 081f | | Action Push_String_Extended,0x81f ; "Operator.Disable_Terminal ("
04f0 e7fd | | Load 0x3,-0x3
04f1 00e0 | | Load_Encached Standard_Cache
04f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04f3 01cc | | Execute Vector,Catenate
04f4 0092 0804 | | Action Push_String_Extended,0x804 ; ");"
04f6 01cc | | Execute Vector,Catenate
04f7 e004 | | Load 0x0,0x4
04f8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04f9 e5fe | | Load 0x2,-0x2
04fa 700c |p | Jump_Nonzero 0x507
04fb 0092 081e | | Action Push_String_Extended,0x81e ; "<PROFILE>"
04fd e7fd | | Load 0x3,-0x3
04fe e012 | | Load 0x0,0x12
04ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0500 00d9 | | Load_Top At_Offset_1
0501 00d0 | | Action Swap_Control
0502 0260 | ` | Execute Discrete,In_Type
0503 7001 |p | Jump_Nonzero 0x505
0504 0801 | | Execute_Immediate Raise,0x1
0505 e016 | | Load 0x0,0x16
0506 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0507 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0508 e7fd | | Load 0x3,-0x3
0509 00d8 | | Load_Top At_Offset_0
050a e406 | | Load 0x2,0x6
050b 0260 | ` | Execute Discrete,In_Type
050c 7001 |p | Jump_Nonzero 0x50e
050d 0801 | | Execute_Immediate Raise,0x1
050e e7ff | | Load 0x3,-0x1
050f 8414 | | Call 0x2,0x14
0510 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0511 00d9 | | Load_Top At_Offset_1
0512 e7fd | | Load 0x3,-0x3
0513 00d8 | | Load_Top At_Offset_0
0514 e406 | | Load 0x2,0x6
0515 0260 | ` | Execute Discrete,In_Type
0516 7001 |p | Jump_Nonzero 0x518
0517 0801 | | Execute_Immediate Raise,0x1
0518 e7ff | | Load 0x3,-0x1
0519 8415 | | Call 0x2,0x15
051a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
051b 00d9 | | Load_Top At_Offset_1
051c e7fd | | Load 0x3,-0x3
051d 00d8 | | Load_Top At_Offset_0
051e e406 | | Load 0x2,0x6
051f 0260 | ` | Execute Discrete,In_Type
0520 7001 |p | Jump_Nonzero 0x522
0521 0801 | | Execute_Immediate Raise,0x1
0522 e7ff | | Load 0x3,-0x1
0523 8415 | | Call 0x2,0x15
0524 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0525 e7fd | | Load 0x3,-0x3
0526 00d8 | | Load_Top At_Offset_0
0527 e406 | | Load 0x2,0x6
0528 0260 | ` | Execute Discrete,In_Type
0529 7001 |p | Jump_Nonzero 0x52b
052a 0801 | | Execute_Immediate Raise,0x1
052b e7ff | | Load 0x3,-0x1
052c 8416 | | Call 0x2,0x16
052d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
052e e7fd | | Load 0x3,-0x3
052f 00d8 | | Load_Top At_Offset_0
0530 e406 | | Load 0x2,0x6
0531 0260 | ` | Execute Discrete,In_Type
0532 7001 |p | Jump_Nonzero 0x534
0533 0801 | | Execute_Immediate Raise,0x1
0534 e7ff | | Load 0x3,-0x1
0535 8418 | | Call 0x2,0x18
0536 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0537 e7fd | | Load 0x3,-0x3
0538 00d8 | | Load_Top At_Offset_0
0539 e406 | | Load 0x2,0x6
053a 0260 | ` | Execute Discrete,In_Type
053b 7001 |p | Jump_Nonzero 0x53d
053c 0801 | | Execute_Immediate Raise,0x1
053d e7ff | | Load 0x3,-0x1
053e 8417 | | Call 0x2,0x17
053f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0540 00d9 | | Load_Top At_Offset_1
0541 e7fd | | Load 0x3,-0x3
0542 00d8 | | Load_Top At_Offset_0
0543 e406 | | Load 0x2,0x6
0544 0260 | ` | Execute Discrete,In_Type
0545 7001 |p | Jump_Nonzero 0x547
0546 0801 | | Execute_Immediate Raise,0x1
0547 e7ff | | Load 0x3,-0x1
0548 8419 | | Call 0x2,0x19
0549 4504 |E | Exit_Suprogram New_Top_Offset 0x4
054a 00d9 | | Load_Top At_Offset_1
054b e7fd | | Load 0x3,-0x3
054c 00d8 | | Load_Top At_Offset_0
054d e406 | | Load 0x2,0x6
054e 0260 | ` | Execute Discrete,In_Type
054f 7001 |p | Jump_Nonzero 0x551
0550 0801 | | Execute_Immediate Raise,0x1
0551 e7ff | | Load 0x3,-0x1
0552 841a | | Call 0x2,0x1a
0553 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0554 00d9 | | Load_Top At_Offset_1
0555 e7fd | | Load 0x3,-0x3
0556 00d8 | | Load_Top At_Offset_0
0557 e406 | | Load 0x2,0x6
0558 0260 | ` | Execute Discrete,In_Type
0559 7001 |p | Jump_Nonzero 0x55b
055a 0801 | | Execute_Immediate Raise,0x1
055b e7ff | | Load 0x3,-0x1
055c 8419 | | Call 0x2,0x19
055d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
055e 00d9 | | Load_Top At_Offset_1
055f e7fd | | Load 0x3,-0x3
0560 00d8 | | Load_Top At_Offset_0
0561 e406 | | Load 0x2,0x6
0562 0260 | ` | Execute Discrete,In_Type
0563 7001 |p | Jump_Nonzero 0x565
0564 0801 | | Execute_Immediate Raise,0x1
0565 e7ff | | Load 0x3,-0x1
0566 841a | | Call 0x2,0x1a
0567 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0568 e7fd | | Load 0x3,-0x3
0569 00d8 | | Load_Top At_Offset_0
056a e406 | | Load 0x2,0x6
056b 0260 | ` | Execute Discrete,In_Type
056c 7001 |p | Jump_Nonzero 0x56e
056d 0801 | | Execute_Immediate Raise,0x1
056e 00da | | Load_Top At_Offset_2
056f e7ff | | Load 0x3,-0x1
0570 841b | | Call 0x2,0x1b
0571 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0572 0000 0000 | | .BLANK 0000[0x6]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057f | | .CONST 0x057f ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0003 | | .CONST 0x0003 ; Number of locals
057b INIT_0578:
057b e406 | | Load 0x2,0x6
057c 0007 | | Action Break_Optional
057d e407 | | Load 0x2,0x7
057e 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
057f BODY_0578:
057f e7ff | | Load 0x3,-0x1
0580 01db | | Execute Vector,Length
0581 6873 |hs | Jump_Zero 0x5f5
0582 e7ff | | Load 0x3,-0x1
0583 01db | | Execute Vector,Length
0584 0c02 | | Execute_Immediate Greater_Equal,0x2
0585 6811 |h | Jump_Zero 0x597
0586 e7ff | | Load 0x3,-0x1
0587 01dd | | Execute Vector,First
0588 e7ff | | Load 0x3,-0x1
0589 01dd | | Execute Vector,First
058a 0a01 | | Execute_Immediate Plus,0x1
058b 00d8 | | Load_Top At_Offset_0
058c 00e2 | | Load_Encached Integer_Cache
058d 0260 | ` | Execute Discrete,In_Type
058e 7001 |p | Jump_Nonzero 0x590
058f 0801 | | Execute_Immediate Raise,0x1
0590 e7ff | | Load 0x3,-0x1
0591 01cf | | Execute Vector,Slice_Read
0592 0092 0820 | | Action Push_String_Extended,0x820 ; "--"
0594 01df | | Execute Vector,Equal
0595 6801 |h | Jump_Zero 0x597
0596 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0597 e7ff | | Load 0x3,-0x1
0598 e407 | | Load 0x2,0x7
0599 1820 | | Execute Package,Field_Execute,Field_Number 0x20
059a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
059b 00d8 | | Load_Top At_Offset_0
059c e407 | | Load 0x2,0x7
059d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
059e 682e |h. | Jump_Zero 0x5cd
059f 00cf | | Action Mark_Auxiliary
05a0 7826 |x& | Jump 0x5c7
05a1 480f |H | Short_Literal 0xf
05a2 00da | | Load_Top At_Offset_2
05a3 e407 | | Load 0x2,0x7
05a4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
05a5 680c |h | Jump_Zero 0x5b2
05a6 00d9 | | Load_Top At_Offset_1
05a7 e407 | | Load 0x2,0x7
05a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
05a9 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05aa 00ea | | Load_Encached Null_String_Cache
05ab 480f |H | Short_Literal 0xf
05ac 00db | | Load_Top At_Offset_3
05ad e407 | | Load 0x2,0x7
05ae 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05af 00db | | Load_Top At_Offset_3
05b0 841d | | Call 0x2,0x1d
05b1 7810 |x | Jump 0x5c2
05b2 480a |H | Short_Literal 0xa
05b3 0092 0818 | | Action Push_String_Extended,0x818 ; "Illegal item in line: "
05b5 e7ff | | Load 0x3,-0x1
05b6 01cc | | Execute Vector,Catenate
05b7 01cb | | Execute Vector,Append
05b8 0092 0819 | | Action Push_String_Extended,0x819 ; " "
05ba 01cc | | Execute Vector,Catenate
05bb 480f |H | Short_Literal 0xf
05bc 00db | | Load_Top At_Offset_3
05bd e407 | | Load 0x2,0x7
05be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05bf 01cc | | Execute Vector,Catenate
05c0 e004 | | Load 0x0,0x4
05c1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05c2 00d9 | | Load_Top At_Offset_1
05c3 e407 | | Load 0x2,0x7
05c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05c5 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05c6 00c9 | | Action Pop_Auxiliary_Loop
05c7 00d9 | | Load_Top At_Offset_1
05c8 e407 | | Load 0x2,0x7
05c9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05ca 6fd6 |o | Jump_Zero 0x5a1
05cb 00ce | | Action Pop_Auxiliary
05cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05cd 4800 |H | Short_Literal 0x0
05ce e7ff | | Load 0x3,-0x1
05cf 0092 0815 | | Action Push_String_Extended,0x815 ; "="
05d1 e013 | | Load 0x0,0x13
05d2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05d3 0c01 | | Execute_Immediate Greater_Equal,0x1
05d4 6811 |h | Jump_Zero 0x5e6
05d5 4800 |H | Short_Literal 0x0
05d6 e7ff | | Load 0x3,-0x1
05d7 0092 0815 | | Action Push_String_Extended,0x815 ; "="
05d9 e013 | | Load 0x0,0x13
05da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05db 4800 |H | Short_Literal 0x0
05dc e7ff | | Load 0x3,-0x1
05dd 0092 0821 | !| Action Push_String_Extended,0x821 ; "=>"
05df e013 | | Load 0x0,0x13
05e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05e1 027e | ~ | Execute Discrete,Not_Equal
05e2 6803 |h | Jump_Zero 0x5e6
05e3 e7ff | | Load 0x3,-0x1
05e4 841c | | Call 0x2,0x1c
05e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e6 0092 081a | | Action Push_String_Extended,0x81a ; "Illegal format: "
05e8 e7ff | | Load 0x3,-0x1
05e9 01cc | | Execute Vector,Catenate
05ea e004 | | Load 0x0,0x4
05eb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05ec 0092 0819 | | Action Push_String_Extended,0x819 ; " "
05ee 480f |H | Short_Literal 0xf
05ef 00da | | Load_Top At_Offset_2
05f0 e407 | | Load 0x2,0x7
05f1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05f2 01cc | | Execute Vector,Catenate
05f3 e004 | | Load 0x0,0x4
05f4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f6 0000 0000 | | .XXX[0x2]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 060a | | .CONST 0x060a ; Address of begin
05f9 0616 | | .CONST 0x0616 ; Address of exception handler
05fa 0007 | | .CONST 0x0007 ; Number of locals
05fb INIT_05f8:
05fb 4801 |H | Short_Literal 0x1
05fc 4be8 |K | Short_Literal 0x3e8
05fd 00e9 | | Load_Encached String_Cache
05fe 035b | [ | Declare_Type Array,Constrained
05ff 0337 | 7 | Declare_Variable Array
0600 00e3 | | Load_Encached Natural_Cache
0601 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0602 00e3 | | Load_Encached Natural_Cache
0603 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0604 00e3 | | Load_Encached Natural_Cache
0605 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0606 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call
0608 029f 0743 | C| Declare_Subprogram INIT_0740,For_Call
060a BODY_05f8:
060a 00cf | | Action Mark_Auxiliary
060b 8607 | | Call 0x3,0x7
060c 00c9 | | Action Pop_Auxiliary_Loop
060d 7ffd | | Jump 0x60b
060e 00ce | | Action Pop_Auxiliary
060f 4801 |H | Short_Literal 0x1
0610 e603 | | Load 0x3,0x3
0611 e602 | | Load 0x3,0x2
0612 01cf | | Execute Vector,Slice_Read
0613 00e9 | | Load_Encached String_Cache
0614 01c6 | | Execute Vector,Convert_To_Formal
0615 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0616 TRAP_05f8:
0616 00d8 | | Load_Top At_Offset_0
0617 0107 | | Execute Exception,Get_Name
0618 4950 |IP | Short_Literal 0x150
0619 495f |I_ | Short_Literal 0x15f
061a 0262 | b | Execute Discrete,In_Range
061b 680f |h | Jump_Zero 0x62b
061c e604 | | Load 0x3,0x4
061d e605 | | Load 0x3,0x5
061e 027e | ~ | Execute Discrete,Not_Equal
061f 6809 |h | Jump_Zero 0x629
0620 0092 0822 | "| Action Push_String_Extended,0x822 ; "The parentheses in the file "
0622 e5ff | | Load 0x2,-0x1
0623 01cc | | Execute Vector,Catenate
0624 0092 0823 | #| Action Push_String_Extended,0x823 ; " do not match"
0626 01cc | | Execute Vector,Catenate
0627 e004 | | Load 0x0,0x4
0628 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0629 00d8 | | Load_Top At_Offset_0
062a 0101 | | Execute Exception,Reraise
062b 0100 | | Execute Exception,Raise
062c 0000 0000 | | .BLANK 0000[0x4]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 063d | = | .CONST 0x063d ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0002 | | .CONST 0x0002 ; Number of locals
0633 INIT_0630:
0633 e602 | | Load 0x3,0x2
0634 e40b | | Load 0x2,0xb
0635 011c | | Execute Any,Convert_Unchecked
0636 1c01 | | Execute_Immediate Run_Utility,0x1
0637 e014 | | Load 0x0,0x14
0638 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0639 1c02 | | Execute_Immediate Run_Utility,0x2
063a e014 | | Load 0x0,0x14
063b 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
063c 03f1 | | Declare_Variable Discrete,With_Value
063d BODY_0630:
063d 00d8 | | Load_Top At_Offset_0
063e e014 | | Load 0x0,0x14
063f 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0640 011c | | Execute Any,Convert_Unchecked
0641 1c01 | | Execute_Immediate Run_Utility,0x1
0642 e7fe | | Load 0x3,-0x2
0643 0092 0824 | $| Action Push_String_Extended,0x824 ; "Terminal.Set_Parity"
0645 8412 | | Call 0x2,0x12
0646 e5fe | | Load 0x2,-0x2
0647 7004 |p | Jump_Nonzero 0x64c
0648 00d8 | | Load_Top At_Offset_0
0649 e7fe | | Load 0x3,-0x2
064a e012 | | Load 0x0,0x12
064b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
064c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
064d 0000 0000 | | .XXX[0x3]
064f 0000 | |
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0654 | T | .CONST 0x0654 ; Address of begin
0651 0682 | | .CONST 0x0682 ; Address of exception handler
0652 0002 | | .CONST 0x0002 ; Number of locals
0653 INIT_0650:
0653 00e3 | | Load_Encached Natural_Cache
0654 BODY_0650:
0654 4801 |H | Short_Literal 0x1
0655 e602 | | Load 0x3,0x2
0656 0092 0811 | | Action Push_String_Extended,0x811 ; ","
0658 e013 | | Load 0x0,0x13
0659 181d | | Execute Package,Field_Execute,Field_Number 0x1d
065a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
065b 00d8 | | Load_Top At_Offset_0
065c 0c01 | | Execute_Immediate Greater_Equal,0x1
065d 681e |h | Jump_Zero 0x67c
065e e602 | | Load 0x3,0x2
065f 01dd | | Execute Vector,First
0660 00d9 | | Load_Top At_Offset_1
0661 0aff | | Execute_Immediate Plus,-0x1
0662 e602 | | Load 0x3,0x2
0663 01cf | | Execute Vector,Slice_Read
0664 00e2 | | Load_Encached Integer_Cache
0665 00e0 | | Load_Encached Standard_Cache
0666 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0667 4801 |H | Short_Literal 0x1
0668 e603 | | Load 0x3,0x3
0669 01d6 | | Execute Vector,Field_Write
066a 00d8 | | Load_Top At_Offset_0
066b 0a01 | | Execute_Immediate Plus,0x1
066c 00d8 | | Load_Top At_Offset_0
066d 00e2 | | Load_Encached Integer_Cache
066e 0260 | ` | Execute Discrete,In_Type
066f 7001 |p | Jump_Nonzero 0x671
0670 0801 | | Execute_Immediate Raise,0x1
0671 e602 | | Load 0x3,0x2
0672 01dc | | Execute Vector,Last
0673 e602 | | Load 0x3,0x2
0674 01cf | | Execute Vector,Slice_Read
0675 00e2 | | Load_Encached Integer_Cache
0676 00e0 | | Load_Encached Standard_Cache
0677 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0678 4802 |H | Short_Literal 0x2
0679 e603 | | Load 0x3,0x3
067a 01d6 | | Execute Vector,Field_Write
067b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
067c e7fe | | Load 0x3,-0x2
067d e602 | | Load 0x3,0x2
067e e604 | | Load 0x3,0x4
067f 8413 | | Call 0x2,0x13
0680 00cc | | Action Pop_Block
0681 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0682 TRAP_0650:
0682 0007 | | Action Break_Optional
0683 e7fe | | Load 0x3,-0x2
0684 e602 | | Load 0x3,0x2
0685 e604 | | Load 0x3,0x4
0686 8413 | | Call 0x2,0x13
0687 00cc | | Action Pop_Block
0688 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0689 0000 0000 | | .BLANK 0000[0x7]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 06b1 | | .CONST 0x06b1 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0008 | | .CONST 0x0008 ; Number of locals
0693 INIT_0690:
0693 4820 |H | Short_Literal 0x20
0694 e602 | | Load 0x3,0x2
0695 e603 | | Load 0x3,0x3
0696 0aff | | Execute_Immediate Plus,-0x1
0697 e7ff | | Load 0x3,-0x1
0698 01cf | | Execute Vector,Slice_Read
0699 e013 | | Load 0x0,0x13
069a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
069b e605 | | Load 0x3,0x5
069c 0a01 | | Execute_Immediate Plus,0x1
069d 00d8 | | Load_Top At_Offset_0
069e 00e2 | | Load_Encached Integer_Cache
069f 0260 | ` | Execute Discrete,In_Type
06a0 7001 |p | Jump_Nonzero 0x6a2
06a1 0801 | | Execute_Immediate Raise,0x1
06a2 e606 | | Load 0x3,0x6
06a3 0aff | | Execute_Immediate Plus,-0x1
06a4 e7ff | | Load 0x3,-0x1
06a5 01cf | | Execute Vector,Slice_Read
06a6 0335 | 5 | Declare_Variable Array,Duplicate
06a7 00cd | | Action Spare6_Action
06a8 e402 | | Load 0x2,0x2
06a9 0007 | | Action Break_Optional
06aa 00d8 | | Load_Top At_Offset_0
06ab 0007 | | Action Break_Optional
06ac 00e1 | | Load_Encached Boolean_Cache
06ad e409 | | Load 0x2,0x9
06ae 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
06af 029f 07a3 | | Declare_Subprogram INIT_07a0,For_Call
06b1 BODY_0690:
06b1 e803 | | Load 0x4,0x3
06b2 e409 | | Load 0x2,0x9
06b3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
06b4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
06b5 00d9 | | Load_Top At_Offset_1
06b6 e409 | | Load 0x2,0x9
06b7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
06b8 7017 |p | Jump_Nonzero 0x6d0
06b9 0092 081a | | Action Push_String_Extended,0x81a ; "Illegal format: "
06bb e803 | | Load 0x4,0x3
06bc 01cc | | Execute Vector,Catenate
06bd e004 | | Load 0x0,0x4
06be 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06bf 0092 0819 | | Action Push_String_Extended,0x819 ; " "
06c1 4800 |H | Short_Literal 0x0
06c2 00db | | Load_Top At_Offset_3
06c3 e409 | | Load 0x2,0x9
06c4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06c5 01cc | | Execute Vector,Catenate
06c6 e004 | | Load 0x0,0x4
06c7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06c8 e802 | | Load 0x4,0x2
06c9 0092 0825 | %| Action Push_String_Extended,0x825 ; " therefore cannot be defined"
06cb 01cc | | Execute Vector,Catenate
06cc e004 | | Load 0x0,0x4
06cd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06ce 00cc | | Action Pop_Block
06cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06d0 00e1 | | Load_Encached Boolean_Cache
06d1 e805 | | Load 0x4,0x5
06d2 e802 | | Load 0x4,0x2
06d3 e404 | | Load 0x2,0x4
06d4 e403 | | Load 0x2,0x3
06d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06d6 c805 | | Store 0x4,0x5
06d7 005b | [ | Store_Top Discrete,At_Offset_3
06d8 00da | | Load_Top At_Offset_2
06d9 6802 |h | Jump_Zero 0x6dc
06da 8808 | | Call 0x4,0x8
06db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06dc e803 | | Load 0x4,0x3
06dd 01da | | Execute Vector,Bounds
06de e402 | | Load 0x2,0x2
06df 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
06e0 a804 | | Store_Unchecked 0x4,0x4
06e1 e803 | | Load 0x4,0x3
06e2 e804 | | Load 0x4,0x4
06e3 0228 | ( | Execute Access,All_Write
06e4 e404 | | Load 0x2,0x4
06e5 4800 |H | Short_Literal 0x0
06e6 e804 | | Load 0x4,0x4
06e7 e802 | | Load 0x4,0x2
06e8 e403 | | Load 0x2,0x3
06e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06ea c404 | | Store 0x2,0x4
06eb 4800 |H | Short_Literal 0x0
06ec 00ea | | Load_Encached Null_String_Cache
06ed 4805 |H | Short_Literal 0x5
06ee e802 | | Load 0x4,0x2
06ef 4814 |H | Short_Literal 0x14
06f0 e409 | | Load 0x2,0x9
06f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f3 0000 0000 | | .BLANK 0000[0x5]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 070c | | .CONST 0x070c ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb 00ea | | Load_Encached Null_String_Cache
06fc 4800 |H | Short_Literal 0x0
06fd e7ff | | Load 0x3,-0x1
06fe e409 | | Load 0x2,0x9
06ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0700 e404 | | Load 0x2,0x4
0701 e403 | | Load 0x2,0x3
0702 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0703 0227 | ' | Execute Access,All_Reference
0704 e7fd | | Load 0x3,-0x3
0705 00d8 | | Load_Top At_Offset_0
0706 e406 | | Load 0x2,0x6
0707 0260 | ` | Execute Discrete,In_Type
0708 7001 |p | Jump_Nonzero 0x70a
0709 0801 | | Execute_Immediate Raise,0x1
070a 841d | | Call 0x2,0x1d
070b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
070c TRAP_06f8:
070c e403 | | Load 0x2,0x3
070d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
070e 010f | | Execute Exception,Equal
070f 680b |h | Jump_Zero 0x71b
0710 0092 0826 | &| Action Push_String_Extended,0x826 ; "Illegal predefined value: "
0712 00ea | | Load_Encached Null_String_Cache
0713 4800 |H | Short_Literal 0x0
0714 e7ff | | Load 0x3,-0x1
0715 e409 | | Load 0x2,0x9
0716 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0717 01cc | | Execute Vector,Catenate
0718 e004 | | Load 0x0,0x4
0719 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
071a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
071b 0100 | | Execute Exception,Raise
071c 0000 0000 | | .BLANK 0000[0x4]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 00cf | | Action Mark_Auxiliary
0724 00db | | Load_Top At_Offset_3
0725 01dc | | Execute Vector,Last
0726 e9ff | | Load 0x4,-0x1
0727 01dd | | Execute Vector,First
0728 0263 | c | Execute Discrete,Above_Bound
0729 7012 |p | Jump_Nonzero 0x73c
072a 00d8 | | Load_Top At_Offset_0
072b e9ff | | Load 0x4,-0x1
072c 01d7 | | Execute Vector,Field_Read
072d 0f28 | ( | Execute_Immediate Equal,0x28
072e 6803 |h | Jump_Zero 0x732
072f e9fe | | Load 0x4,-0x2
0730 0a01 | | Execute_Immediate Plus,0x1
0731 c9fe | | Store 0x4,-0x2
0732 00d8 | | Load_Top At_Offset_0
0733 e9ff | | Load 0x4,-0x1
0734 01d7 | | Execute Vector,Field_Read
0735 0f29 | ) | Execute_Immediate Equal,0x29
0736 6803 |h | Jump_Zero 0x73a
0737 e9fd | | Load 0x4,-0x3
0738 0a01 | | Execute_Immediate Plus,0x1
0739 c9fd | | Store 0x4,-0x3
073a 00c8 | | Action Pop_Auxiliary_Range
073b 3fee |? | Loop_Increasing 0x72a
073c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
073d 0000 0000 | | .XXX[0x3]
073f 0000 | |
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 075d | ] | .CONST 0x075d ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0006 | | .CONST 0x0006 ; Number of locals
0743 INIT_0740:
0743 4820 |H | Short_Literal 0x20
0744 e7ff | | Load 0x3,-0x1
0745 e004 | | Load 0x0,0x4
0746 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0747 e013 | | Load 0x0,0x13
0748 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0749 00d8 | | Load_Top At_Offset_0
074a 01dd | | Execute Vector,First
074b 00e3 | | Load_Encached Natural_Cache
074c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
074d 00d9 | | Load_Top At_Offset_1
074e 01dc | | Execute Vector,Last
074f 00e3 | | Load_Encached Natural_Cache
0750 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0751 00da | | Load_Top At_Offset_2
0752 01db | | Execute Vector,Length
0753 00e3 | | Load_Encached Natural_Cache
0754 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0755 4801 |H | Short_Literal 0x1
0756 e802 | | Load 0x4,0x2
0757 0092 0820 | | Action Push_String_Extended,0x820 ; "--"
0759 e013 | | Load 0x0,0x13
075a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
075b 00e3 | | Load_Encached Natural_Cache
075c 03f1 | | Declare_Variable Discrete,With_Value
075d BODY_0740:
075d 00d8 | | Load_Top At_Offset_0
075e 0c01 | | Execute_Immediate Greater_Equal,0x1
075f 6810 |h | Jump_Zero 0x770
0760 4820 |H | Short_Literal 0x20
0761 e803 | | Load 0x4,0x3
0762 00da | | Load_Top At_Offset_2
0763 0aff | | Execute_Immediate Plus,-0x1
0764 e802 | | Load 0x4,0x2
0765 01cf | | Execute Vector,Slice_Read
0766 e013 | | Load 0x0,0x13
0767 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0768 01dc | | Execute Vector,Last
0769 005b | [ | Store_Top Discrete,At_Offset_3
076a 00db | | Load_Top At_Offset_3
076b 00db | | Load_Top At_Offset_3
076c e802 | | Load 0x4,0x2
076d 01cf | | Execute Vector,Slice_Read
076e 01db | | Execute Vector,Length
076f 005a | Z | Store_Top Discrete,At_Offset_2
0770 00da | | Load_Top At_Offset_2
0771 e803 | | Load 0x4,0x3
0772 027d | } | Execute Discrete,Greater
0773 6828 |h( | Jump_Zero 0x79c
0774 00db | | Load_Top At_Offset_3
0775 00db | | Load_Top At_Offset_3
0776 e802 | | Load 0x4,0x2
0777 01cf | | Execute Vector,Slice_Read
0778 e603 | | Load 0x3,0x3
0779 0a01 | | Execute_Immediate Plus,0x1
077a 00d8 | | Load_Top At_Offset_0
077b 00e2 | | Load_Encached Integer_Cache
077c 0260 | ` | Execute Discrete,In_Type
077d 7001 |p | Jump_Nonzero 0x77f
077e 0801 | | Execute_Immediate Raise,0x1
077f e603 | | Load 0x3,0x3
0780 e805 | | Load 0x4,0x5
0781 0273 | s | Execute Discrete,Plus
0782 00d8 | | Load_Top At_Offset_0
0783 00e2 | | Load_Encached Integer_Cache
0784 0260 | ` | Execute Discrete,In_Type
0785 7001 |p | Jump_Nonzero 0x787
0786 0801 | | Execute_Immediate Raise,0x1
0787 e602 | | Load 0x3,0x2
0788 01ce | | Execute Vector,Slice_Write
0789 e603 | | Load 0x3,0x3
078a 00da | | Load_Top At_Offset_2
078b 0273 | s | Execute Discrete,Plus
078c c603 | | Store 0x3,0x3
078d e605 | | Load 0x3,0x5
078e e604 | | Load 0x3,0x4
078f e803 | | Load 0x4,0x3
0790 e804 | | Load 0x4,0x4
0791 e802 | | Load 0x4,0x2
0792 01cf | | Execute Vector,Slice_Read
0793 8606 | | Call 0x3,0x6
0794 c604 | | Store 0x3,0x4
0795 c605 | | Store 0x3,0x5
0796 e604 | | Load 0x3,0x4
0797 e605 | | Load 0x3,0x5
0798 027f | | Execute Discrete,Equal
0799 6802 |h | Jump_Zero 0x79c
079a 00cc | | Action Pop_Block
079b 7e72 |~r | Jump 0x60e
079c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
079d 0000 0000 | | .XXX[0x3]
079f 0000 | |
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a7 | | .CONST 0x07a7 ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 0002 | | .CONST 0x0002 ; Number of locals
07a3 INIT_07a0:
07a3 e805 | | Load 0x4,0x5
07a4 0227 | ' | Execute Access,All_Reference
07a5 0335 | 5 | Declare_Variable Array,Duplicate
07a6 00cd | | Action Spare6_Action
07a7 BODY_07a0:
07a7 4801 |H | Short_Literal 0x1
07a8 00d9 | | Load_Top At_Offset_1
07a9 01db | | Execute Vector,Length
07aa e803 | | Load 0x4,0x3
07ab 01db | | Execute Vector,Length
07ac 0273 | s | Execute Discrete,Plus
07ad 0a01 | | Execute_Immediate Plus,0x1
07ae 00d8 | | Load_Top At_Offset_0
07af 00e2 | | Load_Encached Integer_Cache
07b0 0260 | ` | Execute Discrete,In_Type
07b1 7001 |p | Jump_Nonzero 0x7b3
07b2 0801 | | Execute_Immediate Raise,0x1
07b3 e402 | | Load 0x2,0x2
07b4 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
07b5 a804 | | Store_Unchecked 0x4,0x4
07b6 00d8 | | Load_Top At_Offset_0
07b7 0092 0811 | | Action Push_String_Extended,0x811 ; ","
07b9 01cc | | Execute Vector,Catenate
07ba e803 | | Load 0x4,0x3
07bb 01cc | | Execute Vector,Catenate
07bc e804 | | Load 0x4,0x4
07bd 0228 | ( | Execute Access,All_Write
07be e404 | | Load 0x2,0x4
07bf e802 | | Load 0x4,0x2
07c0 e403 | | Load 0x2,0x3
07c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07c2 c404 | | Store 0x2,0x4
07c3 e404 | | Load 0x2,0x4
07c4 4800 |H | Short_Literal 0x0
07c5 e804 | | Load 0x4,0x4
07c6 e802 | | Load 0x4,0x2
07c7 e403 | | Load 0x2,0x3
07c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07c9 c404 | | Store 0x2,0x4
07ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07cb ; --------------------------------------------------------------------------------------
07cb ; STRING TABLE
07cb ; --------------------------------------------------------------------------------------
07cb 00ba | | .STRTAB 0x00ba->0x0828 ; "NIL"
07cc 00bb | | .STRTAB 0x00bb->0x0829 ; "ENABLE"
07cd 00bf | | .STRTAB 0x00bf->0x082c ; "DISABLE"
07ce 00c4 | | .STRTAB 0x00c4->0x0830 ; "TERMINAL_TYPE"
07cf 00cf | | .STRTAB 0x00cf->0x0836 ; "INPUT_RATE"
07d0 00d7 | | .STRTAB 0x00d7->0x083b ; "OUTPUT_RATE"
07d1 00e0 | | .STRTAB 0x00e0->0x0841 ; "PARITY"
07d2 00e4 | | .STRTAB 0x00e4->0x0844 ; "BITS_PER_CHAR"
07d3 00ef | | .STRTAB 0x00ef->0x084a ; "STOP_BITS"
07d4 00f6 | | .STRTAB 0x00f6->0x084f ; "FLOW_CONTROL"
07d5 0100 | | .STRTAB 0x0100->0x0855 ; "XON_XOFF_BYTES"
07d6 010c | | .STRTAB 0x010c->0x085c ; "RECEIVE_FLOW_CONTROL"
07d7 011e | | .STRTAB 0x011e->0x0866 ; "RECEIVE_XON_XOFF_BYTES"
07d8 0132 | 2 | .STRTAB 0x0132->0x0871 ; "DISCONNECT_ON_LOGOFF"
07d9 0144 | D | .STRTAB 0x0144->0x087b ; "LOGOFF_ON_DISCONNECT"
07da 0156 | V | .STRTAB 0x0156->0x0885 ; "LOG_FAILED_LOGINS"
07db 0165 | e | .STRTAB 0x0165->0x088d ; "DISCONNECT_ON_FAILED_LOGIN"
07dc 017d | } | .STRTAB 0x017d->0x089a ; "DISCONNECT_ON_DISCONNECT"
07dd 0193 | | .STRTAB 0x0193->0x08a6 ; "LOGIN_DISABLED"
07de 019f | | .STRTAB 0x019f->0x08ad ; "DETACH_ON_DISCONNECT"
07df 01b1 | | .STRTAB 0x01b1->0x08b7 ; "PREDEFINED"
07e0 01b9 | | .STRTAB 0x01b9->0x08bc ; "NIL"
07e1 01ba | | .STRTAB 0x01ba->0x08be ; "DISABLE"
07e2 01bf | | .STRTAB 0x01bf->0x08c1 ; "BAUD_50"
07e3 01c4 | | .STRTAB 0x01c4->0x08c5 ; "BAUD_75"
07e4 01c9 | | .STRTAB 0x01c9->0x08c8 ; "BAUD_110"
07e5 01cf | | .STRTAB 0x01cf->0x08cc ; "BAUD_134_5"
07e6 01d7 | | .STRTAB 0x01d7->0x08d1 ; "BAUD_150"
07e7 01dd | | .STRTAB 0x01dd->0x08d5 ; "BAUD_200"
07e8 01e3 | | .STRTAB 0x01e3->0x08d9 ; "BAUD_300"
07e9 01e9 | | .STRTAB 0x01e9->0x08dd ; "BAUD_600"
07ea 01ef | | .STRTAB 0x01ef->0x08e1 ; "BAUD_1200"
07eb 01f6 | | .STRTAB 0x01f6->0x08e6 ; "BAUD_1800"
07ec 01fd | | .STRTAB 0x01fd->0x08ea ; "BAUD_2400"
07ed 0204 | | .STRTAB 0x0204->0x08ef ; "BAUD_4800"
07ee 020b | | .STRTAB 0x020b->0x08f3 ; "BAUD_9600"
07ef 0212 | | .STRTAB 0x0212->0x08f8 ; "BAUD_19200"
07f0 021a | | .STRTAB 0x021a->0x08fd ; "EXT_REC_CLK"
07f1 0223 | # | .STRTAB 0x0223->0x0902 ; "NIL"
07f2 0224 | $ | .STRTAB 0x0224->0x0904 ; "NONE"
07f3 0226 | & | .STRTAB 0x0226->0x0906 ; "EVEN"
07f4 0228 | ( | .STRTAB 0x0228->0x0908 ; "ODD"
07f5 0229 | ) | .STRTAB 0x0229->0x0909 ; "NIL"
07f6 022a | * | .STRTAB 0x022a->0x090b ; "CHAR_5"
07f7 022e | . | .STRTAB 0x022e->0x090e ; "CHAR_6"
07f8 0232 | 2 | .STRTAB 0x0232->0x0911 ; "CHAR_7"
07f9 0236 | 6 | .STRTAB 0x0236->0x0914 ; "CHAR_8"
07fa 023a | : | .STRTAB 0x023a->0x0917 ; "NIL"
07fb 023b | ; | .STRTAB 0x023b->0x0918 ; "NONE"
07fc 023d | = | .STRTAB 0x023d->0x091a ; "XON_XOFF"
07fd 0243 | C | .STRTAB 0x0243->0x091e ; "DTR"
07fe 0244 | D | .STRTAB 0x0244->0x0920 ; "RTS"
07ff 0245 | E | .STRTAB 0x0245->0x0921 ; "others => Unspecified"
0800 0258 | X | .STRTAB 0x0258->0x092c ; "Enable | Disable | Disconnect_On_Logoff..Detach_On_Disconnect => Boolean_Valued,Stop_Bits => Integer_Valued, others => Unspecified"
0801 02d8 | | .STRTAB 0x02d8->0x096d ; " does not exist"
0802 02e5 | | .STRTAB 0x02e5->0x0974 ; " (Line => "
0803 02ed | | .STRTAB 0x02ed->0x0979 ; ", To_Be => "
0804 02f6 | | .STRTAB 0x02f6->0x097f ; ");"
0805 02f6 | | .STRTAB 0x02f6->0x0980 ; "Illegal value: The "
0806 0307 | | .STRTAB 0x0307->0x0989 ; " could not be set for port "
0807 0320 | | .STRTAB 0x0320->0x0997 ; " because \x22"
0808 032c | , | .STRTAB 0x032c->0x099e ; "\x22 is not a valid setting."
0809 0343 | C | .STRTAB 0x0343->0x09aa ; "\x22"
080a 0342 | B | .STRTAB 0x0342->0x09ab ; "Terminal.Set_Terminal_Type"
080b 035a | Z | .STRTAB 0x035a->0x09b8 ; "Terminal.Set_"
080c 0365 | e | .STRTAB 0x0365->0x09be ; "Parity"
080d 0369 | i | .STRTAB 0x0369->0x09c1 ; "Terminal.Set_Stop_Bits"
080e 037d | } | .STRTAB 0x037d->0x09cc ; "Stop_Bits"
080f 0384 | | .STRTAB 0x0384->0x09d1 ; "Terminal.Set_Character_Size"
0810 039d | | .STRTAB 0x039d->0x09de ; "Bits_Per_Char"
0811 03a8 | | .STRTAB 0x03a8->0x09e5 ; ","
0812 03a7 | | .STRTAB 0x03a7->0x09e5 ; "Terminal.SET_"
0813 03b2 | | .STRTAB 0x03b2->0x09ec ; ", Disabled => "
0814 03be | | .STRTAB 0x03be->0x09f3 ; ", Enabled => "
0815 03c9 | | .STRTAB 0x03c9->0x09f9 ; "="
0816 03c8 | | .STRTAB 0x03c8->0x09fa ; "("
0817 03c7 | | .STRTAB 0x03c7->0x09fa ; ")"
0818 03c6 | | .STRTAB 0x03c6->0x09fb ; "Illegal item in line: "
0819 03da | | .STRTAB 0x03da->0x0a06 ; " "
081a 03dd | | .STRTAB 0x03dd->0x0a08 ; "Illegal format: "
081b 03eb | | .STRTAB 0x03eb->0x0a10 ; "Illegal value on line: "
081c 0400 | | .STRTAB 0x0400->0x0a1c ; " "
081d 0402 | | .STRTAB 0x0402->0x0a1e ; "Operator.Enable_Terminal ("
081e 041a | | .STRTAB 0x041a->0x0a2b ; "<PROFILE>"
081f 0421 | ! | .STRTAB 0x0421->0x0a2f ; "Operator.Disable_Terminal ("
0820 043a | : | .STRTAB 0x043a->0x0a3d ; "--"
0821 043a | : | .STRTAB 0x043a->0x0a3e ; "=>"
0822 043a | : | .STRTAB 0x043a->0x0a3f ; "The parentheses in the file "
0823 0454 | T | .STRTAB 0x0454->0x0a4d ; " do not match"
0824 045f | _ | .STRTAB 0x045f->0x0a53 ; "Terminal.Set_Parity"
0825 0470 | p | .STRTAB 0x0470->0x0a5d ; " therefore cannot be defined"
0826 048a | | .STRTAB 0x048a->0x0a6b ; "Illegal predefined value: "
0827 04a2 | | .STREND 0x04a2->0x0a78
0828 4e49 4c45 |NILE| .STRTAB_STRINGS
0a78 ; --------------------------------------------------------------------------------------
0a78 ; Debug Table
0a78 ; --------------------------------------------------------------------------------------
0a78 0004 0000 | | .DEBUG4 0x0004,0x0000,0x776c,0x0000,0x0001,0x0000
0a7e 0000 0200 | | .XXX[0x1f]
0a80 03de e485 | |
0a82 4364 c180 |Cd |
0a84 0036 00b6 | 6 |
0a86 4b80 8004 |K |
0a88 0005 6800 | h |
0a8a 0000 722a | r*|
0a8c 0000 1000 | |
0a8e 0000 1801 | |
0a90 4000 0000 |@ |
0a92 4000 0010 |@ |
0a94 0000 0088 | |
0a96 0000 0000 | |
0a98 4000 0002 |@ |
0a9a 9000 0081 | |
0a9c 6eb0 |n |
0a9d 0000 0000 | | .BLANK 0000[0x1b]
0ab8 0040 007b | @ {| .XXX[0x25]
0aba dcd0 a86c | l|
0abc 9840 0006 | @ |
0abe c016 c970 | p|
0ac0 1000 8000 | |
0ac2 ad00 0000 | |
0ac4 0e45 4000 | E@ |
0ac6 0400 0000 | |
0ac8 0700 2800 | ( |
0aca 0000 0800 | |
0acc 0002 0000 | |
0ace 0011 0000 | |
0ad0 0000 0800 | |
0ad2 0000 5200 | R |
0ad4 0020 2dd6 | - |
0ad6 0a00 0020 | |
0ad8 2dd6 1200 |- |
0ada 0020 2dd6 | - |
0adc 1800 | |
0add 0000 0000 | | .BLANK 0000[0x14]
0af1 0008 000f | | .XXX[0x58]
0af3 7b9a 150d |{ |
0af5 930a 0000 | |
0af7 d802 d92e | .|
0af9 0200 1000 | |
0afb 15a0 0000 | |
0afd 01c8 a800 | |
0aff 00c0 0000 | |
0b01 0260 0500 | ` |
0b03 0000 0100 | |
0b05 0000 4000 | @ |
0b07 0002 2000 | |
0b09 0000 0100 | |
0b0b 0000 0a40 | @|
0b0d 0006 05ba | |
0b0f cd40 0006 | @ |
0b11 05ba ce40 | @|
0b13 0006 05ba | |
0b15 cf40 0006 | @ |
0b17 05ba d000 | |
0b19 0000 0000 | |
0b1b 0040 0006 | @ |
0b1d 05ba d140 | @|
0b1f 0006 05ba | |
0b21 d240 0006 | @ |
0b23 05ba d440 | @|
0b25 0006 05ba | |
0b27 d540 0006 | @ |
0b29 05ba d601 | |
0b2b 0001 ef73 | s|
0b2d 42a1 b261 |B a|
0b2f 8000 1b00 | |
0b31 5b25 c040 |[% @|
0b33 0200 02b4 | |
0b35 0000 0038 | 8|
0b37 c300 00a8 | |
0b39 0000 0064 | d|
0b3b 00a0 0000 | |
0b3d 1440 0000 | @ |
0b3f 0800 0000 | |
0b41 4400 0000 |D |
0b43 0020 0000 | |
0b45 0148 0005 | H |
0b47 00b7 55c0 | U |
0b49 0000 0000 | | .BLANK 0000[0x1b]
0b64 2000 3de9 | = | .XXX[0x1e]
0b66 8854 364c | T6L|
0b68 3800 0360 |8 `|
0b6a 02a4 b808 | |
0b6c 0040 0056 | @ V|
0b6e 8000 0007 | |
0b70 1860 0015 | ` |
0b72 8000 000d | |
0b74 8014 0000 | |
0b76 0288 0000 | |
0b78 0100 0000 | |
0b7a 0880 0000 | |
0b7c 0004 0000 | |
0b7e 0029 0000 | ) |
0b80 a816 eb74 | t|
0b82 0000 0000 | | .BLANK 0000[0x1b]
0b9d 0400 07bd | | .XXX[0x3c]
0b9f 310a 86c9 |1 |
0ba1 8800 006c | l|
0ba3 016c 9701 | l |
0ba5 0008 000a | |
0ba7 d000 0000 | |
0ba9 e454 0000 | T |
0bab 8000 0001 | |
0bad 3002 8000 |0 |
0baf 0000 8000 | |
0bb1 0020 0000 | |
0bb3 0110 0000 | |
0bb5 0000 8000 | |
0bb7 0005 2000 | |
0bb9 0402 dd73 | s|
0bbb a000 0302 | |
0bbd dd67 2000 | g |
0bbf 0302 dd67 | g|
0bc1 a000 0302 | |
0bc3 dd68 0000 | h |
0bc5 0000 0000 | |
0bc7 2000 0302 | |
0bc9 dd68 a000 | h |
0bcb 0302 dd69 | i|
0bcd 2000 0302 | |
0bcf dd6a 2000 | j |
0bd1 0302 dd6a | j|
0bd3 a000 0302 | |
0bd5 dd6b 0080 | k |
0bd7 00f7 b980 | |
0bd9 0000 0000 | | .BLANK 0000[0x27]