2
FILE INFORMATION
FILENAME(S): 2
FILE TYPE(S): SEQ
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 20:31:12
APPEARS ON: 1 disk(s)
FILE HASH
0d4563f877b8f806916b59094cb078e8e537a9fa6d06cb82538a3b4b70b86b2d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ACROSS | 2 | SEQ | Curtcool, Nigel | 15 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 0D 4F 55 54 50 52 20 20 20 20 3D 20 |.....OUTPR = | 00000010: 24 32 30 43 41 20 20 3B 20 4A 53 52 20 54 4F 20 |$20CA ; JSR TO | 00000020: 4F 57 4E 20 50 52 49 4E 54 4F 55 54 0D 53 50 41 |OWN PRINTOUT.SPA| 00000030: 45 20 20 20 20 20 3D 20 36 20 20 3B 45 4D 50 54 |E = 6 ;EMPT| 00000040: 59 20 43 48 41 52 41 43 54 45 52 20 4E 55 4D 2E |Y CHARACTER NUM.| 00000050: 0D 0D 53 54 32 31 20 20 20 20 20 3D 20 24 30 41 |..ST21 = $0A| 00000060: 30 30 0D 53 54 32 32 20 20 20 20 20 3D 20 24 30 |00.ST22 = $0| 00000070: 42 30 30 0D 53 54 32 33 20 20 20 20 20 3D 20 24 |B00.ST23 = $| 00000080: 30 43 30 30 0D 0D 20 20 20 20 20 20 20 20 20 3B |0C00.. ;| 00000090: 53 54 41 52 54 20 57 49 54 48 3A 20 4A 53 52 20 |START WITH: JSR | 000000A0: 43 48 41 52 53 45 0D 0D 0D 43 4F 31 20 20 20 20 |CHARSE...CO1 | 000000B0: 20 20 3D 20 39 20 20 3B 24 44 30 32 31 0D 43 4F | = 9 ;$D021.CO| 000000C0: 32 20 20 20 20 20 20 3D 20 35 20 20 3B 24 44 30 |2 = 5 ;$D0| 000000D0: 32 33 0D 43 4F 33 20 20 20 20 20 20 3D 20 37 20 |23.CO3 = 7 | 000000E0: 20 3B 24 44 30 32 32 0D 0D 43 48 41 52 50 4F 53 | ;$D022..CHARPOS| 000000F0: 20 20 3D 20 24 30 38 30 30 20 20 3B 49 4E 54 52 | = $0800 ;INTR| 00000100: 4F 2D 43 48 41 52 0D 0D 20 20 20 20 20 20 20 20 |O-CHAR.. | 00000110: 20 2A 3D 20 24 35 30 30 30 0D 0D 0D 0D 0D 43 48 | *= $5000.....CH| 00000120: 41 52 53 45 0D 20 20 20 20 20 20 20 20 20 53 45 |ARSE. SE| 00000130: 49 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |I. LDA #| 00000140: 24 33 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$37. STA| 00000150: 20 24 30 31 0D 20 20 20 20 20 20 20 20 20 4A 53 | $01. JS| 00000160: 52 20 24 46 46 38 31 0D 20 20 20 20 20 20 20 20 |R $FF81. | 00000170: 20 4A 53 52 20 24 46 46 38 34 0D 20 20 20 20 20 | JSR $FF84. | 00000180: 20 20 20 20 4A 53 52 20 24 46 46 38 41 0D 20 20 | JSR $FF8A. | 00000190: 20 20 20 20 20 20 20 4C 44 41 20 23 38 0D 20 20 | LDA #8. | 000001A0: 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 44 32 | JSR $FFD2| 000001B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 53 |. LDA #S| 000001C0: 50 41 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 |PAE. STA| 000001D0: 20 53 50 41 43 2B 31 0D 20 20 20 20 20 20 20 20 | SPAC+1. | 000001E0: 20 4C 44 41 20 23 43 4F 31 0D 20 20 20 20 20 20 | LDA #CO1. | 000001F0: 20 20 20 53 54 41 20 49 4E 44 32 31 2B 31 0D 20 | STA IND21+1. | 00000200: 20 20 20 20 20 20 20 20 4C 44 41 20 23 43 4F 32 | LDA #CO2| 00000210: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 49 4E |. STA IN| 00000220: 44 32 32 2B 31 0D 20 20 20 20 20 20 20 20 20 4C |D22+1. L| 00000230: 44 41 20 23 43 4F 33 0D 20 20 20 20 20 20 20 20 |DA #CO3. | 00000240: 20 53 54 41 20 49 4E 44 32 33 2B 31 0D 0D 20 20 | STA IND23+1.. | 00000250: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 00000260: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 | STA $D020| 00000270: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000280: 30 32 31 0D 20 20 20 20 20 20 20 20 20 4C 44 58 |021. LDX| 00000290: 20 23 30 0D 51 57 45 52 20 20 20 20 20 4C 44 41 | #0.QWER LDA| 000002A0: 20 43 48 41 52 50 4F 53 2B 28 30 2A 32 35 36 29 | CHARPOS+(0*256)| 000002B0: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 000002C0: 24 33 38 30 30 2C 58 0D 20 20 20 20 20 20 20 20 |$3800,X. | 000002D0: 20 4C 44 41 20 43 48 41 52 50 4F 53 2B 28 31 2A | LDA CHARPOS+(1*| 000002E0: 32 35 36 29 2C 58 0D 20 20 20 20 20 20 20 20 20 |256),X. | 000002F0: 53 54 41 20 24 33 39 30 30 2C 58 0D 20 20 20 20 |STA $3900,X. | 00000300: 20 20 20 20 20 4C 44 41 20 43 48 41 52 50 4F 53 | LDA CHARPOS| 00000310: 2B 28 32 2A 32 35 36 29 2C 58 0D 20 20 20 20 20 |+(2*256),X. | 00000320: 20 20 20 20 53 54 41 20 24 33 41 30 30 2C 58 0D | STA $3A00,X.| 00000330: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 48 41 | LDA CHA| 00000340: 52 50 4F 53 2B 28 33 2A 32 35 36 29 2C 58 0D 20 |RPOS+(3*256),X. | 00000350: 20 20 20 20 20 20 20 20 53 54 41 20 24 33 42 30 | STA $3B0| 00000360: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |0,X. LDA| 00000370: 20 43 48 41 52 50 4F 53 2B 28 34 2A 32 35 36 29 | CHARPOS+(4*256)| 00000380: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00000390: 24 33 43 30 30 2C 58 0D 20 20 20 20 20 20 20 20 |$3C00,X. | 000003A0: 20 4C 44 41 20 43 48 41 52 50 4F 53 2B 28 35 2A | LDA CHARPOS+(5*| 000003B0: 32 35 36 29 2C 58 0D 20 20 20 20 20 20 20 20 20 |256),X. | 000003C0: 53 54 41 20 24 33 44 30 30 2C 58 0D 20 20 20 20 |STA $3D00,X. | 000003D0: 20 20 20 20 20 4C 44 41 20 43 48 41 52 50 4F 53 | LDA CHARPOS| 000003E0: 2B 28 36 2A 32 35 36 29 2C 58 0D 20 20 20 20 20 |+(6*256),X. | 000003F0: 20 20 20 20 53 54 41 20 24 33 45 30 30 2C 58 0D | STA $3E00,X.| 00000400: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 48 41 | LDA CHA| 00000410: 52 50 4F 53 2B 28 37 2A 32 35 36 29 2C 58 0D 20 |RPOS+(7*256),X. | 00000420: 20 20 20 20 20 20 20 20 53 54 41 20 24 33 46 30 | STA $3F0| 00000430: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 58 |0,X. INX| 00000440: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 51 57 |. BNE QW| 00000450: 45 52 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |ER. LDA | 00000460: 23 3C 54 52 45 0D 20 20 20 20 20 20 20 20 20 4C |#<TRE. L| 00000470: 44 59 20 23 3E 54 52 45 0D 20 20 20 20 20 20 20 |DY #>TRE. | 00000480: 20 20 4A 53 52 20 24 41 42 31 45 0D 0D 20 20 20 | JSR $AB1E.. | 00000490: 20 20 20 20 20 20 4A 53 52 20 4F 55 54 50 52 0D | JSR OUTPR.| 000004A0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D | LDX #0.| 000004B0: 41 41 57 45 57 20 20 20 20 4C 44 41 20 23 38 0D |AAWEW LDA #8.| 000004C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 38 | STA $D8| 000004D0: 30 30 2B 28 30 2A 34 30 29 2C 58 0D 20 20 20 20 |00+(0*40),X. | 000004E0: 20 20 20 20 20 53 54 41 20 24 44 38 30 30 2B 28 | STA $D800+(| 000004F0: 31 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 |1*40),X. | 00000500: 20 53 54 41 20 24 44 38 30 30 2B 28 32 2A 34 30 | STA $D800+(2*40| 00000510: 29 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |),X. STA| 00000520: 20 24 44 38 30 30 2B 28 33 2A 34 30 29 2C 58 0D | $D800+(3*40),X.| 00000530: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 38 | STA $D8| 00000540: 30 30 2B 28 34 2A 34 30 29 2C 58 0D 20 20 20 20 |00+(4*40),X. | 00000550: 20 20 20 20 20 53 54 41 20 24 44 38 30 30 2B 28 | STA $D800+(| 00000560: 35 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 |5*40),X. | 00000570: 20 53 54 41 20 24 44 38 30 30 2B 28 36 2A 34 30 | STA $D800+(6*40| 00000580: 29 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |),X. STA| 00000590: 20 24 44 38 30 30 2B 28 37 2A 34 30 29 2C 58 0D | $D800+(7*40),X.| 000005A0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 000005B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 38 | STA $D8| 000005C0: 30 30 2B 28 38 2A 34 30 29 2C 58 0D 53 50 41 43 |00+(8*40),X.SPAC| 000005D0: 20 20 20 20 20 4C 44 41 20 23 36 0D 20 20 20 20 | LDA #6. | 000005E0: 20 20 20 20 20 53 54 41 20 24 30 34 30 30 2B 28 | STA $0400+(| 000005F0: 38 2A 34 30 29 2C 58 0D 20 20 20 20 20 20 20 20 |8*40),X. | 00000600: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 | INX. CP| 00000610: 58 20 23 34 30 0D 20 20 20 20 20 20 20 20 20 42 |X #40. B| 00000620: 4E 45 20 41 41 57 45 57 0D 20 20 20 20 20 20 20 |NE AAWEW. | 00000630: 20 20 4A 53 52 20 49 4E 54 45 52 0D 47 45 57 20 | JSR INTER.GEW | 00000640: 20 20 20 20 20 4A 53 52 20 24 46 46 45 34 0D 20 | JSR $FFE4. | 00000650: 20 20 20 20 20 20 20 20 43 4D 50 20 23 22 85 22 | CMP #"."| 00000660: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 49 4E |. BEQ IN| 00000670: 32 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |21. CMP | 00000680: 23 22 86 22 0D 20 20 20 20 20 20 20 20 20 42 45 |#".". BE| 00000690: 51 20 49 4E 32 32 0D 20 20 20 20 20 20 20 20 20 |Q IN22. | 000006A0: 43 4D 50 20 23 22 87 22 0D 20 20 20 20 20 20 20 |CMP #".". | 000006B0: 20 20 42 45 51 20 49 4E 32 33 0D 20 20 20 20 20 | BEQ IN23. | 000006C0: 20 20 20 20 43 4D 50 20 23 22 88 22 0D 20 20 20 | CMP #".". | 000006D0: 20 20 20 20 20 20 42 45 51 20 43 4F 53 0D 20 20 | BEQ COS. | 000006E0: 20 20 20 20 20 20 20 4A 4D 50 20 47 45 57 0D 0D | JMP GEW..| 000006F0: 43 4F 53 20 20 20 20 20 20 4C 44 41 20 49 4E 44 |COS LDA IND| 00000700: 32 31 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 |21+1. ST| 00000710: 41 20 53 54 32 31 0D 20 20 20 20 20 20 20 20 20 |A ST21. | 00000720: 4C 44 41 20 49 4E 44 32 32 2B 31 0D 20 20 20 20 |LDA IND22+1. | 00000730: 20 20 20 20 20 53 54 41 20 53 54 32 33 0D 20 20 | STA ST23. | 00000740: 20 20 20 20 20 20 20 4C 44 41 20 49 4E 44 32 33 | LDA IND23| 00000750: 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |+1. STA | 00000760: 53 54 32 32 0D 20 20 20 20 20 20 20 20 20 52 54 |ST22. RT| 00000770: 53 0D 0D 0D 49 4E 32 31 20 20 20 20 20 3D 20 2A |S...IN21 = *| 00000780: 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 49 4E |. INC IN| 00000790: 44 32 31 2B 31 0D 20 20 20 20 20 20 20 20 20 4A |D21+1. J| 000007A0: 4D 50 20 47 45 57 0D 49 4E 32 32 20 20 20 20 20 |MP GEW.IN22 | 000007B0: 49 4E 43 20 49 4E 44 32 32 2B 31 0D 20 20 20 20 |INC IND22+1. | 000007C0: 20 20 20 20 20 4A 4D 50 20 47 45 57 0D 49 4E 32 | JMP GEW.IN2| 000007D0: 33 20 20 20 20 20 49 4E 43 20 49 4E 44 32 33 2B |3 INC IND23+| 000007E0: 31 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 47 |1. JMP G| 000007F0: 45 57 0D 0D 0D 0D 0D 54 52 45 20 20 20 20 20 20 |EW.....TRE | 00000800: 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 2E 54 45 |= *. .TE| 00000810: 58 54 20 22 93 13 1E 22 0D 20 20 20 20 20 20 20 |XT "...". | 00000820: 20 20 2E 42 59 54 45 20 31 33 2C 31 33 2C 31 33 | .BYTE 13,13,13| 00000830: 2C 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 0D |,13,13,13,13,13.| 00000840: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 | .BYTE 1| 00000850: 33 2C 31 33 0D 20 20 20 20 20 20 20 20 20 2E 54 |3,13. .T| 00000860: 45 58 54 20 22 20 20 20 22 0D 20 20 20 20 20 20 |EXT " ". | 00000870: 20 20 20 2E 54 45 58 54 20 22 4C 4F 47 4F 2D 53 | .TEXT "LOGO-S| 00000880: 45 4C 45 43 54 4F 52 20 56 31 2E 30 20 42 59 22 |ELECTOR V1.0 BY"| 00000890: 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 20 |. .TEXT | 000008A0: 22 20 4E 49 47 45 4C 2F 41 43 52 4F 53 53 22 0D |" NIGEL/ACROSS".| 000008B0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 31 | .BYTE 1| 000008C0: 33 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 |3. .TEXT| 000008D0: 20 22 20 20 20 22 0D 20 20 20 20 20 20 20 20 20 | " ". | 000008E0: 2E 54 45 58 54 20 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 |.TEXT ".........| 000008F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 0D 20 20 |............". | 00000900: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 B7 B7 | .TEXT "..| 00000910: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 0D 20 20 20 |...........". | 00000920: 20 20 20 20 20 20 2E 42 59 54 45 20 31 33 2C 31 | .BYTE 13,1| 00000930: 33 0D 20 20 20 20 20 20 20 20 20 2E 54 45 58 54 |3. .TEXT| 00000940: 20 22 5B 46 31 5D 20 49 4E 43 20 24 44 30 32 31 | "[F1] INC $D021| 00000950: 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |". .BYTE| 00000960: 20 31 33 0D 20 20 20 20 20 20 20 20 20 2E 54 45 | 13. .TE| 00000970: 58 54 20 22 5B 46 33 5D 20 49 4E 43 20 24 44 30 |XT "[F3] INC $D0| 00000980: 32 33 22 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |23". .BY| 00000990: 54 45 20 31 33 0D 20 20 20 20 20 20 20 20 20 2E |TE 13. .| 000009A0: 54 45 58 54 20 22 5B 46 35 5D 20 49 4E 43 20 24 |TEXT "[F5] INC $| 000009B0: 44 30 32 32 22 0D 20 20 20 20 20 20 20 20 20 2E |D022". .| 000009C0: 42 59 54 45 20 31 33 0D 20 20 20 20 20 20 20 20 |BYTE 13. | 000009D0: 20 2E 54 45 58 54 20 22 5B 46 37 5D 20 43 4F 4E | .TEXT "[F7] CON| 000009E0: 54 49 4E 55 45 22 0D 20 20 20 20 20 20 20 20 20 |TINUE". | 000009F0: 2E 42 59 54 45 20 30 0D 0D 49 4E 54 45 52 20 20 |.BYTE 0..INTER | 00000A00: 20 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 53 | = *. S| 00000A10: 45 49 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |EI. LDA | 00000A20: 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#1. STA | 00000A30: 24 44 30 31 41 0D 20 20 20 20 20 20 20 20 20 53 |$D01A. S| 00000A40: 54 41 20 24 44 43 30 44 0D 20 20 20 20 20 20 20 |TA $DC0D. | 00000A50: 20 20 4C 44 41 20 23 24 31 42 0D 20 20 20 20 20 | LDA #$1B. | 00000A60: 20 20 20 20 53 54 41 20 24 44 30 31 31 0D 20 20 | STA $D011. | 00000A70: 20 20 20 20 20 20 20 4C 44 41 20 23 3C 49 4E 54 | LDA #<INT| 00000A80: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |E. LDY #| 00000A90: 3E 49 4E 54 45 0D 20 20 20 20 20 20 20 20 20 53 |>INTE. S| 00000AA0: 54 41 20 24 30 33 31 34 0D 20 20 20 20 20 20 20 |TA $0314. | 00000AB0: 20 20 53 54 59 20 24 30 33 31 35 0D 20 20 20 20 | STY $0315. | 00000AC0: 20 20 20 20 20 43 4C 49 0D 20 20 20 20 20 20 20 | CLI. | 00000AD0: 20 20 52 54 53 0D 0D 0D 49 4E 54 45 20 20 20 20 | RTS...INTE | 00000AE0: 20 3D 20 2A 0D 20 20 20 20 20 20 20 20 20 52 4F | = *. RO| 00000AF0: 4C 20 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 |L $D019. | 00000B00: 20 4C 44 41 20 23 33 31 0D 20 20 20 20 20 20 20 | LDA #31. | 00000B10: 20 20 53 54 41 20 24 44 30 31 38 0D 20 20 20 20 | STA $D018. | 00000B20: 20 20 20 20 20 4C 44 41 20 23 32 34 0D 20 20 20 | LDA #24. | 00000B30: 20 20 20 20 20 20 53 54 41 20 24 44 30 31 36 0D | STA $D016.| 00000B40: 0D 49 4E 44 32 31 20 20 20 20 4C 44 41 20 23 39 |.IND21 LDA #9| 00000B50: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000B60: 30 32 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |021. LDA| 00000B70: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00000B80: 20 24 44 30 32 30 0D 49 4E 44 32 32 20 20 20 20 | $D020.IND22 | 00000B90: 4C 44 41 20 23 37 0D 20 20 20 20 20 20 20 20 20 |LDA #7. | 00000BA0: 53 54 41 20 24 44 30 32 33 0D 49 4E 44 32 33 20 |STA $D023.IND23 | 00000BB0: 20 20 20 4C 44 41 20 23 35 0D 20 20 20 20 20 20 | LDA #5. | 00000BC0: 20 20 20 53 54 41 20 24 44 30 32 32 0D 20 20 20 | STA $D022. | 00000BD0: 20 20 20 20 20 20 4C 44 41 20 23 3C 49 4E 54 45 | LDA #<INTE| 00000BE0: 32 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |2. LDY #| 00000BF0: 3E 49 4E 54 45 32 0D 20 20 20 20 20 20 20 20 20 |>INTE2. | 00000C00: 53 54 41 20 24 30 33 31 34 0D 20 20 20 20 20 20 |STA $0314. | 00000C10: 20 20 20 53 54 59 20 24 30 33 31 35 0D 20 20 20 | STY $0315. | 00000C20: 20 20 20 20 20 20 4C 44 41 20 23 31 32 30 0D 20 | LDA #120. | 00000C30: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 00000C40: 32 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 |2. JMP $| 00000C50: 45 41 38 31 0D 0D 49 4E 54 45 32 20 20 20 20 3D |EA81..INTE2 =| 00000C60: 20 2A 0D 20 20 20 20 20 20 20 20 20 52 4F 4C 20 | *. ROL | 00000C70: 24 44 30 31 39 0D 20 20 20 20 20 20 20 20 20 4E |$D019. N| 00000C80: 4F 50 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 0D |OP. NOP.| 00000C90: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 00000CA0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000CB0: 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |20. STA | 00000CC0: 24 44 30 32 31 0D 20 20 20 20 20 20 20 20 20 4C |$D021. L| 00000CD0: 44 41 20 23 38 0D 20 20 20 20 20 20 20 20 20 53 |DA #8. S| 00000CE0: 54 41 20 24 44 30 31 36 0D 20 20 20 20 20 20 20 |TA $D016. | 00000CF0: 20 20 4C 44 41 20 23 32 31 0D 20 20 20 20 20 20 | LDA #21. | 00000D00: 20 20 20 53 54 41 20 24 44 30 31 38 0D 20 20 20 | STA $D018. | 00000D10: 20 20 20 20 20 20 4C 44 41 20 23 3C 49 4E 54 45 | LDA #<INTE| 00000D20: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 3E |. LDY #>| 00000D30: 49 4E 54 45 0D 20 20 20 20 20 20 20 20 20 53 54 |INTE. ST| 00000D40: 41 20 24 30 33 31 34 0D 20 20 20 20 20 20 20 20 |A $0314. | 00000D50: 20 53 54 59 20 24 30 33 31 35 0D 20 20 20 20 20 | STY $0315. | 00000D60: 20 20 20 20 4C 44 41 20 23 35 30 0D 20 20 20 20 | LDA #50. | 00000D70: 20 20 20 20 20 53 54 41 20 24 44 30 31 32 0D 20 | STA $D012. | 00000D80: 20 20 20 20 20 20 20 20 4A 4D 50 20 24 45 41 33 | JMP $EA3| 00000D90: 31 0D 0D |1.. |
.....OUTPR = $20CA ; JSR TO OWN PRIN
TOUT.SPAE = 6 ;EMPTY CHARACTER NUM.
..ST21 = $0A00.ST22 = $0B00.ST23
= $0C00.. ;START WITH: JSR
CHARSE...CO1 = 9 ;$D021.CO2 =
5 ;$D023.CO3 = 7 ;$D022..CHARPOS
= $0800 ;INTRO-CHAR.. *= $500
0.....CHARSE. SEI. LDA #
$37. STA $01. JSR $FF81.
JSR $FF84. JSR $FF8A.
LDA #8. JSR $FFD2.
LDA #SPAE. STA SPAC+1.
LDA #CO1. STA IND21+1.
LDA #CO2. STA IND22+1. L
DA #CO3. STA IND23+1.. L
DA #0. STA $D020. STA $D
021. LDX #0.QWER LDA CHARPOS
+(0*256),X. STA $3800,X.
LDA CHARPOS+(1*256),X. STA $390
0,X. LDA CHARPOS+(2*256),X.
STA $3A00,X. LDA CHARPOS+(3*
256),X. STA $3B00,X. LDA
CHARPOS+(4*256),X. STA $3C00,X.
LDA CHARPOS+(5*256),X.
STA $3D00,X. LDA CHARPOS+(6*256)
,X. STA $3E00,X. LDA CHA
RPOS+(7*256),X. STA $3F00,X.
INX. BNE QWER. LDA
#<TRE. LDY #>TRE. JSR $A
B1E.. JSR OUTPR. LDX #0.
AAWEW LDA #8. STA $D800+(0*40
),X. STA $D800+(1*40),X.
STA $D800+(2*40),X. STA $D800+(
3*40),X. STA $D800+(4*40),X.
STA $D800+(5*40),X. STA $D8
00+(6*40),X. STA $D800+(7*40),X.
LDA #0. STA $D800+(8*40
),X.SPAC LDA #6. STA $0400+(
8*40),X. INX. CPX #40.
BNE AAWEW. JSR INTER.GEW
JSR $FFE4. CMP #".".
BEQ IN21. CMP #".". BE
Q IN22. CMP #".". BEQ IN
23. CMP #".". BEQ COS.
JMP GEW..COS LDA IND21+1.
STA ST21. LDA IND22+1.
STA ST23. LDA IND23+1.
STA ST22. RTS...IN21 = *
. INC IND21+1. JMP GEW.I
N22 INC IND22+1. JMP GEW.IN2
3 INC IND23+1. JMP GEW.....T
RE = *. .TEXT "...".
.BYTE 13,13,13,13,13,13,13,13.
.BYTE 13,13. .TEXT " ".
.TEXT "LOGO-SELECTOR V1.0 BY".
.TEXT " NIGEL/ACROSS". .BYTE 1
3. .TEXT " ". .TEXT ".
....................". .TEXT "..
...........". .BYTE 13,13.
.TEXT "[F1] INC $D021". .BYTE
13. .TEXT "[F3] INC $D023".
.BYTE 13. .TEXT "[F5] INC $
D022". .BYTE 13. .TEXT "
[F7] CONTINUE". .BYTE 0..INTER
= *. SEI. LDA #1.
STA $D01A. STA $DC0D.
LDA #$1B. STA $D011. L
DA #<INTE. LDY #>INTE. S
TA $0314. STY $0315. CLI
. RTS...INTE = *. RO
L $D019. LDA #31. STA $D
018. LDA #24. STA $D016.
.IND21 LDA #9. STA $D021.
LDA #0. STA $D020.IND22
LDA #7. STA $D023.IND23 LDA #
5. STA $D022. LDA #<INTE
2. LDY #>INTE2. STA $031
4. STY $0315. LDA #120.
STA $D012. JMP $EA81..IN
TE2 = *. ROL $D019. N
OP. NOP. LDA #0.
STA $D020. STA $D021. L
DA #8. STA $D016. LDA #2
1. STA $D018. LDA #<INTE
. LDY #>INTE. STA $0314.
STY $0315. LDA #50.
STA $D012. JMP $EA31..
> CLICK IMAGE PREVIEW FOR FULL MODAL