home *** CD-ROM | disk | FTP | other *** search
/ Flop Magazin 33 / Flop_Magazin_33_1995_01_Raster_cs_Side_A.atr / joyvbi.lm < prev    next >
Text File  |  2023-02-26  |  3KB  |  1 lines
  1. 10 ;JOYVBI.MAC¢20 ;Radek Sterba, RASTER 1995.4¢30 ;¢40       .OPT NO LIST¢50 ;¢60 ZAC   =   $7000¢70       *=  ZAC¢80 ;¢90 PMG   =   $7400¢0100 ;¢0110 COL1 =  10      ;BARVA SIPKY NORMALNE¢0120 COL2 =  14      ;BARVA SIPKY PRI STLACENI TLACITKA¢0130 CUX =   ZAC-3   ;SIPKA-POS.X¢0140 CUY =   ZAC-2   ;SIPKA-POS.Y¢0150 CUT =   ZAC-1   ;SIPKA-TLACITKO¢0160 ;¢0170 ;¢0180     PLA         ;POC.PARAMETRU (NEBUDE POUZIVAN)¢0190     LDA #48     ;INICIAL.X¢0200     STA CUX¢0210     LDA #32     ;INICIAL.Y¢0220     STA CUY¢0230     LDA #0      ;TLACITKO¢0240     STA CUT¢0250 ;¢0260     JSR INIT    ;INIT PMG¢0270     JSR VIEW    ;ZOBRAZ SIPKU¢0280 ;¢0290     LDY # <VBI  ;DOLNI BYTE ADRESY VBI PODPROGRAMU¢0300     LDX # >VBI  ;HORNI¢0310     LDA #7      ;POVINNA KONSTANTA¢0320     JSR $E45C   ;SPUST VBI!¢0330     RTS         ;KONEC¢0340 ;¢0350 ;INICIALIZACE PMG¢0360 INIT¢0370     LDA # >PMG  ;PMG STRANKA¢0380     STA 54279¢0390     LDA 559¢0400     ORA #24     ;PMG HRAC, JEMNY¢0410     STA 559¢0420     LDA 623¢0430     AND #240    ;HORNI 4 BITY NECHA STEJNE¢0440     ORA #1      ;PMG NAD VSIM¢0450     STA 623¢0460     LDA #0¢0470     STA 53256   ;SIRKA PMG¢0480     LDA #2¢0490     STA 53277   ;POVOLENI PMG (POUZE HRACU)¢0500     RTS         ;KONEC INICIALIZACE¢0510 ;¢0520 VBI¢0530     JSR INIT    ;INIT POKAZDE (KVULI NAPR. PRIPADNEMU POVELU NASTAVENI GRAFIKY)¢0540     LDA CUT     ;JE STLACENO TLACITKO?¢0550     BNE NIC     ;ANO => POHYB ZNEMOZNEN (ABY SE MOHLA PREVZIT X-OVA A Y-OVA SOURADNICE)¢0560 ;OPETOVNE POVOLENI POHYBU SE PROVEDE VYNULOVANIM CUT¢0570     LDA 644     ;=STRIG0¢0580     EOR #1      ;NEGACE¢0590     STA CUT     ;UCHOVANI STAVU TLACITKA¢0600 ;¢0610     LDX #0¢0620     LDA 632     ;STICK0¢0630     AND #4      ;VLEVO?¢0640     BNE NA1¢0650     DEC CUX¢0660 NA1 LDA 632¢0670     AND #8      ;VPRAVO?¢0680     BNE NA2¢0690     INC CUX¢0700 NA2 LDA 632¢0710     AND #1      ;NAHORU?¢0720     BNE NA3¢0730     DEC CUY¢0740 NA3 LDA 632¢0750     AND #2      ;DOLU?¢0760     BNE NA4¢0770     INC CUY¢0780 NA4¢0790 ;¢0800 NIC JSR VIEW    ;PREKRESLIT SIPKU¢0810 ;¢0820     JMP 58466   ;UKONCENI VBI¢0830 ;¢0840 ;¢0850 ;VYKRESLENI SIPKY NA POZ.CUX,CUY¢0860 VIEW¢0870     LDA #0      ;NEJPRVE SMAZANI CELEHO PMG0¢0880     LDX #241¢0890 CLS STA PMG+7,X¢0900     DEX ¢0910     BNE CLS¢0920 ;¢0930     LDA CUX     ;SOURADNICE X¢0940     STA 53248   ;PMG0-X SOUR.¢0950     LDY CUY     ;SOUR.Y¢0960     LDX #0¢0970 TIS LDA MAP,X   ;BITOVA MAPA¢0980     STA PMG,Y   ;PMG0¢0990     INY ¢1000     INX ¢1010     CPX #7      ;VYSKA SIPKY¢1020     BNE TIS¢1030 ;¢1040     LDX #COL1¢1050     LDA CUT     ;TLACITKO?¢1060     BEQ PUS     ;PUSTENO => SKOK¢1070     LDX #COL2   ;STLACENO¢1080 PUS STX 704     ;BARVA PMG0¢1090 ;¢1100     RTS         ;KONEC PODPROGRAMU¢1110 ;¢1120 ;OBRAZOVA DATA PRO SIPKU (BITOVA MAPA)¢1130 MAP .BYTE 0,120,112,120,92,8,0¢