4
FILE INFORMATION
FILENAME(S): 4
FILE TYPE(S): SEQ
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 20:31:12
APPEARS ON: 1 disk(s)
FILE HASH
c1281b55a8b87573174c4bcaf376256441b7f83fd7de5ba2901e04c53548383a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ACROSS | 4 | SEQ | Curtcool, Nigel | 21 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 3B |...... ;| 00000010: 53 54 41 52 54 20 57 49 54 48 3A 20 4A 53 52 20 |START WITH: JSR | 00000020: 53 43 52 45 44 49 54 0D 0D 53 54 45 58 54 31 20 |SCREDIT..STEXT1 | 00000030: 20 20 3D 20 24 30 42 30 30 20 20 3B 50 4C 41 43 | = $0B00 ;PLAC| 00000040: 45 20 53 43 52 4F 4C 4C 2D 54 45 58 54 0D 0D 0D |E SCROLL-TEXT...| 00000050: 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 35 |.. *= $5| 00000060: 30 30 30 0D 0D 0D 53 43 52 45 44 49 54 20 20 3D |000...SCREDIT =| 00000070: 20 2A 0D 4C 49 4E 45 20 20 20 20 20 3D 20 31 32 | *.LINE = 12| 00000080: 0D 20 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 |. SEI. | 00000090: 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 37 0D | LDA #$37.| 000000A0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 31 | STA $01| 000000B0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 000000C0: 46 38 31 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |F81. JSR| 000000D0: 20 24 46 46 38 34 0D 20 20 20 20 20 20 20 20 20 | $FF84. | 000000E0: 4A 53 52 20 24 46 46 38 41 0D 20 20 20 20 20 20 |JSR $FF8A. | 000000F0: 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 | LDA #8. | 00000100: 20 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 | JSR $FFD2. | 00000110: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00000120: 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 0D | STA $D020.| 00000130: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000140: 32 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |21. LDA | 00000150: 23 35 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#5. STA | 00000160: 24 30 32 38 36 0D 20 20 20 20 20 20 20 20 20 4A |$0286. J| 00000170: 53 52 20 24 45 35 34 34 0D 20 20 20 20 20 20 20 |SR $E544. | 00000180: 20 20 4C 44 41 20 23 3C 53 43 52 54 45 54 0D 20 | LDA #<SCRTET. | 00000190: 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E 53 43 | LDY #>SC| 000001A0: 52 54 45 54 0D 20 20 20 20 20 20 20 20 20 4A 53 |RTET. JS| 000001B0: 52 20 24 41 42 31 45 0D 20 20 20 20 20 20 20 20 |R $AB1E. | 000001C0: 20 4A 53 52 20 45 44 49 54 0D 20 20 20 20 20 20 | JSR EDIT. | 000001D0: 20 20 20 4C 44 41 20 24 31 32 0D 20 20 20 20 20 | LDA $12. | 000001E0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 000001F0: 20 41 44 43 20 23 31 0D 20 20 20 20 20 20 20 20 | ADC #1. | 00000200: 20 53 54 41 20 24 37 30 30 30 0D 20 20 20 20 20 | STA $7000. | 00000210: 20 20 20 20 4C 44 41 20 24 31 33 0D 20 20 20 20 | LDA $13. | 00000220: 20 20 20 20 20 53 54 41 20 24 37 30 30 31 0D 20 | STA $7001. | 00000230: 20 20 20 20 20 20 20 20 52 54 53 0D 0D 0D 0D 0D | RTS.....| 00000240: 0D 0D 0D 0D 0D 0D 0D 0D 45 44 49 54 20 20 20 20 |........EDIT | 00000250: 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 4C 44 | = *. LD| 00000260: 41 20 23 3C 53 54 45 58 54 31 2D 33 39 0D 20 20 |A #<STEXT1-39. | 00000270: 20 20 20 20 20 20 20 53 54 41 20 24 31 32 0D 20 | STA $12. | 00000280: 20 20 20 20 20 20 20 20 53 54 41 20 24 31 34 0D | STA $14.| 00000290: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3E 53 | LDA #>S| 000002A0: 54 45 58 54 31 2D 31 0D 20 20 20 20 20 20 20 20 |TEXT1-1. | 000002B0: 20 53 54 41 20 24 31 33 0D 20 20 20 20 20 20 20 | STA $13. | 000002C0: 20 20 53 54 41 20 24 31 35 0D 41 31 20 20 20 20 | STA $15.A1 | 000002D0: 20 20 20 4C 44 59 20 23 24 30 30 0D 41 32 20 20 | LDY #$00.A2 | 000002E0: 20 20 20 20 20 4C 44 41 20 28 24 31 32 29 2C 59 | LDA ($12),Y| 000002F0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 |. STA $0| 00000300: 34 30 30 2B 28 4C 49 4E 45 2A 34 30 29 2C 59 0D |400+(LINE*40),Y.| 00000310: 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 | INY. | 00000320: 20 20 20 20 20 20 43 50 59 20 23 24 32 38 0D 20 | CPY #$28. | 00000330: 20 20 20 20 20 20 20 20 42 4E 45 20 41 32 0D 20 | BNE A2. | 00000340: 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 32 37 | LDY #$27| 00000350: 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 4C |. LDX #L| 00000360: 49 4E 45 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |INE. CLC| 00000370: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 00000380: 46 46 30 0D 41 33 20 20 20 20 20 20 20 4A 53 52 |FF0.A3 JSR| 00000390: 20 24 46 46 45 34 0D 20 20 20 20 20 20 20 20 20 | $FFE4. | 000003A0: 42 45 51 20 41 33 0D 20 20 20 20 20 20 20 20 20 |BEQ A3. | 000003B0: 43 4D 50 20 23 24 30 44 0D 20 20 20 20 20 20 20 |CMP #$0D. | 000003C0: 20 20 42 45 51 20 41 41 0D 20 20 20 20 20 20 20 | BEQ AA. | 000003D0: 20 20 43 4D 50 20 23 22 9D 22 0D 20 20 20 20 20 | CMP #".". | 000003E0: 20 20 20 20 42 45 51 20 41 37 0D 20 20 20 20 20 | BEQ A7. | 000003F0: 20 20 20 20 43 4D 50 20 23 24 31 34 0D 20 20 20 | CMP #$14. | 00000400: 20 20 20 20 20 20 42 45 51 20 41 37 0D 20 20 20 | BEQ A7. | 00000410: 20 20 20 20 20 20 4A 53 52 20 24 46 46 44 32 0D | JSR $FFD2.| 00000420: 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 | LDY #$0| 00000430: 30 0D 41 34 20 20 20 20 20 20 20 4C 44 41 20 24 |0.A4 LDA $| 00000440: 30 34 30 30 2B 28 4C 49 4E 45 2A 34 30 29 2C 59 |0400+(LINE*40),Y| 00000450: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 28 24 |. STA ($| 00000460: 31 32 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 |12),Y. I| 00000470: 4E 59 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 |NY. CPY | 00000480: 23 24 32 38 0D 20 20 20 20 20 20 20 20 20 42 4E |#$28. BN| 00000490: 45 20 41 34 0D 41 35 20 20 20 20 20 20 20 4C 44 |E A4.A5 LD| 000004A0: 41 20 24 31 32 0D 20 20 20 20 20 20 20 20 20 43 |A $12. C| 000004B0: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 000004C0: 23 24 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 |#$01. ST| 000004D0: 41 20 24 31 32 0D 20 20 20 20 20 20 20 20 20 4C |A $12. L| 000004E0: 44 41 20 24 31 33 0D 20 20 20 20 20 20 20 20 20 |DA $13. | 000004F0: 41 44 43 20 23 24 30 30 0D 20 20 20 20 20 20 20 |ADC #$00. | 00000500: 20 20 53 54 41 20 24 31 33 0D 41 36 20 20 20 20 | STA $13.A6 | 00000510: 20 20 20 4A 4D 50 20 41 31 0D 41 37 20 20 20 20 | JMP A1.A7 | 00000520: 20 20 20 4C 44 41 20 24 31 32 0D 20 20 20 20 20 | LDA $12. | 00000530: 20 20 20 20 43 4D 50 20 24 31 34 0D 20 20 20 20 | CMP $14. | 00000540: 20 20 20 20 20 42 4E 45 20 41 38 0D 20 20 20 20 | BNE A8. | 00000550: 20 20 20 20 20 4C 44 41 20 24 31 33 0D 20 20 20 | LDA $13. | 00000560: 20 20 20 20 20 20 43 4D 50 20 24 31 35 0D 20 20 | CMP $15. | 00000570: 20 20 20 20 20 20 20 42 45 51 20 41 39 0D 41 38 | BEQ A9.A8| 00000580: 20 20 20 20 20 20 20 4C 44 41 20 24 31 32 0D 20 | LDA $12. | 00000590: 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 | SEC. | 000005A0: 20 20 20 20 20 53 42 43 20 23 24 30 31 0D 20 20 | SBC #$01. | 000005B0: 20 20 20 20 20 20 20 53 54 41 20 24 31 32 0D 20 | STA $12. | 000005C0: 20 20 20 20 20 20 20 20 4C 44 41 20 24 31 33 0D | LDA $13.| 000005D0: 20 20 20 20 20 20 20 20 20 53 42 43 20 23 24 30 | SBC #$0| 000005E0: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 000005F0: 31 33 0D 41 39 20 20 20 20 20 20 20 4A 4D 50 20 |13.A9 JMP | 00000600: 41 31 0D 41 41 20 20 20 20 20 20 20 4C 44 41 20 |A1.AA LDA | 00000610: 24 31 32 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |$12. CLC| 00000620: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 |. ADC #$| 00000630: 32 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |27. STA | 00000640: 24 31 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$12. LDA| 00000650: 20 24 31 33 0D 20 20 20 20 20 20 20 20 20 41 44 | $13. AD| 00000660: 43 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |C #$00. | 00000670: 53 54 41 20 24 31 33 0D 20 20 20 20 20 20 20 20 |STA $13. | 00000680: 20 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 20 | LDY #$00. | 00000690: 20 20 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 | TYA. | 000006A0: 53 54 41 20 28 24 31 32 29 2C 59 0D 20 20 20 20 |STA ($12),Y. | 000006B0: 20 20 20 20 20 52 54 53 0D 0D 0D 53 43 52 54 45 | RTS...SCRTE| 000006C0: 54 20 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 |T = *. | 000006D0: 20 2E 54 45 58 54 20 22 93 13 1E 22 0D 20 20 20 | .TEXT "...". | 000006E0: 20 20 20 20 20 20 2E 54 45 58 54 20 22 20 20 20 | .TEXT " | 000006F0: 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 |". .TEXT| 00000700: 20 22 53 43 52 4F 4C 4C 2D 45 44 49 54 4F 52 20 | "SCROLL-EDITOR | 00000710: 56 31 2E 32 20 42 59 20 22 0D 20 20 20 20 20 20 |V1.2 BY ". | 00000720: 20 20 20 2E 54 45 58 54 20 22 4E 49 47 45 4C 2F | .TEXT "NIGEL/| 00000730: 41 43 52 4F 53 53 22 0D 20 20 20 20 20 20 20 20 |ACROSS". | 00000740: 20 2E 42 59 54 45 20 31 33 0D 20 20 20 20 20 20 | .BYTE 13. | 00000750: 20 20 20 2E 54 45 58 54 20 22 20 20 20 22 0D 20 | .TEXT " ". | 00000760: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 B7 | .TEXT ".| 00000770: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000780: B7 B7 B7 B7 B7 22 0D 20 20 20 20 20 20 20 20 20 |.....". | 00000790: 2E 54 45 58 54 20 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 |.TEXT ".........| 000007A0: B7 B7 B7 22 0D 20 20 20 20 20 20 20 20 20 2E 42 |...". .B| 000007B0: 59 54 45 20 31 33 2C 31 33 0D 20 20 20 20 20 20 |YTE 13,13. | 000007C0: 20 20 20 2E 54 45 58 54 20 22 20 20 20 22 0D 20 | .TEXT " ". | 000007D0: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 45 | .TEXT "E| 000007E0: 4E 54 45 52 20 59 4F 55 20 53 43 52 4F 4C 4C 2D |NTER YOU SCROLL-| 000007F0: 54 45 58 54 20 42 22 0D 20 20 20 20 20 20 20 20 |TEXT B". | 00000800: 20 2E 54 45 58 54 20 22 45 4C 4F 57 2D 22 0D 20 | .TEXT "ELOW-". | 00000810: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 33 | .BYTE 13| 00000820: 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 |. .TEXT | 00000830: 22 20 20 20 22 0D 20 20 20 20 20 20 20 20 20 2E |" ". .| 00000840: 54 45 58 54 20 22 41 4E 44 20 50 52 45 53 53 20 |TEXT "AND PRESS | 00000850: 52 45 54 55 52 4E 21 22 0D 20 20 20 20 20 20 20 |RETURN!". | 00000860: 20 20 2E 42 59 54 45 20 31 33 2C 31 33 2C 31 33 | .BYTE 13,13,13| 00000870: 2C 31 33 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |,13. .BY| 00000880: 54 45 20 31 33 2C 31 33 2C 31 33 0D 20 20 20 20 |TE 13,13,13. | 00000890: 20 20 20 20 20 2E 54 45 58 54 20 22 AF AF AF AF | .TEXT "....| 000008A0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 000008B0: 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 |". .TEXT| 000008C0: 20 22 AF AF AF AF AF AF AF AF AF AF AF AF AF AF | "..............| 000008D0: AF AF AF AF AF AF 22 0D 20 20 20 20 20 20 20 20 |......". | 000008E0: 20 2E 42 59 54 45 20 31 33 0D 20 20 20 20 20 20 | .BYTE 13. | 000008F0: 20 20 20 2E 54 45 58 54 20 22 B7 B7 B7 B7 B7 B7 | .TEXT "......| 00000900: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 0D |..............".| 00000910: 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 | .TEXT "| 00000920: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000930: B7 B7 B7 B7 22 0D 0D 20 20 20 20 20 20 20 20 20 |....".. | 00000940: 2E 42 59 54 45 20 30 0D 0D |.BYTE 0.. |
...... ;START WITH: JSR SCREDIT.
.STEXT1 = $0B00 ;PLACE SCROLL-TEXT...
.. *= $5000...SCREDIT = *.LINE
= 12. SEI. LDA #$37.
STA $01. JSR $FF81.
JSR $FF84. JSR $FF8A.
LDA #8. JSR $FFD2. LD
A #0. STA $D020. STA $D0
21. LDA #5. STA $0286.
JSR $E544. LDA #<SCRTET.
LDY #>SCRTET. JSR $AB1E.
JSR EDIT. LDA $12.
CLC. ADC #1. STA $70
00. LDA $13. STA $7001.
RTS.............EDIT = *.
LDA #<STEXT1-39. STA $12.
STA $14. LDA #>STEXT1-1.
STA $13. STA $15.A1
LDY #$00.A2 LDA ($12),Y.
STA $0400+(LINE*40),Y. INY.
CPY #$28. BNE A2.
LDY #$27. LDX #LINE. CLC
. JSR $FFF0.A3 JSR $FFE4.
BEQ A3. CMP #$0D.
BEQ AA. CMP #".". BEQ
A7. CMP #$14. BEQ A7.
JSR $FFD2. LDY #$00.A4
LDA $0400+(LINE*40),Y. STA ($
12),Y. INY. CPY #$28.
BNE A4.A5 LDA $12. C
LC. ADC #$01. STA $12.
LDA $13. ADC #$00.
STA $13.A6 JMP A1.A7 LDA $
12. CMP $14. BNE A8.
LDA $13. CMP $15. B
EQ A9.A8 LDA $12. SEC.
SBC #$01. STA $12.
LDA $13. SBC #$00. STA $
13.A9 JMP A1.AA LDA $12.
CLC. ADC #$27. STA
$12. LDA $13. ADC #$00.
STA $13. LDY #$00.
TYA. STA ($12),Y. RTS
...SCRTET = *. .TEXT "...".
.TEXT " ". .TEXT "SCROLL
-EDITOR V1.2 BY ". .TEXT "NIGEL/
ACROSS". .BYTE 13. .TEXT
" ". .TEXT ".................
.....". .TEXT "............".
.BYTE 13,13. .TEXT " ".
.TEXT "ENTER YOU SCROLL-TEXT B".
.TEXT "ELOW-". .BYTE 13
. .TEXT " ". .TEXT "AN
D PRESS RETURN!". .BYTE 13,13,13
,13. .BYTE 13,13,13. .TE
XT "....................". .TEXT
"....................". .BYTE 1
3. .TEXT "....................".
.TEXT "...................."..
.BYTE 0..
> CLICK IMAGE PREVIEW FOR FULL MODAL