home *** CD-ROM | disk | FTP | other *** search
/ ABBUC Magazin 43B / ABBUC_Magazin_43_199x_ABBUC_Side_B.atr / beispl4.src < prev    next >
Text File  |  2023-02-26  |  1KB  |  1 lines
  1. ¢00010          .OB¢00020          .LI OFF¢00030 VBIV     = 548¢00040 NMIEN    = $D40E¢00050 DLISTV   = 560¢00060 HSCROL   = $D404¢01000 INIT     LDA #0¢01010          STA NMIEN¢01020          LDA #VBI¢01030          STA VBIV¢01040          LDA /VBI¢01050          STA VBIV+1¢01060          LDA #$40¢01061          LDA #DLIST¢01062          STA DLISTV¢01063          LDA /DLIST¢01064          STA DLISTV+1¢01070          STA NMIEN¢01080          RTS¢02000 VBI      JSR SCROLL¢02010          JMP $E462¢02020 SCROLL   LDA SHSCRL¢02025          BEQ .0¢02026          DEC SHSCRL¢02030          LDA SHSCRL¢02040          STA HSCROL¢02060          RTS¢02070 .0       LDA #3¢02080          STA SHSCRL¢02081          STA HSCROL¢02090          CLC¢02100          LDA LMS¢02110          ADC #1¢02120          STA LMS¢02130          LDA LMS+1¢02140          ADC #0¢02150          STA LMS+1¢02160          CMP /TEXTEND¢02170          BEQ .1¢02180          RTS¢02190 .1       LDA LMS¢02200          CMP #TEXTEND¢02210          BEQ .2¢02220          RTS¢02230 .2       LDA #TEXT¢02240          STA LMS¢02250          LDA /TEXT¢02260          STA LMS+1¢02270          RTS¢10000 SHSCRL   .HX 04¢10001 DLIST    .HX 707070707052¢10002 LMS      .DA TEXT¢10003          .HX 41¢10004          .DA DLIST¢20000 TEXT     .AT"              eine kleine Demonstration des Softscrollings des XLs.........              "¢20001 TEXTEND  .AT"             "¢