PURPLE.S (1183B)
1 * purple (put this file!!!) 2 3 * This code sets $DA in aux mem to 1 4 * if signature is found on track zero. 5 6 PURPrun = $6321 7 8 PURPLE 9 ldy #PURPrun 10 lda #>PURPrun 11 12 jsr PURPsub 13 jsr PURPjmp 14 15 * Note: first byte of next junk must be $60 (rts) 16 *------------------------------------------------- 17 18 PURPcode 19 hex 60386018EAA8E7108849450040994825 20 hex FB10C08CBD48852AFB10C08CBD498500 21 hex A9E7D096C9FB10C08CBD03A0F2D0AAC9 22 hex FB10C08CBDEAF0D0D5C9FB10C08CBD3D 23 hex F048E604D0C84884FDA060F1D00DE0E8 24 hex 62549D409440B56254BC00A2E7FCEEE7 25 hex FCEEEEFC63384C0BF044C66018BFFB9D 26 hex CD952ABFFC9D00A963BE2063AF4C0330 27 hex F4108805D046D1FB10C08CBD07A0F4D0 28 hex EEC914F088FB10C08CBD062410A0C08D 29 hex BD23D0E7C9FB10C08CBD2CD0E7C9FB10 30 hex C08CBDF4D0E7C939F088FB10C08CBD00 31 hex A0F4D0D5C947F088FB10C08CBD00A0F1 32 hex D007C941A557B063D0205CF045C64585 33 hex 80A9478563A94685B6A9C08EBDC089BD 34 hex FDA644850AA963BE20 35 36 *------------------------------------------------- 37 38 PURPlen = *-PURPcode 39 40 * Routine to decode code 41 42 hex 20 43 44 PURPsub 45 sty 4 46 sta 5 47 48 ldy #0 49 50 ldx #PURPlen 51 :0 dex 52 lda PURPcode,x 53 sta (4),y 54 iny 55 bne :0 56 57 rts 58 59 hex 2c 60 61 PURPjmp jmp (4) 62 63 *------------------------------------------------- EOF