ABBUC Magazin 43B/ABBUC_Magazin_43_199x_ABBUC_Side_B.atr/beispl3.src

Text File | 2023-02-26 | 5KB | 1 lines

¢00001          .OF"D:BEISPL3.OBJ"¢00010          .OB¢00020          .LI OFF¢00030 DLISTV   = 560¢00040 NMIEN    = $D40E¢00050 HSCROL   = $D404¢00060 DLIV     = 512¢00070 VBIV     = 548¢00080 TABLO    = $6800¢00090 TABHI    = $6880¢00100 V0       = $B0¢00110 V1       = $B2¢01000 INIT     LDA #0¢01010          STA NMIEN¢01020          LDA #DLIST¢01030          STA DLISTV¢01040          LDA /DLIST¢01050          STA DLISTV+1¢01060          LDA #VBI¢01070          STA VBIV¢01080          LDA /VBI¢01090          STA VBIV+1¢01100          LDA #$C0¢01110          STA NMIEN¢01120          LDA #$64¢01130          STA 756¢01131          LDA #34¢01132          STA 559¢01133          LDA #0¢01134          STA 710¢01140          JSR CLEAR¢01150          JSR FONT1¢01160 LOOP     JMP LOOP¢02000 VBI      JSR SCROLL¢02006          LDA SHSCRL¢02007          STA HSCROL¢02010          JMP $E462¢03000 CLEAR    LDX #47¢03010          LDA #0¢03020 .0       STA SCRRAM,X¢03030          STA SCRRAM+48,X¢03040          STA SCRRAM+96,X¢03050          STA SCRRAM+48+96,X¢03056          STA SCRRAM+96+96,X¢03057          STA SCRRAM+96+96+48,X¢03060          DEX¢03070          BPL .0¢03080          RTS¢03100 FONT1    LDA #SCRRAM+44+48¢03110          STA V0¢03120          LDA /SCRRAM+44+48¢03130          STA V0+1¢03131          LDA #2¢03132          STA COUNT1¢03135          LDX COUNT2¢03140          LDA TEXT,X¢03145          BEQ .9¢03150          SEC¢03160          SBC #32¢03170 .9       TAX¢03175          STX CHAR¢03180          LDA TABLO,X¢03190          STA V1¢03200          LDA TABHI,X¢03210          STA V1+1¢03220          LDX #4¢03230 .0       LDY #0¢03240          LDA (V1),Y¢03250          STA (V0),Y¢03260          INY¢03270          LDA (V1),Y¢03280          STA (V0),Y¢03281          LDA CHAR¢03282          CMP #9      ; I¢03283          BNE .7¢03284          LDA #1¢03285          STA COUNT1¢03290 .7       INY¢03300          LDA (V1),Y¢03310          STA (V0),Y¢03311          LDA CHAR¢03312          CMP #13     ; M¢03313          BEQ .6¢03314          CMP #23     ; W¢03315          BNE .8¢03320 .6       INY¢03321          LDA (V1),Y¢03322          STA (V0),Y¢03323          LDA #3¢03324          STA COUNT1¢03329 .8       CLC¢03330          LDA V0¢03340          ADC #48¢03350          STA V0¢03360          BCC .1¢03370          INC V0+1¢03380 .1       CLC¢03390          LDA V1¢03400          ADC #40¢03410          STA V1¢03420          BCC .2¢03430          INC V1+1¢03440 .2       DEX¢03450          BNE .0¢03460          LDA #1¢03470          STA SCRFLAG¢03480          RTS¢04000 SCROLL   LDA SCRFLAG¢04010          BNE .0¢04020          JSR FONT1¢04025 .0       JMP SOFT¢04030 HARD     LDX #0¢04040 .2       LDA SCRRAM+1,X¢04050          STA SCRRAM,X¢04060          LDA SCRRAM+1+48,X¢04070          STA SCRRAM+48,X¢04080          LDA SCRRAM+96+1,X¢04090          STA SCRRAM+96,X¢04100          LDA SCRRAM+1+96+48,X¢04110          STA SCRRAM+96+48,X¢04111          LDA SCRRAM+96+96+1,X¢04112          STA SCRRAM+96+96,X¢04120          INX¢04130          CPX #48¢04140          BCC .2¢04150          LDA COUNT1¢04160          BEQ .3¢04170          DEC COUNT1¢04180          RTS¢04190 .3       LDA #0¢04200          STA SCRFLAG¢04210          INC COUNT2¢04220          LDA #3¢04230          STA COUNT1¢04240          RTS¢04500 SOFT     LDA SHSCRL¢04510          BEQ .0¢04520          DEC SHSCRL¢04530          LDA SHSCRL¢04550          RTS¢04560 .0       LDA #3¢04570          STA SHSCRL¢04590          JMP HARD¢10000 SCRFLAG  .HX 00¢10001 COUNT1   .HX 00¢10002 SHSCRL   .HX 03¢10003 COUNT2   .HX 00¢10004 CHAR     .HX 00¢10005 SHSCRL2  .HX 00¢10014 COUNT    .HX 00¢10015 SVSCRL   .HX 00¢10016 SVSCRL2  .HX 00¢10100 DLIST    .HX 7070707070¢10102          .HX 72¢10103 LMS2     .DA SCRRAM+48¢10104          .HX 72¢10105 LMS3     .DA SCRRAM+48+48¢10106          .HX 72¢10107 LMS4     .DA SCRRAM+96+48¢10108          .HX 72¢10109 LMS5     .DA SCRRAM+96+96¢10110          .HX C2¢10111          .DA SCRRAM+96+96+48¢10198          .HX 41¢10199          .DA DLIST¢10200 SCRRAM   .BL 48¢10201          .BL 48¢10202          .BL 48¢10203          .BL 48¢10204          .BL 48¢10205          .BL 48¢10299          .OR $5000¢11000 TEXT2    .AT"             DIES IST EIN KLEINES BEISPIEL FUER EINEN BIG SCROLLER    PROGRAMMIERT FUER "¢11001 TEXT     .AT"FUER DEN ABBUC DEMO KURS VON HEAVEN       GRUESSE AN ALLE DIE ICH AUF DER JHV GETROFFEN HABE "¢11002          .AT"KAUFT BITTE ALLE DIE XL CD ROM   DIESE MUEHE MUSS BELOHNT WERDEN ODER ETWA NICHT          "¢11003          .AT"             DIES IST EIN KLEINES BEISPIEL FUER EINEN BIG SCROLLER    PROGRAMMIERT FUER "¢30000          .OR $2E0¢30001          .DA INIT¢