|
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_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0260 | ` | .CONST 0x0260 ; 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 ; -------------------------------------------------------------------------------------- 0008 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000c | | .CONST 0x000c ; Number of locals 000b INIT_0008: 000b e027 | ' | Load 0x0,0x27 000c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 000d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 000e e022 | " | Load 0x0,0x22 000f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0010 02ff | | Declare_Variable Variant_Record 0011 00d8 | | Load_Top At_Offset_0 0012 1c00 | | Execute_Immediate Run_Utility,0x0 0013 e020 | | Load 0x0,0x20 0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0015 02c7 | | Declare_Variable Any 0016 00d8 | | Load_Top At_Offset_0 0017 1c00 | | Execute_Immediate Run_Utility,0x0 0018 e020 | | Load 0x0,0x20 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a 02c7 | | Declare_Variable Any 001b e020 | | Load 0x0,0x20 001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001d a405 | | Store_Unchecked 0x2,0x5 001e e020 | | Load 0x0,0x20 001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0020 02c7 | | Declare_Variable Any 0021 00d8 | | Load_Top At_Offset_0 0022 1c00 | | Execute_Immediate Run_Utility,0x0 0023 e020 | | Load 0x0,0x20 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 002a 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 002c 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 002e 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0030 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 0032 BODY_0008: 0032 480a |H | Short_Literal 0xa 0033 e022 | " | Load 0x0,0x22 0034 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0035 e023 | # | Load 0x0,0x23 0036 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0037 4800 |H | Short_Literal 0x0 0038 e5fc | | Load 0x2,-0x4 0039 e5fd | | Load 0x2,-0x3 003a 820d | | Call 0x1,0xd 003b 480b |H | Short_Literal 0xb 003c e022 | " | Load 0x0,0x22 003d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 003e e023 | # | Load 0x0,0x23 003f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0040 58eb |X | Indirect_Literal Float,0x12c,40.0 0041 4802 |H | Short_Literal 0x2 0042 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Name/Description" 0044 820e | | Call 0x1,0xe 0045 480b |H | Short_Literal 0xb 0046 e022 | " | Load 0x0,0x22 0047 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0048 e023 | # | Load 0x0,0x23 0049 1b16 | | Execute Package,Field_Read,Field_Number 0x16 004a 58dd |X | Indirect_Literal Float,0x128,25.0 004b 4802 |H | Short_Literal 0x2 004c 0092 0239 | 9| Action Push_String_Extended,0x239 ; "Representation" 004e 820e | | Call 0x1,0xe 004f 480b |H | Short_Literal 0xb 0050 e022 | " | Load 0x0,0x22 0051 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0052 e023 | # | Load 0x0,0x23 0053 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0054 58cf |X | Indirect_Literal Float,0x124,10.0 0055 4802 |H | Short_Literal 0x2 0056 0092 023a | :| Action Push_String_Extended,0x23a ; "Mode" 0058 820e | | Call 0x1,0xe 0059 480b |H | Short_Literal 0xb 005a e022 | " | Load 0x0,0x22 005b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 005c e023 | # | Load 0x0,0x23 005d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 005e 58c9 |X | Indirect_Literal Float,0x128,25.0 005f 4802 |H | Short_Literal 0x2 0060 0092 023b | ;| Action Push_String_Extended,0x23b ; "Data Type" 0062 820e | | Call 0x1,0xe 0063 e5ff | | Load 0x2,-0x1 0064 e022 | " | Load 0x0,0x22 0065 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0066 e5ff | | Load 0x2,-0x1 0067 e022 | " | Load 0x0,0x22 0068 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0069 e403 | | Load 0x2,0x3 006a 016d | m | Execute Variant_Record,Structure_Write 006b e403 | | Load 0x2,0x3 006c 8408 | | Call 0x2,0x8 006d c406 | | Store 0x2,0x6 006e e406 | | Load 0x2,0x6 006f e026 | & | Load 0x0,0x26 0070 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0071 7022 |p" | Jump_Nonzero 0x94 0072 4801 |H | Short_Literal 0x1 0073 480d |H | Short_Literal 0xd 0074 e022 | " | Load 0x0,0x22 0075 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0076 00ea | | Load_Encached Null_String_Cache 0077 4800 |H | Short_Literal 0x0 0078 e5fe | | Load 0x2,-0x2 0079 e022 | " | Load 0x0,0x22 007a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 007b 4801 |H | Short_Literal 0x1 007c e5fe | | Load 0x2,-0x2 007d e022 | " | Load 0x0,0x22 007e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 007f 820f | | Call 0x1,0xf 0080 e406 | | Load 0x2,0x6 0081 840b | | Call 0x2,0xb 0082 4801 |H | Short_Literal 0x1 0083 480d |H | Short_Literal 0xd 0084 e022 | " | Load 0x0,0x22 0085 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0086 e023 | # | Load 0x0,0x23 0087 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0088 0092 023c | <| Action Push_String_Extended,0x23c ; " " 008a 820f | | Call 0x1,0xf 008b 4801 |H | Short_Literal 0x1 008c 480d |H | Short_Literal 0xd 008d e022 | " | Load 0x0,0x22 008e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 008f e023 | # | Load 0x0,0x23 0090 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0091 0092 023c | <| Action Push_String_Extended,0x23c ; " " 0093 820f | | Call 0x1,0xf 0094 00cf | | Action Mark_Auxiliary 0095 e5ff | | Load 0x2,-0x1 0096 e022 | " | Load 0x0,0x22 0097 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0098 e5ff | | Load 0x2,-0x1 0099 e022 | " | Load 0x0,0x22 009a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 009b 0263 | c | Execute Discrete,Above_Bound 009c 707f |p | Jump_Nonzero 0x11c 009d 00d8 | | Load_Top At_Offset_0 009e e5ff | | Load 0x2,-0x1 009f e022 | " | Load 0x0,0x22 00a0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00a1 e403 | | Load 0x2,0x3 00a2 016d | m | Execute Variant_Record,Structure_Write 00a3 e403 | | Load 0x2,0x3 00a4 8408 | | Call 0x2,0x8 00a5 c406 | | Store 0x2,0x6 00a6 e406 | | Load 0x2,0x6 00a7 e026 | & | Load 0x0,0x26 00a8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00a9 6855 |hU | Jump_Zero 0xff 00aa e403 | | Load 0x2,0x3 00ab 8409 | | Call 0x2,0x9 00ac c404 | | Store 0x2,0x4 00ad e404 | | Load 0x2,0x4 00ae e020 | | Load 0x0,0x20 00af 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b0 c407 | | Store 0x2,0x7 00b1 e405 | | Load 0x2,0x5 00b2 e020 | | Load 0x0,0x20 00b3 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b4 7006 |p | Jump_Nonzero 0xbb 00b5 e405 | | Load 0x2,0x5 00b6 e020 | | Load 0x0,0x20 00b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b8 e407 | | Load 0x2,0x7 00b9 012f | / | Execute Any,Equal 00ba 7044 |pD | Jump_Nonzero 0xff 00bb 4801 |H | Short_Literal 0x1 00bc 480d |H | Short_Literal 0xd 00bd e022 | " | Load 0x0,0x22 00be 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00bf 00ea | | Load_Encached Null_String_Cache 00c0 4800 |H | Short_Literal 0x0 00c1 e407 | | Load 0x2,0x7 00c2 e022 | " | Load 0x0,0x22 00c3 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00c4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c5 4801 |H | Short_Literal 0x1 00c6 e407 | | Load 0x2,0x7 00c7 e022 | " | Load 0x0,0x22 00c8 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00c9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ca 820f | | Call 0x1,0xf 00cb e407 | | Load 0x2,0x7 00cc 840b | | Call 0x2,0xb 00cd e407 | | Load 0x2,0x7 00ce e026 | & | Load 0x0,0x26 00cf 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00d0 681a |h | Jump_Zero 0xeb 00d1 4801 |H | Short_Literal 0x1 00d2 480d |H | Short_Literal 0xd 00d3 e022 | " | Load 0x0,0x22 00d4 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00d5 e023 | # | Load 0x0,0x23 00d6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d7 0092 023d | =| Action Push_String_Extended,0x23d ; "Out" 00d9 820f | | Call 0x1,0xf 00da 4801 |H | Short_Literal 0x1 00db 480d |H | Short_Literal 0xd 00dc e022 | " | Load 0x0,0x22 00dd 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00de 00ea | | Load_Encached Null_String_Cache 00df 4800 |H | Short_Literal 0x0 00e0 e407 | | Load 0x2,0x7 00e1 e022 | " | Load 0x0,0x22 00e2 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e4 480f |H | Short_Literal 0xf 00e5 e407 | | Load 0x2,0x7 00e6 e022 | " | Load 0x0,0x22 00e7 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00e8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e9 820f | | Call 0x1,0xf 00ea 7812 |x | Jump 0xfd 00eb 4801 |H | Short_Literal 0x1 00ec 480d |H | Short_Literal 0xd 00ed e022 | " | Load 0x0,0x22 00ee 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ef e023 | # | Load 0x0,0x23 00f0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00f1 0092 023c | <| Action Push_String_Extended,0x23c ; " " 00f3 820f | | Call 0x1,0xf 00f4 4801 |H | Short_Literal 0x1 00f5 480d |H | Short_Literal 0xd 00f6 e022 | " | Load 0x0,0x22 00f7 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00f8 e023 | # | Load 0x0,0x23 00f9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00fa 0092 023c | <| Action Push_String_Extended,0x23c ; " " 00fc 820f | | Call 0x1,0xf 00fd e404 | | Load 0x2,0x4 00fe c405 | | Store 0x2,0x5 00ff e403 | | Load 0x2,0x3 0100 8409 | | Call 0x2,0x9 0101 c404 | | Store 0x2,0x4 0102 e404 | | Load 0x2,0x4 0103 840c | | Call 0x2,0xc 0104 e404 | | Load 0x2,0x4 0105 840b | | Call 0x2,0xb 0106 e404 | | Load 0x2,0x4 0107 e026 | & | Load 0x0,0x26 0108 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0109 840a | | Call 0x2,0xa 010a 4801 |H | Short_Literal 0x1 010b 480d |H | Short_Literal 0xd 010c e022 | " | Load 0x0,0x22 010d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 010e 00ea | | Load_Encached Null_String_Cache 010f 4800 |H | Short_Literal 0x0 0110 e404 | | Load 0x2,0x4 0111 e022 | " | Load 0x0,0x22 0112 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0113 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0114 480f |H | Short_Literal 0xf 0115 e404 | | Load 0x2,0x4 0116 e022 | " | Load 0x0,0x22 0117 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0118 180e | | Execute Package,Field_Execute,Field_Number 0xe 0119 820f | | Call 0x1,0xf 011a 00c8 | | Action Pop_Auxiliary_Range 011b 3f81 |? | Loop_Increasing 0x9d 011c 00ce | | Action Pop_Auxiliary 011d e023 | # | Load 0x0,0x23 011e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 011f e023 | # | Load 0x0,0x23 0120 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0121 8210 | | Call 0x1,0x10 0122 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0123 0000 | | .XXX[0x1] 0124 4024 0000 |@$ | .DBL 10.0 0126 0000 0000 | | 0128 4039 0000 |@9 | .DBL 25.0 012a 0000 0000 | | 012c 4044 0000 |@D | .DBL 40.0 012e 0000 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0135 4606 |F | Jump_Case 0x7 0136 7806 |x | Jump 0x13d ; case 0x0 0137 7805 |x | Jump 0x13d ; case 0x1 0138 7811 |x | Jump 0x14a ; case 0x2 0139 7803 |x | Jump 0x13d ; case 0x3 013a 7805 |x | Jump 0x140 ; case 0x4 013b 7809 |x | Jump 0x145 ; case 0x5 013c 7800 |x | Jump 0x13d ; case 0x6 013d e020 | | Load 0x0,0x20 013e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0140 00da | | Load_Top At_Offset_2 0141 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0142 e032 | 2 | Load 0x0,0x32 0143 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0145 00da | | Load_Top At_Offset_2 0146 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0147 e02d | - | Load 0x0,0x2d 0148 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014a 00da | | Load_Top At_Offset_2 014b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 014c e02c | , | Load 0x0,0x2c 014d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 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 00da | | Load_Top At_Offset_2 0154 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0155 4606 |F | Jump_Case 0x7 0156 7806 |x | Jump 0x15d ; case 0x0 0157 7805 |x | Jump 0x15d ; case 0x1 0158 7811 |x | Jump 0x16a ; case 0x2 0159 7803 |x | Jump 0x15d ; case 0x3 015a 7805 |x | Jump 0x160 ; case 0x4 015b 7809 |x | Jump 0x165 ; case 0x5 015c 7800 |x | Jump 0x15d ; case 0x6 015d e020 | | Load 0x0,0x20 015e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0160 00da | | Load_Top At_Offset_2 0161 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0162 e032 | 2 | Load 0x0,0x32 0163 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0165 00da | | Load_Top At_Offset_2 0166 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0167 e02d | - | Load 0x0,0x2d 0168 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016a 00da | | Load_Top At_Offset_2 016b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 016c e02c | , | Load 0x0,0x2c 016d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0179 | y | .CONST 0x0179 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e027 | ' | Load 0x0,0x27 0174 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0175 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0176 e027 | ' | Load 0x0,0x27 0177 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0178 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0179 BODY_0170: 0179 e7ff | | Load 0x3,-0x1 017a 6803 |h | Jump_Zero 0x17e 017b e7ff | | Load 0x3,-0x1 017c 0f01 | | Execute_Immediate Equal,0x1 017d 680a |h | Jump_Zero 0x188 017e 4801 |H | Short_Literal 0x1 017f 480d |H | Short_Literal 0xd 0180 e022 | " | Load 0x0,0x22 0181 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0182 e023 | # | Load 0x0,0x23 0183 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0184 0092 023e | >| Action Push_String_Extended,0x23e ; "In" 0186 820f | | Call 0x1,0xf 0187 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0188 e7ff | | Load 0x3,-0x1 0189 0f02 | | Execute_Immediate Equal,0x2 018a 680a |h | Jump_Zero 0x195 018b 4801 |H | Short_Literal 0x1 018c 480d |H | Short_Literal 0xd 018d e022 | " | Load 0x0,0x22 018e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 018f e023 | # | Load 0x0,0x23 0190 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0191 0092 023d | =| Action Push_String_Extended,0x23d ; "Out" 0193 820f | | Call 0x1,0xf 0194 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0195 e7ff | | Load 0x3,-0x1 0196 0f03 | | Execute_Immediate Equal,0x3 0197 680a |h | Jump_Zero 0x1a2 0198 4801 |H | Short_Literal 0x1 0199 480d |H | Short_Literal 0xd 019a e022 | " | Load 0x0,0x22 019b 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 019c e023 | # | Load 0x0,0x23 019d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 019e 0092 023f | ?| Action Push_String_Extended,0x23f ; "In/Out" 01a0 820f | | Call 0x1,0xf 01a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a2 e404 | | Load 0x2,0x4 01a3 4807 |H | Short_Literal 0x7 01a4 e01f | | Load 0x0,0x1f 01a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a6 180d | | Execute Package,Field_Execute,Field_Number 0xd 01a7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01a8 e404 | | Load 0x2,0x4 01a9 4808 |H | Short_Literal 0x8 01aa e01f | | Load 0x0,0x1f 01ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ac 180d | | Execute Package,Field_Execute,Field_Number 0xd 01ad 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01ae 00d9 | | Load_Top At_Offset_1 01af e027 | ' | Load 0x0,0x27 01b0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01b1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01b2 0f00 | | Execute_Immediate Equal,0x0 01b3 00d9 | | Load_Top At_Offset_1 01b4 e027 | ' | Load 0x0,0x27 01b5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01b6 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01b7 0f00 | | Execute_Immediate Equal,0x0 01b8 0279 | y | Execute Discrete,And 01b9 680a |h | Jump_Zero 0x1c4 01ba 4801 |H | Short_Literal 0x1 01bb 480d |H | Short_Literal 0xd 01bc e022 | " | Load 0x0,0x22 01bd 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01be e023 | # | Load 0x0,0x23 01bf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01c0 0092 023f | ?| Action Push_String_Extended,0x23f ; "In/Out" 01c2 820f | | Call 0x1,0xf 01c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c4 00d9 | | Load_Top At_Offset_1 01c5 e027 | ' | Load 0x0,0x27 01c6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01c7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01c8 700a |p | Jump_Nonzero 0x1d3 01c9 4801 |H | Short_Literal 0x1 01ca 480d |H | Short_Literal 0xd 01cb e022 | " | Load 0x0,0x22 01cc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01cd e023 | # | Load 0x0,0x23 01ce 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01cf 0092 023e | >| Action Push_String_Extended,0x23e ; "In" 01d1 820f | | Call 0x1,0xf 01d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d3 00d8 | | Load_Top At_Offset_0 01d4 e027 | ' | Load 0x0,0x27 01d5 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01d6 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d7 700a |p | Jump_Nonzero 0x1e2 01d8 4801 |H | Short_Literal 0x1 01d9 480d |H | Short_Literal 0xd 01da e022 | " | Load 0x0,0x22 01db 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01dc e023 | # | Load 0x0,0x23 01dd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01de 0092 023d | =| Action Push_String_Extended,0x23d ; "Out" 01e0 820f | | Call 0x1,0xf 01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e2 4801 |H | Short_Literal 0x1 01e3 480d |H | Short_Literal 0xd 01e4 e022 | " | Load 0x0,0x22 01e5 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01e6 e023 | # | Load 0x0,0x23 01e7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01e8 0092 023f | ?| Action Push_String_Extended,0x23f ; "In/Out" 01ea 820f | | Call 0x1,0xf 01eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4801 |H | Short_Literal 0x1 01f4 480d |H | Short_Literal 0xd 01f5 e022 | " | Load 0x0,0x22 01f6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01f7 e023 | # | Load 0x0,0x23 01f8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01f9 00ea | | Load_Encached Null_String_Cache 01fa e7ff | | Load 0x3,-0x1 01fb e01f | | Load 0x0,0x1f 01fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01fe 820f | | Call 0x1,0xf 01ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0208 | | .CONST 0x0208 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 0204 4812 |H | Short_Literal 0x12 0205 e01f | | Load 0x0,0x1f 0206 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0207 180d | | Execute Package,Field_Execute,Field_Number 0xd 0208 BODY_0200: 0208 00d8 | | Load_Top At_Offset_0 0209 e027 | ' | Load 0x0,0x27 020a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 020b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 020c 6811 |h | Jump_Zero 0x21e 020d 4801 |H | Short_Literal 0x1 020e 480d |H | Short_Literal 0xd 020f e022 | " | Load 0x0,0x22 0210 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0211 00ea | | Load_Encached Null_String_Cache 0212 4800 |H | Short_Literal 0x0 0213 e7ff | | Load 0x3,-0x1 0214 e022 | " | Load 0x0,0x22 0215 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0216 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0217 4801 |H | Short_Literal 0x1 0218 e7ff | | Load 0x3,-0x1 0219 e022 | " | Load 0x0,0x22 021a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 021b 180e | | Execute Package,Field_Execute,Field_Number 0xe 021c 820f | | Call 0x1,0xf 021d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021e 4801 |H | Short_Literal 0x1 021f 480d |H | Short_Literal 0xd 0220 e022 | " | Load 0x0,0x22 0221 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0222 00ea | | Load_Encached Null_String_Cache 0223 4800 |H | Short_Literal 0x0 0224 e7ff | | Load 0x3,-0x1 0225 e022 | " | Load 0x0,0x22 0226 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0227 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0228 4801 |H | Short_Literal 0x1 0229 e7ff | | Load 0x3,-0x1 022a e022 | " | Load 0x0,0x22 022b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 022c 180e | | Execute Package,Field_Execute,Field_Number 0xe 022d 0092 0240 | @| Action Push_String_Extended,0x240 ; "-" 022f 01cc | | Execute Vector,Catenate 0230 00ea | | Load_Encached Null_String_Cache 0231 e602 | | Load 0x3,0x2 0232 e01f | | Load 0x0,0x1f 0233 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0234 180f | | Execute Package,Field_Execute,Field_Number 0xf 0235 01cc | | Execute Vector,Catenate 0236 820f | | Call 0x1,0xf 0237 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0238 ; -------------------------------------------------------------------------------------- 0238 ; STRING TABLE 0238 ; -------------------------------------------------------------------------------------- 0238 0014 | | .STRTAB 0x0014->0x0242 ; "Name/Description" 0239 0022 | " | .STRTAB 0x0022->0x024a ; "Representation" 023a 002e | . | .STRTAB 0x002e->0x0251 ; "Mode" 023b 0030 | 0 | .STRTAB 0x0030->0x0253 ; "Data Type" 023c 0037 | 7 | .STRTAB 0x0037->0x0257 ; " " 023d 0036 | 6 | .STRTAB 0x0036->0x0258 ; "Out" 023e 0037 | 7 | .STRTAB 0x0037->0x0259 ; "In" 023f 0037 | 7 | .STRTAB 0x0037->0x025a ; "In/Out" 0240 003b | ; | .STRTAB 0x003b->0x025d ; "-" 0241 003a | : | .STREND 0x003a->0x025e 0242 4e61 6d65 |Name| .STRTAB_STRINGS 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc94,0x0000,0x0001,0x0000 0266 ce4e 2a28 | N*(| .XXX[0x19a] 0268 218c 3628 |! 6(| 026a 858e 0635 | 5| 026c e4d4 358c | 5 | 026e a271 8ddc | q | 0270 a18f f8d0 | | 0272 818c 3e29 | >)| 0274 7480 2cd5 |t , | 0276 b1de c061 | a| 0278 24d4 562a |$ V*| 027a 185d c5dc | ] | 027c d58d cddc | | 027e dd8d ec5d | ]| 0280 4cd7 dc5c |L \| 0282 7e2b 6a27 |~+j'| 0284 b4d0 7134 | q4| 0286 8e29 8c5d | ) ]| 0288 f9de 905e | ^| 028a 01dc 1c60 | `| 028c a229 ec5f | ) _| 028e b05c a136 | \ 6| 0290 19dd 2e73 | .s| 0292 a224 be29 | $ )| 0294 fc5e 2ddd | ^- | 0296 c8d7 ba24 | $| 0298 7462 3ddd |tb= | 029a 518e 5dde |Q ] | 029c ac5d ecd4 | ] | 029e ed34 ee29 | 4 )| 02a0 6a72 c85d |jr ]| 02a2 b4d6 69de | i | 02a4 18d6 04d4 | | 02a6 b136 79dd | 6y | 02a8 122a 04d6 | * | 02aa 85dd 1e2a | *| 02ac f9dd 598d | Y | 02ae 3d36 a1dd |=6 | 02b0 2c60 3229 |,`2)| 02b2 bd8d 462a | F*| 02b4 b5dc 4629 | F)| 02b6 6136 c061 |a6 a| 02b8 5a2a 518e |Z*Q | 02ba 04d4 f461 | a| 02bc 7937 8e4d |y7 M| 02be ae72 a8d5 | r | 02c0 822a b5dd | * | 02c2 ae73 01dd | s | 02c4 ad36 1d8f | 6 | 02c6 0dde e4d5 | | 02c8 e463 19dd | c | 02ca ae73 29dd | s) | 02cc ba2b 31dc | +1 | 02ce ba29 c62a | ) *| 02d0 2063 41dd | cA | 02d2 d228 ce2b | ( +| 02d4 2cd6 0935 |, 5| 02d6 e229 7628 | )v(| 02d8 f896 1935 | 5| 02da 386e 898d |8n | 02dc d537 71dd | 7q | 02de fe2a b433 | * 3| 02e0 81de e472 | r| 02e2 706f 8ddc |po | 02e4 98e2 1628 | (| 02e6 b463 a1de | c | 02e8 222a c863 |"* c| 02ea addd 2a2b | *+| 02ec b5dc 285f | (_| 02ee bddd 3e2a | >*| 02f0 e98e f462 | b| 02f2 4a29 a137 |J) 7| 02f4 d0d6 9136 | 6| 02f6 bd8e 9936 | 6| 02f8 6228 464b |b(FK| 02fa 90ef f5de | | 02fc 722b 1d8f |r+ | 02fe 498d 8e2a |I *| 0300 822a c934 | * 4| 0302 20db 0134 | 4| 0304 19e0 285c | (\| 0306 21e3 5468 |! Th| 0308 29e3 9862 |) b| 030a f136 aa2b | 6 +| 030c 90ec 41e1 | A | 030e a867 718f | gq | 0310 0134 74db | 4t | 0312 2136 d228 |!6 (| 0314 88db 2d34 | -4| 0316 65e2 e22b |e +| 0318 918c 75e3 | u | 031a 998c 7de1 | } | 031c 50d7 7d97 |P } | 031e 022a 8c60 | * `| 0320 a5e3 b98c | | 0322 99e2 3e30 | >0| 0324 c0da 906f | o| 0326 1e2b 8537 | + 7| 0328 3a28 d00c |:( | 032a f8d8 bde0 | | 032c b1e0 c9e3 | | 032e fd8d 15ec | | 0330 0590 d00c | | 0332 dde0 dc67 | g| 0334 5e29 58d3 |^)X | 0336 f444 2593 | D% | 0338 6e28 f9e3 |n( | 033a 5061 60db |Pa` | 033c ed35 0de1 | 5 | 033e 8a33 f58c | 3 | 0340 5593 d450 |U P| 0342 a91a d064 | d| 0344 d00d 90db | | 0346 a229 6865 | )he| 0348 35e3 cd35 |5 5| 034a 7c65 41e0 ||eA | 034c 5864 8590 |Xd | 034e 5495 51e0 |T Q | 0350 9193 3671 | 6q| 0352 6189 61e3 |a a | 0354 2061 79e3 | ay | 0356 e62a de2b | * +| 0358 ee28 b991 | ( | 035a 81e1 10d9 | | 035c 2992 10db |) | 035e 38a0 0a2d |8 -| 0360 7c94 9538 || 8| 0362 1d9a 30d8 | 0 | 0364 f191 b9e0 | | 0366 2a2d c1e1 |*- | 0368 d9e1 78da | x | 036a 699c 3e2c |i >,| 036c 6d39 e5e1 |m9 | 036e fc65 ede0 | e | 0370 f065 f5e1 | e | 0372 2d91 fde2 |- | 0374 9cd9 0a2d | -| 0376 4d92 c465 |M e| 0378 5592 b4db |U | 037a 8e28 bc56 | ( V| 037c 1de1 7466 | tf| 037e d0d9 7992 | y | 0380 2de1 393a |- 9:| 0382 35e2 e8d8 |5 | 0384 b62c 6a4a | ,jJ| 0386 49e1 a191 |I | 0388 9193 10da | | 038a 5de3 1cd8 |] | 038c f22c ca2e | , .| 038e 75e0 f0e1 |u | 0390 c072 5ce4 | r\ | 0392 893a 85e2 | : | 0394 21e2 0006 |! | 0396 91e1 0e2d | -| 0398 f190 fe2e | .| 039a 9de1 b939 | 9| 039c 262e 0991 |&. | 039e 7466 2867 |tf(g| 03a0 e465 6e76 | env| 03a2 c9e1 3a76 | :v| 03a4 d1e1 ed3a | :| 03a6 d9e0 9d2d | -| 03a8 f93a 313b | :1;| 03aa c4d8 7466 | tf| 03ac 0938 462e | 8F.| 03ae f9e2 5d90 | ] | 03b0 a9e4 a824 | $| 03b2 89e7 f0d8 | | 03b4 a1e7 f142 | B| 03b6 d467 15e1 | g | 03b8 71e7 21e3 |q ! | 03ba 34db 29e0 |4 ) | 03bc 9c6b 31e1 | k1 | 03be 922f 39e0 | /9 | 03c0 b86b 9e2f | k /| 03c2 d575 a62c | u ,| 03c4 8c66 1d3b | f ;| 03c6 80c0 e46b | k| 03c8 5de3 d62b |] +| 03ca 8cd9 c62e | .| 03cc e46f 71e2 | oq | 03ce 1d3f 79e1 | ?y | 03d0 da2e f192 | . | 03d2 e193 8867 | g| 03d4 c8ce b539 | 9| 03d6 546a e593 |Tj | 03d8 9de0 25eb | % | 03da a9e2 e593 | | 03dc b1e2 122f | /| 03de bde0 e0df | | 03e0 c5e0 78df | x | 03e2 1987 d9e2 | | 03e4 a8ac a457 | W| 03e6 0d3b 4193 | ;A | 03e8 ede1 18df | | 03ea f9e2 006a | j| 03ec 5442 c8e9 |TB | 03ee 38de 662d |8 f-| 03f0 5452 246b |TR$k| 03f2 7593 4d38 |u M8| 03f4 7cde 3c6a || <j| 03f6 822d 6cdc | -l | 03f8 35e7 2057 |5 W| 03fa 9592 9a2c | ,| 03fc 45e6 706b |E pk| 03fe a990 51e7 | Q |