1 2 ; LST OFF 3 ORG $1000 4 5 ******************************** 6 * * 7 * Anim 3 pour Muryaden II * 8 * (c)1991 LoGo * 9 * Source par Deckard (2013) * 10 * * 11 ******************************** 12 13 * Adresses ressources 14 15 FT EQU $1800 ; font 16 P3 EQU $4000 ; image 1 Extasie compress{e 17 P4 EQU $7300 ; image 2 Extasie compress{e 18 19 * Adresses ROM 20 21 KEY EQU $C000 22 MAINWRT EQU $C004 23 AUXWRT EQU $C005 24 STROBE EQU $C010 25 TXTCLR EQU $C050 26 TXTSET EQU $C051 27 MIXCLR EQU $C052 28 LOWSCR EQU $C054 29 HISCR EQU $C055 30 LORES EQU $C056 31 HIRES EQU $C057 32 WAIT EQU $FCA8 33 34 *------------------------------- 35 36 * Dhgr on 37 1000: 8D 01 C0 38 STA $C001 ; 80STORE = 1 1003: 8D 0D C0 39 STA $C00D ; switch 80 colonnes 1006: 8D 52 C0 40 STA MIXCLR ; full page 1009: 8D 54 C0 41 STA LOWSCR ; page 1 100C: 8D 57 C0 42 STA HIRES ; mode graphique haute r{solution 100F: 8D 5E C0 43 STA $C05E ; double hgr 44 1012: A9 40 45 LDA #>P3 ; d{compression 1}re image 1014: 20 FC 10 46 JSR GO_EXTASIE 1017: A9 00 47 LDA #0 ; 1er scroll 1019: 20 39 10 48 JSR DRV_SCROLL 49 101C: A9 73 50 LDA #>P4 ; d{compression 2nde image 101E: 20 FC 10 51 JSR GO_EXTASIE 1021: A9 01 52 LDA #1 ; 2nd scroll 1023: 20 39 10 53 JSR DRV_SCROLL 54 55 * Dhgr off 56 1026: 8D 5F C0 57 STA $C05F ; double hgr off 1029: 8D 56 C0 58 STA LORES 102C: 8D 54 C0 59 STA LOWSCR 102F: 8D 51 C0 60 STA TXTSET ; mode texte 1032: 8D 0C C0 61 STA $C00C ; 40 colonnes 1035: 8D 00 C0 62 STA KEY 1038: 60 63 RTS 64 65 *------------------------------- 66 * Driver scroll 67 *------------------------------- 68 1039: 8D 5F 10 69 DRV_SCROLL STA POS_DEB_SCR+1 ; num{ro scroll 103C: 20 5E 10 70 JSR POS_DEB_SCR ; d{but de texte concern{ 71 103F: A9 02 72 LDA #2 ; on commence par l'init 1041: 8D 45 10 73 STA SCR_02+1 74 1044: A9 02 75 SCR_02 LDA #2 ; action 1046: C9 02 76 CMP #2 ; init? 1048: F0 26 77 BEQ INIT_SCROLL ; oui 78 104A: 20 AA 10 79 JSR DO_SCROLL ; scroll @ gauche 1 position 104D: EE 45 10 80 INC SCR_02+1 ; 2 scrolls pour le caract}re complet 1050: A9 A0 81 LDA #$A0 1052: 20 A8 FC 82 JSR WAIT ; temporisation 83 1055: AD 00 C0 84 LDA KEY ; touche appuy{e? 1058: 10 EA 85 BPL SCR_02 ; non, continue 86 105A: 2C 10 C0 87 BIT STROBE 105D: 60 88 RTS 89 90 *------------------------------- 91 * Repositionne sur le d{but du 92 * texte d'un scroll 93 *------------------------------- 94 105E: A9 00 95 POS_DEB_SCR LDA #0 ; num{ro scroll *2 1060: 0A 96 ASL 1061: AA 97 TAX 1062: BD E4 11 98 LDA ADR_SCROLL,X 1065: 8D 7E 10 99 STA SCR_03+1 1068: E8 100 INX 1069: BD E4 11 101 LDA ADR_SCROLL,X 106C: 8D 7F 10 102 STA SCR_03+2 106F: 60 103 RTS 104 105 *------------------------------- 106 1070: A9 00 107 INIT_SCROLL LDA #FT 107A: 8D EB 10 111 STA SCR_01+2 ; high 112 113 *------------------------------- 114 107D: AD E8 11 115 SCR_03 LDA TXT_SCROLL1 ; "caract}re" courant 1080: D0 06 116 BNE SCR_04 ; pas un terminateur 117 1082: 20 5E 10 118 JSR POS_DEB_SCR 1085: 4C 70 10 119 JMP INIT_SCROLL 120 1088: 38 121 SCR_04 SEC ; "caract}re" -> caract}re 1089: E9 A0 122 SBC #" " 108B: AA 123 TAX 108C: F0 11 124 BEQ SCR_12 ; espace uniquement 125 108E: AD EA 10 126 SCR_05 LDA SCR_01+1 ; recherche d{but datas font du caract}re 1091: 18 127 CLC 1092: 69 10 128 ADC #16 1094: 8D EA 10 129 STA SCR_01+1 ; low 1097: D0 03 130 BNE SCR_11 131 1099: EE EB 10 132 INC SCR_01+2 ; high 133 109C: CA 134 SCR_11 DEX ; on est sur le caract}re d{sir{? 109D: D0 EF 135 BNE SCR_05 ; pas encore 136 109F: EE 7E 10 137 SCR_12 INC SCR_03+1 ; positionne sur "caract}re" suivant du texte 10A2: D0 03 138 BNE SCR_13 139 10A4: EE 7F 10 140 INC SCR_03+2 10A7: 4C 44 10 141 SCR_13 JMP SCR_02 142 143 *------------------------------- 144 * Gestion du scroll 145 *------------------------------- 146 10AA: A2 B8 147 DO_SCROLL LDX #184 ; data {cran 1}re ligne du scroll 10AC: BD DC 12 148 SCR_06 LDA DATALOW,X 10AF: 85 FE 149 STA $FE 10B1: BD 9C 13 150 LDA DATAHIGH,X 10B4: 85 FF 151 STA $FF 152 153 * Phase 1 : d{calage du texte d{j@ affich{ sur l'{cran 154 10B6: A0 00 155 LDY #0 10B8: 8D 54 C0 156 STA LOWSCR ; copie l'octet position courante d'une 10BB: B1 FE 157 SCR_07 LDA ($FE),Y ; m{moire vers l'autre 10BD: 8D 55 C0 158 STA HISCR 10C0: 91 FE 159 STA ($FE),Y 10C2: C8 160 INY 10C3: B1 FE 161 LDA ($FE),Y 10C5: 8D 54 C0 162 STA LOWSCR 10C8: 88 163 DEY 10C9: C0 27 164 CPY #39 ; et ce pour toutes les positions de la ligne 10CB: F0 06 165 BEQ SCR_08 166 10CD: 91 FE 167 STA ($FE),Y 10CF: C8 168 INY 10D0: 4C BB 10 169 JMP SCR_07 170 10D3: E8 171 SCR_08 INX ; et on recommence pour toutes les lignes 10D4: E0 C0 172 CPX #192 ; du scroll 10D6: D0 D4 173 BNE SCR_06 174 175 * Phase 2 : affichage d'un nouveau caract}re du texte 176 10D8: A2 B8 177 LDX #184 ; data {cran 1}re ligne du scroll 10DA: BD DC 12 178 SCR_09 LDA DATALOW,X 10DD: 85 FE 179 STA $FE 10DF: BD 9C 13 180 LDA DATAHIGH,X 10E2: 85 FF 181 STA $FF 182 10E4: A0 27 183 LDY #39 ; positionne sur la colonne la plus @ droite 10E6: 8D 54 C0 184 STA LOWSCR 10E9: AD FF FF 185 SCR_01 LDA $FFFF ; data font du caract}re 10EC: 91 FE 186 STA ($FE),Y 187 10EE: EE EA 10 188 INC SCR_01+1 ; data suivant (low) 10F1: D0 03 189 BNE SCR_10 190 10F3: EE EB 10 191 INC SCR_01+2 ; (high) 192 10F6: E8 193 SCR_10 INX ; ligne suivante 10F7: E0 C0 194 CPX #192 ; derni}re ligne+1? 10F9: D0 DF 195 BNE SCR_09 ; pas encore, on continue 196 10FB: 60 197 RTS 198 199 *------------------------------- 200 10FC: 8D E3 11 201 GO_EXTASIE STA EXT_V08 ; sauve adr high image @ traiter 202 203 *------------------------------- 204 * Unpack image format EXTASIE 205 *------------------------------- 206 10FF: 8D 51 C0 207 EXTASIE STA TXTSET 1102: A9 01 208 LDA #1 1104: 8D DC 11 209 STA EXT_V01 1107: 8D 00 C0 210 STA KEY 211 110A: 20 60 11 212 JSR EXT_01 213 110D: A9 00 214 LDA #0 110F: 8D DD 11 215 STA EXT_V02 1112: 8D DE 11 216 STA EXT_V03 1115: 8D DF 11 217 STA EXT_V04 1118: 8D DC 11 218 STA EXT_V01 111B: 20 63 11 219 JSR EXT_DECOMP ; exec unpack 111E: 8D 01 C0 220 STA $C001 1121: 8D 50 C0 221 STA TXTCLR 1124: 60 222 RTS 223 224 *------------------------------- 225 1125: A9 00 226 EXT_02 LDA #$00 1127: 8D DD 11 227 STA EXT_V02 112A: 8D DE 11 228 STA EXT_V03 112D: 8D DF 11 229 STA EXT_V04 1130: AD E3 11 230 LDA EXT_V08 ; high : d{but en page pleine OBLIGATOIRE 1133: 85 09 231 STA $09 1135: A9 02 232 LDA #$02 ; low 1137: 85 08 233 STA $08 1139: AD E3 11 234 LDA EXT_V08 ; high : idem 113C: 85 19 235 STA $19 113E: A9 03 236 LDA #$03 1140: 85 18 237 STA $18 1142: 60 238 RTS 239 240 *------------------------------- 241 1143: E6 18 242 EXT_03 INC $18 1145: D0 0F 243 BNE EXT_04 244 1147: E6 19 245 INC $19 1149: A5 19 246 LDA $19 114B: C9 A7 247 CMP #$A7 114D: D0 07 248 BNE EXT_04 249 114F: 68 250 PLA 1150: 68 251 PLA 1151: A9 FF 252 LDA #$FF 1153: 8D E2 11 253 STA EXT_V07 1156: 60 254 EXT_04 RTS 255 256 *------------------------------- 257 1157: A5 18 258 EXT_05 LDA $18 1159: 85 08 259 STA $08 115B: A5 19 260 LDA $19 115D: 85 09 261 STA $09 115F: 60 262 RTS 263 264 *------------------------------- 265 1160: 20 25 11 266 EXT_01 JSR EXT_02 267 1163: A0 00 268 EXT_DECOMP LDY #$00 1165: B1 08 269 LDA ($08),Y 1167: 8D E0 11 270 STA EXT_V05 116A: 30 18 271 BMI EXT_06 272 116C: A0 00 273 EXT_08 LDY #$00 116E: B1 18 274 LDA ($18),Y 1170: 20 AA 11 275 JSR EXT_07 1173: 20 43 11 276 JSR EXT_03 1176: CE E0 11 277 DEC EXT_V05 1179: D0 F1 278 BNE EXT_08 279 117B: 20 57 11 280 JSR EXT_05 117E: 20 43 11 281 JSR EXT_03 1181: 18 282 CLC 1182: 90 1E 283 BCC EXT_09 284 1184: 29 7F 285 EXT_06 AND #$7F 1186: 8D E0 11 286 STA EXT_V05 1189: B1 18 287 LDA ($18),Y 118B: 8D E1 11 288 STA EXT_V06 118E: AD E1 11 289 EXT_10 LDA EXT_V06 1191: 20 AA 11 290 JSR EXT_07 1194: CE E0 11 291 DEC EXT_V05 1197: D0 F5 292 BNE EXT_10 293 1199: 20 43 11 294 JSR EXT_03 119C: 20 57 11 295 JSR EXT_05 119F: 20 43 11 296 JSR EXT_03 297 11A2: AD DD 11 298 EXT_09 LDA EXT_V02 11A5: C9 28 299 CMP #40 11A7: 90 BA 300 BCC EXT_DECOMP 11A9: 60 301 RTS 302 303 *------------------------------- 304 11AA: AA 305 EXT_07 TAX 11AB: AC DE 11 306 LDY EXT_V03 11AE: B9 DC 12 307 LDA DATALOW,Y 11B1: 85 06 308 STA $06 11B3: B9 9C 13 309 LDA DATAHIGH,Y 11B6: 85 07 310 STA $07 11B8: AC DD 11 311 LDY EXT_V02 11BB: AD DC 11 312 LDA EXT_V01 11BE: F0 03 313 BEQ EXT_11 314 11C0: 8D 05 C0 315 STA AUXWRT 11C3: 8A 316 EXT_11 TXA 11C4: 91 06 317 STA ($06),Y 11C6: 8D 04 C0 318 STA MAINWRT 11C9: EE DE 11 319 INC EXT_V03 11CC: AD DE 11 320 LDA EXT_V03 11CF: C9 C0 321 CMP #$C0 11D1: 90 08 322 BCC EXT_12 323 11D3: A9 00 324 LDA #$00 11D5: 8D DE 11 325 STA EXT_V03 11D8: EE DD 11 326 INC EXT_V02 11DB: 60 327 EXT_12 RTS 328 329 * Variables Extasie 330 11DC: 00 331 EXT_V01 DFB 0 11DD: 00 332 EXT_V02 DFB 0 11DE: 00 333 EXT_V03 DFB 0 11DF: 00 334 EXT_V04 DFB 0 11E0: 00 335 EXT_V05 DFB 0 11E1: 00 336 EXT_V06 DFB 0 11E2: 00 337 EXT_V07 DFB 0 11E3: 00 338 EXT_V08 DFB 0 339 340 *------------------------------- 341 * Infos scrolls 342 *------------------------------- 343 11E4: E8 11 344 ADR_SCROLL DA TXT_SCROLL1 11E6: 40 12 345 DA TXT_SCROLL2 346 11E8: C2 E9 E5 347 TXT_SCROLL1 ASC "Bienvenu dans le monde agite de " 11EB: EE F6 E5 EE F5 A0 E4 E1 11F3: EE F3 A0 EC E5 A0 ED EF 11FB: EE E4 E5 A0 E1 E7 E9 F4 1203: E5 A0 E4 E5 A0 1208: CC EF F2 348 ASC "Lord Brutish..." 120B: E4 A0 C2 F2 F5 F4 E9 F3 1213: E8 AE AE AE 1217: A0 A0 A0 349 DS 40,$A0 121A: A0 A0 A0 A0 A0 A0 A0 A0 1222: A0 A0 A0 A0 A0 A0 A0 A0 122A: A0 A0 A0 A0 A0 A0 A0 A0 1232: A0 A0 A0 A0 A0 A0 A0 A0 123A: A0 A0 A0 A0 A0 123F: 00 350 DFB 0 351 1240: D6 EF F4 352 TXT_SCROLL2 ASC "Votre quete sera longue... mais ce pays " 1243: F2 E5 A0 F1 F5 E5 F4 E5 124B: A0 F3 E5 F2 E1 A0 EC EF 1253: EE E7 F5 E5 AE AE AE A0 125B: ED E1 E9 F3 A0 E3 E5 A0 1263: F0 E1 F9 F3 A0 1268: E3 EF ED 353 ASC "compte de nombreux jardins ou vous " 126B: F0 F4 E5 A0 E4 E5 A0 EE 1273: EF ED E2 F2 E5 F5 F8 A0 127B: EA E1 F2 E4 E9 EE F3 A0 1283: EF F5 A0 F6 EF F5 F3 A0 128B: F0 EF F5 354 ASC "pourrez dormir d'un sommeil... profond !" 128E: F2 F2 E5 FA A0 E4 EF F2 1296: ED E9 F2 A0 E4 A7 F5 EE 129E: A0 F3 EF ED ED E5 E9 EC 12A6: AE AE AE A0 F0 F2 EF E6 12AE: EF EE E4 A0 A1 12B3: A0 A0 A0 355 DS 40,$A0 12B6: A0 A0 A0 A0 A0 A0 A0 A0 12BE: A0 A0 A0 A0 A0 A0 A0 A0 12C6: A0 A0 A0 A0 A0 A0 A0 A0 12CE: A0 A0 A0 A0 A0 A0 A0 A0 12D6: A0 A0 A0 A0 A0 12DB: 00 356 DFB 0 357 358 *------------------------------- 359 * Adresses lignes {cran HGR 360 *------------------------------- 361 12DC: 00 00 00 362 DATALOW HEX 00000000000000008080808080808080 12DF: 00 00 00 00 00 80 80 80 12E7: 80 80 80 80 80 12EC: 00 00 00 363 HEX 00000000000000008080808080808080 12EF: 00 00 00 00 00 80 80 80 12F7: 80 80 80 80 80 12FC: 00 00 00 364 HEX 00000000000000008080808080808080 12FF: 00 00 00 00 00 80 80 80 1307: 80 80 80 80 80 130C: 00 00 00 365 HEX 00000000000000008080808080808080 130F: 00 00 00 00 00 80 80 80 1317: 80 80 80 80 80 131C: 28 28 28 366 HEX 2828282828282828A8A8A8A8A8A8A8A8 131F: 28 28 28 28 28 A8 A8 A8 1327: A8 A8 A8 A8 A8 132C: 28 28 28 367 HEX 2828282828282828A8A8A8A8A8A8A8A8 132F: 28 28 28 28 28 A8 A8 A8 1337: A8 A8 A8 A8 A8 133C: 28 28 28 368 HEX 2828282828282828A8A8A8A8A8A8A8A8 133F: 28 28 28 28 28 A8 A8 A8 1347: A8 A8 A8 A8 A8 134C: 28 28 28 369 HEX 2828282828282828A8A8A8A8A8A8A8A8 134F: 28 28 28 28 28 A8 A8 A8 1357: A8 A8 A8 A8 A8 135C: 50 50 50 370 HEX 5050505050505050D0D0D0D0D0D0D0D0 135F: 50 50 50 50 50 D0 D0 D0 1367: D0 D0 D0 D0 D0 136C: 50 50 50 371 HEX 5050505050505050D0D0D0D0D0D0D0D0 136F: 50 50 50 50 50 D0 D0 D0 1377: D0 D0 D0 D0 D0 137C: 50 50 50 372 HEX 5050505050505050D0D0D0D0D0D0D0D0 137F: 50 50 50 50 50 D0 D0 D0 1387: D0 D0 D0 D0 D0 138C: 50 50 50 373 HEX 5050505050505050D0D0D0D0D0D0D0D0 138F: 50 50 50 50 50 D0 D0 D0 1397: D0 D0 D0 D0 D0 374 139C: 20 24 28 375 DATAHIGH HEX 2024282C3034383C2024282C3034383C 139F: 2C 30 34 38 3C 20 24 28 13A7: 2C 30 34 38 3C 13AC: 21 25 29 376 HEX 2125292D3135393D2125292D3135393D 13AF: 2D 31 35 39 3D 21 25 29 13B7: 2D 31 35 39 3D 13BC: 22 26 2A 377 HEX 22262A2E32363A3E22262A2E32363A3E 13BF: 2E 32 36 3A 3E 22 26 2A 13C7: 2E 32 36 3A 3E 13CC: 23 27 2B 378 HEX 23272B2F33373B3F23272B2F33373B3F 13CF: 2F 33 37 3B 3F 23 27 2B 13D7: 2F 33 37 3B 3F 13DC: 20 24 28 379 HEX 2024282C3034383C2024282C3034383C 13DF: 2C 30 34 38 3C 20 24 28 13E7: 2C 30 34 38 3C 13EC: 21 25 29 380 HEX 2125292D3135393D2125292D3135393D 13EF: 2D 31 35 39 3D 21 25 29 13F7: 2D 31 35 39 3D 13FC: 22 26 2A 381 HEX 22262A2E32363A3E22262A2E32363A3E 13FF: 2E 32 36 3A 3E 22 26 2A 1407: 2E 32 36 3A 3E 140C: 23 27 2B 382 HEX 23272B2F33373B3F23272B2F33373B3F 140F: 2F 33 37 3B 3F 23 27 2B 1417: 2F 33 37 3B 3F 141C: 20 24 28 383 HEX 2024282C3034383C2024282C3034383C 141F: 2C 30 34 38 3C 20 24 28 1427: 2C 30 34 38 3C 142C: 21 25 29 384 HEX 2125292D3135393D2125292D3135393D 142F: 2D 31 35 39 3D 21 25 29 1437: 2D 31 35 39 3D 143C: 22 26 2A 385 HEX 22262A2E32363A3E22262A2E32363A3E 143F: 2E 32 36 3A 3E 22 26 2A 1447: 2E 32 36 3A 3E 144C: 23 27 2B 386 HEX 23272B2F33373B3F23272B2F33373B3F 144F: 2F 33 37 3B 3F 23 27 2B 1457: 2F 33 37 3B 3F 387 145C: CC EF C7 388 ASC "LoGo for Deckard 31 08 91 " 145F: EF A0 E6 EF F2 A0 C4 E5 1467: E3 EB E1 F2 E4 A0 B3 B1 146F: A0 B0 B8 A0 B9 B1 A0 1476: FF FF 389 HEX FFFF 390 391 SAV A3 Object saved as A3,A$1000,L$0478 --End assembly, 1144 bytes, Errors: 0 Symbol table - alphabetical order: ADR_SCROLL =$11E4 AUXWRT =$C005 DATAHIGH =$139C DATALOW =$12DC DO_SCROLL =$10AA DRV_SCROLL =$1039 ? EXTASIE =$10FF EXT_01 =$1160 EXT_02 =$1125 EXT_03 =$1143 EXT_04 =$1156 EXT_05 =$1157 EXT_06 =$1184 EXT_07 =$11AA EXT_08 =$116C EXT_09 =$11A2 EXT_10 =$118E EXT_11 =$11C3 EXT_12 =$11DB EXT_DECOMP =$1163 EXT_V01 =$11DC EXT_V02 =$11DD EXT_V03 =$11DE EXT_V04 =$11DF EXT_V05 =$11E0 EXT_V06 =$11E1 EXT_V07 =$11E2 EXT_V08 =$11E3 FT =$1800 GO_EXTASIE =$10FC HIRES =$C057 HISCR =$C055 INIT_SCROLL =$1070 KEY =$C000 LORES =$C056 LOWSCR =$C054 MAINWRT =$C004 MIXCLR =$C052 P3 =$4000 P4 =$7300 POS_DEB_SCR =$105E SCR_01 =$10E9 SCR_02 =$1044 SCR_03 =$107D SCR_04 =$1088 SCR_05 =$108E SCR_06 =$10AC SCR_07 =$10BB SCR_08 =$10D3 SCR_09 =$10DA SCR_10 =$10F6 SCR_11 =$109C SCR_12 =$109F SCR_13 =$10A7 STROBE =$C010 TXTCLR =$C050 TXTSET =$C051 TXT_SCROLL1 =$11E8 TXT_SCROLL2 =$1240 WAIT =$FCA8 Symbol table - numerical order: DRV_SCROLL =$1039 SCR_02 =$1044 POS_DEB_SCR =$105E INIT_SCROLL =$1070 SCR_03 =$107D SCR_04 =$1088 SCR_05 =$108E SCR_11 =$109C SCR_12 =$109F SCR_13 =$10A7 DO_SCROLL =$10AA SCR_06 =$10AC SCR_07 =$10BB SCR_08 =$10D3 SCR_09 =$10DA SCR_01 =$10E9 SCR_10 =$10F6 GO_EXTASIE =$10FC ? EXTASIE =$10FF EXT_02 =$1125 EXT_03 =$1143 EXT_04 =$1156 EXT_05 =$1157 EXT_01 =$1160 EXT_DECOMP =$1163 EXT_08 =$116C EXT_06 =$1184 EXT_10 =$118E EXT_09 =$11A2 EXT_07 =$11AA EXT_11 =$11C3 EXT_12 =$11DB EXT_V01 =$11DC EXT_V02 =$11DD EXT_V03 =$11DE EXT_V04 =$11DF EXT_V05 =$11E0 EXT_V06 =$11E1 EXT_V07 =$11E2 EXT_V08 =$11E3 ADR_SCROLL =$11E4 TXT_SCROLL1 =$11E8 TXT_SCROLL2 =$1240 DATALOW =$12DC DATAHIGH =$139C FT =$1800 P3 =$4000 P4 =$7300 KEY =$C000 MAINWRT =$C004 AUXWRT =$C005 STROBE =$C010 TXTCLR =$C050 TXTSET =$C051 MIXCLR =$C052 LOWSCR =$C054 HISCR =$C055 LORES =$C056 HIRES =$C057 WAIT =$FCA8