|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0478 | x | .CONST 0x0478 ; 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 0003 | | .CONST 0x0003 ; 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 ; Debug Table 0x0 = .DEBUG 0x000b,0x0532,0x8000,0x0000,0x002c,0xbbb4,0x0000,0x0012
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 006c | l | .CONST 0x006c ; Address of begin
0019 00ba | | .CONST 0x00ba ; Address of exception handler
001a 001e | | .CONST 0x001e ; Number of locals
001b INIT_0018:
001b 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001b,0x0534,0x8001,0x0000,0x002c,0xbbb4,0x0000,0x0012
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001e 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 4900 |I | Short_Literal 0x100
0020 00e1 | | Load_Encached Boolean_Cache
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 035d | ] | Declare_Type Array,Defined
0024 00d8 | | Load_Top At_Offset_0
0025 0337 | 7 | Declare_Variable Array
0026 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1.0x3 = 0x26,0xfffc
0027 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x4 = 0x27,0xfffb
0028 624b |bK | Indirect_Literal Discrete,0x274,{0x00c62c0a, 0x000027b0}
0029 02a0 | | Declare_Subprogram Null_Subprogram
002a 037a | z | Declare_Type Task,Defined,Not_Elaborated
002b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x5 = 0x2b,0xfffa
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d 4818 |H | Short_Literal 0x18
002e 03d3 | | Declare_Type Access,Defined,Accesses_Protected
002f 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x6 = 0x2f,0xfff9
0030 4900 |I | Short_Literal 0x100
0031 00da | | Load_Top At_Offset_2
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 4801 |H | Short_Literal 0x1
0034 035d | ] | Declare_Type Array,Defined
0035 00d8 | | Load_Top At_Offset_0
0036 0337 | 7 | Declare_Variable Array
0037 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x7 = 0x37,0xfff8
0038 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0039 02c7 | | Declare_Variable Any
003a 00d8 | | Load_Top At_Offset_0
003b 1c00 | | Execute_Immediate Run_Utility,0x0
003c e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x8 = 0x3c,0xfff7
003d 0611 | | Execute_Immediate Set_Value_Unchecked,0x11
003e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x9 = 0x3e,0xfff6
003f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0xa = 0x3f,0xfff5
0040 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call ; Debug Table 0x1.0xb = 0x40,0xfff4
0042 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call ; Debug Table 0x1.0xc = 0x42,0xfff3
0044 029f 00db | | Declare_Subprogram INIT_00d8,For_Call ; Debug Table 0x1.0xd = 0x44,0xfff2
0046 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call ; Debug Table 0x1.0xe = 0x46,0xfff1
0048 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call ; Debug Table 0x1.0xf = 0x48,0xfff0
004a 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call ; Debug Table 0x1.0x10 = 0x4a,0xffef
004c 029f 010b | | Declare_Subprogram INIT_0108,For_Call ; Debug Table 0x1.0x11 = 0x4c,0xffee
004e 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call ; Debug Table 0x1.0x12 = 0x4e,0xffed
0050 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call ; Debug Table 0x1.0x13 = 0x50,0xffec
0052 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call ; Debug Table 0x1.0x14 = 0x52,0xffeb
0054 029f 018b | | Declare_Subprogram INIT_0188,For_Call ; Debug Table 0x1.0x15 = 0x54,0xffea
0056 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call ; Debug Table 0x1.0x16 = 0x56,0xffe9
0058 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call ; Debug Table 0x1.0x17 = 0x58,0xffe8
005a 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call ; Debug Table 0x1.0x18 = 0x5a,0xffe7
005c 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call ; Debug Table 0x1.0x19 = 0x5c,0xffe6
005e e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x1a = 0x5e,0xffe5
005f 481c |H | Short_Literal 0x1c
0060 4802 |H | Short_Literal 0x2
0061 0099 | | Action Reference_Dynamic
0062 4802 |H | Short_Literal 0x2
0063 e406 | | Load 0x2,0x6
0064 020e | | Execute Module,Augment_Imports
0065 e406 | | Load 0x2,0x6
0066 020d | | Execute Module,Elaborate
0067 0007 | | Action Break_Optional
0068 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call ; Debug Table 0x1.0x1b = 0x68,0xffe4
006a 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call ; Debug Table 0x1.0x1c = 0x6a,0xffe3
006c BODY_0018:
006c 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "Terminal Manager Test"
; Debug Table 0x1.0x1d = 0x6c,0x1
006e 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "Test_Terminal"
0070 e002 | | Load 0x0,0x2
0071 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0072 0092 02a6 | | Action Push_String_Extended,0x2a6 ; " Port"
; Debug Table 0x1.0x1e = 0x72,0x2
0074 e40b | | Load 0x2,0xb
0075 840e | | Call 0x2,0xe
0076 01cc | | Execute Vector,Catenate
0077 0092 02a7 | | Action Push_String_Extended,0x2a7 ; " is used for input"
0079 01cc | | Execute Vector,Catenate
007a e002 | | Load 0x0,0x2
007b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
007c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x1f = 0x7c,0x3
007d e40a | | Load 0x2,0xa
007e 0120 | | Execute Any,Is_Value
007f 6803 |h | Jump_Zero 0x83
0080 e001 | | Load 0x0,0x1
0081 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0082 7801 |x | Jump 0x84
0083 e40a | | Load 0x2,0xa
0084 e003 | | Load 0x0,0x3
0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0086 4800 |H | Short_Literal 0x0
0087 e40b | | Load 0x2,0xb
0088 e001 | | Load 0x0,0x1
0089 1814 | | Execute Package,Field_Execute,Field_Number 0x14
008a e001 | | Load 0x0,0x1
008b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008c c40a | | Store 0x2,0xa
008d c40c | | Store 0x2,0xc
008e 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "open of console"
; Debug Table 0x1.0x20 = 0x8e,0x4
0090 e40b | | Load 0x2,0xb
0091 e40c | | Load 0x2,0xc
0092 8418 | | Call 0x2,0x18
0093 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x21 = 0x93,0x5
0094 e40a | | Load 0x2,0xa
0095 e001 | | Load 0x0,0x1
0096 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0097 8417 | | Call 0x2,0x17 ; Debug Table 0x1.0x22 = 0x97,0x6
0098 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x23 = 0x98,0x7
0099 e40a | | Load 0x2,0xa
009a e001 | | Load 0x0,0x1
009b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
009c c40a | | Store 0x2,0xa
009d c40d | | Store 0x2,0xd
009e 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "close of console"
; Debug Table 0x1.0x24 = 0x9e,0x8
00a0 e40b | | Load 0x2,0xb
00a1 e40d | | Load 0x2,0xd
00a2 8418 | | Call 0x2,0x18
00a3 4900 |I | Short_Literal 0x100 ; Debug Table 0x1.0x25 = 0xa3,0x9
00a4 4800 |H | Short_Literal 0x0
00a5 0007 | | Action Break_Optional
00a6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x26 = 0xa6,0xa
00a7 e404 | | Load 0x2,0x4
00a8 01d7 | | Execute Vector,Field_Read
00a9 6802 |h | Jump_Zero 0xac
00aa 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x27 = 0xaa,0xb
00ab 841d | | Call 0x2,0x1d
00ac 3ff9 |? | Loop_Increasing 0xa6
00ad 4900 |I | Short_Literal 0x100 ; Debug Table 0x1.0x28 = 0xad,0xc
00ae 4800 |H | Short_Literal 0x0
00af 0007 | | Action Break_Optional
00b0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x29 = 0xb0,0xd
00b1 e404 | | Load 0x2,0x4
00b2 01d7 | | Execute Vector,Field_Read
00b3 6802 |h | Jump_Zero 0xb6
00b4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x2a = 0xb4,0xe
00b5 841e | | Call 0x2,0x1e
00b6 3ff9 |? | Loop_Increasing 0xb0
00b7 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x2b = 0xb7,0xf
00b8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ba TRAP_0018:
00ba 0007 | | Action Break_Optional
00bb 0092 02aa | | Action Push_String_Extended,0x2aa ; "Unhandled Exception reached Test_Terminal"
; Debug Table 0x1.0x2c = 0xbb,0x10
00bd e002 | | Load 0x0,0x2
00be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bf e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x2d = 0xbf,0x11
00c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x00cb,0x0592,0x0002,0x0000,0x002c,0xbbb4,0x0000,0x0064
; Debug Table 0x2.0x0 = 0xcb,0x1
00cc 00e0 | | Load_Encached Standard_Cache
00cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00d3,0x0596,0x0002,0x0000,0x002c,0xbbb4,0x0000,0x0077
; Debug Table 0x3.0x0 = 0xd3,0x1
00d4 00e0 | | Load_Encached Standard_Cache
00d5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d7 0000 | | .XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00db,0x059a,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x008a
; Debug Table 0x4.0x0 = 0xdb,0x1
00dc e40a | | Load 0x2,0xa
00dd e004 | | Load 0x0,0x4
00de 180d | | Execute Package,Field_Execute,Field_Number 0xd
00df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e40a | | Load 0x2,0xa ; Debug Table 0x5 = .DEBUG 0x00e3,0x059e,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x009d
; Debug Table 0x5.0x0 = 0xe3,0x1
00e4 e004 | | Load 0x0,0x4
00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6 = .DEBUG 0x00eb,0x05a2,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00ab
; Debug Table 0x6.0x0 = 0xeb,0x1
00ec 4801 |H | Short_Literal 0x1
00ed e40a | | Load 0x2,0xa
00ee e004 | | Load 0x0,0x4
00ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f0 005b | [ | Store_Top Discrete,At_Offset_3
00f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 00ff | | .CONST 0x00ff ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x7 = .DEBUG 0x00fb,0x05a6,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00be
; Debug Table 0x7.0x0 = 0xfb,0x1
00fc 8412 | | Call 0x2,0x12
00fd c405 | | Store 0x2,0x5
00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ff TRAP_00f8:
00ff 0007 | | Action Break_Optional
0100 0092 02ab | | Action Push_String_Extended,0x2ab ; "unexpected exception in procedure Get_Value"
; Debug Table 0x7.0x1 = 0x100,0x2
0102 8410 | | Call 0x2,0x10
0103 8411 | | Call 0x2,0x11 ; Debug Table 0x7.0x2 = 0x103,0x3
0104 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x104,0x4
0105 0101 | | Execute Exception,Reraise
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0118 | | .CONST 0x0118 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4900 |I | Short_Literal 0x100 ; Debug Table 0x8 = .DEBUG 0x010b,0x05b0,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00d6
; Debug Table 0x8.0x0 = 0x10b,0x1
010c 4800 |H | Short_Literal 0x0
010d 0007 | | Action Break_Optional
010e 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x1 = 0x10e,0x2
010f 00d9 | | Load_Top At_Offset_1
0110 e404 | | Load 0x2,0x4
0111 01d6 | | Execute Vector,Field_Write
0112 3ffb |? | Loop_Increasing 0x10e
0113 0092 02ac | | Action Push_String_Extended,0x2ac ; "enter list of port numbers, terminated by -1"
; Debug Table 0x8.0x2 = 0x113,0x3
0115 8410 | | Call 0x2,0x10
0116 8411 | | Call 0x2,0x11 ; Debug Table 0x8.0x3 = 0x116,0x4
0117 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0118 TRAP_0108:
0118 0007 | | Action Break_Optional
0119 0092 02ad | | Action Push_String_Extended,0x2ad ; "unexpected exception in procedure Initialize"
; Debug Table 0x8.0x4 = 0x119,0x5
011b 8410 | | Call 0x2,0x10
011c 8411 | | Call 0x2,0x11 ; Debug Table 0x8.0x5 = 0x11c,0x6
011d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x6 = 0x11d,0x7
011e 0101 | | Execute Exception,Reraise
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125 | % | .CONST 0x0125 ; Address of begin
0121 0148 | H | .CONST 0x0148 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 e402 | | Load 0x2,0x2 ; Debug Table 0x9 = .DEBUG 0x0123,0x05c0,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00fd
; Debug Table 0x9.0x0 = 0x123,0xffff
0124 0007 | | Action Break_Optional
0125 BODY_0120:
0125 e405 | | Load 0x2,0x5 ; Debug Table 0x9.0x1 = 0x125,0x1
0126 e005 | | Load 0x0,0x5
0127 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0128 025b | [ | Execute Discrete,Check_In_Type
0129 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
012a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x12a,0x2
012b e001 | | Load 0x0,0x1
012c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
012d 680f |h | Jump_Zero 0x13d
012e 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x3 = 0x12e,0x3
012f 00d9 | | Load_Top At_Offset_1
0130 e404 | | Load 0x2,0x4
0131 01d6 | | Execute Vector,Field_Write
0132 0092 02ae | | Action Push_String_Extended,0x2ae ; "Port"
; Debug Table 0x9.0x4 = 0x132,0x4
0134 00d9 | | Load_Top At_Offset_1
0135 840e | | Call 0x2,0xe
0136 01cc | | Execute Vector,Catenate
0137 0092 02af | | Action Push_String_Extended,0x2af ; " enabled for test"
0139 01cc | | Execute Vector,Catenate
013a 8410 | | Call 0x2,0x10
013b 8411 | | Call 0x2,0x11 ; Debug Table 0x9.0x5 = 0x13b,0x5
013c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013d 0092 02ae | | Action Push_String_Extended,0x2ae ; "Port"
; Debug Table 0x9.0x6 = 0x13d,0x6
013f 00d9 | | Load_Top At_Offset_1
0140 840e | | Call 0x2,0xe
0141 01cc | | Execute Vector,Catenate
0142 0092 02b0 | | Action Push_String_Extended,0x2b0 ; " does not exist"
0144 01cc | | Execute Vector,Catenate
0145 8410 | | Call 0x2,0x10
0146 8411 | | Call 0x2,0x11 ; Debug Table 0x9.0x7 = 0x146,0x7
0147 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0148 TRAP_0120:
0148 010e | | Execute Exception,Is_Constraint_Error
0149 680b |h | Jump_Zero 0x155
014a 0092 02ae | | Action Push_String_Extended,0x2ae ; "Port"
; Debug Table 0x9.0x8 = 0x14a,0x8
014c e405 | | Load 0x2,0x5
014d 840f | | Call 0x2,0xf
014e 01cc | | Execute Vector,Catenate
014f 0092 02b1 | | Action Push_String_Extended,0x2b1 ; " is out of range"
0151 01cc | | Execute Vector,Catenate
0152 8410 | | Call 0x2,0x10
0153 8411 | | Call 0x2,0x11 ; Debug Table 0x9.0x9 = 0x153,0x9
0154 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0155 0092 02b2 | | Action Push_String_Extended,0x2b2 ; "unexpected exception in procedure Get_Terminal_Id"
; Debug Table 0x9.0xa = 0x155,0xa
0157 8410 | | Call 0x2,0x10
0158 8411 | | Call 0x2,0x11 ; Debug Table 0x9.0xb = 0x158,0xb
0159 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0xc = 0x159,0xc
015a 0101 | | Execute Exception,Reraise
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0166 | f | .CONST 0x0166 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e405 | | Load 0x2,0x5 ; Debug Table 0xa = .DEBUG 0x0163,0x05dc,0x0002,0x0000,0x002c,0xbbb4,0x0000,0x0167
; Debug Table 0xa.0x0 = 0x163,0x1
0164 0c00 | | Execute_Immediate Greater_Equal,0x0
0165 00ca | | Action Exit_Nullary_Function
0166 TRAP_0160:
0166 0007 | | Action Break_Optional
0167 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "unexpected exception in function More_To_Specify"
; Debug Table 0xa.0x1 = 0x167,0x2
0169 8410 | | Call 0x2,0x10
016a 8411 | | Call 0x2,0x11 ; Debug Table 0xa.0x2 = 0x16a,0x3
016b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0x16b,0x4
016c 0101 | | Execute Exception,Reraise
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 017b | { | .CONST 0x017b ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 8414 | | Call 0x2,0x14 ; Debug Table 0xb = .DEBUG 0x0173,0x05e6,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0182
; Debug Table 0xb.0x0 = 0x173,0x1
0174 8413 | | Call 0x2,0x13 ; Debug Table 0xb.0x1 = 0x174,0x2
0175 7802 |x | Jump 0x178
0176 8415 | | Call 0x2,0x15 ; Debug Table 0xb.0x2 = 0x176,0x4
0177 8413 | | Call 0x2,0x13 ; Debug Table 0xb.0x3 = 0x177,0x5
0178 8416 | | Call 0x2,0x16 ; Debug Table 0xb.0x4 = 0x178,0x3
0179 77fc |w | Jump_Nonzero 0x176
017a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017b TRAP_0170:
017b 0007 | | Action Break_Optional
017c 0092 02b4 | | Action Push_String_Extended,0x2b4 ; "unexpected exception in procedure Get_Terminal_To_Test"
; Debug Table 0xb.0x5 = 0x17c,0x6
017e 8410 | | Call 0x2,0x10
017f 8411 | | Call 0x2,0x11 ; Debug Table 0xb.0x6 = 0x17f,0x7
0180 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x7 = 0x180,0x8
0181 0101 | | Execute Exception,Reraise
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 019a | | .CONST 0x019a ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x018b,0x05f8,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x01a6
; Debug Table 0xc.0x0 = 0x18b,0x1
018c 700c |p | Jump_Nonzero 0x199
018d 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "Failure at "
; Debug Table 0xc.0x1 = 0x18d,0x2
018f e7fd | | Load 0x3,-0x3
0190 01cc | | Execute Vector,Catenate
0191 0092 02b6 | | Action Push_String_Extended,0x2b6 ; " of"
0193 01cc | | Execute Vector,Catenate
0194 e7fe | | Load 0x3,-0x2
0195 840e | | Call 0x2,0xe
0196 01cc | | Execute Vector,Catenate
0197 e002 | | Load 0x0,0x2
0198 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0199 4504 |E | Exit_Suprogram New_Top_Offset 0x4
019a TRAP_0188:
019a 0007 | | Action Break_Optional
019b 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "unexpected exception in procedure check_success"
; Debug Table 0xc.0x2 = 0x19b,0x3
019d 8410 | | Call 0x2,0x10
019e 8411 | | Call 0x2,0x11 ; Debug Table 0xc.0x3 = 0x19e,0x4
019f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x4 = 0x19f,0x5
01a0 0101 | | Execute Exception,Reraise
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01bf | | .CONST 0x01bf ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "Terminal Test on Terminal"
; Debug Table 0xd = .DEBUG 0x01ab,0x0604,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x01e2
; Debug Table 0xd.0x0 = 0x1ab,0x1
01ad e7fe | | Load 0x3,-0x2
01ae 840e | | Call 0x2,0xe
01af 01cc | | Execute Vector,Catenate
01b0 00db | | Load_Top At_Offset_3
01b1 e004 | | Load 0x0,0x4
01b2 180d | | Execute Package,Field_Execute,Field_Number 0xd
01b3 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x1 = 0x1b3,0x2
01b4 e004 | | Load 0x0,0x4
01b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b6 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "... type control-d to terminate"
; Debug Table 0xd.0x2 = 0x1b6,0x3
01b8 00db | | Load_Top At_Offset_3
01b9 e004 | | Load 0x0,0x4
01ba 180d | | Execute Package,Field_Execute,Field_Number 0xd
01bb 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x3 = 0x1bb,0x4
01bc e004 | | Load 0x0,0x4
01bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bf TRAP_01a8:
01bf 0007 | | Action Break_Optional
01c0 0092 02ba | | Action Push_String_Extended,0x2ba ; "unexpected exception in procedure put_title"
; Debug Table 0xd.0x4 = 0x1c0,0x5
01c2 8410 | | Call 0x2,0x10
01c3 8411 | | Call 0x2,0x11 ; Debug Table 0xd.0x5 = 0x1c3,0x6
01c4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x6 = 0x1c4,0x7
01c5 0101 | | Execute Exception,Reraise
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 01d4 | | .CONST 0x01d4 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 0092 02bb | | Action Push_String_Extended,0x2bb ; "Terminal Test is Complete"
; Debug Table 0xe = .DEBUG 0x01cb,0x0614,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0221
; Debug Table 0xe.0x0 = 0x1cb,0x1
01cd 00db | | Load_Top At_Offset_3
01ce e004 | | Load 0x0,0x4
01cf 180d | | Execute Package,Field_Execute,Field_Number 0xd
01d0 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x1 = 0x1d0,0x2
01d1 e004 | | Load 0x0,0x4
01d2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d4 TRAP_01c8:
01d4 0007 | | Action Break_Optional
01d5 0092 02bc | | Action Push_String_Extended,0x2bc ; "unexpected exception in procedure put_trailer"
; Debug Table 0xe.0x2 = 0x1d5,0x3
01d7 8410 | | Call 0x2,0x10
01d8 8411 | | Call 0x2,0x11 ; Debug Table 0xe.0x3 = 0x1d8,0x4
01d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x1d9,0x5
01da 0101 | | Execute Exception,Reraise
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5 | | .CONST 0x01e5 ; Address of begin
01e1 01f0 | | .CONST 0x01f0 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 00e8 | | Load_Encached Character_Cache ; Debug Table 0xf = .DEBUG 0x01e3,0x0620,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0248
; Debug Table 0xf.0x0 = 0x1e3,0xffff
01e4 0661 | a | Execute_Immediate Set_Value_Unchecked,0x61
01e5 BODY_01e0:
01e5 7806 |x | Jump 0x1ec
01e6 00e8 | | Load_Encached Character_Cache ; Debug Table 0xf.0x1 = 0x1e6,0x2
01e7 4801 |H | Short_Literal 0x1
01e8 e7ff | | Load 0x3,-0x1
01e9 e004 | | Load 0x0,0x4
01ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01eb 0059 | Y | Store_Top Discrete,At_Offset_1
01ec 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x2 = 0x1ec,0x1
01ed 0e04 | | Execute_Immediate Not_Equal,0x4
01ee 77f7 |w | Jump_Nonzero 0x1e6
01ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f0 TRAP_01e0:
01f0 0007 | | Action Break_Optional
01f1 0092 02bd | | Action Push_String_Extended,0x2bd ; "unexpected exception in procedure echo"
; Debug Table 0xf.0x3 = 0x1f1,0x3
01f3 8410 | | Call 0x2,0x10
01f4 8411 | | Call 0x2,0x11 ; Debug Table 0xf.0x4 = 0x1f4,0x4
01f5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0x5 = 0x1f5,0x5
01f6 0101 | | Execute Exception,Reraise
01f7 0000 | | .XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0201 | | .CONST 0x0201 ; Address of begin
01f9 022f | / | .CONST 0x022f ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb e001 | | Load 0x0,0x1 ; Debug Table 0x10 = .DEBUG 0x01fb,0x062e,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0279
; Debug Table 0x10.0x0 = 0x1fb,0xffff
01fc 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01fd 02c7 | | Declare_Variable Any
01fe 00d8 | | Load_Top At_Offset_0
01ff 1c00 | | Execute_Immediate Run_Utility,0x0
0200 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x1 = 0x200,0xfffe
0201 BODY_01f8:
0201 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x2 = 0x201,0x1
0202 00da | | Load_Top At_Offset_2
0203 0120 | | Execute Any,Is_Value
0204 6803 |h | Jump_Zero 0x208
0205 e001 | | Load 0x0,0x1
0206 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0207 7801 |x | Jump 0x209
0208 00da | | Load_Top At_Offset_2
0209 e003 | | Load 0x0,0x3
020a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020b 4800 |H | Short_Literal 0x0
020c e7ff | | Load 0x3,-0x1
020d e001 | | Load 0x0,0x1
020e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020f e001 | | Load 0x0,0x1
0210 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0211 c602 | | Store 0x3,0x2
0212 0059 | Y | Store_Top Discrete,At_Offset_1
0213 0092 02be | | Action Push_String_Extended,0x2be ; "open"
; Debug Table 0x10.0x3 = 0x213,0x2
0215 e7ff | | Load 0x3,-0x1
0216 00da | | Load_Top At_Offset_2
0217 8418 | | Call 0x2,0x18
0218 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x4 = 0x218,0x3
0219 00da | | Load_Top At_Offset_2
021a e001 | | Load 0x0,0x1
021b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021c e7ff | | Load 0x3,-0x1 ; Debug Table 0x10.0x5 = 0x21c,0x4
021d 00da | | Load_Top At_Offset_2
021e 8419 | | Call 0x2,0x19
021f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x10.0x6 = 0x21f,0x5
0220 841b | | Call 0x2,0x1b
0221 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x10.0x7 = 0x221,0x6
0222 841a | | Call 0x2,0x1a
0223 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x8 = 0x223,0x7
0224 00da | | Load_Top At_Offset_2
0225 e001 | | Load 0x0,0x1
0226 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0227 c602 | | Store 0x3,0x2
0228 0059 | Y | Store_Top Discrete,At_Offset_1
0229 0092 02bf | | Action Push_String_Extended,0x2bf ; "close"
; Debug Table 0x10.0x9 = 0x229,0x8
022b e7ff | | Load 0x3,-0x1
022c 00da | | Load_Top At_Offset_2
022d 8418 | | Call 0x2,0x18
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f TRAP_01f8:
022f 0007 | | Action Break_Optional
0230 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "unexpected exception in procedure test"
; Debug Table 0x10.0xa = 0x230,0x9
0232 e7ff | | Load 0x3,-0x1
0233 840e | | Call 0x2,0xe
0234 01cc | | Execute Vector,Catenate
0235 8410 | | Call 0x2,0x10
0236 8411 | | Call 0x2,0x11 ; Debug Table 0x10.0xb = 0x236,0xa
0237 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0xc = 0x237,0xb
0238 0101 | | Execute Exception,Reraise
0239 0000 0000 | | .BLANK 0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0253 | S | .CONST 0x0253 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e407 | | Load 0x2,0x7 ; Debug Table 0x11 = .DEBUG 0x0243,0x064a,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x02f8
; Debug Table 0x11.0x0 = 0x243,0x1
0244 03bc | | Declare_Variable Access,By_Allocation
0245 00d8 | | Load_Top At_Offset_0
0246 00e0 | | Load_Encached Standard_Cache
0247 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0248 00db | | Load_Top At_Offset_3
0249 e409 | | Load 0x2,0x9
024a 01d6 | | Execute Vector,Field_Write
024b 00da | | Load_Top At_Offset_2 ; Debug Table 0x11.0x1 = 0x24b,0x2
024c 4801 |H | Short_Literal 0x1
024d e7ff | | Load 0x3,-0x1
024e e409 | | Load 0x2,0x9
024f 01d7 | | Execute Vector,Field_Read
0250 0229 | ) | Execute Access,All_Read
0251 170d | | Execute Task,Entry_Call,Field_Number 0xd
0252 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0253 TRAP_0240:
0253 0007 | | Action Break_Optional
0254 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "unexpected exception in procedure start_task"
; Debug Table 0x11.0x2 = 0x254,0x3
0256 8410 | | Call 0x2,0x10
0257 8411 | | Call 0x2,0x11 ; Debug Table 0x11.0x3 = 0x257,0x4
0258 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x4 = 0x258,0x5
0259 0101 | | Execute Exception,Reraise
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 026a | j | .CONST 0x026a ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4800 |H | Short_Literal 0x0 ; Debug Table 0x12 = .DEBUG 0x0263,0x0656,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0322
; Debug Table 0x12.0x0 = 0x263,0x1
0264 00db | | Load_Top At_Offset_3
0265 e409 | | Load 0x2,0x9
0266 01d7 | | Execute Vector,Field_Read
0267 0229 | ) | Execute Access,All_Read
0268 170e | | Execute Task,Entry_Call,Field_Number 0xe
0269 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026a TRAP_0260:
026a 0007 | | Action Break_Optional
026b 0092 02c2 | | Action Push_String_Extended,0x2c2 ; "unexpected exception in procedure finish_test"
; Debug Table 0x12.0x1 = 0x26b,0x2
026d 8410 | | Call 0x2,0x10
026e 8411 | | Call 0x2,0x11 ; Debug Table 0x12.0x2 = 0x26e,0x3
026f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x3 = 0x26f,0x4
0270 0101 | | Execute Exception,Reraise
0271 0000 0000 | | .XXX[0x3]
0273 0000 | |
0274 00c6 2c0a | , | .LITERAL {0x00c62c0a, 0x000027b0}
0278 0288 0004 | | .XXX[0x3]
027a 0011 | |
027b 4801 |H | Short_Literal 0x1 ; Debug Table 0x13 = .DEBUG 0x027b,0x0660,0x0000,0x0000,0x002c,0xbbb4,0x0000,0x002d
027c 02cb | | Declare_Variable Entry
027d 4800 |H | Short_Literal 0x0
027e 02cb | | Declare_Variable Entry
027f 00bf | | Action Accept_Activation
0280 e001 | | Load 0x0,0x1 ; Debug Table 0x14 = .DEBUG 0x0280,0x0662,0x0000,0x0000,0x002c,0xbbb4,0x0000,0x02da
; Debug Table 0x14.0x0 = 0x280,0xffff
0281 480d |H | Short_Literal 0xd
0282 0299 029b | | Declare_Subprogram INIT_0298,For_Accept
0284 480e |H | Short_Literal 0xe
0285 0299 02a3 | | Declare_Subprogram INIT_02a0,For_Accept
0287 00bc | | Action Signal_Activated
0288 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x14.0x1 = 0x288,0x1
0289 1d0d | | Execute_Immediate Reference_Lex_1,0xd
028a 0137 | 7 | Execute Entry,Rendezvous
028b 00da | | Load_Top At_Offset_2 ; Debug Table 0x14.0x2 = 0x28b,0x2
028c 8002 | | Call 0x0,0x2
028d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x14.0x3 = 0x28d,0x3
028e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
028f 0137 | 7 | Execute Entry,Rendezvous
0290 00bb | | Action Signal_Completion
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3 ; Debug Table 0x15 = .DEBUG 0x029b,0x066c,0x0003,0x0000,0x002c,0xbbb4,0x0000,0x02eb
; Debug Table 0x15.0x0 = 0x29b,0x1
029c a20f | | Store_Unchecked 0x1,0xf
029d 4100 |A | End_Rendezvous 0x0
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4100 |A | End_Rendezvous 0x0 ; Debug Table 0x16 = .DEBUG 0x02a3,0x0670,0x0003,0x0000,0x002c,0xbbb4,0x0000,0x02f3
02a4 ; --------------------------------------------------------------------------------------
02a4 ; STRING TABLE
02a4 ; --------------------------------------------------------------------------------------
02a4 0040 | @ | .STRTAB 0x0040->0x02c4 ; "Terminal Manager Test"
02a5 0053 | S | .STRTAB 0x0053->0x02ce ; "Test_Terminal"
02a6 005e | ^ | .STRTAB 0x005e->0x02d5 ; " Port"
02a7 0063 | c | .STRTAB 0x0063->0x02d8 ; " is used for input"
02a8 0073 | s | .STRTAB 0x0073->0x02e1 ; "open of console"
02a9 0080 | | .STRTAB 0x0080->0x02e9 ; "close of console"
02aa 008e | | .STRTAB 0x008e->0x02f1 ; "Unhandled Exception reached Test_Terminal"
02ab 00b5 | | .STRTAB 0x00b5->0x0305 ; "unexpected exception in procedure Get_Value"
02ac 00de | | .STRTAB 0x00de->0x031b ; "enter list of port numbers, terminated by -1"
02ad 0108 | | .STRTAB 0x0108->0x0331 ; "unexpected exception in procedure Initialize"
02ae 0132 | 2 | .STRTAB 0x0132->0x0347 ; "Port"
02af 0134 | 4 | .STRTAB 0x0134->0x0349 ; " enabled for test"
02b0 0143 | C | .STRTAB 0x0143->0x0351 ; " does not exist"
02b1 0150 | P | .STRTAB 0x0150->0x0359 ; " is out of range"
02b2 015e | ^ | .STRTAB 0x015e->0x0361 ; "unexpected exception in procedure Get_Terminal_Id"
02b3 018d | | .STRTAB 0x018d->0x0379 ; "unexpected exception in function More_To_Specify"
02b4 01bb | | .STRTAB 0x01bb->0x0391 ; "unexpected exception in procedure Get_Terminal_To_Test"
02b5 01ef | | .STRTAB 0x01ef->0x03ac ; "Failure at "
02b6 01f8 | | .STRTAB 0x01f8->0x03b2 ; " of"
02b7 01f9 | | .STRTAB 0x01f9->0x03b3 ; "unexpected exception in procedure check_success"
02b8 0226 | & | .STRTAB 0x0226->0x03cb ; "Terminal Test on Terminal"
02b9 023d | = | .STRTAB 0x023d->0x03d7 ; "... type control-d to terminate"
02ba 025a | Z | .STRTAB 0x025a->0x03e7 ; "unexpected exception in procedure put_title"
02bb 0283 | | .STRTAB 0x0283->0x03fc ; "Terminal Test is Complete"
02bc 029a | | .STRTAB 0x029a->0x0409 ; "unexpected exception in procedure put_trailer"
02bd 02c5 | | .STRTAB 0x02c5->0x041f ; "unexpected exception in procedure echo"
02be 02e9 | | .STRTAB 0x02e9->0x0432 ; "open"
02bf 02eb | | .STRTAB 0x02eb->0x0434 ; "close"
02c0 02ee | | .STRTAB 0x02ee->0x0437 ; "unexpected exception in procedure test"
02c1 0312 | | .STRTAB 0x0312->0x044a ; "unexpected exception in procedure start_task"
02c2 033c | < | .STRTAB 0x033c->0x0460 ; "unexpected exception in procedure finish_test"
02c3 0367 | g | .STREND 0x0367->0x0476
02c4 5465 726d |Term| .STRTAB_STRINGS
0477 0000 | | .XXX[0x1]
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug Table
0478 ; --------------------------------------------------------------------------------------
0478 0003 0017 | | .CONST 0x0003,0x0017
047a 000b 0532 | 2| .DEBUG 0x000b,0x0532,0x8000,0x0000,0x002c,0xbbb4,0x0000,0x0012
0482 001b 0534 | 4| .DEBUG 0x001b,0x0534,0x8001,0x0000,0x002c,0xbbb4,0x0000,0x0012
048a 00cb 0592 | | .DEBUG 0x00cb,0x0592,0x0002,0x0000,0x002c,0xbbb4,0x0000,0x0064
0492 00d3 0596 | | .DEBUG 0x00d3,0x0596,0x0002,0x0000,0x002c,0xbbb4,0x0000,0x0077
049a 00db 059a | | .DEBUG 0x00db,0x059a,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x008a
04a2 00e3 059e | | .DEBUG 0x00e3,0x059e,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x009d
04aa 00eb 05a2 | | .DEBUG 0x00eb,0x05a2,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00ab
04b2 00fb 05a6 | | .DEBUG 0x00fb,0x05a6,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00be
04ba 010b 05b0 | | .DEBUG 0x010b,0x05b0,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00d6
04c2 0123 05c0 | # | .DEBUG 0x0123,0x05c0,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x00fd
04ca 0163 05dc | c | .DEBUG 0x0163,0x05dc,0x0002,0x0000,0x002c,0xbbb4,0x0000,0x0167
04d2 0173 05e6 | s | .DEBUG 0x0173,0x05e6,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0182
04da 018b 05f8 | | .DEBUG 0x018b,0x05f8,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x01a6
04e2 01ab 0604 | | .DEBUG 0x01ab,0x0604,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x01e2
04ea 01cb 0614 | | .DEBUG 0x01cb,0x0614,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0221
04f2 01e3 0620 | | .DEBUG 0x01e3,0x0620,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0248
04fa 01fb 062e | .| .DEBUG 0x01fb,0x062e,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0279
0502 0243 064a | C J| .DEBUG 0x0243,0x064a,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x02f8
050a 0263 0656 | c V| .DEBUG 0x0263,0x0656,0x0001,0x0000,0x002c,0xbbb4,0x0000,0x0322
0512 027b 0660 | { `| .DEBUG 0x027b,0x0660,0x0000,0x0000,0x002c,0xbbb4,0x0000,0x002d
051a 0280 0662 | b| .DEBUG 0x0280,0x0662,0x0000,0x0000,0x002c,0xbbb4,0x0000,0x02da
0522 029b 066c | l| .DEBUG 0x029b,0x066c,0x0003,0x0000,0x002c,0xbbb4,0x0000,0x02eb
052a 02a3 0670 | p| .DEBUG 0x02a3,0x0670,0x0003,0x0000,0x002c,0xbbb4,0x0000,0x02f3
0532 ; --------------------------------------------------------------------------------------
0532 ; Debug3 Subtable 0x0
0532 ; --------------------------------------------------------------------------------------
0532 0000 0000 | | .DBG3TAB 0x0000,0x0000
0534 ; --------------------------------------------------------------------------------------
0534 ; Debug3 Subtable 0x1
0534 ; --------------------------------------------------------------------------------------
0534 001d 0011 | | .DBG3TAB 0x001d,0x0011
0536 001b ffff | | .CONST 0x001b,0xffff
0538 001c fffe | | .CONST 0x001c,0xfffe
053a 001e fffd | | .CONST 0x001e,0xfffd
053c 0026 fffc | & | .CONST 0x0026,0xfffc
053e 0027 fffb | ' | .CONST 0x0027,0xfffb
0540 002b fffa | + | .CONST 0x002b,0xfffa
0542 002f fff9 | / | .CONST 0x002f,0xfff9
0544 0037 fff8 | 7 | .CONST 0x0037,0xfff8
0546 003c fff7 | < | .CONST 0x003c,0xfff7
0548 003e fff6 | > | .CONST 0x003e,0xfff6
054a 003f fff5 | ? | .CONST 0x003f,0xfff5
054c 0040 fff4 | @ | .CONST 0x0040,0xfff4
054e 0042 fff3 | B | .CONST 0x0042,0xfff3
0550 0044 fff2 | D | .CONST 0x0044,0xfff2
0552 0046 fff1 | F | .CONST 0x0046,0xfff1
0554 0048 fff0 | H | .CONST 0x0048,0xfff0
0556 004a ffef | J | .CONST 0x004a,0xffef
0558 004c ffee | L | .CONST 0x004c,0xffee
055a 004e ffed | N | .CONST 0x004e,0xffed
055c 0050 ffec | P | .CONST 0x0050,0xffec
055e 0052 ffeb | R | .CONST 0x0052,0xffeb
0560 0054 ffea | T | .CONST 0x0054,0xffea
0562 0056 ffe9 | V | .CONST 0x0056,0xffe9
0564 0058 ffe8 | X | .CONST 0x0058,0xffe8
0566 005a ffe7 | Z | .CONST 0x005a,0xffe7
0568 005c ffe6 | \ | .CONST 0x005c,0xffe6
056a 005e ffe5 | ^ | .CONST 0x005e,0xffe5
056c 0068 ffe4 | h | .CONST 0x0068,0xffe4
056e 006a ffe3 | j | .CONST 0x006a,0xffe3
0570 006c 0001 | l | .CONST 0x006c,0x0001
0572 0072 0002 | r | .CONST 0x0072,0x0002
0574 007c 0003 | | | .CONST 0x007c,0x0003
0576 008e 0004 | | .CONST 0x008e,0x0004
0578 0093 0005 | | .CONST 0x0093,0x0005
057a 0097 0006 | | .CONST 0x0097,0x0006
057c 0098 0007 | | .CONST 0x0098,0x0007
057e 009e 0008 | | .CONST 0x009e,0x0008
0580 00a3 0009 | | .CONST 0x00a3,0x0009
0582 00a6 000a | | .CONST 0x00a6,0x000a
0584 00aa 000b | | .CONST 0x00aa,0x000b
0586 00ad 000c | | .CONST 0x00ad,0x000c
0588 00b0 000d | | .CONST 0x00b0,0x000d
058a 00b4 000e | | .CONST 0x00b4,0x000e
058c 00b7 000f | | .CONST 0x00b7,0x000f
058e 00bb 0010 | | .CONST 0x00bb,0x0010
0590 00bf 0011 | | .CONST 0x00bf,0x0011
0592 ; --------------------------------------------------------------------------------------
0592 ; Debug3 Subtable 0x2
0592 ; --------------------------------------------------------------------------------------
0592 0000 0001 | | .DBG3TAB 0x0000,0x0001
0594 00cb 0001 | | .CONST 0x00cb,0x0001
0596 ; --------------------------------------------------------------------------------------
0596 ; Debug3 Subtable 0x3
0596 ; --------------------------------------------------------------------------------------
0596 0000 0001 | | .DBG3TAB 0x0000,0x0001
0598 00d3 0001 | | .CONST 0x00d3,0x0001
059a ; --------------------------------------------------------------------------------------
059a ; Debug3 Subtable 0x4
059a ; --------------------------------------------------------------------------------------
059a 0000 0001 | | .DBG3TAB 0x0000,0x0001
059c 00db 0001 | | .CONST 0x00db,0x0001
059e ; --------------------------------------------------------------------------------------
059e ; Debug3 Subtable 0x5
059e ; --------------------------------------------------------------------------------------
059e 0000 0001 | | .DBG3TAB 0x0000,0x0001
05a0 00e3 0001 | | .CONST 0x00e3,0x0001
05a2 ; --------------------------------------------------------------------------------------
05a2 ; Debug3 Subtable 0x6
05a2 ; --------------------------------------------------------------------------------------
05a2 0000 0001 | | .DBG3TAB 0x0000,0x0001
05a4 00eb 0001 | | .CONST 0x00eb,0x0001
05a6 ; --------------------------------------------------------------------------------------
05a6 ; Debug3 Subtable 0x7
05a6 ; --------------------------------------------------------------------------------------
05a6 0000 0004 | | .DBG3TAB 0x0000,0x0004
05a8 00fb 0001 | | .CONST 0x00fb,0x0001
05aa 0100 0002 | | .CONST 0x0100,0x0002
05ac 0103 0003 | | .CONST 0x0103,0x0003
05ae 0104 0004 | | .CONST 0x0104,0x0004
05b0 ; --------------------------------------------------------------------------------------
05b0 ; Debug3 Subtable 0x8
05b0 ; --------------------------------------------------------------------------------------
05b0 0000 0007 | | .DBG3TAB 0x0000,0x0007
05b2 010b 0001 | | .CONST 0x010b,0x0001
05b4 010e 0002 | | .CONST 0x010e,0x0002
05b6 0113 0003 | | .CONST 0x0113,0x0003
05b8 0116 0004 | | .CONST 0x0116,0x0004
05ba 0119 0005 | | .CONST 0x0119,0x0005
05bc 011c 0006 | | .CONST 0x011c,0x0006
05be 011d 0007 | | .CONST 0x011d,0x0007
05c0 ; --------------------------------------------------------------------------------------
05c0 ; Debug3 Subtable 0x9
05c0 ; --------------------------------------------------------------------------------------
05c0 0001 000c | | .DBG3TAB 0x0001,0x000c
05c2 0123 ffff | # | .CONST 0x0123,0xffff
05c4 0125 0001 | % | .CONST 0x0125,0x0001
05c6 012a 0002 | * | .CONST 0x012a,0x0002
05c8 012e 0003 | . | .CONST 0x012e,0x0003
05ca 0132 0004 | 2 | .CONST 0x0132,0x0004
05cc 013b 0005 | ; | .CONST 0x013b,0x0005
05ce 013d 0006 | = | .CONST 0x013d,0x0006
05d0 0146 0007 | F | .CONST 0x0146,0x0007
05d2 014a 0008 | J | .CONST 0x014a,0x0008
05d4 0153 0009 | S | .CONST 0x0153,0x0009
05d6 0155 000a | U | .CONST 0x0155,0x000a
05d8 0158 000b | X | .CONST 0x0158,0x000b
05da 0159 000c | Y | .CONST 0x0159,0x000c
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug3 Subtable 0xa
05dc ; --------------------------------------------------------------------------------------
05dc 0000 0004 | | .DBG3TAB 0x0000,0x0004
05de 0163 0001 | c | .CONST 0x0163,0x0001
05e0 0167 0002 | g | .CONST 0x0167,0x0002
05e2 016a 0003 | j | .CONST 0x016a,0x0003
05e4 016b 0004 | k | .CONST 0x016b,0x0004
05e6 ; --------------------------------------------------------------------------------------
05e6 ; Debug3 Subtable 0xb
05e6 ; --------------------------------------------------------------------------------------
05e6 0000 0008 | | .DBG3TAB 0x0000,0x0008
05e8 0173 0001 | s | .CONST 0x0173,0x0001
05ea 0174 0002 | t | .CONST 0x0174,0x0002
05ec 0176 0004 | v | .CONST 0x0176,0x0004
05ee 0177 0005 | w | .CONST 0x0177,0x0005
05f0 0178 0003 | x | .CONST 0x0178,0x0003
05f2 017c 0006 | | | .CONST 0x017c,0x0006
05f4 017f 0007 | | .CONST 0x017f,0x0007
05f6 0180 0008 | | .CONST 0x0180,0x0008
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug3 Subtable 0xc
05f8 ; --------------------------------------------------------------------------------------
05f8 0000 0005 | | .DBG3TAB 0x0000,0x0005
05fa 018b 0001 | | .CONST 0x018b,0x0001
05fc 018d 0002 | | .CONST 0x018d,0x0002
05fe 019b 0003 | | .CONST 0x019b,0x0003
0600 019e 0004 | | .CONST 0x019e,0x0004
0602 019f 0005 | | .CONST 0x019f,0x0005
0604 ; --------------------------------------------------------------------------------------
0604 ; Debug3 Subtable 0xd
0604 ; --------------------------------------------------------------------------------------
0604 0000 0007 | | .DBG3TAB 0x0000,0x0007
0606 01ab 0001 | | .CONST 0x01ab,0x0001
0608 01b3 0002 | | .CONST 0x01b3,0x0002
060a 01b6 0003 | | .CONST 0x01b6,0x0003
060c 01bb 0004 | | .CONST 0x01bb,0x0004
060e 01c0 0005 | | .CONST 0x01c0,0x0005
0610 01c3 0006 | | .CONST 0x01c3,0x0006
0612 01c4 0007 | | .CONST 0x01c4,0x0007
0614 ; --------------------------------------------------------------------------------------
0614 ; Debug3 Subtable 0xe
0614 ; --------------------------------------------------------------------------------------
0614 0000 0005 | | .DBG3TAB 0x0000,0x0005
0616 01cb 0001 | | .CONST 0x01cb,0x0001
0618 01d0 0002 | | .CONST 0x01d0,0x0002
061a 01d5 0003 | | .CONST 0x01d5,0x0003
061c 01d8 0004 | | .CONST 0x01d8,0x0004
061e 01d9 0005 | | .CONST 0x01d9,0x0005
0620 ; --------------------------------------------------------------------------------------
0620 ; Debug3 Subtable 0xf
0620 ; --------------------------------------------------------------------------------------
0620 0001 0005 | | .DBG3TAB 0x0001,0x0005
0622 01e3 ffff | | .CONST 0x01e3,0xffff
0624 01e6 0002 | | .CONST 0x01e6,0x0002
0626 01ec 0001 | | .CONST 0x01ec,0x0001
0628 01f1 0003 | | .CONST 0x01f1,0x0003
062a 01f4 0004 | | .CONST 0x01f4,0x0004
062c 01f5 0005 | | .CONST 0x01f5,0x0005
062e ; --------------------------------------------------------------------------------------
062e ; Debug3 Subtable 0x10
062e ; --------------------------------------------------------------------------------------
062e 0002 000b | | .DBG3TAB 0x0002,0x000b
0630 01fb ffff | | .CONST 0x01fb,0xffff
0632 0200 fffe | | .CONST 0x0200,0xfffe
0634 0201 0001 | | .CONST 0x0201,0x0001
0636 0213 0002 | | .CONST 0x0213,0x0002
0638 0218 0003 | | .CONST 0x0218,0x0003
063a 021c 0004 | | .CONST 0x021c,0x0004
063c 021f 0005 | | .CONST 0x021f,0x0005
063e 0221 0006 | ! | .CONST 0x0221,0x0006
0640 0223 0007 | # | .CONST 0x0223,0x0007
0642 0229 0008 | ) | .CONST 0x0229,0x0008
0644 0230 0009 | 0 | .CONST 0x0230,0x0009
0646 0236 000a | 6 | .CONST 0x0236,0x000a
0648 0237 000b | 7 | .CONST 0x0237,0x000b
064a ; --------------------------------------------------------------------------------------
064a ; Debug3 Subtable 0x11
064a ; --------------------------------------------------------------------------------------
064a 0000 0005 | | .DBG3TAB 0x0000,0x0005
064c 0243 0001 | C | .CONST 0x0243,0x0001
064e 024b 0002 | K | .CONST 0x024b,0x0002
0650 0254 0003 | T | .CONST 0x0254,0x0003
0652 0257 0004 | W | .CONST 0x0257,0x0004
0654 0258 0005 | X | .CONST 0x0258,0x0005
0656 ; --------------------------------------------------------------------------------------
0656 ; Debug3 Subtable 0x12
0656 ; --------------------------------------------------------------------------------------
0656 0000 0004 | | .DBG3TAB 0x0000,0x0004
0658 0263 0001 | c | .CONST 0x0263,0x0001
065a 026b 0002 | k | .CONST 0x026b,0x0002
065c 026e 0003 | n | .CONST 0x026e,0x0003
065e 026f 0004 | o | .CONST 0x026f,0x0004
0660 ; --------------------------------------------------------------------------------------
0660 ; Debug3 Subtable 0x13
0660 ; --------------------------------------------------------------------------------------
0660 0000 0000 | | .DBG3TAB 0x0000,0x0000
0662 ; --------------------------------------------------------------------------------------
0662 ; Debug3 Subtable 0x14
0662 ; --------------------------------------------------------------------------------------
0662 0001 0003 | | .DBG3TAB 0x0001,0x0003
0664 0280 ffff | | .CONST 0x0280,0xffff
0666 0288 0001 | | .CONST 0x0288,0x0001
0668 028b 0002 | | .CONST 0x028b,0x0002
066a 028d 0003 | | .CONST 0x028d,0x0003
066c ; --------------------------------------------------------------------------------------
066c ; Debug3 Subtable 0x15
066c ; --------------------------------------------------------------------------------------
066c 0000 0001 | | .DBG3TAB 0x0000,0x0001
066e 029b 0001 | | .CONST 0x029b,0x0001
0670 ; --------------------------------------------------------------------------------------
0670 ; Debug3 Subtable 0x16
0670 ; --------------------------------------------------------------------------------------
0670 0000 0000 | | .DBG3TAB 0x0000,0x0000
0672 0000 0000 | | .BLANK 0000[0x18e]