|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦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 0238 | 8 | .CONST 0x0238 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x1b8, index=0x0
0008 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x1c1, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 004b | K | .CONST 0x004b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 4818 |H | Short_Literal 0x18
000f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0010 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0012 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0014 4800 |H | Short_Literal 0x0
0015 4801 |H | Short_Literal 0x1
0016 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0018 03fe | | Declare_Type Discrete,Defined,Visible
0019 e002 | | Load 0x0,0x2
001a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
001b e003 | | Load 0x0,0x3
001c 0129 | ) | Execute Any,Make_Visible
001d 4806 |H | Short_Literal 0x6
001e 032a | * | Declare_Type Record,Incomplete
001f 00d8 | | Load_Top At_Offset_0
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 e213 | | Load 0x1,0x13
0022 03c7 | | Complete_Type Access,By_Defining
0023 e20f | | Load 0x1,0xf
0024 00e8 | | Load_Encached Character_Cache
0025 e001 | | Load 0x0,0x1
0026 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0027 e001 | | Load 0x0,0x1
0028 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0029 e213 | | Load 0x1,0x13
002a e213 | | Load 0x1,0x13
002b 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
002d e219 | | Load 0x1,0x19
002e 0326 | & | Complete_Type Record,By_Defining
002f 00bf | | Action Accept_Activation
0030 0007 | | Action Break_Optional
0031 0007 | | Action Break_Optional
0032 4800 |H | Short_Literal 0x0
0033 0093 01ab | | push_full_address INIT_01a8
0035 00f5 | | Load_Encached Unused21
0036 037d | } | Declare_Type Task,Defined
0037 036f | o | Declare_Variable Task
0038 e004 | | Load 0x0,0x4
0039 e001 | | Load 0x0,0x1
003a a005 | | Store_Unchecked 0x0,0x5
003b 00b6 | | Action Make_Scope
003c e006 | | Load 0x0,0x6
003d 4805 |H | Short_Literal 0x5
003e e21a | | Load 0x1,0x1a
003f 020e | | Execute Module,Augment_Imports
0040 0007 | | Action Break_Optional
0041 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0042 00c7 | | Action Elaborate_Subprogram
0043 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0044 00c7 | | Action Elaborate_Subprogram
0045 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call
0047 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
0049 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004a 00c7 | | Action Elaborate_Subprogram
004b BODY_0008:
004b BODY_0008:
004b BODY_0008:
004b 00be | | Action Activate_Tasks
004c 00bc | | Action Signal_Activated
004d 00bb | | Action Signal_Completion
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 e213 | | Load 0x1,0x13
0054 00ca | | Action Exit_Nullary_Function
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0061 | a | .CONST 0x0061 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b e213 | | Load 0x1,0x13
005c 0007 | | Action Break_Optional
005d 00db | | Load_Top At_Offset_3
005e e20f | | Load 0x1,0xf
005f 0119 | | Execute Any,Check_In_Formal_Type
0060 8210 | | Call 0x1,0x10
0061 BODY_0058:
0061 e5fe | | Load 0x2,-0x2
0062 7026 |p& | Jump_Nonzero 0x89
0063 e219 | | Load 0x1,0x19
0064 0322 | " | Declare_Variable Record
0065 e5ff | | Load 0x2,-0x1
0066 e219 | | Load 0x1,0x19
0067 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0068 0119 | | Execute Any,Check_In_Formal_Type
0069 00d9 | | Load_Top At_Offset_1
006a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006b 00d9 | | Load_Top At_Offset_1
006c 01dd | | Execute Vector,First
006d 00da | | Load_Top At_Offset_2
006e 01d7 | | Execute Vector,Field_Read
006f 00d9 | | Load_Top At_Offset_1
0070 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0071 4801 |H | Short_Literal 0x1
0072 00d9 | | Load_Top At_Offset_1
0073 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0074 4801 |H | Short_Literal 0x1
0075 00d9 | | Load_Top At_Offset_1
0076 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0077 e213 | | Load 0x1,0x13
0078 00d9 | | Load_Top At_Offset_1
0079 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
007a e213 | | Load 0x1,0x13
007b 00d9 | | Load_Top At_Offset_1
007c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
007d e213 | | Load 0x1,0x13
007e 03b6 | | Declare_Variable Access,By_Allocation,With_Value
007f a5fe | | Store_Unchecked 0x2,-0x2
0080 e5fe | | Load 0x2,-0x2
0081 e5fe | | Load 0x2,-0x2
0082 0227 | ' | Execute Access,All_Reference
0083 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0084 e5fe | | Load 0x2,-0x2
0085 e5fe | | Load 0x2,-0x2
0086 0227 | ' | Execute Access,All_Reference
0087 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0088 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0089 e5fe | | Load 0x2,-0x2
008a 0227 | ' | Execute Access,All_Reference
008b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
008c 003a | : | Store_Top Access,At_Offset_2
008d e219 | | Load 0x1,0x19
008e 0322 | " | Declare_Variable Record
008f e5ff | | Load 0x2,-0x1
0090 e219 | | Load 0x1,0x19
0091 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0092 0119 | | Execute Any,Check_In_Formal_Type
0093 00d9 | | Load_Top At_Offset_1
0094 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0095 00d9 | | Load_Top At_Offset_1
0096 01dd | | Execute Vector,First
0097 00da | | Load_Top At_Offset_2
0098 01d7 | | Execute Vector,Field_Read
0099 00d9 | | Load_Top At_Offset_1
009a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009b 4801 |H | Short_Literal 0x1
009c 00d9 | | Load_Top At_Offset_1
009d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
009e 4801 |H | Short_Literal 0x1
009f 00d9 | | Load_Top At_Offset_1
00a0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00a1 e213 | | Load 0x1,0x13
00a2 00d9 | | Load_Top At_Offset_1
00a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00a4 00da | | Load_Top At_Offset_2
00a5 00d9 | | Load_Top At_Offset_1
00a6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00a7 e213 | | Load 0x1,0x13
00a8 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00a9 00da | | Load_Top At_Offset_2
00aa 0227 | ' | Execute Access,All_Reference
00ab 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ac e5fe | | Load 0x2,-0x2
00ad 00da | | Load_Top At_Offset_2
00ae 0227 | ' | Execute Access,All_Reference
00af 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00b0 0227 | ' | Execute Access,All_Reference
00b1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00b2 00d9 | | Load_Top At_Offset_1
00b3 0227 | ' | Execute Access,All_Reference
00b4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00b5 e5fe | | Load 0x2,-0x2
00b6 0227 | ' | Execute Access,All_Reference
00b7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b9 0000 0000 | | .BLANK 0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4603 |F | Jump_Case 0x4
00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00c5 7802 |x | Jump 0xc8 ; case 0x1
00c6 7805 |x | Jump 0xcc ; case 0x2
00c7 7809 |x | Jump 0xd1 ; case 0x3
00c8 00da | | Load_Top At_Offset_2
00c9 0091 0228 | (| Action Push_String_Extended_Indexed,0x228 ; "VERTICAL"
00cb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00cc 00db | | Load_Top At_Offset_3
00cd 00db | | Load_Top At_Offset_3
00ce 00e0 | | Load_Encached Standard_Cache
00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d1 00da | | Load_Top At_Offset_2
00d2 00e0 | | Load_Encached Standard_Cache
00d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
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 4608 |F | Jump_Case 0x9
00dc 7808 |x | Jump 0xe5 ; case 0x0
00dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00de 780d |x | Jump 0xec ; case 0x2
00df 780c |x | Jump 0xec ; case 0x3
00e0 780b |x | Jump 0xec ; case 0x4
00e1 780a |x | Jump 0xec ; case 0x5
00e2 7809 |x | Jump 0xec ; case 0x6
00e3 7808 |x | Jump 0xec ; case 0x7
00e4 7807 |x | Jump 0xec ; case 0x8
00e5 00da | | Load_Top At_Offset_2
00e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e7 0125 | % | Execute Any,Set_Constraint
00e8 00da | | Load_Top At_Offset_2
00e9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ea 1c00 | | Execute_Immediate Run_Utility,0x0
00eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00ec 0869 | i | Execute_Immediate Raise,0x69
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00fe | | .CONST 0x00fe ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0004 | | .CONST 0x0004 ; Number of locals
00f3 INIT_00f0:
00f3 e213 | | Load 0x1,0x13
00f4 00db | | Load_Top At_Offset_3
00f5 0039 | 9 | Store_Top Access,At_Offset_1
00f6 e5fd | | Load 0x2,-0x3
00f7 0a01 | | Execute_Immediate Plus,0x1
00f8 00e4 | | Load_Encached Positive_Cache
00f9 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00fa e5fe | | Load 0x2,-0x2
00fb 0a01 | | Execute_Immediate Plus,0x1
00fc 00e4 | | Load_Encached Positive_Cache
00fd 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00fe BODY_00f0:
00fe 00d9 | | Load_Top At_Offset_1
00ff 00db | | Load_Top At_Offset_3
0100 0227 | ' | Execute Access,All_Reference
0101 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0102 00d8 | | Load_Top At_Offset_0
0103 00db | | Load_Top At_Offset_3
0104 0227 | ' | Execute Access,All_Reference
0105 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0106 e5fc | | Load 0x2,-0x4
0107 4601 |F | Jump_Case 0x2
0108 7801 |x | Jump 0x10a ; case 0x0
0109 7804 |x | Jump 0x10e ; case 0x1
010a 00d9 | | Load_Top At_Offset_1
010b 0a01 | | Execute_Immediate Plus,0x1
010c 005a | Z | Store_Top Discrete,At_Offset_2
010d 7811 |x | Jump 0x11f
010e 00d8 | | Load_Top At_Offset_0
010f 00db | | Load_Top At_Offset_3
0110 0227 | ' | Execute Access,All_Reference
0111 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0112 e20f | | Load 0x1,0xf
0113 0119 | | Execute Any,Check_In_Formal_Type
0114 8210 | | Call 0x1,0x10
0115 01db | | Execute Vector,Length
0116 0273 | s | Execute Discrete,Plus
0117 0a04 | | Execute_Immediate Plus,0x4
0118 0059 | Y | Store_Top Discrete,At_Offset_1
0119 00d8 | | Load_Top At_Offset_0
011a 0c51 | Q | Execute_Immediate Greater_Equal,0x51
011b 6803 |h | Jump_Zero 0x11f
011c e5fe | | Load 0x2,-0x2
011d 0a01 | | Execute_Immediate Plus,0x1
011e 0059 | Y | Store_Top Discrete,At_Offset_1
011f 00da | | Load_Top At_Offset_2
0120 0227 | ' | Execute Access,All_Reference
0121 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0122 003b | ; | Store_Top Access,At_Offset_3
0123 00cf | | Action Mark_Auxiliary
0124 7826 |x& | Jump 0x14b
0125 00da | | Load_Top At_Offset_2
0126 e402 | | Load 0x2,0x2
0127 0227 | ' | Execute Access,All_Reference
0128 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0129 00d9 | | Load_Top At_Offset_1
012a e402 | | Load 0x2,0x2
012b 0227 | ' | Execute Access,All_Reference
012c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
012d e5fc | | Load 0x2,-0x4
012e 4601 |F | Jump_Case 0x2
012f 7801 |x | Jump 0x131 ; case 0x0
0130 7804 |x | Jump 0x135 ; case 0x1
0131 00da | | Load_Top At_Offset_2
0132 0a01 | | Execute_Immediate Plus,0x1
0133 005b | [ | Store_Top Discrete,At_Offset_3
0134 7811 |x | Jump 0x146
0135 00d9 | | Load_Top At_Offset_1
0136 e402 | | Load 0x2,0x2
0137 0227 | ' | Execute Access,All_Reference
0138 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0139 e20f | | Load 0x1,0xf
013a 0119 | | Execute Any,Check_In_Formal_Type
013b 8210 | | Call 0x1,0x10
013c 01db | | Execute Vector,Length
013d 0273 | s | Execute Discrete,Plus
013e 0a04 | | Execute_Immediate Plus,0x4
013f 005a | Z | Store_Top Discrete,At_Offset_2
0140 00d9 | | Load_Top At_Offset_1
0141 0c51 | Q | Execute_Immediate Greater_Equal,0x51
0142 6803 |h | Jump_Zero 0x146
0143 e5fe | | Load 0x2,-0x2
0144 0a01 | | Execute_Immediate Plus,0x1
0145 005a | Z | Store_Top Discrete,At_Offset_2
0146 00db | | Load_Top At_Offset_3
0147 0227 | ' | Execute Access,All_Reference
0148 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0149 a402 | | Store_Unchecked 0x2,0x2
014a 00c9 | | Action Pop_Auxiliary_Loop
014b 00db | | Load_Top At_Offset_3
014c e5ff | | Load 0x2,-0x1
014d 022e | . | Execute Access,Not_Equal
014e 77d6 |w | Jump_Nonzero 0x125
014f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0156 | V | .CONST 0x0156 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e213 | | Load 0x1,0x13
0154 e5fe | | Load 0x2,-0x2
0155 0039 | 9 | Store_Top Access,At_Offset_1
0156 BODY_0150:
0156 e5fb | | Load 0x2,-0x5
0157 e5fc | | Load 0x2,-0x4
0158 e5fd | | Load 0x2,-0x3
0159 e5fe | | Load 0x2,-0x2
015a 821b | | Call 0x1,0x1b
015b 4800 |H | Short_Literal 0x0
015c 00d9 | | Load_Top At_Offset_1
015d 0227 | ' | Execute Access,All_Reference
015e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
015f 00da | | Load_Top At_Offset_2
0160 0227 | ' | Execute Access,All_Reference
0161 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0162 e5ff | | Load 0x2,-0x1
0163 e001 | | Load 0x0,0x1
0164 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0165 4800 |H | Short_Literal 0x0
0166 e007 | | Load 0x0,0x7
0167 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0168 00da | | Load_Top At_Offset_2
0169 0227 | ' | Execute Access,All_Reference
016a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016b e20f | | Load 0x1,0xf
016c 0119 | | Execute Any,Check_In_Formal_Type
016d 8210 | | Call 0x1,0x10
016e e5ff | | Load 0x2,-0x1
016f e001 | | Load 0x0,0x1
0170 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0171 00d8 | | Load_Top At_Offset_0
0172 0227 | ' | Execute Access,All_Reference
0173 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0174 0039 | 9 | Store_Top Access,At_Offset_1
0175 00cf | | Action Mark_Auxiliary
0176 781b |x | Jump 0x192
0177 4800 |H | Short_Literal 0x0
0178 00da | | Load_Top At_Offset_2
0179 0227 | ' | Execute Access,All_Reference
017a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
017b 00db | | Load_Top At_Offset_3
017c 0227 | ' | Execute Access,All_Reference
017d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
017e e5ff | | Load 0x2,-0x1
017f e001 | | Load 0x0,0x1
0180 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0181 4800 |H | Short_Literal 0x0
0182 e007 | | Load 0x0,0x7
0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0184 00db | | Load_Top At_Offset_3
0185 0227 | ' | Execute Access,All_Reference
0186 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0187 e20f | | Load 0x1,0xf
0188 0119 | | Execute Any,Check_In_Formal_Type
0189 8210 | | Call 0x1,0x10
018a e5ff | | Load 0x2,-0x1
018b e001 | | Load 0x0,0x1
018c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
018d 00d9 | | Load_Top At_Offset_1
018e 0227 | ' | Execute Access,All_Reference
018f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0190 003a | : | Store_Top Access,At_Offset_2
0191 00c9 | | Action Pop_Auxiliary_Loop
0192 00d9 | | Load_Top At_Offset_1
0193 e5fe | | Load 0x2,-0x2
0194 022e | . | Execute Access,Not_Equal
0195 77e1 |w | Jump_Nonzero 0x177
0196 00ce | | Action Pop_Auxiliary
0197 4800 |H | Short_Literal 0x0
0198 00d9 | | Load_Top At_Offset_1
0199 0227 | ' | Execute Access,All_Reference
019a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
019b 00da | | Load_Top At_Offset_2
019c 0227 | ' | Execute Access,All_Reference
019d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
019e e5ff | | Load 0x2,-0x1
019f e001 | | Load 0x0,0x1
01a0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01a1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01c9 | | .CONST 0x01c9 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0013 | | .CONST 0x0013 ; Number of locals
01ab INIT_01a8:
01ab 4800 |H | Short_Literal 0x0
01ac 02cb | | Declare_Variable Entry
01ad 4801 |H | Short_Literal 0x1
01ae 02cb | | Declare_Variable Entry
01af 00bf | | Action Accept_Activation
01b0 e001 | | Load 0x0,0x1
01b1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01b2 02c7 | | Declare_Variable Any
01b3 00d8 | | Load_Top At_Offset_0
01b4 1c00 | | Execute_Immediate Run_Utility,0x0
01b5 e002 | | Load 0x0,0x2
01b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01b7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01b8 480d 483f |H H?| Declare_Variable Select 0x000, 0x001,
01ba 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
01bc 4800 4801 |H H | [0x00d]: 0x03f = 0x01f8
01be 02cf | |
01bf 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
01c1 480e 4843 |H HC| Declare_Variable Select 0x000, 0x001,
01c3 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
01c5 4800 4801 |H H | [0x00e]: 0x043 = 0x0218
01c7 02cf | |
01c8 00bc | | Action Signal_Activated
01c9 BODY_01a8:
01c9 00cf | | Action Mark_Auxiliary
01ca 0007 | | Action Break_Optional
01cb 00db | | Load_Top At_Offset_3
01cc 013f | ? | Execute Select,Rendezvous
01cd 4601 |F | Jump_Case 0x2
01ce 7800 |x | Jump 0x1cf ; case 0x0
01cf e20f | | Load 0x1,0xf ; case 0x1
01d0 6053 |`S | Indirect_Literal Discrete,0x224,{0x00000000, 0x00004000}
01d1 e001 | | Load 0x0,0x1
01d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d3 4800 |H | Short_Literal 0x0
01d4 8003 | | Call 0x0,0x3
01d5 4801 |H | Short_Literal 0x1
01d6 e001 | | Load 0x0,0x1
01d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d8 c20f | | Store 0x1,0xf
01d9 00cf | | Action Mark_Auxiliary
01da 00cf | | Action Mark_Auxiliary
01db 0007 | | Action Break_Optional
01dc 8212 | | Call 0x1,0x12
01dd 00c9 | | Action Pop_Auxiliary_Loop
01de 7ffd | | Jump 0x1dc
01df 00ce | | Action Pop_Auxiliary
01e0 00da | | Load_Top At_Offset_2
01e1 013f | ? | Execute Select,Rendezvous
01e2 4601 |F | Jump_Case 0x2
01e3 7800 |x | Jump 0x1e4 ; case 0x0
01e4 e210 | | Load 0x1,0x10 ; case 0x1
01e5 e004 | | Load 0x0,0x4
01e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e7 7002 |p | Jump_Nonzero 0x1ea
01e8 00c9 | | Action Pop_Auxiliary_Loop
01e9 7ff0 | | Jump 0x1da
01ea 00ce | | Action Pop_Auxiliary
01eb e20f | | Load 0x1,0xf
01ec 6037 |`7 | Indirect_Literal Discrete,0x224,{0x00000000, 0x00004000}
01ed e001 | | Load 0x0,0x1
01ee 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01ef c20f | | Store 0x1,0xf
01f0 00c9 | | Action Pop_Auxiliary_Loop
01f1 7fd9 | | Jump 0x1cb
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; See instruction 0x02cf at 0x1b8, index=0xd
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4100 |A | End_Rendezvous 0x0
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 020d | | .CONST 0x020d ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 e005 | | Load 0x0,0x5
0204 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0205 e20f | | Load 0x1,0xf
0206 6019 |` | Indirect_Literal Discrete,0x220,{0x00007fff, 0xffffffff}
0207 e005 | | Load 0x0,0x5
0208 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0209 c20f | | Store 0x1,0xf
020a c210 | | Store 0x1,0x10
020b 00cc | | Action Pop_Block
020c 7fd2 | | Jump 0x1df
020d TRAP_0200:
020d 00d8 | | Load_Top At_Offset_0
020e 0107 | | Execute Exception,Get_Name
020f 4950 |IP | Short_Literal 0x150
0210 495f |I_ | Short_Literal 0x15f
0211 0262 | b | Execute Discrete,In_Range
0212 6801 |h | Jump_Zero 0x214
0213 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0214 0100 | | Execute Exception,Raise
0215 0000 0000 | | .XXX[0x3]
0217 0000 | |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; See instruction 0x02cf at 0x1c1, index=0xe
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b e210 | | Load 0x1,0x10
021c a5fe | | Store_Unchecked 0x2,-0x2
021d 4101 |A | End_Rendezvous 0x1
021e 0000 0000 | | .XXX[0x2]
0220 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0224 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0228 ; --------------------------------------------------------------------------------------
0228 ; STRING TABLE
0228 ; --------------------------------------------------------------------------------------
0228 0006 | | .STRTAB 0x0006->0x022b ; "VERTICAL"
0229 000c | | .STRTAB 0x000c->0x022f ; "HORIZONTAL"
022a 0014 | | .STREND 0x0014->0x0234
022b 5645 5254 |VERT| .STRTAB_STRINGS
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 0007 | | .DEBUG4 0x0004,0x0007,0x54d4,0x0000,0x0001,0x0000
023e 0000 0000 | | .BLANK 0000[0x1c2]