|
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_6148f2
└─⟦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 0318 | | .CONST 0x0318 ; 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 0022 | " | .CONST 0x0022 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000b | | .CONST 0x000b ; Number of locals
000b INIT_0008:
000b e037 | 7 | Load 0x0,0x37
000c 0322 | " | Declare_Variable Record
000d e007 | | Load 0x0,0x7
000e 0007 | | Action Break_Optional
000f e007 | | Load 0x0,0x7
0010 0007 | | Action Break_Optional
0011 e038 | 8 | Load 0x0,0x38
0012 0007 | | Action Break_Optional
0013 e039 | 9 | Load 0x0,0x39
0014 0322 | " | Declare_Variable Record
0015 00d8 | | Load_Top At_Offset_0
0016 1c00 | | Execute_Immediate Run_Utility,0x0
0017 e03a | : | Load 0x0,0x3a
0018 0322 | " | Declare_Variable Record
0019 00d8 | | Load_Top At_Offset_0
001a 1c00 | | Execute_Immediate Run_Utility,0x0
001b e019 | | Load 0x0,0x19
001c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
001e 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0020 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
0022 BODY_0008:
0022 803b | ; | Call 0x0,0x3b
0023 4801 |H | Short_Literal 0x1
0024 c03c | < | Store 0x0,0x3c
0025 e212 | | Load 0x1,0x12
0026 e20d | | Load 0x1,0xd
0027 803d | = | Call 0x0,0x3d
0028 a226 | & | Store_Unchecked 0x1,0x26
0029 e212 | | Load 0x1,0x12
002a e20d | | Load 0x1,0xd
002b 803e | > | Call 0x0,0x3e
002c a227 | ' | Store_Unchecked 0x1,0x27
002d 4819 |H | Short_Literal 0x19
002e a223 | # | Store_Unchecked 0x1,0x23
002f 4803 |H | Short_Literal 0x3
0030 a224 | $ | Store_Unchecked 0x1,0x24
0031 e011 | | Load 0x0,0x11
0032 0905 | | Execute_Immediate Binary_Scale,0x5
0033 c403 | | Store 0x2,0x3
0034 e02c | , | Load 0x0,0x2c
0035 0905 | | Execute_Immediate Binary_Scale,0x5
0036 0a1c | | Execute_Immediate Plus,0x1c
0037 c404 | | Store 0x2,0x4
0038 8409 | | Call 0x2,0x9
0039 e038 | 8 | Load 0x0,0x38
003a a405 | | Store_Unchecked 0x2,0x5
003b 7800 |x | Jump 0x3c
003c 840a | | Call 0x2,0xa
003d e019 | | Load 0x0,0x19
003e e042 | B | Load 0x0,0x42
003f e043 | C | Load 0x0,0x43
0040 e407 | | Load 0x2,0x7
0041 4801 |H | Short_Literal 0x1
0042 4800 |H | Short_Literal 0x0
0043 e044 | D | Load 0x0,0x44
0044 0334 | 4 | Declare_Variable Array,With_Constraint
0045 4800 |H | Short_Literal 0x0
0046 4805 |H | Short_Literal 0x5
0047 e00a | | Load 0x0,0xa
0048 0334 | 4 | Declare_Variable Array,With_Constraint
0049 50a2 |P | Indirect_Literal Any,0xec,{0x50757a7a, 0x6c650000}
004a 4800 |H | Short_Literal 0x0
004b 4805 |H | Short_Literal 0x5
004c e00a | | Load 0x0,0xa
004d 0334 | 4 | Declare_Variable Array,With_Constraint
004e 50a1 |P | Indirect_Literal Any,0xf0,{0x70757a7a, 0x6c650000}
004f e22a | * | Load 0x1,0x2a
0050 e20d | | Load 0x1,0xd
0051 8045 | E | Call 0x0,0x45
0052 c408 | | Store 0x2,0x8
0053 e226 | & | Load 0x1,0x26
0054 e406 | | Load 0x2,0x6
0055 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0056 e227 | ' | Load 0x1,0x27
0057 e406 | | Load 0x2,0x6
0058 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0059 4801 |H | Short_Literal 0x1
005a e406 | | Load 0x2,0x6
005b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
005c e406 | | Load 0x2,0x6
005d e046 | F | Load 0x0,0x46
005e 0337 | 7 | Declare_Variable Array
005f 4801 |H | Short_Literal 0x1
0060 481d |H | Short_Literal 0x1d
0061 00da | | Load_Top At_Offset_2
0062 01d6 | | Execute Vector,Field_Write
0063 4801 |H | Short_Literal 0x1
0064 481c |H | Short_Literal 0x1c
0065 00da | | Load_Top At_Offset_2
0066 01d6 | | Execute Vector,Field_Write
0067 4801 |H | Short_Literal 0x1
0068 481b |H | Short_Literal 0x1b
0069 00da | | Load_Top At_Offset_2
006a 01d6 | | Execute Vector,Field_Write
006b 481a |H | Short_Literal 0x1a
006c 4800 |H | Short_Literal 0x0
006d 4800 |H | Short_Literal 0x0
006e 00d9 | | Load_Top At_Offset_1
006f e40d | | Load 0x2,0xd
0070 01d6 | | Execute Vector,Field_Write
0071 3ffb |? | Loop_Increasing 0x6d
0072 4800 |H | Short_Literal 0x0
0073 481e |H | Short_Literal 0x1e
0074 00da | | Load_Top At_Offset_2
0075 01d6 | | Execute Vector,Field_Write
0076 4800 |H | Short_Literal 0x0
0077 481f |H | Short_Literal 0x1f
0078 00da | | Load_Top At_Offset_2
0079 01d6 | | Execute Vector,Field_Write
007a e046 | F | Load 0x0,0x46
007b 01c3 | | Execute Vector,Check_In_Type
007c e22a | * | Load 0x1,0x2a
007d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
007e e20d | | Load 0x1,0xd
007f 8047 | G | Call 0x0,0x47
0080 a20f | | Store_Unchecked 0x1,0xf
0081 840b | | Call 0x2,0xb
0082 e22f | / | Load 0x1,0x2f
0083 e20d | | Load 0x1,0xd
0084 8048 | H | Call 0x0,0x48
0085 a231 | 1 | Store_Unchecked 0x1,0x31
0086 e231 | 1 | Load 0x1,0x31
0087 e00b | | Load 0x0,0xb
0088 022f | / | Execute Access,Equal
0089 6822 |h" | Jump_Zero 0xac
008a 0092 02de | | Action Push_String_Extended,0x2de ; "Could not open font "
008c e22f | / | Load 0x1,0x2f
008d 8015 | | Call 0x0,0x15
008e 01cc | | Execute Vector,Catenate
008f 0092 02df | | Action Push_String_Extended,0x2df ; "; opening 'fixed' instead?"
0091 01cc | | Execute Vector,Catenate
0092 e017 | | Load 0x0,0x17
0093 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0094 4800 |H | Short_Literal 0x0
0095 4804 |H | Short_Literal 0x4
0096 e00a | | Load 0x0,0xa
0097 0334 | 4 | Declare_Variable Array,With_Constraint
0098 505b |P[ | Indirect_Literal Any,0xf4,{0x66697865, 0x64000000}
0099 e20d | | Load 0x1,0xd
009a 8048 | H | Call 0x0,0x48
009b a231 | 1 | Store_Unchecked 0x1,0x31
009c e231 | 1 | Load 0x1,0x31
009d e00b | | Load 0x0,0xb
009e 022f | / | Execute Access,Equal
009f 680c |h | Jump_Zero 0xac
00a0 0092 02de | | Action Push_String_Extended,0x2de ; "Could not open font "
00a2 e22f | / | Load 0x1,0x2f
00a3 8015 | | Call 0x0,0x15
00a4 01cc | | Execute Vector,Catenate
00a5 0092 02e0 | | Action Push_String_Extended,0x2e0 ; " or font 'fixed'?"
00a7 01cc | | Execute Vector,Catenate
00a8 e017 | | Load 0x0,0x17
00a9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00aa e21b | | Load 0x1,0x1b
00ab 0257 | W | Execute Discrete,Raise
00ac e230 | 0 | Load 0x1,0x30
00ad e20d | | Load 0x1,0xd
00ae 8048 | H | Call 0x0,0x48
00af a232 | 2 | Store_Unchecked 0x1,0x32
00b0 e232 | 2 | Load 0x1,0x32
00b1 e00b | | Load 0x0,0xb
00b2 022f | / | Execute Access,Equal
00b3 6833 |h3 | Jump_Zero 0xe7
00b4 0092 02de | | Action Push_String_Extended,0x2de ; "Could not open font "
00b6 e230 | 0 | Load 0x1,0x30
00b7 8015 | | Call 0x0,0x15
00b8 01cc | | Execute Vector,Catenate
00b9 0092 02df | | Action Push_String_Extended,0x2df ; "; opening 'fixed' instead?"
00bb 01cc | | Execute Vector,Catenate
00bc e017 | | Load 0x0,0x17
00bd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00be 4800 |H | Short_Literal 0x0
00bf 4804 |H | Short_Literal 0x4
00c0 e00a | | Load 0x0,0xa
00c1 0334 | 4 | Declare_Variable Array,With_Constraint
00c2 5035 |P5 | Indirect_Literal Any,0xf8,{0x66697865, 0x64000000}
00c3 e20d | | Load 0x1,0xd
00c4 8048 | H | Call 0x0,0x48
00c5 a232 | 2 | Store_Unchecked 0x1,0x32
00c6 e232 | 2 | Load 0x1,0x32
00c7 e00b | | Load 0x0,0xb
00c8 022f | / | Execute Access,Equal
00c9 681d |h | Jump_Zero 0xe7
00ca 0092 02de | | Action Push_String_Extended,0x2de ; "Could not open font "
00cc e230 | 0 | Load 0x1,0x30
00cd 8015 | | Call 0x0,0x15
00ce 01cc | | Execute Vector,Catenate
00cf 0092 02e0 | | Action Push_String_Extended,0x2e0 ; " or font 'fixed'?"
00d1 01cc | | Execute Vector,Catenate
00d2 e017 | | Load 0x0,0x17
00d3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d4 e21b | | Load 0x1,0x1b
00d5 0257 | W | Execute Discrete,Raise
00d6 4800 00d9 |H | .XXX[0x11]
00d8 e40c 01d6 | |
00da 3ffb 481f |? H |
00dc 4811 4800 |H H |
00de 00d9 e40c | |
00e0 01d6 3ffb | ? |
00e2 e026 01c3 | & |
00e4 e22a e20d | * |
00e6 8049 | I |
00e7 e22a | * | Load 0x1,0x2a
00e8 e20d | | Load 0x1,0xd
00e9 804a | J | Call 0x0,0x4a
00ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00eb 0000 | | .XXX[0x1]
00ec 5075 7a7a |Puzz| .LITERAL {0x50757a7a, 0x6c650000}
00f0 7075 7a7a |puzz| .LITERAL {0x70757a7a, 0x6c650000}
00f4 6669 7865 |fixe| .LITERAL {0x66697865, 0x64000000}
00f8 6669 7865 |fixe| .LITERAL {0x66697865, 0x64000000}
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0113 | | .CONST 0x0113 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0009 | | .CONST 0x0009 ; Number of locals
0103 INIT_0100:
0103 e007 | | Load 0x0,0x7
0104 0007 | | Action Break_Optional
0105 e007 | | Load 0x0,0x7
0106 0007 | | Action Break_Optional
0107 e007 | | Load 0x0,0x7
0108 0007 | | Action Break_Optional
0109 e007 | | Load 0x0,0x7
010a 0007 | | Action Break_Optional
010b e007 | | Load 0x0,0x7
010c 0007 | | Action Break_Optional
010d e007 | | Load 0x0,0x7
010e 0007 | | Action Break_Optional
010f e04b | K | Load 0x0,0x4b
0110 0337 | 7 | Declare_Variable Array
0111 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
0113 BODY_0100:
0113 e04c | L | Load 0x0,0x4c
0114 0337 | 7 | Declare_Variable Array
0115 4801 |H | Short_Literal 0x1
0116 481b |H | Short_Literal 0x1b
0117 00da | | Load_Top At_Offset_2
0118 01d6 | | Execute Vector,Field_Write
0119 4801 |H | Short_Literal 0x1
011a 481d |H | Short_Literal 0x1d
011b 00da | | Load_Top At_Offset_2
011c 01d6 | | Execute Vector,Field_Write
011d 4801 |H | Short_Literal 0x1
011e 481c |H | Short_Literal 0x1c
011f 00da | | Load_Top At_Offset_2
0120 01d6 | | Execute Vector,Field_Write
0121 4801 |H | Short_Literal 0x1
0122 4819 |H | Short_Literal 0x19
0123 00da | | Load_Top At_Offset_2
0124 01d6 | | Execute Vector,Field_Write
0125 4818 |H | Short_Literal 0x18
0126 4800 |H | Short_Literal 0x0
0127 4800 |H | Short_Literal 0x0
0128 00d9 | | Load_Top At_Offset_1
0129 e60a | | Load 0x3,0xa
012a 01d6 | | Execute Vector,Field_Write
012b 3ffb |? | Loop_Increasing 0x127
012c 4800 |H | Short_Literal 0x0
012d 481a |H | Short_Literal 0x1a
012e 00da | | Load_Top At_Offset_2
012f 01d6 | | Execute Vector,Field_Write
0130 4800 |H | Short_Literal 0x0
0131 481e |H | Short_Literal 0x1e
0132 00da | | Load_Top At_Offset_2
0133 01d6 | | Execute Vector,Field_Write
0134 4800 |H | Short_Literal 0x0
0135 481f |H | Short_Literal 0x1f
0136 00da | | Load_Top At_Offset_2
0137 01d6 | | Execute Vector,Field_Write
0138 e04c | L | Load 0x0,0x4c
0139 01c3 | | Execute Vector,Check_In_Type
013a e407 | | Load 0x2,0x7
013b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013c e403 | | Load 0x2,0x3
013d e407 | | Load 0x2,0x7
013e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
013f e404 | | Load 0x2,0x4
0140 e407 | | Load 0x2,0x7
0141 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0142 e403 | | Load 0x2,0x3
0143 e407 | | Load 0x2,0x7
0144 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0145 e404 | | Load 0x2,0x4
0146 e407 | | Load 0x2,0x7
0147 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0148 4864 |Hd | Short_Literal 0x64
0149 e407 | | Load 0x2,0x7
014a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014b 492c |I, | Short_Literal 0x12c
014c e407 | | Load 0x2,0x7
014d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
014e e011 | | Load 0x0,0x11
014f e407 | | Load 0x2,0x7
0150 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0151 e02c | , | Load 0x0,0x2c
0152 e407 | | Load 0x2,0x7
0153 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0154 e5fe | | Load 0x2,-0x2
0155 4800 |H | Short_Literal 0x0
0156 00e5 | | Load_Encached Long_Integer_Cache
0157 00d9 | | Load_Top At_Offset_1
0158 0267 | g | Execute Discrete,Predecessor
0159 e00a | | Load 0x0,0xa
015a 0334 | 4 | Declare_Variable Array,With_Constraint
015b 01de | | Execute Vector,Not_Equal
015c 687d |h} | Jump_Zero 0x1da
015d 8609 | | Call 0x3,0x9
015e 481d |H | Short_Literal 0x1d
015f 00da | | Load_Top At_Offset_2
0160 01d7 | | Execute Vector,Field_Read
0161 680d |h | Jump_Zero 0x16f
0162 4801 |H | Short_Literal 0x1
0163 481e |H | Short_Literal 0x1e
0164 e407 | | Load 0x2,0x7
0165 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0166 01d6 | | Execute Vector,Field_Write
0167 e604 | | Load 0x3,0x4
0168 e407 | | Load 0x2,0x7
0169 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
016a 027d | } | Execute Discrete,Greater
016b 6803 |h | Jump_Zero 0x16f
016c e604 | | Load 0x3,0x4
016d e407 | | Load 0x2,0x7
016e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
016f 481c |H | Short_Literal 0x1c
0170 00da | | Load_Top At_Offset_2
0171 01d7 | | Execute Vector,Field_Read
0172 680d |h | Jump_Zero 0x180
0173 4801 |H | Short_Literal 0x1
0174 481e |H | Short_Literal 0x1e
0175 e407 | | Load 0x2,0x7
0176 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0177 01d6 | | Execute Vector,Field_Write
0178 e605 | | Load 0x3,0x5
0179 e407 | | Load 0x2,0x7
017a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
017b 027d | } | Execute Discrete,Greater
017c 6803 |h | Jump_Zero 0x180
017d e605 | | Load 0x3,0x5
017e e407 | | Load 0x2,0x7
017f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0180 481f |H | Short_Literal 0x1f
0181 00da | | Load_Top At_Offset_2
0182 01d7 | | Execute Vector,Field_Read
0183 6816 |h | Jump_Zero 0x19a
0184 481b |H | Short_Literal 0x1b
0185 00da | | Load_Top At_Offset_2
0186 01d7 | | Execute Vector,Field_Read
0187 680a |h | Jump_Zero 0x192
0188 e20d | | Load 0x1,0xd
0189 8018 | | Call 0x0,0x18
018a e20d | | Load 0x1,0xd
018b 804d | M | Call 0x0,0x4d
018c e602 | | Load 0x3,0x2
018d 0273 | s | Execute Discrete,Plus
018e e407 | | Load 0x2,0x7
018f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0190 0272 | r | Execute Discrete,Minus
0191 c602 | | Store 0x3,0x2
0192 4801 |H | Short_Literal 0x1
0193 481f |H | Short_Literal 0x1f
0194 e407 | | Load 0x2,0x7
0195 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0196 01d6 | | Execute Vector,Field_Write
0197 e602 | | Load 0x3,0x2
0198 e407 | | Load 0x2,0x7
0199 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019a 481e |H | Short_Literal 0x1e
019b 00da | | Load_Top At_Offset_2
019c 01d7 | | Execute Vector,Field_Read
019d 6816 |h | Jump_Zero 0x1b4
019e 481a |H | Short_Literal 0x1a
019f 00da | | Load_Top At_Offset_2
01a0 01d7 | | Execute Vector,Field_Read
01a1 680a |h | Jump_Zero 0x1ac
01a2 e20d | | Load 0x1,0xd
01a3 8018 | | Call 0x0,0x18
01a4 e20d | | Load 0x1,0xd
01a5 804e | N | Call 0x0,0x4e
01a6 e603 | | Load 0x3,0x3
01a7 0273 | s | Execute Discrete,Plus
01a8 e407 | | Load 0x2,0x7
01a9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01aa 0272 | r | Execute Discrete,Minus
01ab c603 | | Store 0x3,0x3
01ac 4801 |H | Short_Literal 0x1
01ad 481f |H | Short_Literal 0x1f
01ae e407 | | Load 0x2,0x7
01af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b0 01d6 | | Execute Vector,Field_Write
01b1 e603 | | Load 0x3,0x3
01b2 e407 | | Load 0x2,0x7
01b3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b4 e407 | | Load 0x2,0x7
01b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01b6 e223 | # | Load 0x1,0x23
01b7 0272 | r | Execute Discrete,Minus
01b8 e224 | $ | Load 0x1,0x24
01b9 0272 | r | Execute Discrete,Minus
01ba e02c | , | Load 0x0,0x2c
01bb 0270 | p | Execute Discrete,Divide
01bc c606 | | Store 0x3,0x6
01bd 00db | | Load_Top At_Offset_3
01be e02c | , | Load 0x0,0x2c
01bf 0271 | q | Execute Discrete,Times
01c0 e223 | # | Load 0x1,0x23
01c1 0273 | s | Execute Discrete,Plus
01c2 e224 | $ | Load 0x1,0x24
01c3 0273 | s | Execute Discrete,Plus
01c4 00d8 | | Load_Top At_Offset_0
01c5 e007 | | Load 0x0,0x7
01c6 0260 | ` | Execute Discrete,In_Type
01c7 7001 |p | Jump_Nonzero 0x1c9
01c8 0801 | | Execute_Immediate Raise,0x1
01c9 e407 | | Load 0x2,0x7
01ca 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01cb e407 | | Load 0x2,0x7
01cc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01cd e011 | | Load 0x0,0x11
01ce 0270 | p | Execute Discrete,Divide
01cf 005b | [ | Store_Top Discrete,At_Offset_3
01d0 00da | | Load_Top At_Offset_2
01d1 e011 | | Load 0x0,0x11
01d2 0271 | q | Execute Discrete,Times
01d3 00d8 | | Load_Top At_Offset_0
01d4 e007 | | Load 0x0,0x7
01d5 0260 | ` | Execute Discrete,In_Type
01d6 7001 |p | Jump_Nonzero 0x1d8
01d7 0801 | | Execute_Immediate Raise,0x1
01d8 e407 | | Load 0x2,0x7
01d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01da 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e7 | | .CONST 0x01e7 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e04f | O | Load 0x0,0x4f
01e4 0322 | " | Declare_Variable Record
01e5 00d8 | | Load_Top At_Offset_0
01e6 1c00 | | Execute_Immediate Run_Utility,0x0
01e7 BODY_01e0:
01e7 e226 | & | Load 0x1,0x26
01e8 00d9 | | Load_Top At_Offset_1
01e9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ea e226 | & | Load 0x1,0x26
01eb 00d9 | | Load_Top At_Offset_1
01ec 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01ed e026 | & | Load 0x0,0x26
01ee 0337 | 7 | Declare_Variable Array
01ef 4801 |H | Short_Literal 0x1
01f0 4810 |H | Short_Literal 0x10
01f1 00da | | Load_Top At_Offset_2
01f2 01d6 | | Execute Vector,Field_Write
01f3 4801 |H | Short_Literal 0x1
01f4 480f |H | Short_Literal 0xf
01f5 00da | | Load_Top At_Offset_2
01f6 01d6 | | Execute Vector,Field_Write
01f7 480e |H | Short_Literal 0xe
01f8 4800 |H | Short_Literal 0x0
01f9 4800 |H | Short_Literal 0x0
01fa 00d9 | | Load_Top At_Offset_1
01fb e603 | | Load 0x3,0x3
01fc 01d6 | | Execute Vector,Field_Write
01fd 3ffb |? | Loop_Increasing 0x1f9
01fe 481f |H | Short_Literal 0x1f
01ff 4811 |H | Short_Literal 0x11
0200 4800 |H | Short_Literal 0x0
0201 00d9 | | Load_Top At_Offset_1
0202 e603 | | Load 0x3,0x3
0203 01d6 | | Execute Vector,Field_Write
0204 3ffb |? | Loop_Increasing 0x200
0205 e026 | & | Load 0x0,0x26
0206 01c3 | | Execute Vector,Check_In_Type
0207 00d9 | | Load_Top At_Offset_1
0208 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0209 00d8 | | Load_Top At_Offset_0
020a e050 | P | Load 0x0,0x50
020b 0337 | 7 | Declare_Variable Array
020c 4801 |H | Short_Literal 0x1
020d 481e |H | Short_Literal 0x1e
020e 00da | | Load_Top At_Offset_2
020f 01d6 | | Execute Vector,Field_Write
0210 4801 |H | Short_Literal 0x1
0211 481c |H | Short_Literal 0x1c
0212 00da | | Load_Top At_Offset_2
0213 01d6 | | Execute Vector,Field_Write
0214 4801 |H | Short_Literal 0x1
0215 4814 |H | Short_Literal 0x14
0216 00da | | Load_Top At_Offset_2
0217 01d6 | | Execute Vector,Field_Write
0218 4813 |H | Short_Literal 0x13
0219 4800 |H | Short_Literal 0x0
021a 4800 |H | Short_Literal 0x0
021b 00d9 | | Load_Top At_Offset_1
021c e604 | | Load 0x3,0x4
021d 01d6 | | Execute Vector,Field_Write
021e 3ffb |? | Loop_Increasing 0x21a
021f 481b |H | Short_Literal 0x1b
0220 4815 |H | Short_Literal 0x15
0221 4800 |H | Short_Literal 0x0
0222 00d9 | | Load_Top At_Offset_1
0223 e604 | | Load 0x3,0x4
0224 01d6 | | Execute Vector,Field_Write
0225 3ffb |? | Loop_Increasing 0x221
0226 4800 |H | Short_Literal 0x0
0227 481d |H | Short_Literal 0x1d
0228 00da | | Load_Top At_Offset_2
0229 01d6 | | Execute Vector,Field_Write
022a 4800 |H | Short_Literal 0x0
022b 481f |H | Short_Literal 0x1f
022c 00da | | Load_Top At_Offset_2
022d 01d6 | | Execute Vector,Field_Write
022e e050 | P | Load 0x0,0x50
022f 01c3 | | Execute Vector,Check_In_Type
0230 e038 | 8 | Load 0x0,0x38
0231 4800 |H | Short_Literal 0x0
0232 4800 |H | Short_Literal 0x0
0233 4802 |H | Short_Literal 0x2
0234 e407 | | Load 0x2,0x7
0235 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0236 00d8 | | Load_Top At_Offset_0
0237 e01a | | Load 0x0,0x1a
0238 0260 | ` | Execute Discrete,In_Type
0239 7001 |p | Jump_Nonzero 0x23b
023a 0801 | | Execute_Immediate Raise,0x1
023b 00d8 | | Load_Top At_Offset_0
023c e03f | ? | Load 0x0,0x3f
023d 0260 | ` | Execute Discrete,In_Type
023e 7001 |p | Jump_Nonzero 0x240
023f 0801 | | Execute_Immediate Raise,0x1
0240 e407 | | Load 0x2,0x7
0241 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0242 00d8 | | Load_Top At_Offset_0
0243 e01a | | Load 0x0,0x1a
0244 0260 | ` | Execute Discrete,In_Type
0245 7001 |p | Jump_Nonzero 0x247
0246 0801 | | Execute_Immediate Raise,0x1
0247 00d8 | | Load_Top At_Offset_0
0248 e03f | ? | Load 0x0,0x3f
0249 0260 | ` | Execute Discrete,In_Type
024a 7001 |p | Jump_Nonzero 0x24c
024b 0801 | | Execute_Immediate Raise,0x1
024c e407 | | Load 0x2,0x7
024d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
024e 00d8 | | Load_Top At_Offset_0
024f e00d | | Load 0x0,0xd
0250 0260 | ` | Execute Discrete,In_Type
0251 7001 |p | Jump_Nonzero 0x253
0252 0801 | | Execute_Immediate Raise,0x1
0253 e407 | | Load 0x2,0x7
0254 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0255 00d8 | | Load_Top At_Offset_0
0256 e00d | | Load 0x0,0xd
0257 0260 | ` | Execute Discrete,In_Type
0258 7001 |p | Jump_Nonzero 0x25a
0259 0801 | | Execute_Immediate Raise,0x1
025a e212 | | Load 0x1,0x12
025b e20d | | Load 0x1,0xd
025c 8040 | @ | Call 0x0,0x40
025d e20d | | Load 0x1,0xd
025e 8051 | Q | Call 0x0,0x51
025f e22a | * | Load 0x1,0x2a
0260 017d | } | Execute Record,Structure_Write
0261 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0262 0000 0000 | | .BLANK 0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0279 | y | .CONST 0x0279 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0006 | | .CONST 0x0006 ; Number of locals
026b INIT_0268:
026b e052 | R | Load 0x0,0x52
026c 0322 | " | Declare_Variable Record
026d e052 | R | Load 0x0,0x52
026e 0322 | " | Declare_Variable Record
026f e037 | 7 | Load 0x0,0x37
0270 0322 | " | Declare_Variable Record
0271 e053 | S | Load 0x0,0x53
0272 0322 | " | Declare_Variable Record
0273 00d8 | | Load_Top At_Offset_0
0274 1c00 | | Execute_Immediate Run_Utility,0x0
0275 e053 | S | Load 0x0,0x53
0276 0322 | " | Declare_Variable Record
0277 00d8 | | Load_Top At_Offset_0
0278 1c00 | | Execute_Immediate Run_Utility,0x0
0279 BODY_0268:
0279 4800 |H | Short_Literal 0x0
027a 00da | | Load_Top At_Offset_2
027b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027c 4800 |H | Short_Literal 0x0
027d 00da | | Load_Top At_Offset_2
027e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
027f 4800 |H | Short_Literal 0x0
0280 00da | | Load_Top At_Offset_2
0281 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0282 6035 |`5 | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0000ffff}
0283 00d9 | | Load_Top At_Offset_1
0284 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0285 6032 |`2 | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0000ffff}
0286 00d9 | | Load_Top At_Offset_1
0287 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0288 602f |`/ | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x0000ffff}
0289 00d9 | | Load_Top At_Offset_1
028a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
028b 4810 |H | Short_Literal 0x10
028c 4810 |H | Short_Literal 0x10
028d e219 | | Load 0x1,0x19
028e e212 | | Load 0x1,0x12
028f e20d | | Load 0x1,0xd
0290 8040 | @ | Call 0x0,0x40
0291 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0292 e20d | | Load 0x1,0xd
0293 8054 | T | Call 0x0,0x54
0294 e603 | | Load 0x3,0x3
0295 017d | } | Execute Record,Structure_Write
0296 4810 |H | Short_Literal 0x10
0297 4810 |H | Short_Literal 0x10
0298 e21a | | Load 0x1,0x1a
0299 e212 | | Load 0x1,0x12
029a e20d | | Load 0x1,0xd
029b 8040 | @ | Call 0x0,0x40
029c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
029d e20d | | Load 0x1,0xd
029e 8054 | T | Call 0x0,0x54
029f e602 | | Load 0x3,0x2
02a0 017d | } | Execute Record,Structure_Write
02a1 4808 |H | Short_Literal 0x8
02a2 4808 |H | Short_Literal 0x8
02a3 00da | | Load_Top At_Offset_2
02a4 e605 | | Load 0x3,0x5
02a5 e602 | | Load 0x3,0x2
02a6 e603 | | Load 0x3,0x3
02a7 e20d | | Load 0x1,0xd
02a8 8055 | U | Call 0x0,0x55
02a9 00db | | Load_Top At_Offset_3
02aa 017d | } | Execute Record,Structure_Write
02ab 00da | | Load_Top At_Offset_2
02ac e056 | V | Load 0x0,0x56
02ad 017f | | Execute Record,Equal
02ae 6804 |h | Jump_Zero 0x2b3
02af 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "Unable to store Arrow_Cross_Cursor."
02b1 e017 | | Load 0x0,0x17
02b2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
02b3 00da | | Load_Top At_Offset_2
02b4 e22a | * | Load 0x1,0x2a
02b5 e20d | | Load 0x1,0xd
02b6 8057 | W | Call 0x0,0x57
02b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c9 | | .CONST 0x02c9 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0005 | | .CONST 0x0005 ; Number of locals
02c3 INIT_02c0:
02c3 e00d | | Load 0x0,0xd
02c4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02c5 03e9 | | Declare_Variable Discrete,Duplicate
02c6 e01a | | Load 0x0,0x1a
02c7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02c8 03e9 | | Declare_Variable Discrete,Duplicate
02c9 BODY_02c0:
02c9 e608 | | Load 0x3,0x8
02ca 00d9 | | Load_Top At_Offset_1
02cb 00db | | Load_Top At_Offset_3
02cc e803 | | Load 0x4,0x3
02cd e802 | | Load 0x4,0x2
02ce e5fe | | Load 0x2,-0x2
02cf 8058 | X | Call 0x0,0x58
02d0 c802 | | Store 0x4,0x2
02d1 c803 | | Store 0x4,0x3
02d2 c804 | | Store 0x4,0x4
02d3 005a | Z | Store_Top Discrete,At_Offset_2
02d4 00d1 | | Pop_Control Pop_Count_1
02d5 00db | | Load_Top At_Offset_3
02d6 a602 | | Store_Unchecked 0x3,0x2
02d7 00da | | Load_Top At_Offset_2
02d8 a603 | | Store_Unchecked 0x3,0x3
02d9 00d9 | | Load_Top At_Offset_1
02da a604 | | Store_Unchecked 0x3,0x4
02db 00d8 | | Load_Top At_Offset_0
02dc a605 | | Store_Unchecked 0x3,0x5
02dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02de ; --------------------------------------------------------------------------------------
02de ; STRING TABLE
02de ; --------------------------------------------------------------------------------------
02de 000a | | .STRTAB 0x000a->0x02e3 ; "Could not open font "
02df 001c | | .STRTAB 0x001c->0x02ed ; "; opening 'fixed' instead?"
02e0 0034 | 4 | .STRTAB 0x0034->0x02fa ; " or font 'fixed'?"
02e1 0043 | C | .STRTAB 0x0043->0x0302 ; "Unable to store Arrow_Cross_Cursor."
02e2 0064 | d | .STREND 0x0064->0x0314
02e3 436f 756c |Coul| .STRTAB_STRINGS
0314 0000 0000 | | .BLANK 0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6892,0x0000,0x0001,0x0005
031e 000b 0332 | 2| .DBG4T 0x000b,0x0332,0x0001,0x4000
0322 0103 037d | }| .DBG4T 0x0103,0x037d,0x0004,0x0000
0326 01e3 03a7 | | .DBG4T 0x01e3,0x03a7,0x0004,0x0000
032a 026b 03ae | k | .DBG4T 0x026b,0x03ae,0x0004,0x0000
032e 02c3 03c1 | | .DBG4T 0x02c3,0x03c1,0x0004,0x0000
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug chain
0332 ; --------------------------------------------------------------------------------------
0332 0007 0021 | !| .DBGLEN 0x0007,0x0021
0334 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0017,0x001b,0x0022,0x0023,0x0025,0x0029,0x002d,0x002f,0x0031,0x0034,0x0038,0x0039,0x003b,0x003c,0x003d,0x0053,0x0056,0x0059,0x005c,0x0081,0x0082,0x0086,0x008a,0x0094,0x009c,0x00a0,0x00aa,0x00ac,0x00b0,0x00b4,0x00be,0x00c6,0x00ca,0x00d4,0x00e7
035c 0001 0002 | | .XXX[0x21]
035e 0003 0004 | |
0360 0005 0006 | |
0362 0007 0008 | |
0364 0009 000a | |
0366 000b 000d | |
0368 000e 000f | |
036a 0010 0011 | |
036c 0012 0013 | |
036e 0014 0015 | |
0370 0016 0017 | |
0372 0018 0019 | |
0374 001a 001b | |
0376 001c 001d | |
0378 001e 001f | |
037a 0020 0021 | !|
037c 0024 | $ |
037d ; --------------------------------------------------------------------------------------
037d ; Debug chain
037d ; --------------------------------------------------------------------------------------
037d 0007 0021 | !| .DBGLEN 0x0007,0x0021
037f 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0107,0x0109,0x010b,0x010d,0x010f,0x0113,0x013c,0x013f,0x0142,0x0145,0x0148,0x014b,0x014e,0x0151,0x0154,0x015d,0x015e,0x0162,0x0167,0x016c,0x016f,0x0173,0x0178,0x017d,0x0180,0x0184,0x0188,0x0192,0x0197,0x019a,0x019e,0x01a2,0x01ac,0x01b1,0x01b4,0x01bd,0x01cb,0x01d0
03a7 ; --------------------------------------------------------------------------------------
03a7 ; Debug chain
03a7 ; --------------------------------------------------------------------------------------
03a7 0001 0004 | | .DBGLEN 0x0001,0x0004
03a9 01e3 01e7 | | .DBGLNO 0x01e3,0x01e7,0x01ea,0x01ed,0x0209
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug chain
03ae ; --------------------------------------------------------------------------------------
03ae 0005 000c | | .DBGLEN 0x0005,0x000c
03b0 026b 026d | k m| .DBGLNO 0x026b,0x026d,0x026f,0x0271,0x0275,0x0279,0x027c,0x027f,0x0282,0x0285,0x0288,0x028b,0x0296,0x02a1,0x02ab,0x02af,0x02b3
03c1 ; --------------------------------------------------------------------------------------
03c1 ; Debug chain
03c1 ; --------------------------------------------------------------------------------------
03c1 0002 0005 | | .DBGLEN 0x0002,0x0005
03c3 02c3 02c6 | | .DBGLNO 0x02c3,0x02c6,0x02c9,0x02d5,0x02d7,0x02d9,0x02db
03ca 0000 0000 | | .BLANK 0000[0x36]