|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 0568 | h | .CONST 0x0568 ; 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 8003 | | .CONST 0x8003 ; 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 0140 | @ | .CONST 0x0140 ; Address of begin
0019 021c | | .CONST 0x021c ; Address of exception handler
001a 0071 | q | .CONST 0x0071 ; 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 4801 |H | Short_Literal 0x1
0020 4802 |H | Short_Literal 0x2
0021 e001 | | Load 0x0,0x1
0022 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0023 035b | [ | Declare_Type Array,Constrained
0024 e002 | | Load 0x0,0x2
0025 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0026 02c7 | | Declare_Variable Any
0027 00d8 | | Load_Top At_Offset_0
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
002b 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
002d 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
002f 029e 028b | | Declare_Subprogram INIT_0288,For_Call,Unelaborated
0031 4808 |H | Short_Literal 0x8
0032 4802 |H | Short_Literal 0x2
0033 0099 | | Action Reference_Dynamic
0034 00c7 | | Action Elaborate_Subprogram
0035 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
0037 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
0039 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
003b 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
003d 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
003f 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
0041 4808 |H | Short_Literal 0x8
0042 4802 |H | Short_Literal 0x2
0043 0099 | | Action Reference_Dynamic
0044 00c6 | | Action Check_Subprogram_Elaborated
0045 00e1 | | Load_Encached Boolean_Cache
0046 0092 04ad | | Action Push_String_Extended,0x4ad ; "Enable"
0048 4800 |H | Short_Literal 0x0
0049 480e |H | Short_Literal 0xe
004a 4802 |H | Short_Literal 0x2
004b 0099 | | Action Reference_Dynamic
004c e001 | | Load 0x0,0x1
004d 193e | > | Execute Package,Field_Reference,Field_Number 0x3e
004e 480c |H | Short_Literal 0xc
004f 4802 |H | Short_Literal 0x2
0050 0099 | | Action Reference_Dynamic
0051 e003 | | Load 0x0,0x3
0052 e004 | | Load 0x0,0x4
0053 4817 |H | Short_Literal 0x17
0054 0007 | | Action Break_Optional
0055 029f 0403 | | Declare_Subprogram INIT_0400,For_Call
0057 4808 |H | Short_Literal 0x8
0058 4802 |H | Short_Literal 0x2
0059 0099 | | Action Reference_Dynamic
005a 00c6 | | Action Check_Subprogram_Elaborated
005b e402 | | Load 0x2,0x2
005c 0092 04ae | | Action Push_String_Extended,0x4ae ; "Input_Rate"
005e 0092 04af | | Action Push_String_Extended,0x4af ; "Baud_9600"
0060 8409 | | Call 0x2,0x9
0061 480a |H | Short_Literal 0xa
0062 4802 |H | Short_Literal 0x2
0063 0099 | | Action Reference_Dynamic
0064 4818 |H | Short_Literal 0x18
0065 4802 |H | Short_Literal 0x2
0066 0099 | | Action Reference_Dynamic
0067 480b |H | Short_Literal 0xb
0068 4802 |H | Short_Literal 0x2
0069 0099 | | Action Reference_Dynamic
006a e005 | | Load 0x0,0x5
006b e006 | | Load 0x0,0x6
006c 4821 |H! | Short_Literal 0x21
006d 0007 | | Action Break_Optional
006e 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
0070 4808 |H | Short_Literal 0x8
0071 4802 |H | Short_Literal 0x2
0072 0099 | | Action Reference_Dynamic
0073 00c6 | | Action Check_Subprogram_Elaborated
0074 e402 | | Load 0x2,0x2
0075 0092 04b0 | | Action Push_String_Extended,0x4b0 ; "Output_Rate"
0077 0092 04af | | Action Push_String_Extended,0x4af ; "Baud_9600"
0079 8409 | | Call 0x2,0x9
007a 480a |H | Short_Literal 0xa
007b 4802 |H | Short_Literal 0x2
007c 0099 | | Action Reference_Dynamic
007d 4822 |H" | Short_Literal 0x22
007e 4802 |H | Short_Literal 0x2
007f 0099 | | Action Reference_Dynamic
0080 480b |H | Short_Literal 0xb
0081 4802 |H | Short_Literal 0x2
0082 0099 | | Action Reference_Dynamic
0083 e007 | | Load 0x0,0x7
0084 e008 | | Load 0x0,0x8
0085 482b |H+ | Short_Literal 0x2b
0086 0007 | | Action Break_Optional
0087 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
0089 4808 |H | Short_Literal 0x8
008a 4802 |H | Short_Literal 0x2
008b 0099 | | Action Reference_Dynamic
008c 00c6 | | Action Check_Subprogram_Elaborated
008d e001 | | Load 0x0,0x1
008e 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
008f 0092 04b1 | | Action Push_String_Extended,0x4b1 ; "Parity"
0091 4800 |H | Short_Literal 0x0
0092 482c |H, | Short_Literal 0x2c
0093 4802 |H | Short_Literal 0x2
0094 0099 | | Action Reference_Dynamic
0095 e001 | | Load 0x0,0x1
0096 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
0097 00e0 | | Load_Encached Standard_Cache
0098 1923 | # | Execute Package,Field_Reference,Field_Number 0x23
0099 e009 | | Load 0x0,0x9
009a e00a | | Load 0x0,0xa
009b 4835 |H5 | Short_Literal 0x35
009c 0007 | | Action Break_Optional
009d 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call
009f 4808 |H | Short_Literal 0x8
00a0 4802 |H | Short_Literal 0x2
00a1 0099 | | Action Reference_Dynamic
00a2 00c6 | | Action Check_Subprogram_Elaborated
00a3 e402 | | Load 0x2,0x2
00a4 0092 04b2 | | Action Push_String_Extended,0x4b2 ; "Bits_Per_Char"
00a6 0092 04b3 | | Action Push_String_Extended,0x4b3 ; "Char_8"
00a8 8409 | | Call 0x2,0x9
00a9 480a |H | Short_Literal 0xa
00aa 4802 |H | Short_Literal 0x2
00ab 0099 | | Action Reference_Dynamic
00ac 4836 |H6 | Short_Literal 0x36
00ad 4802 |H | Short_Literal 0x2
00ae 0099 | | Action Reference_Dynamic
00af 480b |H | Short_Literal 0xb
00b0 4802 |H | Short_Literal 0x2
00b1 0099 | | Action Reference_Dynamic
00b2 e00b | | Load 0x0,0xb
00b3 e00c | | Load 0x0,0xc
00b4 483f |H? | Short_Literal 0x3f
00b5 0007 | | Action Break_Optional
00b6 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
00b8 4808 |H | Short_Literal 0x8
00b9 4802 |H | Short_Literal 0x2
00ba 0099 | | Action Reference_Dynamic
00bb 00c6 | | Action Check_Subprogram_Elaborated
00bc 00e3 | | Load_Encached Natural_Cache
00bd 0092 04b4 | | Action Push_String_Extended,0x4b4 ; "Stop_Bits"
00bf 4802 |H | Short_Literal 0x2
00c0 4840 |H@ | Short_Literal 0x40
00c1 4802 |H | Short_Literal 0x2
00c2 0099 | | Action Reference_Dynamic
00c3 e001 | | Load 0x0,0x1
00c4 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36
00c5 480d |H | Short_Literal 0xd
00c6 4802 |H | Short_Literal 0x2
00c7 0099 | | Action Reference_Dynamic
00c8 e00d | | Load 0x0,0xd
00c9 e00e | | Load 0x0,0xe
00ca 4849 |HI | Short_Literal 0x49
00cb 0007 | | Action Break_Optional
00cc 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
00ce 4808 |H | Short_Literal 0x8
00cf 4802 |H | Short_Literal 0x2
00d0 0099 | | Action Reference_Dynamic
00d1 00c6 | | Action Check_Subprogram_Elaborated
00d2 e402 | | Load 0x2,0x2
00d3 0092 04b5 | | Action Push_String_Extended,0x4b5 ; "Flow_Control"
00d5 0092 04b6 | | Action Push_String_Extended,0x4b6 ; "None"
00d7 8409 | | Call 0x2,0x9
00d8 480a |H | Short_Literal 0xa
00d9 4802 |H | Short_Literal 0x2
00da 0099 | | Action Reference_Dynamic
00db 484a |HJ | Short_Literal 0x4a
00dc 4802 |H | Short_Literal 0x2
00dd 0099 | | Action Reference_Dynamic
00de 480b |H | Short_Literal 0xb
00df 4802 |H | Short_Literal 0x2
00e0 0099 | | Action Reference_Dynamic
00e1 e00f | | Load 0x0,0xf
00e2 e010 | | Load 0x0,0x10
00e3 4853 |HS | Short_Literal 0x53
00e4 0007 | | Action Break_Optional
00e5 029f 046b | k| Declare_Subprogram INIT_0468,For_Call
00e7 4808 |H | Short_Literal 0x8
00e8 4802 |H | Short_Literal 0x2
00e9 0099 | | Action Reference_Dynamic
00ea 00c6 | | Action Check_Subprogram_Elaborated
00eb e402 | | Load 0x2,0x2
00ec 0092 04b7 | | Action Push_String_Extended,0x4b7 ; "Receive_Flow_Control"
00ee 0092 04b6 | | Action Push_String_Extended,0x4b6 ; "None"
00f0 8409 | | Call 0x2,0x9
00f1 480a |H | Short_Literal 0xa
00f2 4802 |H | Short_Literal 0x2
00f3 0099 | | Action Reference_Dynamic
00f4 4854 |HT | Short_Literal 0x54
00f5 4802 |H | Short_Literal 0x2
00f6 0099 | | Action Reference_Dynamic
00f7 480b |H | Short_Literal 0xb
00f8 4802 |H | Short_Literal 0x2
00f9 0099 | | Action Reference_Dynamic
00fa e011 | | Load 0x0,0x11
00fb e012 | | Load 0x0,0x12
00fc 485d |H] | Short_Literal 0x5d
00fd 0007 | | Action Break_Optional
00fe 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
0100 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0102 4808 |H | Short_Literal 0x8
0103 4802 |H | Short_Literal 0x2
0104 0099 | | Action Reference_Dynamic
0105 00c6 | | Action Check_Subprogram_Elaborated
0106 e403 | | Load 0x2,0x3
0107 0092 04b8 | | Action Push_String_Extended,0x4b8 ; "Xon_Xoff"
0109 e403 | | Load 0x2,0x3
010a 0337 | 7 | Declare_Variable Array
010b 4811 |H | Short_Literal 0x11
010c 4801 |H | Short_Literal 0x1
010d 00da | | Load_Top At_Offset_2
010e 01d6 | | Execute Vector,Field_Write
010f 4813 |H | Short_Literal 0x13
0110 4802 |H | Short_Literal 0x2
0111 00da | | Load_Top At_Offset_2
0112 01d6 | | Execute Vector,Field_Write
0113 e403 | | Load 0x2,0x3
0114 01c3 | | Execute Vector,Check_In_Type
0115 485e |H^ | Short_Literal 0x5e
0116 4802 |H | Short_Literal 0x2
0117 0099 | | Action Reference_Dynamic
0118 e001 | | Load 0x0,0x1
0119 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39
011a 485f |H_ | Short_Literal 0x5f
011b 4802 |H | Short_Literal 0x2
011c 0099 | | Action Reference_Dynamic
011d e013 | | Load 0x0,0x13
011e e014 | | Load 0x0,0x14
011f 4868 |Hh | Short_Literal 0x68
0120 0007 | | Action Break_Optional
0121 4808 |H | Short_Literal 0x8
0122 4802 |H | Short_Literal 0x2
0123 0099 | | Action Reference_Dynamic
0124 00c6 | | Action Check_Subprogram_Elaborated
0125 e403 | | Load 0x2,0x3
0126 0092 04b9 | | Action Push_String_Extended,0x4b9 ; "Receive_Xon_Xoff"
0128 e403 | | Load 0x2,0x3
0129 0337 | 7 | Declare_Variable Array
012a 4811 |H | Short_Literal 0x11
012b 4801 |H | Short_Literal 0x1
012c 00da | | Load_Top At_Offset_2
012d 01d6 | | Execute Vector,Field_Write
012e 4813 |H | Short_Literal 0x13
012f 4802 |H | Short_Literal 0x2
0130 00da | | Load_Top At_Offset_2
0131 01d6 | | Execute Vector,Field_Write
0132 e403 | | Load 0x2,0x3
0133 01c3 | | Execute Vector,Check_In_Type
0134 485e |H^ | Short_Literal 0x5e
0135 4802 |H | Short_Literal 0x2
0136 0099 | | Action Reference_Dynamic
0137 e001 | | Load 0x0,0x1
0138 193b | ; | Execute Package,Field_Reference,Field_Number 0x3b
0139 485f |H_ | Short_Literal 0x5f
013a 4802 |H | Short_Literal 0x2
013b 0099 | | Action Reference_Dynamic
013c e015 | | Load 0x0,0x15
013d e016 | | Load 0x0,0x16
013e 4871 |Hq | Short_Literal 0x71
013f 0007 | | Action Break_Optional
0140 BODY_0018:
0140 e5fe | | Load 0x2,-0x2
0141 7008 |p | Jump_Nonzero 0x14a
0142 e404 | | Load 0x2,0x4
0143 00ea | | Load_Encached Null_String_Cache
0144 e5ff | | Load 0x2,-0x1
0145 4801 |H | Short_Literal 0x1
0146 e002 | | Load 0x0,0x2
0147 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0148 c404 | | Store 0x2,0x4
0149 7803 |x | Jump 0x14d
014a e002 | | Load 0x0,0x2
014b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
014c c404 | | Store 0x2,0x4
014d 4800 |H | Short_Literal 0x0
014e 48ff |H | Short_Literal 0xff
014f 4810 |H | Short_Literal 0x10
0150 e404 | | Load 0x2,0x4
0151 e40f | | Load 0x2,0xf
0152 e410 | | Load 0x2,0x10
0153 e411 | | Load 0x2,0x11
0154 4812 |H | Short_Literal 0x12
0155 4802 |H | Short_Literal 0x2
0156 0099 | | Action Reference_Dynamic
0157 4813 |H | Short_Literal 0x13
0158 4802 |H | Short_Literal 0x2
0159 0099 | | Action Reference_Dynamic
015a 4814 |H | Short_Literal 0x14
015b 4802 |H | Short_Literal 0x2
015c 0099 | | Action Reference_Dynamic
015d 4815 |H | Short_Literal 0x15
015e 4802 |H | Short_Literal 0x2
015f 0099 | | Action Reference_Dynamic
0160 8408 | | Call 0x2,0x8
0161 4801 |H | Short_Literal 0x1
0162 48ff |H | Short_Literal 0xff
0163 4810 |H | Short_Literal 0x10
0164 e404 | | Load 0x2,0x4
0165 e419 | | Load 0x2,0x19
0166 e41a | | Load 0x2,0x1a
0167 e41b | | Load 0x2,0x1b
0168 481c |H | Short_Literal 0x1c
0169 4802 |H | Short_Literal 0x2
016a 0099 | | Action Reference_Dynamic
016b 481d |H | Short_Literal 0x1d
016c 4802 |H | Short_Literal 0x2
016d 0099 | | Action Reference_Dynamic
016e 481e |H | Short_Literal 0x1e
016f 4802 |H | Short_Literal 0x2
0170 0099 | | Action Reference_Dynamic
0171 481f |H | Short_Literal 0x1f
0172 4802 |H | Short_Literal 0x2
0173 0099 | | Action Reference_Dynamic
0174 8408 | | Call 0x2,0x8
0175 4801 |H | Short_Literal 0x1
0176 48ff |H | Short_Literal 0xff
0177 4810 |H | Short_Literal 0x10
0178 e404 | | Load 0x2,0x4
0179 e423 | # | Load 0x2,0x23
017a e424 | $ | Load 0x2,0x24
017b e425 | % | Load 0x2,0x25
017c 4826 |H& | Short_Literal 0x26
017d 4802 |H | Short_Literal 0x2
017e 0099 | | Action Reference_Dynamic
017f 4827 |H' | Short_Literal 0x27
0180 4802 |H | Short_Literal 0x2
0181 0099 | | Action Reference_Dynamic
0182 4828 |H( | Short_Literal 0x28
0183 4802 |H | Short_Literal 0x2
0184 0099 | | Action Reference_Dynamic
0185 4829 |H) | Short_Literal 0x29
0186 4802 |H | Short_Literal 0x2
0187 0099 | | Action Reference_Dynamic
0188 8408 | | Call 0x2,0x8
0189 4801 |H | Short_Literal 0x1
018a 48ff |H | Short_Literal 0xff
018b 4810 |H | Short_Literal 0x10
018c e404 | | Load 0x2,0x4
018d e42d | - | Load 0x2,0x2d
018e e42e | . | Load 0x2,0x2e
018f e42f | / | Load 0x2,0x2f
0190 4830 |H0 | Short_Literal 0x30
0191 4802 |H | Short_Literal 0x2
0192 0099 | | Action Reference_Dynamic
0193 4831 |H1 | Short_Literal 0x31
0194 4802 |H | Short_Literal 0x2
0195 0099 | | Action Reference_Dynamic
0196 4832 |H2 | Short_Literal 0x32
0197 4802 |H | Short_Literal 0x2
0198 0099 | | Action Reference_Dynamic
0199 4833 |H3 | Short_Literal 0x33
019a 4802 |H | Short_Literal 0x2
019b 0099 | | Action Reference_Dynamic
019c 8408 | | Call 0x2,0x8
019d 4801 |H | Short_Literal 0x1
019e 48ff |H | Short_Literal 0xff
019f 4810 |H | Short_Literal 0x10
01a0 e404 | | Load 0x2,0x4
01a1 e437 | 7 | Load 0x2,0x37
01a2 e438 | 8 | Load 0x2,0x38
01a3 e439 | 9 | Load 0x2,0x39
01a4 483a |H: | Short_Literal 0x3a
01a5 4802 |H | Short_Literal 0x2
01a6 0099 | | Action Reference_Dynamic
01a7 483b |H; | Short_Literal 0x3b
01a8 4802 |H | Short_Literal 0x2
01a9 0099 | | Action Reference_Dynamic
01aa 483c |H< | Short_Literal 0x3c
01ab 4802 |H | Short_Literal 0x2
01ac 0099 | | Action Reference_Dynamic
01ad 483d |H= | Short_Literal 0x3d
01ae 4802 |H | Short_Literal 0x2
01af 0099 | | Action Reference_Dynamic
01b0 8408 | | Call 0x2,0x8
01b1 4801 |H | Short_Literal 0x1
01b2 48ff |H | Short_Literal 0xff
01b3 4810 |H | Short_Literal 0x10
01b4 e404 | | Load 0x2,0x4
01b5 e441 | A | Load 0x2,0x41
01b6 e442 | B | Load 0x2,0x42
01b7 e443 | C | Load 0x2,0x43
01b8 4844 |HD | Short_Literal 0x44
01b9 4802 |H | Short_Literal 0x2
01ba 0099 | | Action Reference_Dynamic
01bb 4845 |HE | Short_Literal 0x45
01bc 4802 |H | Short_Literal 0x2
01bd 0099 | | Action Reference_Dynamic
01be 4846 |HF | Short_Literal 0x46
01bf 4802 |H | Short_Literal 0x2
01c0 0099 | | Action Reference_Dynamic
01c1 4847 |HG | Short_Literal 0x47
01c2 4802 |H | Short_Literal 0x2
01c3 0099 | | Action Reference_Dynamic
01c4 8408 | | Call 0x2,0x8
01c5 4801 |H | Short_Literal 0x1
01c6 48ff |H | Short_Literal 0xff
01c7 4810 |H | Short_Literal 0x10
01c8 e404 | | Load 0x2,0x4
01c9 e44b | K | Load 0x2,0x4b
01ca e44c | L | Load 0x2,0x4c
01cb e44d | M | Load 0x2,0x4d
01cc 484e |HN | Short_Literal 0x4e
01cd 4802 |H | Short_Literal 0x2
01ce 0099 | | Action Reference_Dynamic
01cf 484f |HO | Short_Literal 0x4f
01d0 4802 |H | Short_Literal 0x2
01d1 0099 | | Action Reference_Dynamic
01d2 4850 |HP | Short_Literal 0x50
01d3 4802 |H | Short_Literal 0x2
01d4 0099 | | Action Reference_Dynamic
01d5 4851 |HQ | Short_Literal 0x51
01d6 4802 |H | Short_Literal 0x2
01d7 0099 | | Action Reference_Dynamic
01d8 8408 | | Call 0x2,0x8
01d9 4801 |H | Short_Literal 0x1
01da 48ff |H | Short_Literal 0xff
01db 4810 |H | Short_Literal 0x10
01dc e404 | | Load 0x2,0x4
01dd e455 | U | Load 0x2,0x55
01de e456 | V | Load 0x2,0x56
01df e457 | W | Load 0x2,0x57
01e0 4858 |HX | Short_Literal 0x58
01e1 4802 |H | Short_Literal 0x2
01e2 0099 | | Action Reference_Dynamic
01e3 4859 |HY | Short_Literal 0x59
01e4 4802 |H | Short_Literal 0x2
01e5 0099 | | Action Reference_Dynamic
01e6 485a |HZ | Short_Literal 0x5a
01e7 4802 |H | Short_Literal 0x2
01e8 0099 | | Action Reference_Dynamic
01e9 485b |H[ | Short_Literal 0x5b
01ea 4802 |H | Short_Literal 0x2
01eb 0099 | | Action Reference_Dynamic
01ec 8408 | | Call 0x2,0x8
01ed 4801 |H | Short_Literal 0x1
01ee 48ff |H | Short_Literal 0xff
01ef 4810 |H | Short_Literal 0x10
01f0 e404 | | Load 0x2,0x4
01f1 e460 | ` | Load 0x2,0x60
01f2 e461 | a | Load 0x2,0x61
01f3 e462 | b | Load 0x2,0x62
01f4 4863 |Hc | Short_Literal 0x63
01f5 4802 |H | Short_Literal 0x2
01f6 0099 | | Action Reference_Dynamic
01f7 4864 |Hd | Short_Literal 0x64
01f8 4802 |H | Short_Literal 0x2
01f9 0099 | | Action Reference_Dynamic
01fa 4865 |He | Short_Literal 0x65
01fb 4802 |H | Short_Literal 0x2
01fc 0099 | | Action Reference_Dynamic
01fd 4866 |Hf | Short_Literal 0x66
01fe 4802 |H | Short_Literal 0x2
01ff 0099 | | Action Reference_Dynamic
0200 8408 | | Call 0x2,0x8
0201 4801 |H | Short_Literal 0x1
0202 48ff |H | Short_Literal 0xff
0203 4810 |H | Short_Literal 0x10
0204 e404 | | Load 0x2,0x4
0205 e469 | i | Load 0x2,0x69
0206 e46a | j | Load 0x2,0x6a
0207 e46b | k | Load 0x2,0x6b
0208 486c |Hl | Short_Literal 0x6c
0209 4802 |H | Short_Literal 0x2
020a 0099 | | Action Reference_Dynamic
020b 486d |Hm | Short_Literal 0x6d
020c 4802 |H | Short_Literal 0x2
020d 0099 | | Action Reference_Dynamic
020e 486e |Hn | Short_Literal 0x6e
020f 4802 |H | Short_Literal 0x2
0210 0099 | | Action Reference_Dynamic
0211 486f |Ho | Short_Literal 0x6f
0212 4802 |H | Short_Literal 0x2
0213 0099 | | Action Reference_Dynamic
0214 8408 | | Call 0x2,0x8
0215 e5fe | | Load 0x2,-0x2
0216 7004 |p | Jump_Nonzero 0x21b
0217 e404 | | Load 0x2,0x4
0218 e002 | | Load 0x0,0x2
0219 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021a c404 | | Store 0x2,0x4
021b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021c TRAP_0018:
021c 0007 | | Action Break_Optional
021d e5fe | | Load 0x2,-0x2
021e 0f00 | | Execute_Immediate Equal,0x0
021f e404 | | Load 0x2,0x4
0220 e002 | | Load 0x0,0x2
0221 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0222 0279 | y | Execute Discrete,And
0223 6804 |h | Jump_Zero 0x228
0224 e404 | | Load 0x2,0x4
0225 e002 | | Load 0x0,0x2
0226 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0227 c404 | | Store 0x2,0x4
0228 e017 | | Load 0x0,0x17
0229 180e | | Execute Package,Field_Execute,Field_Number 0xe
022a 4807 |H | Short_Literal 0x7
022b 0092 04ba | | Action Push_String_Extended,0x4ba ; "An error occured creating the terminal configuration file, please check and correct by hand."
022d e018 | | Load 0x0,0x18
022e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 0ce1 | | Execute_Immediate Greater_Equal,-0x1f
0235 00db | | Load_Top At_Offset_3
0236 48ff |H | Short_Literal 0xff
0237 027a | z | Execute Discrete,Less_Equal
0238 0279 | y | Execute Discrete,And
0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023a 0000 0000 | | .BLANK 0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 e7fe | | Load 0x3,-0x2
0245 027b | { | Execute Discrete,Greater_Equal
0246 6804 |h | Jump_Zero 0x24b
0247 00da | | Load_Top At_Offset_2
0248 00e0 | | Load_Encached Standard_Cache
0249 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024b 00da | | Load_Top At_Offset_2
024c 00e0 | | Load_Encached Standard_Cache
024d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024e 0092 04bb | | Action Push_String_Extended,0x4bb ; " .."
0250 01cc | | Execute Vector,Catenate
0251 e7fe | | Load 0x3,-0x2
0252 00e0 | | Load_Encached Standard_Cache
0253 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0254 01cc | | Execute Vector,Catenate
0255 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e5fe | | Load 0x2,-0x2
025c 7025 |p% | Jump_Nonzero 0x282
025d 00db | | Load_Top At_Offset_3
025e 00db | | Load_Top At_Offset_3
025f 027d | } | Execute Discrete,Greater
0260 6811 |h | Jump_Zero 0x272
0261 e017 | | Load 0x0,0x17
0262 180e | | Execute Package,Field_Execute,Field_Number 0xe
0263 4803 |H | Short_Literal 0x3
0264 0092 04bc | | Action Push_String_Extended,0x4bc ; "The ports"
0266 e7fe | | Load 0x3,-0x2
0267 e7ff | | Load 0x3,-0x1
0268 8406 | | Call 0x2,0x6
0269 01cc | | Execute Vector,Catenate
026a 0092 04bd | | Action Push_String_Extended,0x4bd ; " have been set to "
026c 01cc | | Execute Vector,Catenate
026d e7fd | | Load 0x3,-0x3
026e 01cc | | Execute Vector,Catenate
026f e018 | | Load 0x0,0x18
0270 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0271 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0272 e017 | | Load 0x0,0x17
0273 180e | | Execute Package,Field_Execute,Field_Number 0xe
0274 4803 |H | Short_Literal 0x3
0275 0092 04be | | Action Push_String_Extended,0x4be ; "The port"
0277 e7fe | | Load 0x3,-0x2
0278 e7ff | | Load 0x3,-0x1
0279 8406 | | Call 0x2,0x6
027a 01cc | | Execute Vector,Catenate
027b 0092 04bf | | Action Push_String_Extended,0x4bf ; " has been set to "
027d 01cc | | Execute Vector,Catenate
027e e7fd | | Load 0x3,-0x3
027f 01cc | | Execute Vector,Catenate
0280 e018 | | Load 0x0,0x18
0281 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0282 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0283 0000 0000 | | .BLANK 0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 029d | | .CONST 0x029d ; Address of begin
0289 03b8 | | .CONST 0x03b8 ; Address of exception handler
028a 0007 | | .CONST 0x0007 ; Number of locals
028b INIT_0288:
028b e001 | | Load 0x0,0x1
028c 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
028d 02c7 | | Declare_Variable Any
028e 00d8 | | Load_Top At_Offset_0
028f 1c00 | | Execute_Immediate Run_Utility,0x0
0290 e7f9 | | Load 0x3,-0x7
0291 02c7 | | Declare_Variable Any
0292 00d8 | | Load_Top At_Offset_0
0293 1c00 | | Execute_Immediate Run_Utility,0x0
0294 e7f9 | | Load 0x3,-0x7
0295 02c7 | | Declare_Variable Any
0296 00d8 | | Load_Top At_Offset_0
0297 1c00 | | Execute_Immediate Run_Utility,0x0
0298 00e2 | | Load_Encached Integer_Cache
0299 4fff |O | Short_Literal -0x1
029a 00e2 | | Load_Encached Integer_Cache
029b 03f1 | | Declare_Variable Discrete,With_Value
029c 00e2 | | Load_Encached Integer_Cache
029d BODY_0288:
029d 00be | | Action Activate_Tasks
029e e602 | | Load 0x3,0x2
029f 0120 | | Execute Any,Is_Value
02a0 6803 |h | Jump_Zero 0x2a4
02a1 e001 | | Load 0x0,0x1
02a2 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
02a3 7801 |x | Jump 0x2a5
02a4 e602 | | Load 0x3,0x2
02a5 e001 | | Load 0x0,0x1
02a6 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
02a7 c602 | | Store 0x3,0x2
02a8 00cf | | Action Mark_Auxiliary
02a9 78ca |x | Jump 0x374
02aa e602 | | Load 0x3,0x2
02ab e001 | | Load 0x0,0x1
02ac 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
02ad a605 | | Store_Unchecked 0x3,0x5
02ae 00db | | Load_Top At_Offset_3
02af e7f7 | | Load 0x3,-0x9
02b0 027b | { | Execute Discrete,Greater_Equal
02b1 e605 | | Load 0x3,0x5
02b2 e7f6 | | Load 0x3,-0xa
02b3 027a | z | Execute Discrete,Less_Equal
02b4 0279 | y | Execute Discrete,And
02b5 68b9 |h | Jump_Zero 0x36f
02b6 e7f5 | | Load 0x3,-0xb
02b7 6808 |h | Jump_Zero 0x2c0
02b8 00db | | Load_Top At_Offset_3
02b9 00d8 | | Load_Top At_Offset_0
02ba 00e3 | | Load_Encached Natural_Cache
02bb 0260 | ` | Execute Discrete,In_Type
02bc 7001 |p | Jump_Nonzero 0x2be
02bd 0801 | | Execute_Immediate Raise,0x1
02be 8405 | | Call 0x2,0x5
02bf 70af |p | Jump_Nonzero 0x36f
02c0 00db | | Load_Top At_Offset_3
02c1 00d8 | | Load_Top At_Offset_0
02c2 00e3 | | Load_Encached Natural_Cache
02c3 0260 | ` | Execute Discrete,In_Type
02c4 7001 |p | Jump_Nonzero 0x2c6
02c5 0801 | | Execute_Immediate Raise,0x1
02c6 87fd | | Call 0x3,-0x3
02c7 c603 | | Store 0x3,0x3
02c8 00da | | Load_Top At_Offset_2
02c9 4fff |O | Short_Literal -0x1
02ca 027f | | Execute Discrete,Equal
02cb 6807 |h | Jump_Zero 0x2d3
02cc 00db | | Load_Top At_Offset_3
02cd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02ce 00db | | Load_Top At_Offset_3
02cf 0aff | | Execute_Immediate Plus,-0x1
02d0 005a | Z | Store_Top Discrete,At_Offset_2
02d1 e603 | | Load 0x3,0x3
02d2 c604 | | Store 0x3,0x4
02d3 e7fb | | Load 0x3,-0x5
02d4 e7f9 | | Load 0x3,-0x7
02d5 0119 | | Execute Any,Check_In_Formal_Type
02d6 e603 | | Load 0x3,0x3
02d7 e7f9 | | Load 0x3,-0x7
02d8 0119 | | Execute Any,Check_In_Formal_Type
02d9 87fe | | Call 0x3,-0x2
02da 7050 |pP | Jump_Nonzero 0x32b
02db 00db | | Load_Top At_Offset_3
02dc 00da | | Load_Top At_Offset_2
02dd 0a01 | | Execute_Immediate Plus,0x1
02de 027e | ~ | Execute Discrete,Not_Equal
02df 7008 |p | Jump_Nonzero 0x2e8
02e0 e604 | | Load 0x3,0x4
02e1 e7f9 | | Load 0x3,-0x7
02e2 0119 | | Execute Any,Check_In_Formal_Type
02e3 e603 | | Load 0x3,0x3
02e4 e7f9 | | Load 0x3,-0x7
02e5 0119 | | Execute Any,Check_In_Formal_Type
02e6 87fe | | Call 0x3,-0x2
02e7 7085 |p | Jump_Nonzero 0x36d
02e8 e7fb | | Load 0x3,-0x5
02e9 e7f9 | | Load 0x3,-0x7
02ea 0119 | | Execute Any,Check_In_Formal_Type
02eb e604 | | Load 0x3,0x4
02ec e7f9 | | Load 0x3,-0x7
02ed 0119 | | Execute Any,Check_In_Formal_Type
02ee 87fe | | Call 0x3,-0x2
02ef 7036 |p6 | Jump_Nonzero 0x326
02f0 00d9 | | Load_Top At_Offset_1
02f1 00d8 | | Load_Top At_Offset_0
02f2 00e3 | | Load_Encached Natural_Cache
02f3 0260 | ` | Execute Discrete,In_Type
02f4 7001 |p | Jump_Nonzero 0x2f6
02f5 0801 | | Execute_Immediate Raise,0x1
02f6 00db | | Load_Top At_Offset_3
02f7 00d8 | | Load_Top At_Offset_0
02f8 00e3 | | Load_Encached Natural_Cache
02f9 0260 | ` | Execute Discrete,In_Type
02fa 7001 |p | Jump_Nonzero 0x2fc
02fb 0801 | | Execute_Immediate Raise,0x1
02fc 8406 | | Call 0x2,0x6
02fd 0092 04c0 | | Action Push_String_Extended,0x4c0 ; " => ("
02ff 01cc | | Execute Vector,Catenate
0300 e7fa | | Load 0x3,-0x6
0301 01cc | | Execute Vector,Catenate
0302 0092 04c1 | | Action Push_String_Extended,0x4c1 ; " => "
0304 01cc | | Execute Vector,Catenate
0305 e604 | | Load 0x3,0x4
0306 e7f9 | | Load 0x3,-0x7
0307 0119 | | Execute Any,Check_In_Formal_Type
0308 87fc | | Call 0x3,-0x4
0309 01cc | | Execute Vector,Catenate
030a 0092 04c2 | | Action Push_String_Extended,0x4c2 ; ")"
030c 01cc | | Execute Vector,Catenate
030d e7f8 | | Load 0x3,-0x8
030e e002 | | Load 0x0,0x2
030f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0310 e7fa | | Load 0x3,-0x6
0311 0092 04c1 | | Action Push_String_Extended,0x4c1 ; " => "
0313 01cc | | Execute Vector,Catenate
0314 e604 | | Load 0x3,0x4
0315 e7f9 | | Load 0x3,-0x7
0316 0119 | | Execute Any,Check_In_Formal_Type
0317 87fc | | Call 0x3,-0x4
0318 01cc | | Execute Vector,Catenate
0319 00da | | Load_Top At_Offset_2
031a 00d8 | | Load_Top At_Offset_0
031b 00e3 | | Load_Encached Natural_Cache
031c 0260 | ` | Execute Discrete,In_Type
031d 7001 |p | Jump_Nonzero 0x31f
031e 0801 | | Execute_Immediate Raise,0x1
031f e606 | | Load 0x3,0x6
0320 00d8 | | Load_Top At_Offset_0
0321 00e3 | | Load_Encached Natural_Cache
0322 0260 | ` | Execute Discrete,In_Type
0323 7001 |p | Jump_Nonzero 0x325
0324 0801 | | Execute_Immediate Raise,0x1
0325 8407 | | Call 0x2,0x7
0326 e603 | | Load 0x3,0x3
0327 c604 | | Store 0x3,0x4
0328 00db | | Load_Top At_Offset_3
0329 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
032a 7842 |xB | Jump 0x36d
032b e604 | | Load 0x3,0x4
032c e7f9 | | Load 0x3,-0x7
032d 0119 | | Execute Any,Check_In_Formal_Type
032e e603 | | Load 0x3,0x3
032f e7f9 | | Load 0x3,-0x7
0330 0119 | | Execute Any,Check_In_Formal_Type
0331 87fe | | Call 0x3,-0x2
0332 703a |p: | Jump_Nonzero 0x36d
0333 00d9 | | Load_Top At_Offset_1
0334 00d8 | | Load_Top At_Offset_0
0335 00e3 | | Load_Encached Natural_Cache
0336 0260 | ` | Execute Discrete,In_Type
0337 7001 |p | Jump_Nonzero 0x339
0338 0801 | | Execute_Immediate Raise,0x1
0339 00db | | Load_Top At_Offset_3
033a 00d8 | | Load_Top At_Offset_0
033b 00e3 | | Load_Encached Natural_Cache
033c 0260 | ` | Execute Discrete,In_Type
033d 7001 |p | Jump_Nonzero 0x33f
033e 0801 | | Execute_Immediate Raise,0x1
033f 8406 | | Call 0x2,0x6
0340 0092 04c0 | | Action Push_String_Extended,0x4c0 ; " => ("
0342 01cc | | Execute Vector,Catenate
0343 e7fa | | Load 0x3,-0x6
0344 01cc | | Execute Vector,Catenate
0345 0092 04c1 | | Action Push_String_Extended,0x4c1 ; " => "
0347 01cc | | Execute Vector,Catenate
0348 e604 | | Load 0x3,0x4
0349 e7f9 | | Load 0x3,-0x7
034a 0119 | | Execute Any,Check_In_Formal_Type
034b 87fc | | Call 0x3,-0x4
034c 01cc | | Execute Vector,Catenate
034d 0092 04c2 | | Action Push_String_Extended,0x4c2 ; ")"
034f 01cc | | Execute Vector,Catenate
0350 e7f8 | | Load 0x3,-0x8
0351 e002 | | Load 0x0,0x2
0352 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0353 e7fa | | Load 0x3,-0x6
0354 0092 04c1 | | Action Push_String_Extended,0x4c1 ; " => "
0356 01cc | | Execute Vector,Catenate
0357 e604 | | Load 0x3,0x4
0358 e7f9 | | Load 0x3,-0x7
0359 0119 | | Execute Any,Check_In_Formal_Type
035a 87fc | | Call 0x3,-0x4
035b 01cc | | Execute Vector,Catenate
035c 00da | | Load_Top At_Offset_2
035d 00d8 | | Load_Top At_Offset_0
035e 00e3 | | Load_Encached Natural_Cache
035f 0260 | ` | Execute Discrete,In_Type
0360 7001 |p | Jump_Nonzero 0x362
0361 0801 | | Execute_Immediate Raise,0x1
0362 e606 | | Load 0x3,0x6
0363 00d8 | | Load_Top At_Offset_0
0364 00e3 | | Load_Encached Natural_Cache
0365 0260 | ` | Execute Discrete,In_Type
0366 7001 |p | Jump_Nonzero 0x368
0367 0801 | | Execute_Immediate Raise,0x1
0368 8407 | | Call 0x2,0x7
0369 e603 | | Load 0x3,0x3
036a c604 | | Store 0x3,0x4
036b 00db | | Load_Top At_Offset_3
036c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
036d 00db | | Load_Top At_Offset_3
036e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
036f e602 | | Load 0x3,0x2
0370 e001 | | Load 0x0,0x1
0371 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0372 c602 | | Store 0x3,0x2
0373 00c9 | | Action Pop_Auxiliary_Loop
0374 e602 | | Load 0x3,0x2
0375 e001 | | Load 0x0,0x1
0376 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
0377 6f32 |o2 | Jump_Zero 0x2aa
0378 00ce | | Action Pop_Auxiliary
0379 e7fb | | Load 0x3,-0x5
037a e7f9 | | Load 0x3,-0x7
037b 0119 | | Execute Any,Check_In_Formal_Type
037c e604 | | Load 0x3,0x4
037d e7f9 | | Load 0x3,-0x7
037e 0119 | | Execute Any,Check_In_Formal_Type
037f 87fe | | Call 0x3,-0x2
0380 7036 |p6 | Jump_Nonzero 0x3b7
0381 00d8 | | Load_Top At_Offset_0
0382 00d8 | | Load_Top At_Offset_0
0383 00e3 | | Load_Encached Natural_Cache
0384 0260 | ` | Execute Discrete,In_Type
0385 7001 |p | Jump_Nonzero 0x387
0386 0801 | | Execute_Immediate Raise,0x1
0387 00da | | Load_Top At_Offset_2
0388 00d8 | | Load_Top At_Offset_0
0389 00e3 | | Load_Encached Natural_Cache
038a 0260 | ` | Execute Discrete,In_Type
038b 7001 |p | Jump_Nonzero 0x38d
038c 0801 | | Execute_Immediate Raise,0x1
038d 8406 | | Call 0x2,0x6
038e 0092 04c0 | | Action Push_String_Extended,0x4c0 ; " => ("
0390 01cc | | Execute Vector,Catenate
0391 e7fa | | Load 0x3,-0x6
0392 01cc | | Execute Vector,Catenate
0393 0092 04c1 | | Action Push_String_Extended,0x4c1 ; " => "
0395 01cc | | Execute Vector,Catenate
0396 e604 | | Load 0x3,0x4
0397 e7f9 | | Load 0x3,-0x7
0398 0119 | | Execute Any,Check_In_Formal_Type
0399 87fc | | Call 0x3,-0x4
039a 01cc | | Execute Vector,Catenate
039b 0092 04c2 | | Action Push_String_Extended,0x4c2 ; ")"
039d 01cc | | Execute Vector,Catenate
039e e7f8 | | Load 0x3,-0x8
039f e002 | | Load 0x0,0x2
03a0 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
03a1 e7fa | | Load 0x3,-0x6
03a2 0092 04c1 | | Action Push_String_Extended,0x4c1 ; " => "
03a4 01cc | | Execute Vector,Catenate
03a5 e604 | | Load 0x3,0x4
03a6 e7f9 | | Load 0x3,-0x7
03a7 0119 | | Execute Any,Check_In_Formal_Type
03a8 87fc | | Call 0x3,-0x4
03a9 01cc | | Execute Vector,Catenate
03aa 00d9 | | Load_Top At_Offset_1
03ab 00d8 | | Load_Top At_Offset_0
03ac 00e3 | | Load_Encached Natural_Cache
03ad 0260 | ` | Execute Discrete,In_Type
03ae 7001 |p | Jump_Nonzero 0x3b0
03af 0801 | | Execute_Immediate Raise,0x1
03b0 00db | | Load_Top At_Offset_3
03b1 00d8 | | Load_Top At_Offset_0
03b2 00e3 | | Load_Encached Natural_Cache
03b3 0260 | ` | Execute Discrete,In_Type
03b4 7001 |p | Jump_Nonzero 0x3b6
03b5 0801 | | Execute_Immediate Raise,0x1
03b6 8407 | | Call 0x2,0x7
03b7 450c |E | Exit_Suprogram New_Top_Offset 0xc
03b8 TRAP_0288:
03b8 0007 | | Action Break_Optional
03b9 e017 | | Load 0x0,0x17
03ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
03bb 4807 |H | Short_Literal 0x7
03bc e7fa | | Load 0x3,-0x6
03bd 0092 04c3 | | Action Push_String_Extended,0x4c3 ; " could not be set."
03bf 01cc | | Execute Vector,Catenate
03c0 e018 | | Load 0x0,0x18
03c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03c2 450c |E | Exit_Suprogram New_Top_Offset 0xc
03c3 0000 0000 | | .BLANK 0000[0x5]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 00da | | Load_Top At_Offset_2
03cc e402 | | Load 0x2,0x2
03cd 03b6 | | Declare_Variable Access,By_Allocation,With_Value
03ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03cf 0000 | | .XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 00da | | Load_Top At_Offset_2
03d4 0227 | ' | Execute Access,All_Reference
03d5 0335 | 5 | Declare_Variable Array,Duplicate
03d6 00cd | | Action Spare6_Action
03d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 4801 |H | Short_Literal 0x1
03dc e7fe | | Load 0x3,-0x2
03dd 0227 | ' | Execute Access,All_Reference
03de e7ff | | Load 0x3,-0x1
03df 0227 | ' | Execute Access,All_Reference
03e0 e019 | | Load 0x0,0x19
03e1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e3 0000 0000 | | .BLANK 0000[0x5]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec e7fe | | Load 0x3,-0x2
03ed 027f | | Execute Discrete,Equal
03ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
03f4 e7fe | | Load 0x3,-0x2
03f5 027f | | Execute Discrete,Equal
03f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f7 0000 | | .XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 00e1 | | Load_Encached Boolean_Cache
03fd 011c | | Execute Any,Convert_Unchecked
03fe 1c01 | | Execute_Immediate Run_Utility,0x1
03ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 00da | | Load_Top At_Offset_2
0404 e001 | | Load 0x0,0x1
0405 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0406 00d9 | | Load_Top At_Offset_1
0407 00d0 | | Action Swap_Control
0408 0260 | ` | Execute Discrete,In_Type
0409 7001 |p | Jump_Nonzero 0x40b
040a 0801 | | Execute_Immediate Raise,0x1
040b e001 | | Load 0x0,0x1
040c 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
040d 8409 | | Call 0x2,0x9
040e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040f 0000 | | .XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 e001 | | Load 0x0,0x1
0415 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0416 00d9 | | Load_Top At_Offset_1
0417 00d0 | | Action Swap_Control
0418 0260 | ` | Execute Discrete,In_Type
0419 7001 |p | Jump_Nonzero 0x41b
041a 0801 | | Execute_Immediate Raise,0x1
041b e001 | | Load 0x0,0x1
041c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
041d 8409 | | Call 0x2,0x9
041e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
041f 0000 | | .XXX[0x1]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00da | | Load_Top At_Offset_2
0424 e001 | | Load 0x0,0x1
0425 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0426 011c | | Execute Any,Convert_Unchecked
0427 1c01 | | Execute_Immediate Run_Utility,0x1
0428 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 0092 04c4 | | Action Push_String_Extended,0x4c4 ; "Char_"
0435 4820 |H | Short_Literal 0x20
0436 4800 |H | Short_Literal 0x0
0437 480a |H | Short_Literal 0xa
0438 e7ff | | Load 0x3,-0x1
0439 e001 | | Load 0x0,0x1
043a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
043b 00d9 | | Load_Top At_Offset_1
043c 00d0 | | Action Swap_Control
043d 0260 | ` | Execute Discrete,In_Type
043e 7001 |p | Jump_Nonzero 0x440
043f 0801 | | Execute_Immediate Raise,0x1
0440 e001 | | Load 0x0,0x1
0441 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0442 e019 | | Load 0x0,0x19
0443 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0444 01cc | | Execute Vector,Catenate
0445 8409 | | Call 0x2,0x9
0446 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0447 0000 | | .XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 00d8 | | Load_Top At_Offset_0
044d 00e2 | | Load_Encached Integer_Cache
044e 0260 | ` | Execute Discrete,In_Type
044f 7001 |p | Jump_Nonzero 0x451
0450 0801 | | Execute_Immediate Raise,0x1
0451 00e0 | | Load_Encached Standard_Cache
0452 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c e001 | | Load 0x0,0x1
045d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
045e 00d9 | | Load_Top At_Offset_1
045f 00d0 | | Action Swap_Control
0460 0260 | ` | Execute Discrete,In_Type
0461 7001 |p | Jump_Nonzero 0x463
0462 0801 | | Execute_Immediate Raise,0x1
0463 e001 | | Load 0x0,0x1
0464 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0465 8409 | | Call 0x2,0x9
0466 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0467 0000 | | .XXX[0x1]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b 00da | | Load_Top At_Offset_2
046c e001 | | Load 0x0,0x1
046d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
046e 00d9 | | Load_Top At_Offset_1
046f 00d0 | | Action Swap_Control
0470 0260 | ` | Execute Discrete,In_Type
0471 7001 |p | Jump_Nonzero 0x473
0472 0801 | | Execute_Immediate Raise,0x1
0473 e001 | | Load 0x0,0x1
0474 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0475 8409 | | Call 0x2,0x9
0476 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0477 0000 | | .XXX[0x1]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047b | { | .CONST 0x047b ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0001 | | .CONST 0x0001 ; Number of locals
047b BODY_0478:
047b INIT_0478:
047b 0092 04c5 | | Action Push_String_Extended,0x4c5 ; "("
047d 4820 |H | Short_Literal 0x20
047e 4800 |H | Short_Literal 0x0
047f 480a |H | Short_Literal 0xa
0480 4801 |H | Short_Literal 0x1
0481 e7ff | | Load 0x3,-0x1
0482 01d7 | | Execute Vector,Field_Read
0483 e019 | | Load 0x0,0x19
0484 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0485 01cc | | Execute Vector,Catenate
0486 0092 04c6 | | Action Push_String_Extended,0x4c6 ; ","
0488 01cc | | Execute Vector,Catenate
0489 4820 |H | Short_Literal 0x20
048a 4800 |H | Short_Literal 0x0
048b 480a |H | Short_Literal 0xa
048c 4802 |H | Short_Literal 0x2
048d e7ff | | Load 0x3,-0x1
048e 01d7 | | Execute Vector,Field_Read
048f e019 | | Load 0x0,0x19
0490 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0491 01cc | | Execute Vector,Catenate
0492 0092 04c2 | | Action Push_String_Extended,0x4c2 ; ")"
0494 01cc | | Execute Vector,Catenate
0495 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0496 0000 0000 | | .XXX[0x2]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 4801 |H | Short_Literal 0x1
049c 00db | | Load_Top At_Offset_3
049d 01d7 | | Execute Vector,Field_Read
049e 4801 |H | Short_Literal 0x1
049f e7fe | | Load 0x3,-0x2
04a0 01d7 | | Execute Vector,Field_Read
04a1 027f | | Execute Discrete,Equal
04a2 6808 |h | Jump_Zero 0x4ab
04a3 4802 |H | Short_Literal 0x2
04a4 00db | | Load_Top At_Offset_3
04a5 01d7 | | Execute Vector,Field_Read
04a6 4802 |H | Short_Literal 0x2
04a7 e7fe | | Load 0x3,-0x2
04a8 01d7 | | Execute Vector,Field_Read
04a9 027f | | Execute Discrete,Equal
04aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ab 4800 |H | Short_Literal 0x0
04ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ad ; --------------------------------------------------------------------------------------
04ad ; STRING TABLE
04ad ; --------------------------------------------------------------------------------------
04ad 0036 | 6 | .STRTAB 0x0036->0x04c8 ; "Enable"
04ae 003a | : | .STRTAB 0x003a->0x04cb ; "Input_Rate"
04af 0042 | B | .STRTAB 0x0042->0x04d0 ; "Baud_9600"
04b0 0049 | I | .STRTAB 0x0049->0x04d4 ; "Output_Rate"
04b1 0052 | R | .STRTAB 0x0052->0x04da ; "Parity"
04b2 0056 | V | .STRTAB 0x0056->0x04dd ; "Bits_Per_Char"
04b3 0061 | a | .STRTAB 0x0061->0x04e3 ; "Char_8"
04b4 0065 | e | .STRTAB 0x0065->0x04e6 ; "Stop_Bits"
04b5 006c | l | .STRTAB 0x006c->0x04eb ; "Flow_Control"
04b6 0076 | v | .STRTAB 0x0076->0x04f1 ; "None"
04b7 0078 | x | .STRTAB 0x0078->0x04f3 ; "Receive_Flow_Control"
04b8 008a | | .STRTAB 0x008a->0x04fd ; "Xon_Xoff"
04b9 0090 | | .STRTAB 0x0090->0x0501 ; "Receive_Xon_Xoff"
04ba 009e | | .STRTAB 0x009e->0x0509 ; "An error occured creating the terminal configuration file, please check and correct by hand."
04bb 00f8 | | .STRTAB 0x00f8->0x0537 ; " .."
04bc 00f9 | | .STRTAB 0x00f9->0x0538 ; "The ports"
04bd 0100 | | .STRTAB 0x0100->0x053d ; " have been set to "
04be 0110 | | .STRTAB 0x0110->0x0546 ; "The port"
04bf 0116 | | .STRTAB 0x0116->0x054a ; " has been set to "
04c0 0125 | % | .STRTAB 0x0125->0x0552 ; " => ("
04c1 0128 | ( | .STRTAB 0x0128->0x0555 ; " => "
04c2 012a | * | .STRTAB 0x012a->0x0557 ; ")"
04c3 0129 | ) | .STRTAB 0x0129->0x0557 ; " could not be set."
04c4 0139 | 9 | .STRTAB 0x0139->0x0560 ; "Char_"
04c5 013c | < | .STRTAB 0x013c->0x0563 ; "("
04c6 013b | ; | .STRTAB 0x013b->0x0563 ; ","
04c7 013a | : | .STREND 0x013a->0x0564
04c8 456e 6162 |Enab| .STRTAB_STRINGS
0564 0000 0000 | | .BLANK 0000[0x4]
0568 ; --------------------------------------------------------------------------------------
0568 ; Debug Table
0568 ; --------------------------------------------------------------------------------------
0568 0004 0001 | | .DEBUG4 0x0004,0x0001,0x3abd,0x0000,0x0001,0x0000
056e 51a5 b595 |Q | .XXX[0x92]
0570 ccb5 09bd | |
0572 b190 80dc | |
0574 d0b8 dcc8 | |
0576 c080 c4c4 | |
0578 8111 3918 | 9 |
057a 8149 4028 | I@(|
057c c4c0 c0e4 | |
057e 80cc d4c4 | |
0580 8161 6481 | ad |
0582 18d0 d4a1 | |
0584 4985 d1a5 |I |
0586 bdb9 85b1 | |
0588 94a5 4c80 | L |
058a d0c8 81e0 | |
058c a199 bdc8 | |
058e a54c 80d0 | L |
0590 cc81 e0a1 | |
0592 d1a1 94a5 | |
0594 4c80 d0cc |L |
0596 e081 6480 | d |
0598 d4d4 d481 | |
059a 60a1 41c8 |` A |
059c a54c 28b4 | L( |
059e c481 e0a1 | |
05a0 bdc1 bdcd | |
05a2 9590 a54c | L|
05a4 80cc c081 | |
05a6 e0a1 4dd1 | M |
05a8 85b9 9185 | |
05aa c990 a54c | L|
05ac 80cc c481 | |
05ae e0a1 99bd | |
05b0 c8a5 4c80 | L |
05b2 ccc4 81e0 | |
05b4 a184 a54c | L|
05b6 80cc c481 | |
05b8 e0a1 1d95 | |
05ba b995 c9a5 | |
05bc 8ca5 4c80 | L |
05be 28cc c481 |( |
05c0 e0a1 4185 | A |
05c2 8dad 859d | |
05c4 94a5 4c80 | L |
05c6 ccc4 81e0 | |
05c8 a1bd 98a5 | |
05ca 4c80 d4c8 |L |
05cc d481 6480 | d |
05ce dce0 e081 | |
05d0 60a1 15b1 |` |
05d2 95b5 95b9 | |
05d4 d185 c9e4 | |
05d6 a54c 80cc | L |
05d8 dc81 e0a1 | |
05da 19d5 b98d | |
05dc d1a5 bdb9 | |
05de cca5 4c28 | L(|
05e0 ccdc 81e0 | |
05e2 a199 bdc8 | |
05e4 a54c 80cc | L |
05e6 dc81 e0a1 | |
05e8 0591 84a5 | |
05ea 4c29 6140 |L)a@|
05ec 80bd 18c8 | |
05ee 80bd 0d34 | 4|
05f0 b551 a5b5 | Q |
05f2 95cc b509 | |
05f4 bdb1 9080 | |
05f6 d0e4 b8e0 | |
05f8 c4cc 80c4 | |
05fa c481 1118 | |
05fc 8149 4028 | I@(|
05fe c4c0 e4d4 | |