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

1X1 UPSCROLL 1.0

FILE INFORMATION

FILENAME(S): 1X1 UPSCROLL 1.0

FILE TYPE(S): SEQ

FILE SIZE: 4.3K

FIRST SEEN: 2025-12-02 00:16:13

APPEARS ON: 1 disk(s)

FILE HASH

9ca170208724ef1e6527c071347d2dddab5085a43f59726d1495ddc22e28e1d9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CODE LIBRARY 1 1X1 UPSCROLL 1.0 SEQ Maestro 28 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0D 3B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.;--------------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D  2D 0D 3B 20 31 58 31 20  |---------.; 1X1 |
00000030: D5 50 53 43 52 4F 4C 4C  45 52 20 56 31 2E 30 0D  |.PSCROLLER V1.0.|
00000040: 3B 0D 3B 20 CE 45 45 44  20 CD 55 53 49 43 20 41  |;.; .EED .USIC A|
00000050: 54 20 24 31 30 30 30 20  26 20 D4 45 58 54 20 41  |T $1000 & .EXT A|
00000060: 54 20 32 38 30 30 0D 3B  2D 2D 2D 2D 2D 2D 2D 2D  |T 2800.;--------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 0D  |---------------.|
00000090: 55 54 45 58 54 20 20 20  20 3D 20 24 32 38 30 30  |UTEXT    = $2800|
000000A0: 0D 3B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.;--------------|
000000B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000000C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 0D 20 20 20 20 20 20  |---------.      |
000000D0: 20 20 20 2A 3D 20 24 30  39 30 30 0D 20 20 20 20  |   *= $0900.    |
000000E0: 20 20 20 20 20 3B 0D 20  20 20 20 20 20 20 20 20  |     ;.         |
000000F0: 53 45 49 0D 20 20 20 20  20 20 20 20 20 4C 44 58  |SEI.         LDX|
00000100: 20 23 24 46 46 0D 20 20  20 20 20 20 20 20 20 54  | #$FF.         T|
00000110: 58 53 0D 20 20 20 20 20  20 20 20 20 4C 44 41 20  |XS.         LDA |
00000120: 23 24 30 43 0D 20 20 20  20 20 20 20 20 20 53 54  |#$0C.         ST|
00000130: 41 20 24 44 30 32 31 0D  20 20 20 20 20 20 20 20  |A $D021.        |
00000140: 20 53 54 41 20 36 34 36  0D 20 20 20 20 20 20 20  | STA 646.       |
00000150: 20 20 4A 53 52 20 24 45  35 34 34 0D 20 20 20 20  |  JSR $E544.    |
00000160: 20 20 20 20 20 4C 44 41  20 23 24 30 30 0D 20 20  |     LDA #$00.  |
00000170: 20 20 20 20 20 20 20 53  54 41 20 24 44 30 32 30  |       STA $D020|
00000180: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 24 44  |.         STA $D|
00000190: 30 32 31 0D 20 20 20 20  20 20 20 20 20 53 54 41  |021.         STA|
000001A0: 20 36 35 30 0D 20 20 20  20 20 20 20 20 20 4C 44  | 650.         LD|
000001B0: 41 20 23 24 38 30 0D 20  20 20 20 20 20 20 20 20  |A #$80.         |
000001C0: 53 54 41 20 36 35 37 0D  20 20 20 20 20 20 20 20  |STA 657.        |
000001D0: 20 3B 0D 20 20 20 20 20  20 20 20 20 4C 44 41 20  | ;.         LDA |
000001E0: 23 24 30 30 0D 20 20 20  20 20 20 20 20 20 53 54  |#$00.         ST|
000001F0: 41 20 55 54 4C 4F 0D 20  20 20 20 20 20 20 20 20  |A UTLO.         |
00000200: 4C 44 41 20 23 24 32 38  0D 20 20 20 20 20 20 20  |LDA #$28.       |
00000210: 20 20 53 54 41 20 55 54  48 49 0D 20 20 20 20 20  |  STA UTHI.     |
00000220: 20 20 20 20 3B 0D 20 20  20 20 20 20 20 20 20 4C  |    ;.         L|
00000230: 44 41 20 23 24 30 30 0D  20 20 20 20 20 20 20 20  |DA #$00.        |
00000240: 20 4A 53 52 20 24 31 30  30 30 0D 20 20 20 20 20  | JSR $1000.     |
00000250: 20 20 20 20 3B 0D 20 20  20 20 20 20 20 20 20 4C  |    ;.         L|
00000260: 44 41 20 23 24 37 46 0D  20 20 20 20 20 20 20 20  |DA #$7F.        |
00000270: 20 53 54 41 20 24 44 43  30 44 0D 20 20 20 20 20  | STA $DC0D.     |
00000280: 20 20 20 20 4C 44 41 20  24 44 43 30 44 0D 20 20  |    LDA $DC0D.  |
00000290: 20 20 20 20 20 20 20 4C  44 41 20 23 24 31 42 0D  |       LDA #$1B.|
000002A0: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 44 30  |         STA $D0|
000002B0: 31 31 0D 20 20 20 20 20  20 20 20 20 4C 44 41 20  |11.         LDA |
000002C0: 23 24 32 30 0D 20 20 20  20 20 20 20 20 20 53 54  |#$20.         ST|
000002D0: 41 20 24 44 30 31 32 0D  20 20 20 20 20 20 20 20  |A $D012.        |
000002E0: 20 4C 44 41 20 23 24 30  31 0D 20 20 20 20 20 20  | LDA #$01.      |
000002F0: 20 20 20 53 54 41 20 24  44 30 31 39 0D 20 20 20  |   STA $D019.   |
00000300: 20 20 20 20 20 20 53 54  41 20 24 44 30 31 41 0D  |      STA $D01A.|
00000310: 20 20 20 20 20 20 20 20  20 4C 44 58 20 23 3C 50  |         LDX #<P|
00000320: 52 4F 47 49 52 51 0D 20  20 20 20 20 20 20 20 20  |ROGIRQ.         |
00000330: 4C 44 59 20 23 3E 50 52  4F 47 49 52 51 0D 20 20  |LDY #>PROGIRQ.  |
00000340: 20 20 20 20 20 20 20 53  54 58 20 24 30 33 31 34  |       STX $0314|
00000350: 0D 20 20 20 20 20 20 20  20 20 53 54 59 20 24 30  |.         STY $0|
00000360: 33 31 35 0D 20 20 20 20  20 20 20 20 20 4C 44 58  |315.         LDX|
00000370: 20 23 3C 52 45 53 54 4F  52 45 0D 20 20 20 20 20  | #<RESTORE.     |
00000380: 20 20 20 20 4C 44 59 20  23 3E 52 45 53 54 4F 52  |    LDY #>RESTOR|
00000390: 45 0D 20 20 20 20 20 20  20 20 20 53 54 58 20 24  |E.         STX $|
000003A0: 30 33 31 38 0D 20 20 20  20 20 20 20 20 20 53 54  |0318.         ST|
000003B0: 59 20 24 30 33 31 39 0D  20 20 20 20 20 20 20 20  |Y $0319.        |
000003C0: 20 43 4C 49 0D 20 20 20  20 20 20 20 20 20 3B 0D  | CLI.         ;.|
000003D0: 43 41 53 45 20 20 20 20  20 4A 4D 50 20 43 41 53  |CASE     JMP CAS|
000003E0: 45 0D 3B 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |E.;-------------|
000003F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 0D 52 45 53 54 4F  |----------.RESTO|
00000410: 52 45 20 20 3B 0D 20 20  20 20 20 20 20 20 20 4A  |RE  ;.         J|
00000420: 4D 50 20 24 39 30 30 30  0D 20 20 20 20 20 20 20  |MP $9000.       |
00000430: 20 20 52 54 49 0D 3B 2D  2D 2D 2D 2D 2D 2D 2D 2D  |  RTI.;---------|
00000440: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000450: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 0D 50  |--------------.P|
00000460: 52 4F 47 49 52 51 20 20  3B 0D 20 20 20 20 20 20  |ROGIRQ  ;.      |
00000470: 20 20 20 4C 44 41 20 23  24 46 46 0D 20 20 20 20  |   LDA #$FF.    |
00000480: 20 20 20 20 20 53 54 41  20 24 44 30 31 35 0D 20  |     STA $D015. |
00000490: 20 20 20 20 20 20 20 20  53 54 41 20 24 44 30 31  |        STA $D01|
000004A0: 44 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 23  |D.         LDA #|
000004B0: 24 30 30 0D 20 20 20 20  20 20 20 20 20 53 54 41  |$00.         STA|
000004C0: 20 24 44 30 31 43 0D 20  20 20 20 20 20 20 20 20  | $D01C.         |
000004D0: 53 54 41 20 24 44 30 31  42 0D 20 20 20 20 20 20  |STA $D01B.      |
000004E0: 20 20 20 3B 0D 20 20 20  20 20 20 20 20 20 4C 44  |   ;.         LD|
000004F0: 41 20 23 25 31 31 31 30  30 30 30 30 0D 20 20 20  |A #%11100000.   |
00000500: 20 20 20 20 20 20 53 54  41 20 24 44 30 31 30 0D  |      STA $D010.|
00000510: 20 20 20 20 20 20 20 20  20 3B 0D 20 20 20 20 20  |         ;.     |
00000520: 20 20 20 20 4C 44 59 20  23 24 30 38 0D 53 45 54  |    LDY #$08.SET|
00000530: 53 50 52 33 20 20 4C 44  41 20 23 36 33 0D 20 20  |SPR3  LDA #63.  |
00000540: 20 20 20 20 20 20 20 53  54 41 20 32 30 34 30 2C  |       STA 2040,|
00000550: 59 0D 20 20 20 20 20 20  20 20 20 4C 44 41 20 23  |Y.         LDA #|
00000560: 24 30 30 0D 20 20 20 20  20 20 20 20 20 53 54 41  |$00.         STA|
00000570: 20 24 44 30 32 35 2C 59  0D 20 20 20 20 20 20 20  | $D025,Y.       |
00000580: 20 20 44 45 59 0D 20 20  20 20 20 20 20 20 20 42  |  DEY.         B|
00000590: 50 4C 20 53 45 54 53 50  52 33 0D 20 20 20 20 20  |PL SETSPR3.     |
000005A0: 20 20 20 20 3B 0D 20 20  20 20 20 20 20 20 20 4C  |    ;.         L|
000005B0: 44 41 20 23 32 34 0D 20  20 20 20 20 20 20 20 20  |DA #24.         |
000005C0: 53 54 41 20 24 44 30 30  30 0D 20 20 20 20 20 20  |STA $D000.      |
000005D0: 20 20 20 43 4C 43 0D 20  20 20 20 20 20 20 20 20  |   CLC.         |
000005E0: 41 44 43 20 23 34 38 0D  20 20 20 20 20 20 20 20  |ADC #48.        |
000005F0: 20 53 54 41 20 24 44 30  30 32 0D 20 20 20 20 20  | STA $D002.     |
00000600: 20 20 20 20 43 4C 43 0D  20 20 20 20 20 20 20 20  |    CLC.        |
00000610: 20 41 44 43 20 23 34 38  0D 20 20 20 20 20 20 20  | ADC #48.       |
00000620: 20 20 53 54 41 20 24 44  30 30 34 0D 20 20 20 20  |  STA $D004.    |
00000630: 20 20 20 20 20 43 4C 43  0D 20 20 20 20 20 20 20  |     CLC.       |
00000640: 20 20 41 44 43 20 23 34  38 0D 20 20 20 20 20 20  |  ADC #48.      |
00000650: 20 20 20 53 54 41 20 24  44 30 30 36 0D 20 20 20  |   STA $D006.   |
00000660: 20 20 20 20 20 20 43 4C  43 0D 20 20 20 20 20 20  |      CLC.      |
00000670: 20 20 20 41 44 43 20 23  34 38 0D 20 20 20 20 20  |   ADC #48.     |
00000680: 20 20 20 20 53 54 41 20  24 44 30 30 38 0D 20 20  |    STA $D008.  |
00000690: 20 20 20 20 20 20 20 43  4C 43 0D 20 20 20 20 20  |       CLC.     |
000006A0: 20 20 20 20 41 44 43 20  23 34 38 0D 20 20 20 20  |    ADC #48.    |
000006B0: 20 20 20 20 20 53 54 41  20 24 44 30 30 41 0D 20  |     STA $D00A. |
000006C0: 20 20 20 20 20 20 20 20  43 4C 43 0D 20 20 20 20  |        CLC.    |
000006D0: 20 20 20 20 20 41 44 43  20 23 34 38 0D 20 20 20  |     ADC #48.   |
000006E0: 20 20 20 20 20 20 53 54  41 20 24 44 30 30 43 0D  |      STA $D00C.|
000006F0: 20 20 20 20 20 20 20 20  20 43 4C 43 0D 20 20 20  |         CLC.   |
00000700: 20 20 20 20 20 20 41 44  43 20 23 34 38 0D 20 20  |      ADC #48.  |
00000710: 20 20 20 20 20 20 20 53  54 41 20 24 44 30 30 45  |       STA $D00E|
00000720: 0D 20 20 20 20 20 20 20  20 20 3B 0D 20 20 20 20  |.         ;.    |
00000730: 20 20 20 20 20 4C 44 41  20 23 33 37 0D 20 20 20  |     LDA #37.   |
00000740: 20 20 20 20 20 20 53 54  41 20 24 44 30 30 31 0D  |      STA $D001.|
00000750: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 44 30  |         STA $D0|
00000760: 30 33 0D 20 20 20 20 20  20 20 20 20 53 54 41 20  |03.         STA |
00000770: 24 44 30 30 35 0D 20 20  20 20 20 20 20 20 20 53  |$D005.         S|
00000780: 54 41 20 24 44 30 30 37  0D 20 20 20 20 20 20 20  |TA $D007.       |
00000790: 20 20 53 54 41 20 24 44  30 30 39 0D 20 20 20 20  |  STA $D009.    |
000007A0: 20 20 20 20 20 53 54 41  20 24 44 30 30 42 0D 20  |     STA $D00B. |
000007B0: 20 20 20 20 20 20 20 20  53 54 41 20 24 44 30 30  |        STA $D00|
000007C0: 44 0D 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |D.         STA $|
000007D0: 44 30 30 46 0D 20 20 20  20 20 20 20 20 20 3B 0D  |D00F.         ;.|
000007E0: 20 20 20 20 20 20 20 20  20 4C 44 41 20 59 50 4F  |         LDA YPO|
000007F0: 53 0D 20 20 20 20 20 20  20 20 20 4F 52 41 20 23  |S.         ORA #|
00000800: 24 31 30 0D 20 20 20 20  20 20 20 20 20 53 54 41  |$10.         STA|
00000810: 20 24 44 30 31 31 0D 20  20 20 20 20 20 20 20 20  | $D011.         |
00000820: 3B 0D 20 20 20 20 20 20  20 20 20 4A 53 52 20 24  |;.         JSR $|
00000830: 31 30 30 33 0D 20 20 20  20 20 20 20 20 20 3B 0D  |1003.         ;.|
00000840: 20 20 20 20 20 20 20 20  20 4C 44 58 20 23 28 31  |         LDX #(1|
00000850: 35 2A 38 29 2B 24 33 32  0D 20 20 20 20 20 20 20  |5*8)+$32.       |
00000860: 20 20 43 50 58 20 24 44  30 31 32 0D 20 20 20 20  |  CPX $D012.    |
00000870: 20 20 20 20 20 42 4E 45  20 2A 2D 33 0D 20 20 20  |     BNE *-3.   |
00000880: 20 20 20 20 20 20 4C 44  58 20 23 24 30 41 0D 20  |      LDX #$0A. |
00000890: 20 20 20 20 20 20 20 20  44 45 58 0D 20 20 20 20  |        DEX.    |
000008A0: 20 20 20 20 20 42 4E 45  20 2A 2D 31 0D 20 20 20  |     BNE *-1.   |
000008B0: 20 20 20 20 20 20 4C 44  41 20 23 24 37 38 0D 20  |      LDA #$78. |
000008C0: 20 20 20 20 20 20 20 20  53 54 41 20 24 44 30 31  |        STA $D01|
000008D0: 31 0D 20 20 20 20 20 20  20 20 20 3B 0D 20 20 20  |1.         ;.   |
000008E0: 20 20 20 20 20 20 4C 44  41 20 23 24 46 46 0D 20  |      LDA #$FF. |
000008F0: 20 20 20 20 20 20 20 20  53 54 41 20 24 44 30 31  |        STA $D01|
00000900: 35 0D 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |5.         STA $|
00000910: 44 30 31 44 0D 20 20 20  20 20 20 20 20 20 4C 44  |D01D.         LD|
00000920: 41 20 23 24 30 46 0D 20  20 20 20 20 20 20 20 20  |A #$0F.         |
00000930: 53 54 41 20 24 44 30 31  43 0D 20 20 20 20 20 20  |STA $D01C.      |
00000940: 20 20 20 53 54 41 20 24  44 30 31 42 0D 20 20 20  |   STA $D01B.   |
00000950: 20 20 20 20 20 20 3B 0D  20 20 20 20 20 20 20 20  |      ;.        |
00000960: 20 4C 44 41 20 23 25 31  31 31 30 30 30 30 30 0D  | LDA #%11100000.|
00000970: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 44 30  |         STA $D0|
00000980: 31 30 0D 20 20 20 20 20  20 20 20 20 3B 0D 20 20  |10.         ;.  |
00000990: 20 20 20 20 20 20 20 4C  44 59 20 23 24 30 38 0D  |       LDY #$08.|
000009A0: 53 45 54 53 50 52 34 20  20 4C 44 41 20 23 36 33  |SETSPR4  LDA #63|
000009B0: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 32 30  |.         STA 20|
000009C0: 34 30 2C 59 0D 20 20 20  20 20 20 20 20 20 4C 44  |40,Y.         LD|
000009D0: 41 20 23 24 30 46 0D 20  20 20 20 20 20 20 20 20  |A #$0F.         |
000009E0: 53 54 41 20 24 44 30 32  35 2C 59 0D 20 20 20 20  |STA $D025,Y.    |
000009F0: 20 20 20 20 20 44 45 59  0D 20 20 20 20 20 20 20  |     DEY.       |
00000A00: 20 20 42 50 4C 20 53 45  54 53 50 52 34 0D 20 20  |  BPL SETSPR4.  |
00000A10: 20 20 20 20 20 20 20 3B  0D 20 20 20 20 20 20 20  |       ;.       |
00000A20: 20 20 4C 44 41 20 23 31  30 30 0D 20 20 20 20 20  |  LDA #100.     |
00000A30: 20 20 20 20 53 54 41 20  24 44 30 30 31 0D 20 20  |    STA $D001.  |
00000A40: 20 20 20 20 20 20 20 53  54 41 20 24 44 30 30 33  |       STA $D003|
00000A50: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 24 44  |.         STA $D|
00000A60: 30 30 35 0D 20 20 20 20  20 20 20 20 20 53 54 41  |005.         STA|
00000A70: 20 24 44 30 30 37 0D 20  20 20 20 20 20 20 20 20  | $D007.         |
00000A80: 53 54 41 20 24 44 30 30  39 0D 20 20 20 20 20 20  |STA $D009.      |
00000A90: 20 20 20 53 54 41 20 24  44 30 30 42 0D 20 20 20  |   STA $D00B.   |
00000AA0: 20 20 20 20 20 20 53 54  41 20 24 44 30 30 44 0D  |      STA $D00D.|
00000AB0: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 44 30  |         STA $D0|
00000AC0: 30 46 0D 20 20 20 20 20  20 20 20 20 3B 0D 20 20  |0F.         ;.  |
00000AD0: 20 20 20 20 20 20 20 4A  53 52 20 55 50 53 43 52  |       JSR UPSCR|
00000AE0: 4F 4C 4C 0D 20 20 20 20  20 20 20 20 20 3B 0D 20  |OLL.         ;. |
00000AF0: 20 20 20 20 20 20 20 20  4C 44 41 20 23 24 30 31  |        LDA #$01|
00000B00: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 24 44  |.         STA $D|
00000B10: 30 31 39 0D 20 20 20 20  20 20 20 20 20 4A 4D 50  |019.         JMP|
00000B20: 20 24 45 41 33 31 0D 3B  2D 2D 2D 2D 2D 2D 2D 2D  | $EA31.;--------|
00000B30: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000B40: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 0D  |---------------.|
00000B50: 55 44 45 4C 41 59 20 20  20 3D 20 2A 2B 31 0D 55  |UDELAY   = *+1.U|
00000B60: 50 53 43 52 4F 4C 4C 20  4C 44 41 20 23 24 30 30  |PSCROLL LDA #$00|
00000B70: 0D 20 20 20 20 20 20 20  20 20 42 45 51 20 55 50  |.         BEQ UP|
00000B80: 53 31 0D 20 20 20 20 20  20 20 20 20 44 45 43 20  |S1.         DEC |
00000B90: 55 44 45 4C 41 59 0D 20  20 20 20 20 20 20 20 20  |UDELAY.         |
00000BA0: 52 54 53 0D 55 50 53 31  20 20 20 20 20 4C 44 41  |RTS.UPS1     LDA|
00000BB0: 20 59 50 4F 53 0D 20 20  20 20 20 20 20 20 20 53  | YPOS.         S|
00000BC0: 45 43 0D 20 20 20 20 20  20 20 20 20 53 42 43 20  |EC.         SBC |
00000BD0: 23 24 30 31 0D 20 20 20  20 20 20 20 20 20 53 54  |#$01.         ST|
00000BE0: 41 20 59 50 4F 53 0D 20  20 20 20 20 20 20 20 20  |A YPOS.         |
00000BF0: 42 4D 49 20 4D 4F 56 45  55 50 0D 20 20 20 20 20  |BMI MOVEUP.     |
00000C00: 20 20 20 20 52 54 53 0D  20 20 20 20 20 20 20 20  |    RTS.        |
00000C10: 20 3B 0D 4D 4F 56 45 55  50 20 20 20 4C 44 41 20  | ;.MOVEUP   LDA |
00000C20: 23 24 30 37 0D 20 20 20  20 20 20 20 20 20 53 54  |#$07.         ST|
00000C30: 41 20 59 50 4F 53 0D 20  20 20 20 20 20 20 20 20  |A YPOS.         |
00000C40: 4C 44 58 20 23 24 32 37  0D 55 50 4C 4F 4F 50 20  |LDX #$27.UPLOOP |
00000C50: 20 20 4C 44 41 20 24 30  34 32 38 2C 58 0D 20 20  |  LDA $0428,X.  |
00000C60: 20 20 20 20 20 20 20 53  54 41 20 24 30 34 30 30  |       STA $0400|
00000C70: 2C 58 0D 20 20 20 20 20  20 20 20 20 4C 44 41 20  |,X.         LDA |
00000C80: 24 30 34 35 30 2C 58 0D  20 20 20 20 20 20 20 20  |$0450,X.        |
00000C90: 20 53 54 41 20 24 30 34  32 38 2C 58 0D 20 20 20  | STA $0428,X.   |
00000CA0: 20 20 20 20 20 20 4C 44  41 20 24 30 34 37 38 2C  |      LDA $0478,|
00000CB0: 58 0D 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |X.         STA $|
00000CC0: 30 34 35 30 2C 58 0D 20  20 20 20 20 20 20 20 20  |0450,X.         |
00000CD0: 4C 44 41 20 24 30 34 41  30 2C 58 0D 20 20 20 20  |LDA $04A0,X.    |
00000CE0: 20 20 20 20 20 53 54 41  20 24 30 34 37 38 2C 58  |     STA $0478,X|
00000CF0: 0D 20 20 20 20 20 20 20  20 20 4C 44 41 20 24 30  |.         LDA $0|
00000D00: 34 43 38 2C 58 0D 20 20  20 20 20 20 20 20 20 53  |4C8,X.         S|
00000D10: 54 41 20 24 30 34 41 30  2C 58 0D 20 20 20 20 20  |TA $04A0,X.     |
00000D20: 20 20 20 20 4C 44 41 20  24 30 34 46 30 2C 58 0D  |    LDA $04F0,X.|
00000D30: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 30 34  |         STA $04|
00000D40: 43 38 2C 58 0D 20 20 20  20 20 20 20 20 20 4C 44  |C8,X.         LD|
00000D50: 41 20 24 30 35 31 38 2C  58 0D 20 20 20 20 20 20  |A $0518,X.      |
00000D60: 20 20 20 53 54 41 20 24  30 34 46 30 2C 58 0D 20  |   STA $04F0,X. |
00000D70: 20 20 20 20 20 20 20 20  4C 44 41 20 24 30 35 34  |        LDA $054|
00000D80: 30 2C 58 0D 20 20 20 20  20 20 20 20 20 53 54 41  |0,X.         STA|
00000D90: 20 24 30 35 31 38 2C 58  0D 20 20 20 20 20 20 20  | $0518,X.       |
00000DA0: 20 20 4C 44 41 20 24 30  35 36 38 2C 58 0D 20 20  |  LDA $0568,X.  |
00000DB0: 20 20 20 20 20 20 20 53  54 41 20 24 30 35 34 30  |       STA $0540|
00000DC0: 2C 58 0D 20 20 20 20 20  20 20 20 20 4C 44 41 20  |,X.         LDA |
00000DD0: 24 30 35 39 30 2C 58 0D  20 20 20 20 20 20 20 20  |$0590,X.        |
00000DE0: 20 53 54 41 20 24 30 35  36 38 2C 58 0D 20 20 20  | STA $0568,X.   |
00000DF0: 20 20 20 20 20 20 4C 44  41 20 24 30 35 42 38 2C  |      LDA $05B8,|
00000E00: 58 0D 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |X.         STA $|
00000E10: 30 35 39 30 2C 58 0D 20  20 20 20 20 20 20 20 20  |0590,X.         |
00000E20: 4C 44 41 20 24 30 35 45  30 2C 58 0D 20 20 20 20  |LDA $05E0,X.    |
00000E30: 20 20 20 20 20 53 54 41  20 24 30 35 42 38 2C 58  |     STA $05B8,X|
00000E40: 0D 20 20 20 20 20 20 20  20 20 4C 44 41 20 24 30  |.         LDA $0|
00000E50: 36 30 38 2C 58 0D 20 20  20 20 20 20 20 20 20 53  |608,X.         S|
00000E60: 54 41 20 24 30 35 45 30  2C 58 0D 20 20 20 20 20  |TA $05E0,X.     |
00000E70: 20 20 20 20 4C 44 41 20  24 30 36 33 30 2C 58 0D  |    LDA $0630,X.|
00000E80: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 30 36  |         STA $06|
00000E90: 30 38 2C 58 0D 20 20 20  20 20 20 20 20 20 4C 44  |08,X.         LD|
00000EA0: 41 20 24 30 36 35 38 2C  58 0D 20 20 20 20 20 20  |A $0658,X.      |
00000EB0: 20 20 20 53 54 41 20 24  30 36 33 30 2C 58 0D 20  |   STA $0630,X. |
00000EC0: 20 20 20 20 20 20 20 20  4C 44 41 20 24 30 36 38  |        LDA $068|
00000ED0: 30 2C 58 0D 20 20 20 20  20 20 20 20 20 53 54 41  |0,X.         STA|
00000EE0: 20 24 30 36 35 38 2C 58  0D 20 20 20 20 20 20 20  | $0658,X.       |
00000EF0: 20 20 44 45 58 0D 20 20  20 20 20 20 20 20 20 42  |  DEX.         B|
00000F00: 50 4C 20 55 50 4C 4F 4F  50 0D 20 20 20 20 20 20  |PL UPLOOP.      |
00000F10: 20 20 20 3B 0D 20 20 20  20 20 20 20 20 20 4C 44  |   ;.         LD|
00000F20: 58 20 23 24 30 30 0D 55  54 48 49 20 20 20 20 20  |X #$00.UTHI     |
00000F30: 3D 20 2A 2B 32 0D 55 54  4C 4F 20 20 20 20 20 3D  |= *+2.UTLO     =|
00000F40: 20 2A 2B 31 0D 55 4C 4F  4F 50 32 20 20 20 4C 44  | *+1.ULOOP2   LD|
00000F50: 41 20 55 54 45 58 54 2C  58 0D 20 20 20 20 20 20  |A UTEXT,X.      |
00000F60: 20 20 20 42 4E 45 20 55  50 52 49 4E 54 0D 20 20  |   BNE UPRINT.  |
00000F70: 20 20 20 20 20 20 20 4C  44 58 20 23 3C 55 54 45  |       LDX #<UTE|
00000F80: 58 54 0D 20 20 20 20 20  20 20 20 20 4C 44 59 20  |XT.         LDY |
00000F90: 23 3E 55 54 45 58 54 0D  20 20 20 20 20 20 20 20  |#>UTEXT.        |
00000FA0: 20 53 54 58 20 55 54 4C  4F 0D 20 20 20 20 20 20  | STX UTLO.      |
00000FB0: 20 20 20 53 54 59 20 55  54 48 49 0D 20 20 20 20  |   STY UTHI.    |
00000FC0: 20 20 20 20 20 4C 44 58  20 23 24 30 30 0D 20 20  |     LDX #$00.  |
00000FD0: 20 20 20 20 20 20 20 4C  44 41 20 23 24 32 30 0D  |       LDA #$20.|
00000FE0: 55 50 52 49 4E 54 20 20  20 53 54 41 20 24 30 36  |UPRINT   STA $06|
00000FF0: 38 30 2C 58 0D 20 20 20  20 20 20 20 20 20 49 4E  |80,X.         IN|
00001000: 58 0D 20 20 20 20 20 20  20 20 20 43 50 58 20 23  |X.         CPX #|
00001010: 24 32 38 0D 20 20 20 20  20 20 20 20 20 42 4E 45  |$28.         BNE|
00001020: 20 55 4C 4F 4F 50 32 0D  20 20 20 20 20 20 20 20  | ULOOP2.        |
00001030: 20 4C 44 41 20 55 54 4C  4F 0D 20 20 20 20 20 20  | LDA UTLO.      |
00001040: 20 20 20 43 4C 43 0D 20  20 20 20 20 20 20 20 20  |   CLC.         |
00001050: 41 44 43 20 23 24 32 38  0D 20 20 20 20 20 20 20  |ADC #$28.       |
00001060: 20 20 53 54 41 20 55 54  4C 4F 0D 20 20 20 20 20  |  STA UTLO.     |
00001070: 20 20 20 20 42 43 43 20  55 50 44 4F 4E 45 0D 20  |    BCC UPDONE. |
00001080: 20 20 20 20 20 20 20 20  49 4E 43 20 55 54 48 49  |        INC UTHI|
00001090: 0D 55 50 44 4F 4E 45 20  20 20 52 54 53 0D 3B 2D  |.UPDONE   RTS.;-|
000010A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000010B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000010C0: 2D 2D 2D 2D 2D 2D 0D 59  50 4F 53 20 20 20 20 20  |------.YPOS     |
000010D0: 2E 42 59 54 45 20 24 30  30 0D 3B 2D 2D 2D 2D 2D  |.BYTE $00.;-----|
000010E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000010F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001100: 2D 2D 0D 0D                                       |--..            |

.;--------------------------------------
-.; 1X1 UPSCROLLER V1.0.;.; NEED MUSIC A
T $1000 & TEXT AT 2800.;----------------
-----------------------.UTEXT    = $2800
.;--------------------------------------
-.         *= $0900.         ;.         
SEI.         LDX #$FF.         TXS.     
    LDA #$0C.         STA $D021.        
 STA 646.         JSR $E544.         LDA
 #$00.         STA $D020.         STA $D
021.         STA 650.         LDA #$80. 
        STA 657.         ;.         LDA 
#$00.         STA UTLO.         LDA #$28
.         STA UTHI.         ;.         L
DA #$00.         JSR $1000.         ;.  
       LDA #$7F.         STA $DC0D.     
    LDA $DC0D.         LDA #$1B.        
 STA $D011.         LDA #$20.         ST
A $D012.         LDA #$01.         STA $
D019.         STA $D01A.         LDX #<P
ROGIRQ.         LDY #>PROGIRQ.         S
TX $0314.         STY $0315.         LDX
 #<RESTORE.         LDY #>RESTORE.      
   STX $0318.         STY $0319.        
 CLI.         ;.CASE     JMP CASE.;-----
----------------------------------.RESTO
RE  ;.         JMP $9000.         RTI.;-
--------------------------------------.P
ROGIRQ  ;.         LDA #$FF.         STA
 $D015.         STA $D01D.         LDA #
$00.         STA $D01C.         STA $D01
B.         ;.         LDA #%11100000.   
      STA $D010.         ;.         LDY 
#$08.SETSPR3  LDA #63.         STA 2040,
Y.         LDA #$00.         STA $D025,Y
.         DEY.         BPL SETSPR3.     
    ;.         LDA #24.         STA $D00
0.         CLC.         ADC #48.        
 STA $D002.         CLC.         ADC #48
.         STA $D004.         CLC.       
  ADC #48.         STA $D006.         CL
C.         ADC #48.         STA $D008.  
       CLC.         ADC #48.         STA
 $D00A.         CLC.         ADC #48.   
      STA $D00C.         CLC.         AD
C #48.         STA $D00E.         ;.    
     LDA #37.         STA $D001.        
 STA $D003.         STA $D005.         S
TA $D007.         STA $D009.         STA
 $D00B.         STA $D00D.         STA $
D00F.         ;.         LDA YPOS.      
   ORA #$10.         STA $D011.         
;.         JSR $1003.         ;.        
 LDX #(15*8)+$32.         CPX $D012.    
     BNE *-3.         LDX #$0A.         
DEX.         BNE *-1.         LDA #$78. 
        STA $D011.         ;.         LD
A #$FF.         STA $D015.         STA $
D01D.         LDA #$0F.         STA $D01
C.         STA $D01B.         ;.        
 LDA #%11100000.         STA $D010.     
    ;.         LDY #$08.SETSPR4  LDA #63
.         STA 2040,Y.         LDA #$0F. 
        STA $D025,Y.         DEY.       
  BPL SETSPR4.         ;.         LDA #1
00.         STA $D001.         STA $D003
.         STA $D005.         STA $D007. 
        STA $D009.         STA $D00B.   
      STA $D00D.         STA $D00F.     
    ;.         JSR UPSCROLL.         ;. 
        LDA #$01.         STA $D019.    
     JMP $EA31.;------------------------
---------------.UDELAY   = *+1.UPSCROLL 
LDA #$00.         BEQ UPS1.         DEC 
UDELAY.         RTS.UPS1     LDA YPOS.  
       SEC.         SBC #$01.         ST
A YPOS.         BMI MOVEUP.         RTS.
         ;.MOVEUP   LDA #$07.         ST
A YPOS.         LDX #$27.UPLOOP   LDA $0
428,X.         STA $0400,X.         LDA 
$0450,X.         STA $0428,X.         LD
A $0478,X.         STA $0450,X.         
LDA $04A0,X.         STA $0478,X.       
  LDA $04C8,X.         STA $04A0,X.     
    LDA $04F0,X.         STA $04C8,X.   
      LDA $0518,X.         STA $04F0,X. 
        LDA $0540,X.         STA $0518,X
.         LDA $0568,X.         STA $0540
,X.         LDA $0590,X.         STA $05
68,X.         LDA $05B8,X.         STA $
0590,X.         LDA $05E0,X.         STA
 $05B8,X.         LDA $0608,X.         S
TA $05E0,X.         LDA $0630,X.        
 STA $0608,X.         LDA $0658,X.      
   STA $0630,X.         LDA $0680,X.    
     STA $0658,X.         DEX.         B
PL UPLOOP.         ;.         LDX #$00.U
THI     = *+2.UTLO     = *+1.ULOOP2   LD
A UTEXT,X.         BNE UPRINT.         L
DX #<UTEXT.         LDY #>UTEXT.        
 STX UTLO.         STY UTHI.         LDX
 #$00.         LDA #$20.UPRINT   STA $06
80,X.         INX.         CPX #$28.    
     BNE ULOOP2.         LDA UTLO.      
   CLC.         ADC #$28.         STA UT
LO.         BCC UPDONE.         INC UTHI
.UPDONE   RTS.;-------------------------
--------------.YPOS     .BYTE $00.;-----
----------------------------------..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL