home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / SHIFTTX.SRC.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  132 lines
  1. ; SHIFT TEXT SCREEN LEFT ONE BYTE
  2. ;
  3.          ORG $6000
  4. ;
  5.          LDX #$01
  6. LOOP     LDA $400,X
  7.          DEX
  8.          STA $400,X
  9.          INX
  10. ;
  11.          LDA $480,X
  12.          DEX
  13.          STA $480,X
  14.          INX
  15. ;
  16.          LDA $500,X
  17.          DEX
  18.          STA $500,X
  19.          INX
  20. ;
  21.          LDA $580,X
  22.          DEX
  23.          STA $580,X
  24.          INX
  25. ;
  26.          LDA $600,X
  27.          DEX
  28.          STA $600,X
  29.          INX
  30. ;
  31.          LDA $680,X
  32.          DEX
  33.          STA $680,X
  34.          INX
  35. ;
  36.          LDA $700,X
  37.          DEX
  38.          STA $700,X
  39.          INX
  40. ;
  41.          LDA $780,X
  42.          DEX
  43.          STA $780,X
  44.          INX
  45. ;
  46.          LDA $428,X
  47.          DEX
  48.          STA $428,X
  49.          INX
  50. ;
  51.          LDA $4A8,X
  52.          DEX
  53.          STA $4A8,X
  54.          INX
  55. ;
  56.          LDA $528,X
  57.          DEX
  58.          STA $528,X
  59.          INX
  60. ;
  61.          LDA $5A8,X
  62.          DEX
  63.          STA $5A8,X
  64.          INX
  65. ;
  66.          LDA $628,X
  67.          DEX
  68.          STA $628,X
  69.          INX
  70. ;
  71.          LDA $6A8,X
  72.          DEX
  73.          STA $6A8,X
  74.          INX
  75. ;
  76.          LDA $728,X
  77.          DEX
  78.          STA $728,X
  79.          INX
  80. ;
  81.          LDA $7A8,X
  82.          DEX
  83.          STA $7A8,X
  84.          INX
  85. ;
  86.          LDA $450,X
  87.          DEX
  88.          STA $450,X
  89.          INX
  90. ;
  91.          LDA $4D0,X
  92.          DEX
  93.          STA $4D0,X
  94.          INX
  95. ;
  96.          LDA $550,X
  97.          DEX
  98.          STA $550,X
  99.          INX
  100. ;
  101.          LDA $5D0,X
  102.          DEX
  103.          STA $5D0,X
  104.          INX
  105. ;
  106.          LDA $650,X
  107.          DEX
  108.          STA $650,X
  109.          INX
  110. ;
  111.          LDA $6D0,X
  112.          DEX
  113.          STA $6D0,X
  114.          INX
  115. ;
  116.          LDA $750,X
  117.          DEX
  118.          STA $750,X
  119.          INX
  120. ;
  121.          LDA $7D0,X
  122.          DEX
  123.          STA $7D0,X
  124.          INX
  125. ;
  126.          INX
  127.          CPX #$28
  128.          BEQ DONE
  129.          JMP LOOP
  130. DONE     RTS
  131. ;
  132.