home *** CD-ROM | disk | FTP | other *** search
/ ABBUC Magazin 16A / ABBUC_Magazin_16_19xx_ABBUC_Side_A_BASIC.atr / vortitel.src < prev    next >
Text File  |  2023-02-26  |  3KB  |  1 lines
  1. ¢00010 ******************************¢00020 * KURZTITELBILD ZUM VORHAEN- *¢00030 * GEN VOR MASCHINENPROGRAMME *¢00040 *                            *¢00050 *     (P) 12'88 B.WAGNER     *¢00060 *         ABBUC e.V.         *¢00070 ******************************¢00080 ------------------------------¢00090 HOLD     .EQ $F0¢00100 INDEX    .EQ $CC¢00110 CURROW   .EQ $54¢00120 CURCOL   .EQ $55¢00130 SAVMSC   .EQ $58¢00140 COLPF1   .EQ $2C5¢00150 COLPF2   .EQ $2C6¢00160 COLPF4   .EQ $2C8¢00170 CURINH   .EQ $2F0¢00180 DMACTL   .EQ $22F¢00190 DLPTR    .EQ $230¢00200 DOSINIT  .EQ $2E2¢00210 ------------------------------¢00220          .OF "D1:AUTORUN.SYS"¢00230 ------------------------------¢00240 START    LDA #$00¢00250          JSR GRAPHICS¢00260          LDX #$00¢00270          STX DMACTL¢00280 CURSOR   STX CURCOL¢00290          INX¢00300          STX CURROW¢00310          STX CURINH¢00320 FARBEN   LDA #$00¢00330          STA COLPF1¢00340          LDA #$C8¢00350          STA COLPF2¢00360          LDA #$09¢00370          STA COLPF4¢00380 DLIST    LDA DLPTR¢00390          STA INDEX¢00400          LDA DLPTR+1¢00410          STA INDEX+1¢00420          LDY #$03¢00430 .1       LDA NEUEDL-3,Y¢00440          STA (INDEX),Y¢00450          INY¢00460          CPY #$1D¢00470          BNE .1¢00480          LDA SAVMSC¢00490          LDY #$0E¢00500          STA (INDEX),Y¢00510          LDA SAVMSC+1¢00520          INY¢00530          STA (INDEX),Y¢00540          LDA DLPTR¢00550          LDY #$1E¢00560          STA (INDEX),Y¢00570          LDA DLPTR+1¢00580          INY¢00590          STA (INDEX),Y¢00600 TEXTAUS  LDY #$00¢00610 .1       LDA TEXT,Y¢00620          CMP #$1B¢00630          BEQ BILDEIN¢00640          JSR CHAROUT¢00650          INY¢00660          JMP .1¢00670 BILDEIN  LDA #$22¢00680          STA DMACTL¢00690          RTS¢00700 ------------------------------¢00710 NEUEDL   .HX 7070707070707070¢00720          .HX 7070420000020270¢00730          .HX 7070707070707070¢00740          .HX 7070¢00750 TEXT     .AS "           Gle"¢00760          .AS "ich kommt's..."¢00770          .AS "            "¢00780          .HX 1B¢00790 ------------------------------¢00800 CHAROUT  STY HOLD¢00810          JSR ROMOUT¢00820          LDY HOLD¢00830          RTS¢00840 ------------------------------¢00850 ROMOUT   TAX¢00860          LDA $E407¢00870          PHA¢00880          LDA $E406¢00890          PHA¢00900          TXA¢00910          RTS¢00920 ------------------------------¢00930 GRAPHICS PHA         ;A=STUFE¢00940          LDX #$60    ;KANAL 6¢00950          LDA #$0C    ;CLOSE¢00960          STA $342,X¢00970          PLA         ;STUFE¢00980          STA $34B,X  ;ZURUECK¢00990          AND #$F0¢01000          EOR #$10¢01010          ORA #$0C¢01020          STA $34A,X¢01030          LDA #$03    ;OPEN¢01040          STA $342,X¢01050          LDA #.1¢01060          STA $344,X¢01070          LDA /.1¢01080          STA $345,X¢01090          JMP $E456¢01100 .1       .AS "S:"¢01110          .HX 9B¢01120 * ENTSPRICHT GRAPHICS A   *¢01130 * UEBERGABE IM A-REGISTER *¢01140 * X-REGISTER VERAENDERT   *¢01150 ------------------------------¢01160          .OR DOSINIT¢01170          .DA START¢01180 ------------------------------¢