;--------------------------------------- ;- AUTOSTEREOGRAM GENERATOR - ;--------------------------------------- ;- PROGRAMMING BY DOMINIC FORD - ;--------------------------------------- ;- VERSION 1: 12/95 - ;- THIS VERSION: 3/97 - ;--------------------------------------- ; ; VARIABLES DEVICE = $02A7 VECTOR = $02A8 ; 16 BIT BITSTAT = $02AA COUNTER = $02AB WORKCOU = $02AC I = $02AD J = $02AE SEP = $02AF XPIXEL = $02B0 YPIXEL = $02B1 XPIB = $02B2 YPIB = $02B3 RNO = $02B4 S = $02B5 WORKBYTE = $02B6 EYES = $02B7 ; COLOURS BACKGROUND = 0 TITLECOL = 6 MENUCOL = 7 DIRCOL = 1 ERRORCOL = 2 FILECOL = 5 ; ROM ROUTINES OUTDO = $AB47 ENDBAS = $A474 SETLFS = $FFBA OPEN = $FFC0 CLOSE = $FFC3 CLRCH = $FFCC TALK = $FFB4 TKSA = $FF96 UNTLK = $FFAB ACPTR = $FFA5 LINPRT = $BDCD SETNAM = $FFBD LOADROM = $FFD5 SAVEROM = $FFD8 FNLEN = $B7 FNADR = $BB SA = $B9 FA = $BA STATUS = $90 ; MAIN PROGRAM *= $0F00 JSR STARSON LDA #$00 STA BITSTAT LDA #45 STA EYES LDA 186 CMP #100 BCS HIGHDEV CMP #$08 BCS NOTLESS8 HIGHDEV LDA #$08 NOTLESS8 STA DEVICE NEWDEVN LDX #DEVAD STX $FC JSR PRINDEC JSR INIT MAINMENU LDA $C5 CMP #56 BNE N1 JMP LOAD N1 CMP #59 BNE N2 JMP CALC N2 CMP #8 BNE N3 JMP VIEW N3 CMP #11 BNE N4 JMP SAVE N4 CMP #16 BNE N5 JMP DEVICEC N5 CMP #19 BNE N6 JMP DIRECTOR N6 CMP #24 BNE N7 JMP DISCERR N7 CMP #10 BNE NA JMP SEPERATE NA CMP #28 BNE NB JMP HEIGHTS NB CMP #27 BEQ LOADSTAR CMP #32 BNE MAINMENU JSR STARSOFF LDA #$00 STA $C6 LDA #$01 STA $0286 LDA #$15 STA $D018 LDA #$93 JSR OUTDO PLA PLA JMP ENDBAS LOADSTAR LDA #$15 STA $D018 JSR STARSOFF LDA #$00 STA $C6 LDA #$93 JMP OUTDO ; INITIALISATION INIT LDA $D011 AND #$EF STA $D011 LDA #BACKGROUND STA $D020 STA $D021 LDA #TITLECOL STA $0286 LDY #$00 TITLOOP LDA TITLE,Y JSR OUTDO INY CMP #$00 BNE TITLOOP LDA #MENUCOL STA $0286 LDY #$00 MENLOOP LDA MENU,Y JSR OUTDO INY CMP #$00 BNE MENLOOP LDA #$13 STA $D018 LDY #$00 STY $FB STY $FD LDA #25 STA $02 LDA #$04 STA $FC LDA #$D8 STA $FE STARLINE LDY #$00 LDX COUNTER LDA $0F00,X AND #$1F CLC ADC #$C0 TAX INC COUNTER PUTSTARS LDA ($FB),Y CMP #$20 BNE NEXTCHAR TXA STA ($FB),Y LDA #$01 STA ($FD),Y NEXTCHAR INY CPY #$28 BEQ NEXTLINE INX CPX #$E0 BNE PUTSTARS LDX #$C0 JMP PUTSTARS NEXTLINE LDA $FB CLC ADC #$28 STA $FB STA $FD BCC NOCARRY INC $FC INC $FE NOCARRY DEC $02 BNE STARLINE SHIFTON LDY #$00 STY $FB LDA #$04 STA $FC CHANLOP LDA ($FB),Y ORA #$40 STA ($FB),Y INY BNE CHANLOP INC $FC LDA $FC CMP #$08 BNE CHANLOP LDA $D011 ORA #$10 STA $D011 RTS ; принт децимал PRINDEC LDY #$00 PHA LDA #"0" STA ($FB),Y PLA TENS CMP #10 BCC UNITS SEC SBC #10 PHA LDA ($FB),Y CLC ADC #$01 STA ($FB),Y PLA JMP TENS UNITS CLC ADC #48 INY STA ($FB),Y RTS ; дисплаы дирецторы DIRECTOR LDA #$93 JSR OUTDO LDA #DIRCOL STA $0286 LDA #$15 STA $D018 ;LDA #%00110111 ;STA $01 LDA #DOLLAR STA FNADR+1 LDA #$01 STA FNLEN LDX DEVICE LDY #$60 JSR SETLFS JSR OPEN ;$F3D5 BCC DIRPRES LDA #$13 STA $D018 JSR CLRCH LDA #$01 JSR CLOSE JMP NODEVI DIRPRES LDA FA JSR TALK LDA SA JSR TKSA LDY #$03 DIRLINE STY $23 JSR ACPTR STA $22 LDY STATUS BNE DIREND JSR ACPTR LDY STATUS BNE DIREND LDY $23 DEY BNE DIRLINE LDX $22 JSR LINPRT LDA #160 JSR OUTDO FILENLOP JSR ACPTR LDY STATUS BNE DIREND TAY BEQ NEXTFILE JSR OUTDO JMP FILENLOP NEXTFILE LDA #$0D JSR OUTDO LDY #$02 JMP DIRLINE DIREND JSR CLRCH ;$F642 LDA #$01 JSR CLOSE LDY #$00 CLHLOP LDA CLHERE,Y JSR OUTDO INY CMP #$00 BNE CLHLOP DIRCLOP LDA $C5 CMP #60 BNE DIRCLOP LDA #$13 STA $D018 JSR INIT JMP MAINMENU DOLLAR .TEXT "$ " CLHERE .TEXT " SPACE TO" .TEXT " CONTINUE '" .BYTE 0 ; репорт дисц еррор DISCERR PHA LDA #0 STA 211 LDA #23 STA 214 JSR 58732 LDA #ERRORCOL STA $0286 LDY #$00 DISERR LDA DISCTXT,Y JSR OUTDO INY CMP #$00 BNE DISERR PLA CMP #$05 BNE READERR NODEVI LDY #$00 NODLOOP LDA DEVNOTPR,Y JSR OUTDO INY CMP #$00 BNE NODLOOP JMP DISKFIN READERR LDA #$00 STA $90 LDA DEVICE STA FA JSR TALK LDA STATUS BEQ DEVTHERE JSR UNTLK JMP NODEVI DEVTHERE LDA #$6F STA $B9 JSR TKSA GETCOML LDX $90 BNE REEND JSR ACPTR CMP #"," BNE GETCOML PRERLOP JSR ACPTR LDX $90 BNE REEND CMP #" " BNE NODSPAC JSR OUTDO JMP PRERLOP NODSPAC CMP #"," BEQ REEND CMP #$30 BCC PRERLOP CMP #$3A BCC ERRLET CMP #$41 BCC PRERLOP CMP #$5B BCC ERRLET JMP PRERLOP ERRLET JSR OUTDO JMP PRERLOP REEND JSR ACPTR CMP #$0D BNE REEND JSR UNTLK DISKFIN LDA #13 JSR OUTDO LDY #$00 DISKLOOP LDA DISKTEXT,Y JSR OUTDO INY CMP #$00 BNE DISKLOOP DISKWAIT JSR SHIFTON LDA $C5 CMP #60 BNE DISKWAIT JSR INIT JMP MAINMENU DEVNOTPR .TEXT "DEVICE NOT PRESENT" .BYTE 0 DISCTXT .TEXT "DISK ERROR:" .BYTE 0 DISKTEXT .TEXT "PRESS SPACE" .BYTE 0 ; цханге дежице нумбер DEVICEC LDA #0 STA 211 LDA #23 STA 214 JSR 58732 LDA #ERRORCOL STA $0286 LDY #$00 DCLOOP LDA NEWDEV,Y JSR OUTDO INY CMP #$00 BNE DCLOOP JSR SHIFTON LDA DEVICE STA WORKBYTE JSR GETNUMB STA DEVICE JMP NEWDEVN GETNUMB LDA #$AB STA $FB LDA #$07 STA $FC DCMAIN LDA WORKBYTE JSR PRINDEC LDA $07AB ORA #$40 STA $07AB LDA $07AC ORA #$40 STA $07AC DCKEY LDA $C5 CMP #$40 BNE DCKEY DCKEYB LDX $C5 LDA KEYTAB,X CMP #$80 BEQ ENTERDEV SEC SBC #48 CMP #10 BCS DCKEYB STA $FD LDA WORKBYTE SUBTENS CMP #10 BCC UNITSONLY SEC SBC #10 JMP SUBTENS UNITSONLY TAX LDA #$00 TIMESTEN CPX #$00 BEQ FINALADD DEX CLC ADC #10 JMP TIMESTEN FINALADD CLC ADC $FD STA WORKBYTE JMP DCMAIN ENTERDEV LDA WORKBYTE RTS NEWDEV .TEXT "NEW DEVICE NUMBER: ??" .BYTE 0 COLHEI .TEXT "COLOUR HEIGHT NO1: ??" .BYTE 0 EYESEP .TEXT " EYE SEPERATION: ??" .BYTE 0 ; жиев битмап VIEW LDA #0 STA 211 LDA #23 STA 214 JSR 58732 LDA #ERRORCOL STA $0286 LDY #$00 LDA BITSTAT BNE VIETLOP NOBITE LDA NOBITMAP,Y JSR OUTDO INY CMP #$00 BNE NOBITE JSR SHIFTON JMP VIEWWAIT VIETLOP LDA VIEWTXT,Y JSR OUTDO INY CMP #$00 BNE VIETLOP JSR SHIFTON VIEWSTRT LDA $C5 CMP #60 BNE VIEWSTRT LDY #$00 STY $FB LDA #$04 STA $FC LDA BITSTAT CMP #2 BEQ MULTICOL LDA #$01 CLRVM STA ($FB),Y INY BNE CLRVM INC $FC LDX $FC CPX #$08 BNE CLRVM JMP BANDW MULTICOL STY $FD LDA #$D4 STA $FE LDA #$01 MULTILOP STA ($FD),Y INY BNE MULTILOP INC $FE LDX $FE CPX #$DC BNE MULTILOP LDA $D016 ORA #$10 STA $D016 LDA #$BC JMP CLRVM BANDW LDA $D011 ORA #$20 STA $D011 LDA #$18 STA $D018 VKEYOFF LDA $C5 CMP #$40 BNE VKEYOFF VIEWWAIT LDA $C5 CMP #60 BNE VIEWWAIT LDA $D011 AND #$DF STA $D011 LDA #$13 STA $D018 LDA $D016 AND #$EF STA $D016 JSR INIT JMP MAINMENU ; старфиелд STARSON LDY #$00 STARLOOP LDA $0F00,Y CMP #$08 BCC DOSTAR LDA #$00 JMP NOSTAR DOSTAR TAX LDA BITS,X NOSTAR STA $0E00,Y INY BNE STARLOOP SEI LDA $0314 STA VECTOR LDA $0315 STA VECTOR+1 LDA #STARIRQ STA $0315 CLI RTS STARSOFF SEI LDA VECTOR STA $0314 LDA VECTOR+1 STA $0315 CLI RTS STARIRQ LDX #$00 LDA $FB PHA STARROW LDA ROWTIMES,X STA $FB LDA #$00 STARREP LDA $0E00,X ASL A ROL $0EF8,X ROL $0EF0,X ROL $0EE8,X ROL $0EE0,X ROL $0ED8,X ROL $0ED0,X ROL $0EC8,X ROL $0EC0,X ROL $0EB8,X ROL $0EB0,X ROL $0EA8,X ROL $0EA0,X ROL $0E98,X ROL $0E90,X ROL $0E88,X ROL $0E80,X ROL $0E78,X ROL $0E70,X ROL $0E68,X ROL $0E60,X ROL $0E58,X ROL $0E50,X ROL $0E48,X ROL $0E40,X ROL $0E38,X ROL $0E30,X ROL $0E28,X ROL $0E20,X ROL $0E18,X ROL $0E10,X ROL $0E08,X ROL $0E00,X DEC $FB BEQ NEXTROW JMP STARREP NEXTROW INX CPX #$08 BEQ ENDOFIRQ JMP STARROW ENDOFIRQ PLA STA $FB JMP (VECTOR) BITS .BYTE 0,2,0,8,16,0,64,128 ROWTIMES .BYTE 3,2,1,3,2,1,2,1 ; и/о роутинес GETFILEN LDA #0 STA 211 LDA #23 STA 214 JSR 58732 LDA #$01 STA $D015 LDA #$EA STA $D001 LDA #$01 STA $D027 LDA #FILECOL STA $0286 LDY #$00 FILELOP LDA FILENTXT,Y JSR OUTDO INY CMP #$00 BNE FILELOP JSR SHIFTON LDA #$30 STA $07F8 LDY #$10 CLRFILE LDA #$60 STA $07A7,Y LDA #$05 STA $DBA7,Y DEY BNE CLRFILE LDA #$A8 STA $FB LDA #$07 STA $FC FILEKEY TYA ASL A ASL A ASL A CLC ADC #145 STA $D000 CMP #50 BCS NOEXTRA LDA #$01 STA $D010 JMP FILEOFF NOEXTRA LDA #$00 STA $D010 FILEOFF LDX $C5 CPX #64 BNE FILEOFF GETFILLET LDX $C5 CPX #64 BEQ GETFILLET LDA KEYTAB,X CMP #$80 BEQ ENTERFILE CMP #$81 BEQ MOVE CMP #$83 BEQ DELETE CMP #$00 BEQ FILEKEY ORA #$40 STA ($FB),Y MOVERGHT CPY #$0F BEQ FILEKEY INY JMP FILEKEY MOVELEFT CPY #$00 BEQ FILEKEY DEY JMP FILEKEY MOVE LDA 653 AND #$01 BEQ MOVERGHT JMP MOVELEFT DELETE CPY #$00 BEQ FILEKEY DEY TYA TAX DELLOOP LDA $07A9,X STA $07A8,X INX CPX #$0F BNE DELLOOP LDA #$60 STA $07B7 JMP FILEKEY ENTERFILE LDA #$00 STA $D015 RTS LOAD JSR GETFILEN LDY #$00 COLOURS LDA HIGHLOW,Y JSR OUTDO INY CMP #$00 BNE COLOURS JSR SHIFTON LDA #$01 PHA GETNUMC LDA $C5 CMP #59 BEQ SINGLE CMP #11 BNE GETNUMC PLA LDA #$02 PHA SINGLE LDA #$01 LDX DEVICE LDY #$00 JSR SETLFS JSR TRANSLATE JSR SETNAM LDA #$00 STA 211 STA 214 JSR 58732 LDA #$00 TAX LDY #$20 JSR LOADROM BCC LOADOK PLA JSR INIT JMP DISCERR LOADOK LDY #$00 FMOVLOP LDA FILESTOR,Y STA FNAM,Y INY CPY #$10 BNE FMOVLOP PLA STA BITSTAT LDY #$00 CMP #$01 BEQ SOU2C SOU4C LDA SOUR4,Y STA TYPE+1,Y INY CPY #9 BNE SOU4C JMP ENDLOAD SOU2C LDA SOUR2,Y STA TYPE+1,Y INY CPY #9 BNE SOU2C ENDLOAD JSR INIT JMP MAINMENU TRANSLATE LDA #$00 STA $FB LDY #$00 FILETLOP LDA $07A8,Y AND #$3F CMP #$20 BCS NUMBERT CLC ADC #$40 NUMBERT STA FILESTOR,Y CMP #$20 BEQ NEXTCHR STY $FB NEXTCHR INY CPY #$10 BNE FILETLOP INC $FB LDA $FB LDX #FILESTOR RTS SAVE LDA BITSTAT BNE STARTSAV JMP VIEW STARTSAV JSR GETFILEN JSR TRANSLATE JSR SETNAM LDA #$01 LDX DEVICE LDY #$01 JSR SETLFS LDX #$00 STX $FB LDA #$20 STA $FC LDY #$40 LDA #$FB JSR SAVEROM BCC SAVEOK JSR INIT JMP DISCERR SAVEOK JSR INIT JMP MAINMENU FILENTXT .TEXT "ENTER FILENAME:" .BYTE 0 HIGHLOW .TEXT " IS THIS FILE 2 OR 4 " .TEXT "COLOUR" .BYTE 0 FILESTOR .TEXT "----------------" ; грапхиц поинт плоттер HTABLE .BYTE $00,$03,$06,$09 PLOTPC LDA #$47 STA $FB LDA #$3F STA $FC LDA YPIXEL LSR A LSR A LSR A STA YPIB AND #$03 ASL A ASL A ASL A ASL A ASL A ASL A STA $02 LDA $FB SEC SBC $02 STA $FB LDA $FC SBC YPIB PHA LDA YPIB LSR A LSR A STA $02 PLA SEC SBC $02 STA $FC LDA YPIXEL AND #$07 STA YPIB LDA $FB SEC SBC YPIB PHA LDA XPIXEL AND #$F8 STA YPIB PLA CLC ADC YPIB STA $FB LDA $FC SBC #$00 STA $FC LDA XPIXEL AND #$07 TAX LDA #$80 GBITLP CPX #$00 BEQ PPCONT LSR A DEX JMP GBITLP PPCONT STA $FD RTS PLOTON JSR PLOTPC LDY #$00 LDA ($FB),Y ORA $FD STA ($FB),Y RTS PLOTOFF JSR PLOTPC LDA $FD EOR #$FF STA $FD LDY #$00 LDA ($FB),Y AND $FD STA ($FB),Y RTS BWREAD JSR PLOTPC LDY #$00 LDA ($FB),Y AND $FD BNE READPOS LDA EYES SEC SBC HTABLE RTS READPOS LDA EYES SEC SBC HTABLE+2 RTS READPIX LDA BITSTAT CMP #$01 BNE MULTIREAD JMP BWREAD MULTIREAD LDA XPIXEL PHA AND #$FE STA XPIXEL JSR PLOTPC LDY #$00 LDA ($FB),Y AND $FD BEQ MRII LDA $02 MRII PHA INC XPIXEL JSR PLOTPC LDY #$00 LDA ($FB),Y AND $FD BEQ MRIII PLA CLC ADC #$01 PHA MRIII PLA TAX PLA STA XPIXEL LDA EYES SEC SBC HTABLE,X RTS ; аутостереограм цалцулатион CALC LDA #0 STA 211 LDA #23 STA 214 JSR 58732 LDA #ERRORCOL STA $0286 LDY #$00 LDA BITSTAT CMP #$00 BNE CALCII NOTSUIT JMP NOBITE CALCII CMP #$03 BEQ NOTSUIT LDY #$00 WORKLOOP LDA WORK,Y JSR OUTDO INY CMP #$00 BNE WORKLOOP JSR SHIFTON LDA #$31 STA WORKCOU LDA #$C7 STA YPIXEL NEWLINE LDY #$00 STY $FB LDA #$C0 STA $FC LINELOP TYA STA ($FB),Y INY BNE LINELOP LDA #$00 STA XPIXEL XLOP JSR READPIX STA SEP AND YPIXEL AND #$01 CLC ADC SEP LSR A STA I LDA XPIXEL SEC SBC I BCC XRELOP STA I CLC ADC SEP BCS XRELOP STA J REPEAT LDX I LDA $C000,X STA S CMP J BEQ XRELOP BCS LLCASE3 STA I JMP L210 LLCASE3 LDA J STA $C000,X LDA S STA J L210 LDX I LDA $C000,X CMP I BNE REPEAT LDA J LDX I STA $C000,X XRELOP LDX XPIXEL INX BEQ YRELOP STX XPIXEL JMP XLOP YRELOP JSR DISP DEC YPIXEL LDA YPIXEL BEQ AUTOEND AND #$03 BNE NEXTLINA DEC WORKCOU LDA #$C4 STA $FB LDA #$07 STA $FC LDA WORKCOU JSR PRINDEC LDA $07C4 ORA #$40 STA $07C4 LDA $07C5 ORA #$40 STA $07C5 NEXTLINA JMP NEWLINE AUTOEND LDA #$03 STA BITSTAT LDY #$00 COPYSTER LDA AUTO,Y STA TYPE+1,Y INY CPY #9 BNE COPYSTER JSR INIT JMP MAINMENU DISP LDA #$00 STA XPIXEL DLOP TAX LDA $C000,X CMP XPIXEL BNE DELSE LDA RNO LSR A INC $A2 ADC $A2 LDX $A2 ADC $F000,X STA RNO AND #$01 LDX XPIXEL STA $C100,X JMP NELSE DELSE LDA $C000,X TAY LDA $C100,Y STA $C100,X NELSE CMP #$00 BEQ NOBL JSR PLOTON JMP REDISP NOBL JSR PLOTOFF REDISP DEC XPIXEL LDA XPIXEL BNE DLOP RTS WORK .TEXT "WORKING. . . " .BYTE 0 ; еые сеператион SEPERATE LDA #0 STA 211 LDA #23 STA 214 JSR 58732 LDA #ERRORCOL STA $0286 LDY #$00 ESLOOP LDA EYESEP,Y JSR OUTDO INY CMP #$00 BNE ESLOOP JSR SHIFTON LDA EYES STA WORKBYTE JSR GETNUMB STA EYES JSR INIT JMP MAINMENU ; цолоур хеигхтс HEIGHTS LDA #0 STA 211 LDA #23 STA 214 JSR 58732 LDA #ERRORCOL STA $0286 LDY #$00 CHLOOP LDA COLHEI,Y JSR OUTDO INY CMP #$00 BNE CHLOOP JSR SHIFTON LDA HTABLE+1 STA WORKBYTE JSR GETCH STA HTABLE+1 INC $07A8 LDA HTABLE+2 STA WORKBYTE JSR GETCH STA HTABLE+2 INC $07A8 LDA HTABLE+3 STA WORKBYTE JSR GETCH STA HTABLE+3 JSR INIT JMP MAINMENU GETCH JSR GETNUMB CMP EYES BCC LOWE LDX #0 STX 54277 STX 54283 STX 54290 LDX #240 STX 54278 LDX #33 STX 54273 STX 54276 LDX #135 STX 54272 LDY #$03 BEEP LDX #15 STX 54296 LDA $A2 CLC ADC #5 WAITON CMP $A2 BNE WAITON CLC ADC #5 LDX #$00 STX 54296 WAITOFF CMP $A2 BNE WAITOFF DEY BNE BEEP JMP GETCH LOWE RTS ; титле бар TITLE .TEXT """ .BYTE 8,142 .TEXT "AUTOSTEREOGRAM" .TEXT "GENERATOR " .TEXT "" .TEXT "PROGRAMMEDBYDOMINIC" .TEXT "FORD1997 " .TEXT "CURRENTDEVICE:" DEVAD .TEXT "?? " .TEXT "FILENAME:" FNAM .TEXT "------NONE------" TYPE .TEXT "(------)- " .BYTE 0 ; *= $0C40 ; MENU .TEXT "PLEASESELECT: " .TEXT "1)LOADBITMAPFILE " .TEXT "2)CALCULATEAUTOSTER" .TEXT "EOGRAM " .TEXT "3)VIEWBITMAPFILE " .TEXT "4)SAVEBITMAPFILE " .TEXT "5)CHANGEDISKDEVICE " .TEXT "6)VIEWDIRECTORY " .TEXT "7)READDISKSTATUS " .TEXT "8)EXITTOLOADSTAR " .TEXT "A)EYESEPERATION" .TEXT "9)EXITTOBASIC " .TEXT "B)COLOURHEIGHTS " .BYTE 0 VIEWTXT .TEXT "PRESSSPACE" .TEXT "TOEXITFROM" .TEXT "BITMAP. PRESSSPACE" .BYTE 0 NOBITMAP .TEXT "NOBITMAPFILELOADED!" .TEXT " PRESSSPACE" .BYTE 0 SOUR2 .TEXT "SOURCE)2" SOUR4 .TEXT "SOURCE)4" AUTO .TEXT "STEREO)-" ; реад кеыбоард дата KEYTAB .BYTE $83,$80,$81,0,0,0,0,0 .BYTE 51,23,1,52,26,19,5,0,53 .BYTE 18,4,54,3,6,20,24,55,25 .BYTE 7,56,2,8,21,22,57,9,10 .BYTE 48,13,11,15,14,0,16,12 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0 .BYTE 0,49,0,0,50,32,0,17,0,0 ; ; цхарацтер сет *= $0A00 .BYTE $3C,$42,$99,$A1,$A1,$99 .BYTE $42,$3C,$3E,$7F,$77,$7F .BYTE $7F,$77,$77,$00,$7E,$7F .BYTE $77,$7E,$77,$7F,$7E,$00 .BYTE $3E,$7F,$73,$70,$73,$7F .BYTE $3E,$00,$7E,$7F,$77,$77 .BYTE $77,$7F,$7E,$00,$7F,$7F .BYTE $70,$7E,$70,$7F,$7F,$00 .BYTE $7F,$7F,$60,$7E,$7E,$60 .BYTE $60,$00,$3E,$7F,$70,$67 .BYTE $73,$7F,$3E,$00,$77,$77 .BYTE $7F,$7F,$77,$77,$77,$00 .BYTE $3E,$3E,$1C,$1C,$1C,$3E .BYTE $3E,$00,$1F,$1F,$06,$06 .BYTE $66,$7E,$3C,$00,$77,$77 .BYTE $7E,$7C,$7E,$77,$77,$00 .BYTE $70,$70,$70,$70,$70,$7F .BYTE $7F,$00,$63,$77,$7F,$7F .BYTE $77,$77,$77,$00,$67,$77 .BYTE $7F,$7F,$7F,$77,$73,$00 .BYTE $3E,$7F,$77,$77,$77,$7F .BYTE $3E,$00,$7E,$7F,$77,$7F .BYTE $7E,$70,$70,$00,$3E,$7F .BYTE $77,$77,$7E,$7F,$3B,$00 .BYTE $7E,$7F,$77,$7E,$7E,$77 .BYTE $77,$00,$3E,$7F,$70,$3E .BYTE $0F,$7F,$3E,$00,$7F,$7F .BYTE $1C,$1C,$1C,$1C,$1C,$00 .BYTE $77,$77,$77,$77,$77,$7F .BYTE $3E,$00,$77,$77,$77,$77 .BYTE $7F,$3E,$1C,$00,$77,$77 .BYTE $77,$7F,$7F,$77,$63,$00 .BYTE $63,$77,$3E,$1C,$3E,$77 .BYTE $63,$00,$77,$77,$7F,$3E .BYTE $0E,$1C,$38,$00,$7F,$7F .BYTE $0E,$1C,$38,$7F,$7F,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $1C,$1C,$1C,$1C,$00,$1C .BYTE $1C,$00,$36,$36,$36,$00 .BYTE $00,$00,$00,$00,$36,$36 .BYTE $7F,$36,$7F,$36,$36,$00 .BYTE $0C,$3F,$68,$3E,$0B,$7E .BYTE $18,$00,$62,$66,$0C,$18 .BYTE $30,$66,$46,$00,$38,$7C .BYTE $6C,$38,$6D,$7E,$3B,$00 .BYTE $18,$38,$30,$00,$00,$00 .BYTE $00,$00,$0E,$1E,$1C,$1C .BYTE $1C,$1E,$0E,$00,$38,$3C .BYTE $1C,$1C,$1C,$3C,$38,$00 .BYTE $08,$3E,$1C,$7F,$1C,$3E .BYTE $08,$00,$00,$18,$18,$7E .BYTE $7E,$18,$18,$00,$00,$00 .BYTE $00,$00,$00,$38,$38,$70 .BYTE $00,$00,$7E,$7E,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$38,$38,$00,$00,$06 .BYTE $0E,$1C,$38,$70,$60,$80 .BYTE $3E,$7F,$77,$77,$77,$7F .BYTE $3E,$00,$1C,$3C,$1C,$1C .BYTE $1C,$3E,$3E,$00,$3E,$7F .BYTE $67,$0E,$1C,$3F,$7F,$00 .BYTE $7F,$7F,$06,$0E,$67,$7F .BYTE $3E,$00,$0E,$1E,$3E,$76 .BYTE $7F,$7F,$0E,$00,$7F,$7F .BYTE $60,$7E,$07,$7F,$3E,$00 .BYTE $1E,$3C,$38,$7E,$77,$7F .BYTE $3E,$00,$7F,$7F,$0E,$1C .BYTE $1C,$38,$38,$00,$3E,$7F .BYTE $77,$3E,$77,$7F,$3E,$00 .BYTE $3E,$7F,$77,$3F,$0F,$1E .BYTE $3C,$00,$00,$18,$18,$00 .BYTE $00,$18,$18,$00,$00,$18 .BYTE $18,$00,$00,$18,$18,$30 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00,$00,$00,$00 .BYTE $00,$00,$00 ; цурсор сприте .BYTE $E0,0,0,$40,0,0,$40,0,0 .BYTE $40,0,0,$40,0,0,$40,0,0 .BYTE $40,0,0,$E0,0,0,0,0,0 .BYTE 0,0,0,0,0,0,0,0,0 .BYTE 0,0,0,0,0,0,0,0,0 .BYTE 0,0,0,0,0,0,0,0,0 .BYTE 0,0,0,0,0,0,0,0,0