_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

BLOCK-POKE  .SRC

FILE INFORMATION

FILENAME(S): BLOCK-POKE  .SRC

FILE TYPE(S): SEQ

FILE SIZE: 482b

FIRST SEEN: 2025-12-01 13:59:19

APPEARS ON: 1 disk(s)

FILE HASH

7818115295fd6edc3637e4da391e933783bc42b518d59cc0a2ec7282659a72e1

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
DN PRG SERVICE BLOCK-POKE  .SRC SEQ HOL2001, OUG 1 12 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0D 3B 56 45 52 53 43 48  49 45 42 45 52 4F 55 54  |.;VERSCHIEBEROUT|
00000010: 49 4E 45 20 46 55 45 52  20 44 45 4E 20 53 50 45  |INE FUER DEN SPE|
00000020: 49 43 48 45 52 0D 3B 20  20 20 20 20 20 20 20 20  |ICHER.;         |
00000030: 20 20 20 20 20 20 20 20  28 57 29 20 42 59 20 4D  |        (W) BY M|
00000040: 57 53 0D 0D 41 41 20 20  20 20 20 20 20 3D 20 32  |WS..AA       = 2|
00000050: 0D 41 41 48 20 20 20 20  20 20 3D 20 33 0D 42 42  |.AAH      = 3.BB|
00000060: 20 20 20 20 20 20 20 3D  20 34 0D 42 42 48 20 20  |       = 4.BBH  |
00000070: 20 20 20 20 3D 20 35 0D  0D 20 20 20 20 20 20 20  |    = 5..       |
00000080: 20 20 53 45 49 0D 20 20  20 20 20 20 20 20 20 4C  |  SEI.         L|
00000090: 44 59 20 23 24 30 30 0D  20 20 20 20 20 20 20 20  |DY #$00.        |
000000A0: 20 53 54 59 20 24 30 31  0D 20 20 20 20 20 20 20  | STY $01.       |
000000B0: 20 20 4C 44 41 20 23 24  31 38 0D 20 20 20 20 20  |  LDA #$18.     |
000000C0: 20 20 20 20 53 54 41 20  41 41 48 0D 20 20 20 20  |    STA AAH.    |
000000D0: 20 20 20 20 20 4C 44 41  20 23 24 30 38 0D 20 20  |     LDA #$08.  |
000000E0: 20 20 20 20 20 20 20 53  54 41 20 42 42 48 0D 20  |       STA BBH. |
000000F0: 20 20 20 20 20 20 20 20  53 54 59 20 41 41 0D 20  |        STY AA. |
00000100: 20 20 20 20 20 20 20 20  53 54 59 20 42 42 0D 20  |        STY BB. |
00000110: 20 20 20 20 20 20 20 20  4C 44 58 20 23 24 31 30  |        LDX #$10|
00000120: 0D 4C 4F 4F 50 20 20 20  20 20 4C 44 41 20 28 41  |.LOOP     LDA (A|
00000130: 41 29 2C 59 0D 20 20 20  20 20 20 20 20 20 53 54  |A),Y.         ST|
00000140: 41 20 28 42 42 29 2C 59  0D 20 20 20 20 20 20 20  |A (BB),Y.       |
00000150: 20 20 49 4E 59 0D 20 20  20 20 20 20 20 20 20 42  |  INY.         B|
00000160: 4E 45 20 4C 4F 4F 50 0D  20 20 20 20 20 20 20 20  |NE LOOP.        |
00000170: 20 49 4E 43 20 41 41 48  0D 20 20 20 20 20 20 20  | INC AAH.       |
00000180: 20 20 49 4E 43 20 42 42  48 0D 20 20 20 20 20 20  |  INC BBH.      |
00000190: 20 20 20 44 45 58 0D 20  20 20 20 20 20 20 20 20  |   DEX.         |
000001A0: 42 4E 45 20 4C 4F 4F 50  0D 20 20 20 20 20 20 20  |BNE LOOP.       |
000001B0: 20 20 44 45 59 0D 20 20  20 20 20 20 20 20 20 53  |  DEY.         S|
000001C0: 54 59 20 24 30 31 0D 20  20 20 20 20 20 20 20 20  |TY $01.         |
000001D0: 43 4C 49 0D 20 20 20 20  20 20 20 20 20 52 54 53  |CLI.         RTS|
000001E0: 0D 0D                                             |..              |

.;VERSCHIEBEROUTINE FUER DEN SPEICHER.; 
                (W) BY MWS..AA       = 2
.AAH      = 3.BB       = 4.BBH      = 5.
.         SEI.         LDY #$00.        
 STY $01.         LDA #$18.         STA 
AAH.         LDA #$08.         STA BBH. 
        STY AA.         STY BB.         
LDX #$10.LOOP     LDA (AA),Y.         ST
A (BB),Y.         INY.         BNE LOOP.
         INC AAH.         INC BBH.      
   DEX.         BNE LOOP.         DEY.  
       STY $01.         CLI.         RTS
..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL