|
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: 2048 (0x800)
Notes: 00_class, 01_tag, 5811_R1K_CODE, NULL, R1k_Segment, seg_000001
└─⟦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 01b0 | | .CONST 0x01b0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003c | < | .CONST 0x003c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0232,0x8000,0x0000,0x001b,0xa834,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4802 |H | Short_Literal 0x2
000e 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
0010 03fe | | Declare_Type Discrete,Defined,Visible
0011 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 032b | + | Declare_Type Record,Incomplete,Visible
0013 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x13,0xfffc
0015 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x15,0xfffb
0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x17,0xfffa
0019 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x19,0xfff9
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x1b,0xfff8
001c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x1c,0xfff7
001d 4801 |H | Short_Literal 0x1
001e 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0020 03fd | | Declare_Type Discrete,Defined
0021 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x9 = 0x21,0xfff6
0022 00d9 | | Load_Top At_Offset_1
0023 e001 | | Load 0x0,0x1
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0027 e20e | | Load 0x1,0xe
0028 0326 | & | Complete_Type Record,By_Defining
0029 00bf | | Action Accept_Activation
002a 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x002a,0x0248,0x8000,0x0000,0x001b,0xa884,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x2a,0xffff
002b 60d4 |` | Indirect_Literal Discrete,0x100,{0x009b7c08, 0x000010b0}
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d 037d | } | Declare_Type Task,Defined
002e 036f | o | Declare_Variable Task
002f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x2f,0xfffe
0030 4801 |H | Short_Literal 0x1
0031 00da | | Load_Top At_Offset_2
0032 020e | | Execute Module,Augment_Imports
0033 0007 | | Action Break_Optional
0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x34,0xfffd
0035 00c7 | | Action Elaborate_Subprogram
0036 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x36,0xfffc
0037 00c7 | | Action Elaborate_Subprogram
0038 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x38,0xfffb
0039 00c7 | | Action Elaborate_Subprogram
003a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x3a,0xfffa
003b 00c7 | | Action Elaborate_Subprogram
003c BODY_0008:
003c 00be | | Action Activate_Tasks
003d 00bc | | Action Signal_Activated
003e 00bb | | Action Signal_Completion
003f 0000 | | .XXX[0x1]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0043,0x0256,0x0005,0x0000,0x001b,0xa834,0x0000,0x000a
0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0045 7802 |x | Jump 0x48 ; case 0x1
0046 7805 |x | Jump 0x4c ; case 0x2
0047 7809 |x | Jump 0x51 ; case 0x3
0048 00da | | Load_Top At_Offset_2
0049 0091 0190 | | Action Push_String_Extended_Indexed,0x190 ; "UNINITIALIZED"
004b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
004c 00db | | Load_Top At_Offset_3
004d 00db | | Load_Top At_Offset_3
004e 00e0 | | Load_Encached Standard_Cache
004f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0051 00da | | Load_Top At_Offset_2
0052 00e0 | | Load_Encached Standard_Cache
0053 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0054 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x005b,0x0258,0x0001,0x0000,0x001b,0xa834,0x0000,0x0015
; Debug Table 0x3.0x0 = 0x5b,0x1
005c e5fe | | Load 0x2,-0x2
005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
005e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006d | m | .CONST 0x006d ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0005 | | .CONST 0x0005 ; Number of locals
0063 INIT_0060:
0063 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4 = .DEBUG 0x0063,0x025c,0x0001,0x0000,0x001b,0xa834,0x0000,0x0021
; Debug Table 0x4.0x0 = 0x63,0xffff
0064 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0065 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1 = 0x65,0xfffe
0066 00e7 | | Load_Encached Duration_Cache
0067 03f1 | | Declare_Variable Discrete,With_Value
0068 6093 |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x00000ccd} ; Debug Table 0x4.0x2 = 0x68,0xfffd
0069 00e7 | | Load_Encached Duration_Cache
006a 03f1 | | Declare_Variable Discrete,With_Value
006b 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call ; Debug Table 0x4.0x3 = 0x6b,0xfffc
006d BODY_0060:
006d 00cf | | Action Mark_Auxiliary
006e 0007 | | Action Break_Optional ; Debug Table 0x4.0x4 = 0x6e,0x1
006f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x5 = 0x6f,0x2
0070 e5fe | | Load 0x2,-0x2
0071 e001 | | Load 0x0,0x1
0072 180e | | Execute Package,Field_Execute,Field_Number 0xe
0073 4803 |H | Short_Literal 0x3
0074 e5ff | | Load 0x2,-0x1
0075 e403 | | Load 0x2,0x3
0076 0272 | r | Execute Discrete,Minus
0077 e214 | | Load 0x1,0x14
0078 150d | | Execute Task,Timed_Call,Field_Number 0xd
0079 4601 |F | Jump_Case 0x2
007a 7801 |x | Jump 0x7c ; case 0x0
007b 7818 |x | Jump 0x94 ; case 0x1
007c 00d1 | | Pop_Control Pop_Count_1
007d c402 | | Store 0x2,0x2
007e e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x6 = 0x7e,0x4
007f 7014 |p | Jump_Nonzero 0x94
0080 7800 |x | Jump 0x81
0081 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x7 = 0x81,0x6
0082 e5ff | | Load 0x2,-0x1
0083 027b | { | Execute Discrete,Greater_Equal
0084 700f |p | Jump_Nonzero 0x94
0085 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x8 = 0x85,0x7
0086 00ba | | Action Initiate_Delay
0087 8405 | | Call 0x2,0x5 ; Debug Table 0x4.0x9 = 0x87,0x8
0088 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xa = 0x88,0x9
0089 00db | | Load_Top At_Offset_3
008a 0273 | s | Execute Discrete,Plus
008b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
008c 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xb = 0x8c,0xa
008d 606a |`j | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00960000}
008e 027d | } | Execute Discrete,Greater
008f 6802 |h | Jump_Zero 0x92
0090 6067 |`g | Indirect_Literal Discrete,0xf8,{0x00000000, 0x00960000} ; Debug Table 0x4.0xc = 0x90,0xb
0091 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0092 00c9 | | Action Pop_Auxiliary_Loop
0093 7fdb | | Jump 0x6f
0094 00ce | | Action Pop_Auxiliary
0095 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0xd = 0x95,0xc
0096 a5fd | | Store_Unchecked 0x2,-0x3
0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x009b,0x027a,0x0001,0x0000,0x001b,0xa834,0x0000,0x0034
; Debug Table 0x5.0x0 = 0x9b,0x1
009c e001 | | Load 0x0,0x1
009d 180e | | Execute Package,Field_Execute,Field_Number 0xe
009e 4802 |H | Short_Literal 0x2
009f e214 | | Load 0x1,0x14
00a0 170e | | Execute Task,Entry_Call,Field_Number 0xe
00a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00ab,0x027e,0x0001,0x0000,0x001b,0xa834,0x0000,0x003c
; Debug Table 0x6.0x0 = 0xab,0x1
00ac e001 | | Load 0x0,0x1
00ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ae 4802 |H | Short_Literal 0x2
00af e214 | | Load 0x1,0x14
00b0 170f | | Execute Task,Entry_Call,Field_Number 0xf
00b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4603 |F | Jump_Case 0x4 ; Debug Table 0x7 = .DEBUG 0x00bb,0x0282,0x0005,0x0000,0x001b,0xa834,0x0000,0x0048
00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00bd 7802 |x | Jump 0xc0 ; case 0x1
00be 7805 |x | Jump 0xc4 ; case 0x2
00bf 7809 |x | Jump 0xc9 ; case 0x3
00c0 00da | | Load_Top At_Offset_2
00c1 0091 0193 | | Action Push_String_Extended_Indexed,0x193 ; "AVAILABLE"
00c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c4 00db | | Load_Top At_Offset_3
00c5 00db | | Load_Top At_Offset_3
00c6 00e0 | | Load_Encached Standard_Cache
00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 00da | | Load_Top At_Offset_2
00ca 00e0 | | Load_Encached Standard_Cache
00cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x00d3,0x0284,0x0005,0x0000,0x001b,0xa834,0x0000,0x004e
00d4 7808 |x | Jump 0xdd ; case 0x0
00d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00da 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00dd 4800 |H | Short_Literal 0x0
00de 00db | | Load_Top At_Offset_3
00df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e0 4800 |H | Short_Literal 0x0
00e1 00db | | Load_Top At_Offset_3
00e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e3 4800 |H | Short_Literal 0x0
00e4 00db | | Load_Top At_Offset_3
00e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00e6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 00f0 | | .CONST 0x00f0 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e403 | | Load 0x2,0x3 ; Debug Table 0x9 = .DEBUG 0x00eb,0x0286,0x0004,0x0000,0x001b,0xa884,0x0000,0x018e
; Debug Table 0x9.0x0 = 0xeb,0x1
00ec e404 | | Load 0x2,0x4
00ed 0273 | s | Execute Discrete,Plus
00ee a403 | | Store_Unchecked 0x2,0x3
00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f0 TRAP_00e8:
00f0 0007 | | Action Break_Optional
00f1 00e7 | | Load_Encached Duration_Cache ; Debug Table 0x9.0x1 = 0xf1,0x2
00f2 0269 | i | Execute Discrete,Last
00f3 a403 | | Store_Unchecked 0x2,0x3
00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 0000 0000 | | .LITERAL {0x00000000, 0x00960000}
00fc 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd}
0100 009b 7c08 | | | .LITERAL {0x009b7c08, 0x000010b0}
0104 0000 0000 | | .BLANK 0000[0x4]
0108 0115 0004 | | .XXX[0x3]
010a 0010 | |
010b 4803 |H | Short_Literal 0x3 ; Debug Table 0xa = .DEBUG 0x010b,0x028c,0x0000,0x0000,0x001b,0xa884,0x0000,0x000a
010c 02cb | | Declare_Variable Entry
010d 4802 |H | Short_Literal 0x2
010e 02cb | | Declare_Variable Entry
010f 4802 |H | Short_Literal 0x2
0110 02cb | | Declare_Variable Entry
0111 00bf | | Action Accept_Activation
0112 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call ; Debug Table 0xb = .DEBUG 0x0112,0x028e,0x0000,0x0000,0x001b,0xa884,0x0000,0x003c
; Debug Table 0xb.0x0 = 0x112,0xffff
0114 00bc | | Action Signal_Activated
0115 00cf | | Action Mark_Auxiliary
0116 0007 | | Action Break_Optional ; Debug Table 0xb.0x1 = 0x116,0x1
0117 8210 | | Call 0x1,0x10 ; Debug Table 0xb.0x2 = 0x117,0x2
0118 00c9 | | Action Pop_Auxiliary_Loop
0119 7ffd | | Jump 0x117
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012e | . | .CONST 0x012e ; Address of begin
0121 0135 | 5 | .CONST 0x0135 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 480e 4827 |H H'| Declare_Variable Select 0x000, 0x003, ; Debug Table 0xc = .DEBUG 0x0123,0x0296,0x0004,0x0000,0x001b,0xa884,0x0000,0x0112
0125 480f 482a |H H*| [0x000]: 0x000 = 0x0000,
0127 480d 482e |H H.| [0x00d]: 0x02e = 0x0170,
0129 4800 4800 |H H | [0x00f]: 0x02a = 0x0150,
012b 4800 4803 |H H | [0x00e]: 0x027 = 0x0138
012d 02cf | |
012e BODY_0120:
012e 00cf | | Action Mark_Auxiliary
012f 0007 | | Action Break_Optional ; Debug Table 0xc.0x0 = 0x12f,0x1
0130 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x1 = 0x130,0x2
0131 013f | ? | Execute Select,Rendezvous
0132 00d1 | | Pop_Control Pop_Count_1
0133 00c9 | | Action Pop_Auxiliary_Loop
0134 7ffb | | Jump 0x130
0135 TRAP_0120:
0135 0007 | | Action Break_Optional
0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xc.0x2 = 0x136,0x6
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; See instruction 0x02cf at 0x123, index=0xe
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e7fd | | Load 0x3,-0x3 ; Debug Table 0xd = .DEBUG 0x013b,0x029e,0x0003,0x0000,0x001b,0xa884,0x0000,0x0103
; Debug Table 0xd.0x0 = 0x13b,0x1
013c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013d 7002 |p | Jump_Nonzero 0x140
013e 604d |`M | Indirect_Literal Discrete,0x18c,{0x00000000, 0x1ba83401} ; Debug Table 0xd.0x1 = 0x13e,0x2
013f 0257 | W | Execute Discrete,Raise
0140 e7fd | | Load 0x3,-0x3 ; Debug Table 0xd.0x2 = 0x140,0x3
0141 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0142 0f01 | | Execute_Immediate Equal,0x1
0143 6804 |h | Jump_Zero 0x148
0144 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x3 = 0x144,0x4
0145 e7fd | | Load 0x3,-0x3
0146 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0147 4101 |A | End_Rendezvous 0x1
0148 6043 |`C | Indirect_Literal Discrete,0x18c,{0x00000000, 0x1ba83401} ; Debug Table 0xd.0x4 = 0x148,0x5
0149 0257 | W | Execute Discrete,Raise
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; See instruction 0x02cf at 0x123, index=0xf
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e7fd | | Load 0x3,-0x3 ; Debug Table 0xe = .DEBUG 0x0153,0x02aa,0x0003,0x0000,0x001b,0xa884,0x0000,0x00d4
; Debug Table 0xe.0x0 = 0x153,0x1
0154 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0155 7002 |p | Jump_Nonzero 0x158
0156 6035 |`5 | Indirect_Literal Discrete,0x18c,{0x00000000, 0x1ba83401} ; Debug Table 0xe.0x1 = 0x156,0x2
0157 0257 | W | Execute Discrete,Raise
0158 e7fd | | Load 0x3,-0x3 ; Debug Table 0xe.0x2 = 0x158,0x3
0159 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015a 0f01 | | Execute_Immediate Equal,0x1
015b 680c |h | Jump_Zero 0x168
015c e7fd | | Load 0x3,-0x3
015d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015e e7fe | | Load 0x3,-0x2
015f 027f | | Execute Discrete,Equal
0160 6807 |h | Jump_Zero 0x168
0161 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x3 = 0x161,0x4
0162 e7fd | | Load 0x3,-0x3
0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0164 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x4 = 0x164,0x5
0165 e7fd | | Load 0x3,-0x3
0166 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0167 4101 |A | End_Rendezvous 0x1
0168 6023 |`# | Indirect_Literal Discrete,0x18c,{0x00000000, 0x1ba83401} ; Debug Table 0xe.0x5 = 0x168,0x6
0169 0257 | W | Execute Discrete,Raise
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; See instruction 0x02cf at 0x123, index=0xd
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e7fd | | Load 0x3,-0x3 ; Debug Table 0xf = .DEBUG 0x0173,0x02b8,0x0003,0x0000,0x001b,0xa884,0x0000,0x0095
; Debug Table 0xf.0x0 = 0x173,0x1
0174 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0175 7002 |p | Jump_Nonzero 0x178
0176 6015 |` | Indirect_Literal Discrete,0x18c,{0x00000000, 0x1ba83401} ; Debug Table 0xf.0x1 = 0x176,0x2
0177 0257 | W | Execute Discrete,Raise
0178 e7fd | | Load 0x3,-0x3 ; Debug Table 0xf.0x2 = 0x178,0x3
0179 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017a 6805 |h | Jump_Zero 0x180
017b e7fd | | Load 0x3,-0x3
017c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
017d e001 | | Load 0x0,0x1
017e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017f 7009 |p | Jump_Nonzero 0x189
0180 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x3 = 0x180,0x4
0181 e7fd | | Load 0x3,-0x3
0182 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0183 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x4 = 0x183,0x5
0184 e7fd | | Load 0x3,-0x3
0185 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0186 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x5 = 0x186,0x6
0187 a7fc | | Store_Unchecked 0x3,-0x4
0188 4102 |A | End_Rendezvous 0x2
0189 4800 |H | Short_Literal 0x0 ; Debug Table 0xf.0x6 = 0x189,0x7
018a a7fc | | Store_Unchecked 0x3,-0x4
018b 4102 |A | End_Rendezvous 0x2
018c 0000 0000 | | .LITERAL {0x00000000, 0x1ba83401}
0190 ; --------------------------------------------------------------------------------------
0190 ; STRING TABLE
0190 ; --------------------------------------------------------------------------------------
0190 000c | | .STRTAB 0x000c->0x0196 ; "UNINITIALIZED"
0191 0017 | | .STRTAB 0x0017->0x019c ; "SEND"
0192 0019 | | .STRTAB 0x0019->0x019e ; "RECEIVE"
0193 001e | | .STRTAB 0x001e->0x01a2 ; "AVAILABLE"
0194 0025 | % | .STRTAB 0x0025->0x01a6 ; "HELD"
0195 0027 | ' | .STREND 0x0027->0x01a8
0196 554e 494e |UNIN| .STRTAB_STRINGS
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0003 0010 | | .CONST 0x0003,0x0010
01b2 000b 0232 | 2| .DEBUG 0x000b,0x0232,0x8000,0x0000,0x001b,0xa834,0x0000,0x0005
01ba 002a 0248 | * H| .DEBUG 0x002a,0x0248,0x8000,0x0000,0x001b,0xa884,0x0000,0x0009
01c2 0043 0256 | C V| .DEBUG 0x0043,0x0256,0x0005,0x0000,0x001b,0xa834,0x0000,0x000a
01ca 005b 0258 | [ X| .DEBUG 0x005b,0x0258,0x0001,0x0000,0x001b,0xa834,0x0000,0x0015
01d2 0063 025c | c \| .DEBUG 0x0063,0x025c,0x0001,0x0000,0x001b,0xa834,0x0000,0x0021
01da 009b 027a | z| .DEBUG 0x009b,0x027a,0x0001,0x0000,0x001b,0xa834,0x0000,0x0034
01e2 00ab 027e | ~| .DEBUG 0x00ab,0x027e,0x0001,0x0000,0x001b,0xa834,0x0000,0x003c
01ea 00bb 0282 | | .DEBUG 0x00bb,0x0282,0x0005,0x0000,0x001b,0xa834,0x0000,0x0048
01f2 00d3 0284 | | .DEBUG 0x00d3,0x0284,0x0005,0x0000,0x001b,0xa834,0x0000,0x004e
01fa 00eb 0286 | | .DEBUG 0x00eb,0x0286,0x0004,0x0000,0x001b,0xa884,0x0000,0x018e
0202 010b 028c | | .DEBUG 0x010b,0x028c,0x0000,0x0000,0x001b,0xa884,0x0000,0x000a
020a 0112 028e | | .DEBUG 0x0112,0x028e,0x0000,0x0000,0x001b,0xa884,0x0000,0x003c
0212 0123 0296 | # | .DEBUG 0x0123,0x0296,0x0004,0x0000,0x001b,0xa884,0x0000,0x0112
021a 013b 029e | ; | .DEBUG 0x013b,0x029e,0x0003,0x0000,0x001b,0xa884,0x0000,0x0103
0222 0153 02aa | S | .DEBUG 0x0153,0x02aa,0x0003,0x0000,0x001b,0xa884,0x0000,0x00d4
022a 0173 02b8 | s | .DEBUG 0x0173,0x02b8,0x0003,0x0000,0x001b,0xa884,0x0000,0x0095
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x0
0232 ; --------------------------------------------------------------------------------------
0232 000a 0000 | | .DBG3TAB 0x000a,0x0000
0234 000b ffff | | .CONST 0x000b,0xffff
0236 000c fffe | | .CONST 0x000c,0xfffe
0238 0011 fffd | | .CONST 0x0011,0xfffd
023a 0013 fffc | | .CONST 0x0013,0xfffc
023c 0015 fffb | | .CONST 0x0015,0xfffb
023e 0017 fffa | | .CONST 0x0017,0xfffa
0240 0019 fff9 | | .CONST 0x0019,0xfff9
0242 001b fff8 | | .CONST 0x001b,0xfff8
0244 001c fff7 | | .CONST 0x001c,0xfff7
0246 0021 fff6 | ! | .CONST 0x0021,0xfff6
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug3 Subtable 0x1
0248 ; --------------------------------------------------------------------------------------
0248 0006 0000 | | .DBG3TAB 0x0006,0x0000
024a 002a ffff | * | .CONST 0x002a,0xffff
024c 002f fffe | / | .CONST 0x002f,0xfffe
024e 0034 fffd | 4 | .CONST 0x0034,0xfffd
0250 0036 fffc | 6 | .CONST 0x0036,0xfffc
0252 0038 fffb | 8 | .CONST 0x0038,0xfffb
0254 003a fffa | : | .CONST 0x003a,0xfffa
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug3 Subtable 0x2
0256 ; --------------------------------------------------------------------------------------
0256 0000 0000 | | .DBG3TAB 0x0000,0x0000
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug3 Subtable 0x3
0258 ; --------------------------------------------------------------------------------------
0258 0000 0001 | | .DBG3TAB 0x0000,0x0001
025a 005b 0001 | [ | .CONST 0x005b,0x0001
025c ; --------------------------------------------------------------------------------------
025c ; Debug3 Subtable 0x4
025c ; --------------------------------------------------------------------------------------
025c 0004 000a | | .DBG3TAB 0x0004,0x000a
025e 0063 ffff | c | .CONST 0x0063,0xffff
0260 0065 fffe | e | .CONST 0x0065,0xfffe
0262 0068 fffd | h | .CONST 0x0068,0xfffd
0264 006b fffc | k | .CONST 0x006b,0xfffc
0266 006e 0001 | n | .CONST 0x006e,0x0001
0268 006f 0002 | o | .CONST 0x006f,0x0002
026a 007e 0004 | ~ | .CONST 0x007e,0x0004
026c 0081 0006 | | .CONST 0x0081,0x0006
026e 0085 0007 | | .CONST 0x0085,0x0007
0270 0087 0008 | | .CONST 0x0087,0x0008
0272 0088 0009 | | .CONST 0x0088,0x0009
0274 008c 000a | | .CONST 0x008c,0x000a
0276 0090 000b | | .CONST 0x0090,0x000b
0278 0095 000c | | .CONST 0x0095,0x000c
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x5
027a ; --------------------------------------------------------------------------------------
027a 0000 0001 | | .DBG3TAB 0x0000,0x0001
027c 009b 0001 | | .CONST 0x009b,0x0001
027e ; --------------------------------------------------------------------------------------
027e ; Debug3 Subtable 0x6
027e ; --------------------------------------------------------------------------------------
027e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0280 00ab 0001 | | .CONST 0x00ab,0x0001
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0x7
0282 ; --------------------------------------------------------------------------------------
0282 0000 0000 | | .DBG3TAB 0x0000,0x0000
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug3 Subtable 0x8
0284 ; --------------------------------------------------------------------------------------
0284 0000 0000 | | .DBG3TAB 0x0000,0x0000
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0x9
0286 ; --------------------------------------------------------------------------------------
0286 0000 0002 | | .DBG3TAB 0x0000,0x0002
0288 00eb 0001 | | .CONST 0x00eb,0x0001
028a 00f1 0002 | | .CONST 0x00f1,0x0002
028c ; --------------------------------------------------------------------------------------
028c ; Debug3 Subtable 0xa
028c ; --------------------------------------------------------------------------------------
028c 0000 0000 | | .DBG3TAB 0x0000,0x0000
028e ; --------------------------------------------------------------------------------------
028e ; Debug3 Subtable 0xb
028e ; --------------------------------------------------------------------------------------
028e 0001 0002 | | .DBG3TAB 0x0001,0x0002
0290 0112 ffff | | .CONST 0x0112,0xffff
0292 0116 0001 | | .CONST 0x0116,0x0001
0294 0117 0002 | | .CONST 0x0117,0x0002
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0xc
0296 ; --------------------------------------------------------------------------------------
0296 0000 0003 | | .DBG3TAB 0x0000,0x0003
0298 012f 0001 | / | .CONST 0x012f,0x0001
029a 0130 0002 | 0 | .CONST 0x0130,0x0002
029c 0136 0006 | 6 | .CONST 0x0136,0x0006
029e ; --------------------------------------------------------------------------------------
029e ; Debug3 Subtable 0xd
029e ; --------------------------------------------------------------------------------------
029e 0000 0005 | | .DBG3TAB 0x0000,0x0005
02a0 013b 0001 | ; | .CONST 0x013b,0x0001
02a2 013e 0002 | > | .CONST 0x013e,0x0002
02a4 0140 0003 | @ | .CONST 0x0140,0x0003
02a6 0144 0004 | D | .CONST 0x0144,0x0004
02a8 0148 0005 | H | .CONST 0x0148,0x0005
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0xe
02aa ; --------------------------------------------------------------------------------------
02aa 0000 0006 | | .DBG3TAB 0x0000,0x0006
02ac 0153 0001 | S | .CONST 0x0153,0x0001
02ae 0156 0002 | V | .CONST 0x0156,0x0002
02b0 0158 0003 | X | .CONST 0x0158,0x0003
02b2 0161 0004 | a | .CONST 0x0161,0x0004
02b4 0164 0005 | d | .CONST 0x0164,0x0005
02b6 0168 0006 | h | .CONST 0x0168,0x0006
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0xf
02b8 ; --------------------------------------------------------------------------------------
02b8 0000 0007 | | .DBG3TAB 0x0000,0x0007
02ba 0173 0001 | s | .CONST 0x0173,0x0001
02bc 0176 0002 | v | .CONST 0x0176,0x0002
02be 0178 0003 | x | .CONST 0x0178,0x0003
02c0 0180 0004 | | .CONST 0x0180,0x0004
02c2 0183 0005 | | .CONST 0x0183,0x0005
02c4 0186 0006 | | .CONST 0x0186,0x0006
02c6 0189 0007 | | .CONST 0x0189,0x0007
02c8 0000 0000 | | .BLANK 0000[0x138]