3
FILE INFORMATION
FILENAME(S): 3
FILE TYPE(S): SEQ
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 20:31:12
APPEARS ON: 1 disk(s)
FILE HASH
a95622df4431802817c3a36902e07d849494b131cbee3829deb30c8e47ba3e34
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ACROSS | 3 | SEQ | Curtcool, Nigel | 21 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 0D 50 4C 41 43 20 20 20 20 20 3D 20 |.....PLAC = | 00000010: 24 31 30 30 30 20 3B 41 44 52 45 53 53 20 54 4F |$1000 ;ADRESS TO| 00000020: 20 50 4C 41 43 45 20 4C 49 4E 45 53 0D 41 4E 54 | PLACE LINES.ANT| 00000030: 20 20 20 20 20 20 3D 20 32 20 20 20 20 3B 41 4E | = 2 ;AN| 00000040: 54 41 4C 20 41 46 20 4C 49 4E 49 45 52 20 54 4F |TAL AF LINIER TO| 00000050: 20 45 44 49 54 0D 0D 0D 20 20 20 20 20 20 20 20 | EDIT... | 00000060: 20 3B 53 54 41 52 54 20 57 49 54 48 3A 20 4A 53 | ;START WITH: JS| 00000070: 52 20 4C 49 4E 45 44 0D 0D 0D 0D 0D 20 20 20 20 |R LINED..... | 00000080: 20 20 20 20 20 2A 3D 20 24 35 30 30 30 0D 0D 4C | *= $5000..L| 00000090: 49 4E 45 44 20 20 20 20 3D 20 2A 0D 20 20 20 20 |INED = *. | 000000A0: 20 20 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 | SEI. | 000000B0: 20 20 4C 44 41 20 23 24 33 37 0D 20 20 20 20 20 | LDA #$37. | 000000C0: 20 20 20 20 53 54 41 20 24 30 31 0D 20 20 20 20 | STA $01. | 000000D0: 20 20 20 20 20 4A 53 52 20 24 46 46 38 31 0D 20 | JSR $FF81. | 000000E0: 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 38 | JSR $FF8| 000000F0: 34 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 |4. JSR $| 00000100: 46 46 38 41 0D 20 20 20 20 20 20 20 20 20 4C 44 |FF8A. LD| 00000110: 41 20 23 38 0D 20 20 20 20 20 20 20 20 20 4A 53 |A #8. JS| 00000120: 52 20 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 |R $FFD2. | 00000130: 20 4C 44 41 20 23 41 4E 54 0D 20 20 20 20 20 20 | LDA #ANT. | 00000140: 20 20 20 53 54 41 20 4C 49 4E 45 0D 20 20 20 20 | STA LINE. | 00000150: 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 | LDA #0. | 00000160: 20 20 20 20 20 53 54 41 20 24 44 30 32 30 0D 20 | STA $D020. | 00000170: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 | STA $D02| 00000180: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |1. LDA #| 00000190: 3C 48 59 54 0D 20 20 20 20 20 20 20 20 20 4C 44 |<HYT. LD| 000001A0: 59 20 23 3E 48 59 54 0D 20 20 20 20 20 20 20 20 |Y #>HYT. | 000001B0: 20 4A 53 52 20 24 41 42 31 45 0D 20 20 20 20 20 | JSR $AB1E. | 000001C0: 20 20 20 20 4A 53 52 20 4C 49 4E 45 49 4E 0D 20 | JSR LINEIN. | 000001D0: 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D 41 | LDX #0.A| 000001E0: 41 45 20 20 20 20 20 20 4C 44 41 20 24 30 34 30 |AE LDA $040| 000001F0: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |0,X. STA| 00000200: 20 50 4C 41 43 2C 58 0D 20 20 20 20 20 20 20 20 | PLAC,X. | 00000210: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 | INX. CP| 00000220: 58 20 23 41 4E 54 2A 34 30 0D 20 20 20 20 20 20 |X #ANT*40. | 00000230: 20 20 20 42 4E 45 20 41 41 45 0D 20 20 20 20 20 | BNE AAE. | 00000240: 20 20 20 20 52 54 53 0D 0D 0D 0D 0D 0D 0D 0D 48 | RTS........H| 00000250: 59 54 20 20 20 20 20 20 3D 20 2A 0D 20 20 20 20 |YT = *. | 00000260: 20 20 20 20 20 2E 54 45 58 54 20 22 93 13 1E 22 | .TEXT "..."| 00000270: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00000280: 31 33 2C 31 33 2C 31 33 2C 31 33 0D 20 20 20 20 |13,13,13,13. | 00000290: 20 20 20 20 20 2E 54 45 58 54 20 22 39 38 37 36 | .TEXT "9876| 000002A0: 35 34 33 32 31 30 39 38 37 36 35 34 33 32 31 30 |5432109876543210| 000002B0: 30 31 32 22 0D 20 20 20 20 20 20 20 20 20 2E 54 |012". .T| 000002C0: 45 58 54 20 22 33 34 35 36 37 38 39 30 31 32 33 |EXT "34567890123| 000002D0: 34 35 36 37 38 39 22 0D 20 20 20 20 20 20 20 20 |456789". | 000002E0: 20 2E 42 59 54 45 20 31 33 0D 20 20 20 20 20 20 | .BYTE 13. | 000002F0: 20 20 20 2E 54 45 58 54 20 22 45 44 49 54 20 54 | .TEXT "EDIT T| 00000300: 48 45 20 4C 49 4E 45 53 20 21 22 0D 20 20 20 20 |HE LINES !". | 00000310: 20 20 20 20 20 2E 42 59 54 45 20 31 33 2C 31 33 | .BYTE 13,13| 00000320: 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 |. .TEXT | 00000330: 22 45 58 2E 3A 22 0D 20 20 20 20 20 20 20 20 20 |"EX.:". | 00000340: 2E 42 59 54 45 20 31 33 0D 20 20 20 20 20 20 20 |.BYTE 13. | 00000350: 20 20 2E 54 45 58 54 20 22 20 20 20 20 20 20 20 | .TEXT " | 00000360: 20 20 4C 41 53 54 20 4E 49 4E 4A 41 20 22 0D 20 | LAST NINJA ". | 00000370: 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 49 | .TEXT "I| 00000380: 49 49 20 50 52 45 56 49 45 57 20 20 20 20 20 20 |II PREVIEW | 00000390: 20 20 20 22 0D 0D 20 20 20 20 20 20 20 20 20 2E | ".. .| 000003A0: 54 45 58 54 20 22 20 20 20 20 20 20 20 20 20 20 |TEXT " | 000003B0: 46 49 58 45 44 20 4F 4E 20 32 22 0D 20 20 20 20 |FIXED ON 2". | 000003C0: 20 20 20 20 20 2E 54 45 58 54 20 22 31 2F 31 30 | .TEXT "1/10| 000003D0: 2D 31 39 39 30 21 20 20 20 20 20 20 20 20 20 20 |-1990! | 000003E0: 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |". .BYTE| 000003F0: 20 31 33 2C 31 33 0D 20 20 20 20 20 20 20 20 20 | 13,13. | 00000400: 2E 54 45 58 54 20 22 52 55 4E 2F 53 54 4F 50 20 |.TEXT "RUN/STOP | 00000410: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 0D 20 20 20 |TO CONTINUE". | 00000420: 20 20 20 20 20 20 2E 42 59 54 45 20 31 33 2C 31 | .BYTE 13,1| 00000430: 33 2C 31 33 2C 31 33 2C 31 33 0D 20 20 20 20 20 |3,13,13,13. | 00000440: 20 20 20 20 2E 54 45 58 54 20 22 20 20 20 20 22 | .TEXT " "| 00000450: 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 |. .TEXT | 00000460: 22 4C 49 4E 45 2D 45 44 49 54 4F 52 20 56 31 2E |"LINE-EDITOR V1.| 00000470: 30 20 42 59 20 4E 49 22 0D 20 20 20 20 20 20 20 |0 BY NI". | 00000480: 20 20 2E 54 45 58 54 20 22 47 45 4C 2F 41 43 52 | .TEXT "GEL/ACR| 00000490: 4F 53 53 22 0D 20 20 20 20 20 20 20 20 20 2E 42 |OSS". .B| 000004A0: 59 54 45 20 31 33 0D 20 20 20 20 20 20 20 20 20 |YTE 13. | 000004B0: 2E 54 45 58 54 20 22 20 20 20 20 22 0D 20 20 20 |.TEXT " ". | 000004C0: 20 20 20 20 20 20 2E 54 45 58 54 20 22 B7 B7 B7 | .TEXT "...| 000004D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000004E0: B7 B7 B7 22 0D 20 20 20 20 20 20 20 20 20 2E 54 |...". .T| 000004F0: 45 58 54 20 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |EXT ".........."| 00000500: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00000510: 30 0D 0D 0D 0D 0D 0D 4C 49 4E 45 49 4E 20 20 20 |0......LINEIN | 00000520: 3D 20 2A 0D 48 30 0D 20 20 20 20 20 20 20 20 20 |= *.H0. | 00000530: 4C 44 41 20 23 22 13 22 0D 20 20 20 20 20 20 20 |LDA #".". | 00000540: 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 | JSR $FFD2. | 00000550: 20 20 20 20 20 4A 53 52 20 48 35 0D 0D 48 31 0D | JSR H5..H1.| 00000560: 48 32 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 |H2 JSR $FF| 00000570: 45 34 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |E4. BEQ | 00000580: 48 32 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D |H2. PHA.| 00000590: 20 20 20 20 20 20 20 20 20 4A 53 52 20 48 35 0D | JSR H5.| 000005A0: 20 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 | PLA. | 000005B0: 20 20 20 20 20 20 43 4D 50 20 23 22 03 22 0D 20 | CMP #".". | 000005C0: 20 20 20 20 20 20 20 20 42 45 51 20 48 38 0D 20 | BEQ H8. | 000005D0: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 32 32 | CMP #$22| 000005E0: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 48 36 |. BEQ H6| 000005F0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |. JSR $F| 00000600: 46 44 32 0D 48 37 20 20 20 20 20 20 20 4C 44 41 |FD2.H7 LDA| 00000610: 20 24 44 36 0D 20 20 20 20 20 20 20 20 20 43 4D | $D6. CM| 00000620: 50 20 4C 49 4E 45 0D 20 20 20 20 20 20 20 20 20 |P LINE. | 00000630: 42 43 53 20 48 33 0D 48 34 20 20 20 20 20 20 20 |BCS H3.H4 | 00000640: 4A 53 52 20 48 35 0D 20 20 20 20 20 20 20 20 20 |JSR H5. | 00000650: 4A 4D 50 20 48 31 0D 0D 48 33 20 20 20 20 20 20 |JMP H1..H3 | 00000660: 20 4C 44 41 20 23 22 91 22 0D 20 20 20 20 20 20 | LDA #".". | 00000670: 20 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 | JSR $FFD2. | 00000680: 20 20 20 20 20 20 4A 4D 50 20 48 34 0D 0D 48 35 | JMP H4..H5| 00000690: 20 20 20 20 20 20 20 4C 44 59 20 24 44 33 0D 20 | LDY $D3. | 000006A0: 20 20 20 20 20 20 20 20 4C 44 41 20 28 24 44 31 | LDA ($D1| 000006B0: 29 2C 59 0D 20 20 20 20 20 20 20 20 20 45 4F 52 |),Y. EOR| 000006C0: 20 23 24 38 30 0D 20 20 20 20 20 20 20 20 20 53 | #$80. S| 000006D0: 54 41 20 28 24 44 31 29 2C 59 0D 20 20 20 20 20 |TA ($D1),Y. | 000006E0: 20 20 20 20 52 54 53 0D 0D 48 36 20 20 20 20 20 | RTS..H6 | 000006F0: 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 | JSR $FFD2. | 00000700: 20 20 20 20 20 44 45 43 20 24 44 33 0D 20 20 20 | DEC $D3. | 00000710: 20 20 20 20 20 20 4C 44 41 20 23 24 32 32 0D 20 | LDA #$22. | 00000720: 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 44 | JSR $FFD| 00000730: 32 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 48 |2. JMP H| 00000740: 37 0D 0D 48 38 20 20 20 20 20 20 20 52 54 53 0D |7..H8 RTS.| 00000750: 0D 4C 49 4E 45 20 20 20 20 20 2E 42 59 54 45 20 |.LINE .BYTE | 00000760: 31 0D 0D |1.. |
.....PLAC = $1000 ;ADRESS TO PLACE L
INES.ANT = 2 ;ANTAL AF LINIER TO
EDIT... ;START WITH: JSR LINED.
.... *= $5000..LINED = *.
SEI. LDA #$37. STA
$01. JSR $FF81. JSR $FF8
4. JSR $FF8A. LDA #8.
JSR $FFD2. LDA #ANT.
STA LINE. LDA #0. STA
$D020. STA $D021. LDA #
<HYT. LDY #>HYT. JSR $AB
1E. JSR LINEIN. LDX #0.A
AE LDA $0400,X. STA PLAC,X.
INX. CPX #ANT*40.
BNE AAE. RTS........HYT
= *. .TEXT "...". .BYTE
13,13,13,13. .TEXT "987654321098
76543210012". .TEXT "34567890123
456789". .BYTE 13. .TEXT
"EDIT THE LINES !". .BYTE 13,13
. .TEXT "EX.:". .BYTE 13
. .TEXT " LAST NINJA ".
.TEXT "III PREVIEW "..
.TEXT " FIXED ON 2".
.TEXT "1/10-1990! ".
.BYTE 13,13. .TEXT "RUN/STOP
TO CONTINUE". .BYTE 13,13,13,13,
13. .TEXT " ". .TEXT
"LINE-EDITOR V1.0 BY NI". .TEXT
"GEL/ACROSS". .BYTE 13.
.TEXT " ". .TEXT "...........
...........". .TEXT ".........."
. .BYTE 0......LINEIN = *.H0.
LDA #".". JSR $FFD2.
JSR H5..H1.H2 JSR $FFE4.
BEQ H2. PHA. JSR H5.
PLA. CMP #".".
BEQ H8. CMP #$22. BEQ H6
. JSR $FFD2.H7 LDA $D6.
CMP LINE. BCS H3.H4
JSR H5. JMP H1..H3 LDA #".
". JSR $FFD2. JMP H4..H5
LDY $D3. LDA ($D1),Y.
EOR #$80. STA ($D1),Y.
RTS..H6 JSR $FFD2. DEC
$D3. LDA #$22. JSR $FFD
2. JMP H7..H8 RTS..LINE
.BYTE 1..
> CLICK IMAGE PREVIEW FOR FULL MODAL