|
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 02b0 | | .CONST 0x02b0 ; 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 0023 | # | .CONST 0x0023 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b e022 | " | Load 0x0,0x22 000c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 000d 02ff | | Declare_Variable Variant_Record 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e020 | | Load 0x0,0x20 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 00e1 | | Load_Encached Boolean_Cache 0016 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0017 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0019 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 001b 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 001d 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 001f 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0021 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 0023 BODY_0008: 0023 480a |H | Short_Literal 0xa 0024 e022 | " | Load 0x0,0x22 0025 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0026 e023 | # | Load 0x0,0x23 0027 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0028 4800 |H | Short_Literal 0x0 0029 e5fd | | Load 0x2,-0x3 002a e5fe | | Load 0x2,-0x2 002b 820d | | Call 0x1,0xd 002c 480b |H | Short_Literal 0xb 002d e022 | " | Load 0x0,0x22 002e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 002f e023 | # | Load 0x0,0x23 0030 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0031 591e |Y | Indirect_Literal Float,0x150,40.0 0032 4802 |H | Short_Literal 0x2 0033 0092 0284 | | Action Push_String_Extended,0x284 ; "Name/Description" 0035 820e | | Call 0x1,0xe 0036 480b |H | Short_Literal 0xb 0037 e022 | " | Load 0x0,0x22 0038 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0039 e023 | # | Load 0x0,0x23 003a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 003b 5910 |Y | Indirect_Literal Float,0x14c,25.0 003c 4802 |H | Short_Literal 0x2 003d 0092 0285 | | Action Push_String_Extended,0x285 ; "Representation" 003f 820e | | Call 0x1,0xe 0040 480b |H | Short_Literal 0xb 0041 e022 | " | Load 0x0,0x22 0042 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0043 e023 | # | Load 0x0,0x23 0044 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0045 5902 |Y | Indirect_Literal Float,0x148,10.0 0046 4802 |H | Short_Literal 0x2 0047 0092 0286 | | Action Push_String_Extended,0x286 ; "Mode" 0049 820e | | Call 0x1,0xe 004a 480b |H | Short_Literal 0xb 004b e022 | " | Load 0x0,0x22 004c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 004d e023 | # | Load 0x0,0x23 004e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 004f 58fc |X | Indirect_Literal Float,0x14c,25.0 0050 4802 |H | Short_Literal 0x2 0051 0092 0287 | | Action Push_String_Extended,0x287 ; "Data Type" 0053 820e | | Call 0x1,0xe 0054 00cf | | Action Mark_Auxiliary 0055 e5ff | | Load 0x2,-0x1 0056 e022 | " | Load 0x0,0x22 0057 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0058 e5ff | | Load 0x2,-0x1 0059 e022 | " | Load 0x0,0x22 005a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 005b 0263 | c | Execute Discrete,Above_Bound 005c 70e2 |p | Jump_Nonzero 0x13f 005d 00d8 | | Load_Top At_Offset_0 005e e5ff | | Load 0x2,-0x1 005f e022 | " | Load 0x0,0x22 0060 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0061 e402 | | Load 0x2,0x2 0062 016d | m | Execute Variant_Record,Structure_Write 0063 e402 | | Load 0x2,0x2 0064 8406 | | Call 0x2,0x6 0065 c403 | | Store 0x2,0x3 0066 e403 | | Load 0x2,0x3 0067 e026 | & | Load 0x0,0x26 0068 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0069 4626 |F& | Jump_Case 0x27 006a 7826 |x& | Jump 0x91 ; case 0x0 006b 7825 |x% | Jump 0x91 ; case 0x1 006c 7824 |x$ | Jump 0x91 ; case 0x2 006d 7823 |x# | Jump 0x91 ; case 0x3 006e 7822 |x" | Jump 0x91 ; case 0x4 006f 7830 |x0 | Jump 0xa0 ; case 0x5 0070 782f |x/ | Jump 0xa0 ; case 0x6 0071 782e |x. | Jump 0xa0 ; case 0x7 0072 7844 |xD | Jump 0xb7 ; case 0x8 0073 781d |x | Jump 0x91 ; case 0x9 0074 786d |xm | Jump 0xe2 ; case 0xa 0075 781b |x | Jump 0x91 ; case 0xb 0076 7894 |x | Jump 0x10b ; case 0xc 0077 7819 |x | Jump 0x91 ; case 0xd 0078 783e |x> | Jump 0xb7 ; case 0xe 0079 7868 |xh | Jump 0xe2 ; case 0xf 007a 7890 |x | Jump 0x10b ; case 0x10 007b 7815 |x | Jump 0x91 ; case 0x11 007c 7814 |x | Jump 0x91 ; case 0x12 007d 7839 |x9 | Jump 0xb7 ; case 0x13 007e 7863 |xc | Jump 0xe2 ; case 0x14 007f 788b |x | Jump 0x10b ; case 0x15 0080 7836 |x6 | Jump 0xb7 ; case 0x16 0081 7860 |x` | Jump 0xe2 ; case 0x17 0082 7888 |x | Jump 0x10b ; case 0x18 0083 780d |x | Jump 0x91 ; case 0x19 0084 780c |x | Jump 0x91 ; case 0x1a 0085 780b |x | Jump 0x91 ; case 0x1b 0086 780a |x | Jump 0x91 ; case 0x1c 0087 7809 |x | Jump 0x91 ; case 0x1d 0088 7808 |x | Jump 0x91 ; case 0x1e 0089 7807 |x | Jump 0x91 ; case 0x1f 008a 7806 |x | Jump 0x91 ; case 0x20 008b 7805 |x | Jump 0x91 ; case 0x21 008c 78a0 |x | Jump 0x12d ; case 0x22 008d 789f |x | Jump 0x12d ; case 0x23 008e 7802 |x | Jump 0x91 ; case 0x24 008f 7801 |x | Jump 0x91 ; case 0x25 0090 7800 |x | Jump 0x91 ; case 0x26 0091 e403 | | Load 0x2,0x3 0092 e026 | & | Load 0x0,0x26 0093 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0094 68a6 |h | Jump_Zero 0x13b 0095 e403 | | Load 0x2,0x3 0096 8409 | | Call 0x2,0x9 0097 e403 | | Load 0x2,0x3 0098 8408 | | Call 0x2,0x8 0099 e403 | | Load 0x2,0x3 009a e026 | & | Load 0x0,0x26 009b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 009c 8407 | | Call 0x2,0x7 009d e403 | | Load 0x2,0x3 009e 840a | | Call 0x2,0xa 009f 789b |x | Jump 0x13b 00a0 e402 | | Load 0x2,0x2 00a1 8405 | | Call 0x2,0x5 00a2 c403 | | Store 0x2,0x3 00a3 e403 | | Load 0x2,0x3 00a4 e026 | & | Load 0x0,0x26 00a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a6 6894 |h | Jump_Zero 0x13b 00a7 e403 | | Load 0x2,0x3 00a8 8409 | | Call 0x2,0x9 00a9 e403 | | Load 0x2,0x3 00aa 8408 | | Call 0x2,0x8 00ab 4801 |H | Short_Literal 0x1 00ac 480d |H | Short_Literal 0xd 00ad e022 | " | Load 0x0,0x22 00ae 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00af e023 | # | Load 0x0,0x23 00b0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00b1 0092 0288 | | Action Push_String_Extended,0x288 ; " " 00b3 820f | | Call 0x1,0xf 00b4 e403 | | Load 0x2,0x3 00b5 840a | | Call 0x2,0xa 00b6 7884 |x | Jump 0x13b 00b7 e404 | | Load 0x2,0x4 00b8 7082 |p | Jump_Nonzero 0x13b 00b9 e403 | | Load 0x2,0x3 00ba e026 | & | Load 0x0,0x26 00bb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00bc 687e |h~ | Jump_Zero 0x13b 00bd 4801 |H | Short_Literal 0x1 00be 480d |H | Short_Literal 0xd 00bf e022 | " | Load 0x0,0x22 00c0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00c1 00ea | | Load_Encached Null_String_Cache 00c2 4800 |H | Short_Literal 0x0 00c3 e403 | | Load 0x2,0x3 00c4 e022 | " | Load 0x0,0x22 00c5 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00c6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c7 4801 |H | Short_Literal 0x1 00c8 e403 | | Load 0x2,0x3 00c9 e022 | " | Load 0x0,0x22 00ca 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00cb 180e | | Execute Package,Field_Execute,Field_Number 0xe 00cc 820f | | Call 0x1,0xf 00cd e403 | | Load 0x2,0x3 00ce 8408 | | Call 0x2,0x8 00cf 4801 |H | Short_Literal 0x1 00d0 480d |H | Short_Literal 0xd 00d1 e022 | " | Load 0x0,0x22 00d2 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00d3 e023 | # | Load 0x0,0x23 00d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d5 0092 0288 | | Action Push_String_Extended,0x288 ; " " 00d7 820f | | Call 0x1,0xf 00d8 4801 |H | Short_Literal 0x1 00d9 480d |H | Short_Literal 0xd 00da e022 | " | Load 0x0,0x22 00db 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00dc e023 | # | Load 0x0,0x23 00dd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00de 0092 0288 | | Action Push_String_Extended,0x288 ; " " 00e0 820f | | Call 0x1,0xf 00e1 7859 |xY | Jump 0x13b 00e2 e403 | | Load 0x2,0x3 00e3 e026 | & | Load 0x0,0x26 00e4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00e5 6855 |hU | Jump_Zero 0x13b 00e6 4801 |H | Short_Literal 0x1 00e7 480d |H | Short_Literal 0xd 00e8 e022 | " | Load 0x0,0x22 00e9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ea 00ea | | Load_Encached Null_String_Cache 00eb 4800 |H | Short_Literal 0x0 00ec e403 | | Load 0x2,0x3 00ed e022 | " | Load 0x0,0x22 00ee 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f0 4801 |H | Short_Literal 0x1 00f1 e403 | | Load 0x2,0x3 00f2 e022 | " | Load 0x0,0x22 00f3 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f5 820f | | Call 0x1,0xf 00f6 e403 | | Load 0x2,0x3 00f7 8408 | | Call 0x2,0x8 00f8 4801 |H | Short_Literal 0x1 00f9 480d |H | Short_Literal 0xd 00fa e022 | " | Load 0x0,0x22 00fb 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00fc e023 | # | Load 0x0,0x23 00fd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00fe 0092 0288 | | Action Push_String_Extended,0x288 ; " " 0100 820f | | Call 0x1,0xf 0101 4801 |H | Short_Literal 0x1 0102 480d |H | Short_Literal 0xd 0103 e022 | " | Load 0x0,0x22 0104 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0105 e023 | # | Load 0x0,0x23 0106 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0107 0092 0288 | | Action Push_String_Extended,0x288 ; " " 0109 820f | | Call 0x1,0xf 010a 7830 |x0 | Jump 0x13b 010b e403 | | Load 0x2,0x3 010c e026 | & | Load 0x0,0x26 010d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 010e 682c |h, | Jump_Zero 0x13b 010f 4801 |H | Short_Literal 0x1 0110 480d |H | Short_Literal 0xd 0111 e022 | " | Load 0x0,0x22 0112 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0113 00ea | | Load_Encached Null_String_Cache 0114 4800 |H | Short_Literal 0x0 0115 e403 | | Load 0x2,0x3 0116 e022 | " | Load 0x0,0x22 0117 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0118 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0119 4801 |H | Short_Literal 0x1 011a e403 | | Load 0x2,0x3 011b e022 | " | Load 0x0,0x22 011c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 011d 180e | | Execute Package,Field_Execute,Field_Number 0xe 011e 820f | | Call 0x1,0xf 011f e403 | | Load 0x2,0x3 0120 8408 | | Call 0x2,0x8 0121 4801 |H | Short_Literal 0x1 0122 480d |H | Short_Literal 0xd 0123 e022 | " | Load 0x0,0x22 0124 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0125 e023 | # | Load 0x0,0x23 0126 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0127 0092 0289 | | Action Push_String_Extended,0x289 ; "Out" 0129 820f | | Call 0x1,0xf 012a e403 | | Load 0x2,0x3 012b 840a | | Call 0x2,0xa 012c 780e |x | Jump 0x13b 012d e403 | | Load 0x2,0x3 012e e026 | & | Load 0x0,0x26 012f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0130 680a |h | Jump_Zero 0x13b 0131 e403 | | Load 0x2,0x3 0132 8409 | | Call 0x2,0x9 0133 e403 | | Load 0x2,0x3 0134 8408 | | Call 0x2,0x8 0135 e403 | | Load 0x2,0x3 0136 e026 | & | Load 0x0,0x26 0137 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0138 8407 | | Call 0x2,0x7 0139 e403 | | Load 0x2,0x3 013a 840a | | Call 0x2,0xa 013b 4800 |H | Short_Literal 0x0 013c a404 | | Store_Unchecked 0x2,0x4 013d 00c8 | | Action Pop_Auxiliary_Range 013e 3f1e |? | Loop_Increasing 0x5d 013f 00ce | | Action Pop_Auxiliary 0140 e023 | # | Load 0x0,0x23 0141 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0142 e023 | # | Load 0x0,0x23 0143 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0144 8210 | | Call 0x1,0x10 0145 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0146 0000 0000 | | .XXX[0x2] 0148 4024 0000 |@$ | .DBL 10.0 014a 0000 0000 | | 014c 4039 0000 |@9 | .DBL 25.0 014e 0000 0000 | | 0150 4044 0000 |@D | .DBL 40.0 0152 0000 0000 | | 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 015d 4606 |F | Jump_Case 0x7 015e 7806 |x | Jump 0x165 ; case 0x0 015f 7808 |x | Jump 0x168 ; case 0x1 0160 7814 |x | Jump 0x175 ; case 0x2 0161 7803 |x | Jump 0x165 ; case 0x3 0162 7808 |x | Jump 0x16b ; case 0x4 0163 780c |x | Jump 0x170 ; case 0x5 0164 7800 |x | Jump 0x165 ; case 0x6 0165 e020 | | Load 0x0,0x20 0166 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0168 00da | | Load_Top At_Offset_2 0169 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 00da | | Load_Top At_Offset_2 016c 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 016d e032 | 2 | Load 0x0,0x32 016e 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0170 00da | | Load_Top At_Offset_2 0171 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0172 e02d | - | Load 0x0,0x2d 0173 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0175 00da | | Load_Top At_Offset_2 0176 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0177 e02c | , | Load 0x0,0x2c 0178 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0185 4606 |F | Jump_Case 0x7 0186 7806 |x | Jump 0x18d ; case 0x0 0187 7808 |x | Jump 0x190 ; case 0x1 0188 7814 |x | Jump 0x19d ; case 0x2 0189 7803 |x | Jump 0x18d ; case 0x3 018a 7808 |x | Jump 0x193 ; case 0x4 018b 780c |x | Jump 0x198 ; case 0x5 018c 7800 |x | Jump 0x18d ; case 0x6 018d e020 | | Load 0x0,0x20 018e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0190 00da | | Load_Top At_Offset_2 0191 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0193 00da | | Load_Top At_Offset_2 0194 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0195 e032 | 2 | Load 0x0,0x32 0196 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0198 00da | | Load_Top At_Offset_2 0199 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 019a e02d | - | Load 0x0,0x2d 019b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019d 00da | | Load_Top At_Offset_2 019e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 019f e02c | , | Load 0x0,0x2c 01a0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a2 0000 0000 | | .BLANK 0000[0x6] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b1 | | .CONST 0x01b1 ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0003 | | .CONST 0x0003 ; Number of locals 01ab INIT_01a8: 01ab e027 | ' | Load 0x0,0x27 01ac 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ad 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 01ae e027 | ' | Load 0x0,0x27 01af 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01b0 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 01b1 BODY_01a8: 01b1 e7ff | | Load 0x3,-0x1 01b2 6803 |h | Jump_Zero 0x1b6 01b3 e7ff | | Load 0x3,-0x1 01b4 0f01 | | Execute_Immediate Equal,0x1 01b5 680a |h | Jump_Zero 0x1c0 01b6 4801 |H | Short_Literal 0x1 01b7 480d |H | Short_Literal 0xd 01b8 e022 | " | Load 0x0,0x22 01b9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01ba e023 | # | Load 0x0,0x23 01bb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01bc 0092 028a | | Action Push_String_Extended,0x28a ; "In" 01be 820f | | Call 0x1,0xf 01bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c0 e7ff | | Load 0x3,-0x1 01c1 0f02 | | Execute_Immediate Equal,0x2 01c2 680a |h | Jump_Zero 0x1cd 01c3 4801 |H | Short_Literal 0x1 01c4 480d |H | Short_Literal 0xd 01c5 e022 | " | Load 0x0,0x22 01c6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01c7 e023 | # | Load 0x0,0x23 01c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01c9 0092 0289 | | Action Push_String_Extended,0x289 ; "Out" 01cb 820f | | Call 0x1,0xf 01cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cd e7ff | | Load 0x3,-0x1 01ce 0f03 | | Execute_Immediate Equal,0x3 01cf 680a |h | Jump_Zero 0x1da 01d0 4801 |H | Short_Literal 0x1 01d1 480d |H | Short_Literal 0xd 01d2 e022 | " | Load 0x0,0x22 01d3 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01d4 e023 | # | Load 0x0,0x23 01d5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01d6 0092 028b | | Action Push_String_Extended,0x28b ; "In/Out" 01d8 820f | | Call 0x1,0xf 01d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01da e403 | | Load 0x2,0x3 01db 4807 |H | Short_Literal 0x7 01dc e01f | | Load 0x0,0x1f 01dd 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01de 180d | | Execute Package,Field_Execute,Field_Number 0xd 01df 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01e0 e403 | | Load 0x2,0x3 01e1 4808 |H | Short_Literal 0x8 01e2 e01f | | Load 0x0,0x1f 01e3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01e4 180d | | Execute Package,Field_Execute,Field_Number 0xd 01e5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01e6 00d9 | | Load_Top At_Offset_1 01e7 e027 | ' | Load 0x0,0x27 01e8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01e9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ea 0f00 | | Execute_Immediate Equal,0x0 01eb 00d9 | | Load_Top At_Offset_1 01ec e027 | ' | Load 0x0,0x27 01ed 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ee 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ef 0f00 | | Execute_Immediate Equal,0x0 01f0 0279 | y | Execute Discrete,And 01f1 680a |h | Jump_Zero 0x1fc 01f2 4801 |H | Short_Literal 0x1 01f3 480d |H | Short_Literal 0xd 01f4 e022 | " | Load 0x0,0x22 01f5 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01f6 e023 | # | Load 0x0,0x23 01f7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01f8 0092 028b | | Action Push_String_Extended,0x28b ; "In/Out" 01fa 820f | | Call 0x1,0xf 01fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01fc 00d9 | | Load_Top At_Offset_1 01fd e027 | ' | Load 0x0,0x27 01fe 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01ff 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0200 700a |p | Jump_Nonzero 0x20b 0201 4801 |H | Short_Literal 0x1 0202 480d |H | Short_Literal 0xd 0203 e022 | " | Load 0x0,0x22 0204 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0205 e023 | # | Load 0x0,0x23 0206 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0207 0092 028a | | Action Push_String_Extended,0x28a ; "In" 0209 820f | | Call 0x1,0xf 020a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020b 00d8 | | Load_Top At_Offset_0 020c e027 | ' | Load 0x0,0x27 020d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 020e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 020f 700a |p | Jump_Nonzero 0x21a 0210 4801 |H | Short_Literal 0x1 0211 480d |H | Short_Literal 0xd 0212 e022 | " | Load 0x0,0x22 0213 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0214 e023 | # | Load 0x0,0x23 0215 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0216 0092 0289 | | Action Push_String_Extended,0x289 ; "Out" 0218 820f | | Call 0x1,0xf 0219 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021a 4801 |H | Short_Literal 0x1 021b 480d |H | Short_Literal 0xd 021c e022 | " | Load 0x0,0x22 021d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 021e e023 | # | Load 0x0,0x23 021f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0220 0092 028b | | Action Push_String_Extended,0x28b ; "In/Out" 0222 820f | | Call 0x1,0xf 0223 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0224 0000 0000 | | .BLANK 0000[0x4] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 4801 |H | Short_Literal 0x1 022c 480d |H | Short_Literal 0xd 022d e022 | " | Load 0x0,0x22 022e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 022f e023 | # | Load 0x0,0x23 0230 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0231 00ea | | Load_Encached Null_String_Cache 0232 e7ff | | Load 0x3,-0x1 0233 e01f | | Load 0x0,0x1f 0234 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0235 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0236 820f | | Call 0x1,0xf 0237 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0240 | @ | .CONST 0x0240 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 4812 |H | Short_Literal 0x12 023d e01f | | Load 0x0,0x1f 023e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 023f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0240 BODY_0238: 0240 00d8 | | Load_Top At_Offset_0 0241 e027 | ' | Load 0x0,0x27 0242 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0243 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0244 6811 |h | Jump_Zero 0x256 0245 4801 |H | Short_Literal 0x1 0246 480d |H | Short_Literal 0xd 0247 e022 | " | Load 0x0,0x22 0248 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0249 00ea | | Load_Encached Null_String_Cache 024a 4800 |H | Short_Literal 0x0 024b e7ff | | Load 0x3,-0x1 024c e022 | " | Load 0x0,0x22 024d 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 024e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 024f 4801 |H | Short_Literal 0x1 0250 e7ff | | Load 0x3,-0x1 0251 e022 | " | Load 0x0,0x22 0252 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0253 180e | | Execute Package,Field_Execute,Field_Number 0xe 0254 820f | | Call 0x1,0xf 0255 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0256 4801 |H | Short_Literal 0x1 0257 480d |H | Short_Literal 0xd 0258 e022 | " | Load 0x0,0x22 0259 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 025a 00ea | | Load_Encached Null_String_Cache 025b 4800 |H | Short_Literal 0x0 025c e7ff | | Load 0x3,-0x1 025d e022 | " | Load 0x0,0x22 025e 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 025f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0260 4801 |H | Short_Literal 0x1 0261 e7ff | | Load 0x3,-0x1 0262 e022 | " | Load 0x0,0x22 0263 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0264 180e | | Execute Package,Field_Execute,Field_Number 0xe 0265 0092 028c | | Action Push_String_Extended,0x28c ; "-" 0267 01cc | | Execute Vector,Catenate 0268 00ea | | Load_Encached Null_String_Cache 0269 e602 | | Load 0x3,0x2 026a e01f | | Load 0x0,0x1f 026b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 026c 180f | | Execute Package,Field_Execute,Field_Number 0xf 026d 01cc | | Execute Vector,Catenate 026e 820f | | Call 0x1,0xf 026f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 4801 |H | Short_Literal 0x1 0274 480d |H | Short_Literal 0xd 0275 e022 | " | Load 0x0,0x22 0276 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0277 00ea | | Load_Encached Null_String_Cache 0278 4800 |H | Short_Literal 0x0 0279 e7ff | | Load 0x3,-0x1 027a e022 | " | Load 0x0,0x22 027b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 027c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 027d 480f |H | Short_Literal 0xf 027e e7ff | | Load 0x3,-0x1 027f e022 | " | Load 0x0,0x22 0280 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0281 180e | | Execute Package,Field_Execute,Field_Number 0xe 0282 820f | | Call 0x1,0xf 0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0284 ; -------------------------------------------------------------------------------------- 0284 ; STRING TABLE 0284 ; -------------------------------------------------------------------------------------- 0284 0014 | | .STRTAB 0x0014->0x028e ; "Name/Description" 0285 0022 | " | .STRTAB 0x0022->0x0296 ; "Representation" 0286 002e | . | .STRTAB 0x002e->0x029d ; "Mode" 0287 0030 | 0 | .STRTAB 0x0030->0x029f ; "Data Type" 0288 0037 | 7 | .STRTAB 0x0037->0x02a3 ; " " 0289 0036 | 6 | .STRTAB 0x0036->0x02a4 ; "Out" 028a 0037 | 7 | .STRTAB 0x0037->0x02a5 ; "In" 028b 0037 | 7 | .STRTAB 0x0037->0x02a6 ; "In/Out" 028c 003b | ; | .STRTAB 0x003b->0x02a9 ; "-" 028d 003a | : | .STREND 0x003a->0x02aa 028e 4e61 6d65 |Name| .STRTAB_STRINGS 02aa 0000 0000 | | .BLANK 0000[0x6] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc93,0x0000,0x0001,0x0000 02b6 0000 0000 | | .XXX[0x33] 02b8 0040 000e | @ | 02ba d790 b850 | P| 02bc c850 0003 | P | 02be 6e85 4970 |n Ip| 02c0 1001 0000 | | 02c2 9500 0000 | | 02c4 0693 8000 | | 02c6 0c00 0000 | | 02c8 0d00 2800 | ( | 02ca 0000 0800 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5200 | R | 02d4 0050 00b1 | P | 02d6 8a00 0030 | 0| 02d8 00b0 ca00 | | 02da 0030 00b0 | 0 | 02dc d200 0030 | 0| 02de 00b0 d800 | | 02e0 0000 0000 | | 02e2 0200 0030 | 0| 02e4 00b0 e200 | | 02e6 0030 00b0 | 0 | 02e8 e800 | | 02e9 0000 0000 | | .BLANK 0000[0x8] 02f1 0008 0001 | | .XXX[0x3] 02f3 daf0 | | 02f4 0000 0000 | | .BLANK 0000[0xd] 0301 0020 0500 | | .XXX[0xc] 0303 0000 0000 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a00 | | 030d 0000 0000 | | .BLANK 0000[0x2d] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]