Multiple names: WIPEFX1.LIB, WIPEFX2.LIB
FILE INFORMATION
FILENAME(S):
• WIPEFX1.LIB<br>• WIPEFX2.LIB
FILE TYPE(S): SEQ
FILE SIZE: 1.6K
FIRST SEEN: 2025-12-02 00:16:16
APPEARS ON: 2 disk(s)
FILE HASH
8c7d311455e8ce1b2f5c0cd55e34d2eba475ec00813431602482230258150a10
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| Z23B | WIPEFX1.LIB | SEQ | Maestro | 11 | 1 | DOWNLOAD FILE |
| Z23B | WIPEFX2.LIB | SEQ | Maestro | 24 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |.;``````````````| 00000010: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000020: 60 60 60 60 60 60 60 60 60 0D 3B 20 53 43 52 45 |`````````.; SCRE| 00000030: 45 4E 20 57 49 50 45 20 32 0D 3B 20 2D 2D 2D 2D |EN WIPE 2.; ----| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 0D 3B 20 57 49 |---------.;.; WI| 00000050: 50 45 20 4F 55 54 20 31 20 43 4F 4C 55 4D 4E 20 |PE OUT 1 COLUMN | 00000060: 41 54 20 41 20 54 49 4D 45 20 46 52 4F 4D 20 4C |AT A TIME FROM L| 00000070: 45 46 54 0D 3B 20 54 4F 20 52 49 47 48 54 20 41 |EFT.; TO RIGHT A| 00000080: 43 52 4F 53 53 20 54 48 45 20 53 43 52 45 45 4E |CROSS THE SCREEN| 00000090: 2E 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 60 |..;`````````````| 000000A0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000000B0: 60 60 60 60 60 60 60 60 60 60 0D 0D 3B 60 60 60 |``````````..;```| 000000C0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000000D0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000000E0: 60 60 60 60 0D 53 43 52 45 45 4E 20 20 20 3D 20 |````.SCREEN = | 000000F0: 31 30 32 34 0D 43 4F 4C 4F 52 53 20 20 20 3D 20 |1024.COLORS = | 00000100: 53 43 52 45 45 4E 2B 24 44 34 30 30 0D 0D 53 54 |SCREEN+$D400..ST| 00000110: 41 52 54 20 20 20 20 3D 20 53 43 52 45 45 4E 0D |ART = SCREEN.| 00000120: 43 4F 4C 55 4D 4E 20 20 20 3D 20 24 45 30 0D 3B |COLUMN = $E0.;| 00000130: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000140: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000150: 60 60 60 60 60 60 60 0D 0D 20 20 20 20 20 20 20 |```````.. | 00000160: 20 20 2A 3D 20 24 30 39 30 30 0D 0D 20 20 20 20 | *= $0900.. | 00000170: 20 20 20 20 20 3B 20 52 45 4D 4F 56 45 20 42 45 | ; REMOVE BE| 00000180: 46 4F 52 45 20 55 53 49 4E 47 2E 0D 20 20 20 20 |FORE USING.. | 00000190: 20 20 20 20 20 4C 44 58 20 23 24 30 30 0D 54 45 | LDX #$00.TE| 000001A0: 53 54 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 |ST TXA. | 000001B0: 20 20 20 20 53 54 41 20 53 43 52 45 45 4E 2B 28 | STA SCREEN+(| 000001C0: 32 35 36 2A 30 29 2C 58 0D 20 20 20 20 20 20 20 |256*0),X. | 000001D0: 20 20 53 54 41 20 53 43 52 45 45 4E 2B 28 32 35 | STA SCREEN+(25| 000001E0: 36 2A 31 29 2C 58 0D 20 20 20 20 20 20 20 20 20 |6*1),X. | 000001F0: 53 54 41 20 53 43 52 45 45 4E 2B 28 32 35 36 2A |STA SCREEN+(256*| 00000200: 32 29 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |2),X. ST| 00000210: 41 20 53 43 52 45 45 4E 2B 28 32 35 36 2A 33 29 |A SCREEN+(256*3)| 00000220: 2C 58 0D 20 20 20 20 20 20 20 20 20 44 45 58 0D |,X. DEX.| 00000230: 20 20 20 20 20 20 20 20 20 42 4E 45 20 54 45 53 | BNE TES| 00000240: 54 0D 0D 20 20 20 20 20 20 20 20 20 3B 20 41 43 |T.. ; AC| 00000250: 54 55 41 4C 20 43 4F 44 45 20 53 54 41 52 54 0D |TUAL CODE START.| 00000260: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 3C 53 | LDX #<S| 00000270: 54 41 52 54 0D 20 20 20 20 20 20 20 20 20 4C 44 |TART. LD| 00000280: 59 20 23 3E 53 54 41 52 54 0D 20 20 20 20 20 20 |Y #>START. | 00000290: 20 20 20 53 54 58 20 43 4F 4C 0D 20 20 20 20 20 | STX COL. | 000002A0: 20 20 20 20 53 54 59 20 43 4F 4C 2B 31 0D 20 20 | STY COL+1. | 000002B0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D | LDA #$00.| 000002C0: 20 20 20 20 20 20 20 20 20 53 54 41 20 43 4F 4C | STA COL| 000002D0: 4E 55 4D 0D 0D 57 49 50 45 4C 4F 4F 50 20 4C 44 |NUM..WIPELOOP LD| 000002E0: 58 20 43 4F 4C 4E 55 4D 0D 20 20 20 20 20 20 20 |X COLNUM. | 000002F0: 20 20 43 50 58 20 23 34 30 0D 20 20 20 20 20 20 | CPX #40. | 00000300: 20 20 20 42 45 51 20 46 49 4E 49 53 48 45 44 0D | BEQ FINISHED.| 00000310: 20 20 20 20 20 20 20 20 20 4C 44 58 20 43 4F 4C | LDX COL| 00000320: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 43 4F |. LDY CO| 00000330: 4C 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 58 |L+1. STX| 00000340: 20 43 4F 4C 55 4D 4E 0D 20 20 20 20 20 20 20 20 | COLUMN. | 00000350: 20 53 54 59 20 43 4F 4C 55 4D 4E 2B 31 0D 20 20 | STY COLUMN+1. | 00000360: 20 20 20 20 20 20 20 4A 53 52 20 50 4C 4F 54 32 | JSR PLOT2| 00000370: 35 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 43 |5. LDX C| 00000380: 4F 4C 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |OL. LDY | 00000390: 43 4F 4C 2B 31 0D 20 20 20 20 20 20 20 20 20 53 |COL+1. S| 000003A0: 54 58 20 43 4F 4C 55 4D 4E 0D 20 20 20 20 20 20 |TX COLUMN. | 000003B0: 20 20 20 53 54 59 20 43 4F 4C 55 4D 4E 2B 31 0D | STY COLUMN+1.| 000003C0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4C | LDA COL| 000003D0: 55 4D 4E 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |UMN. CLC| 000003E0: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 |. ADC #$| 000003F0: 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |01. STA | 00000400: 43 4F 4C 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |COL. LDA| 00000410: 20 43 4F 4C 55 4D 4E 2B 31 0D 20 20 20 20 20 20 | COLUMN+1. | 00000420: 20 20 20 41 44 43 20 23 24 30 30 0D 20 20 20 20 | ADC #$00. | 00000430: 20 20 20 20 20 53 54 41 20 43 4F 4C 2B 31 0D 20 | STA COL+1. | 00000440: 20 20 20 20 20 20 20 20 49 4E 43 20 43 4F 4C 4E | INC COLN| 00000450: 55 4D 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |UM. LDY | 00000460: 23 24 31 38 0D 44 45 4C 30 20 20 20 20 20 4C 44 |#$18.DEL0 LD| 00000470: 58 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 |X #$FF. | 00000480: 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |DEX. BNE| 00000490: 20 2A 2D 31 0D 20 20 20 20 20 20 20 20 20 44 45 | *-1. DE| 000004A0: 59 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 44 |Y. BNE D| 000004B0: 45 4C 30 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |EL0. JMP| 000004C0: 20 57 49 50 45 4C 4F 4F 50 0D 46 49 4E 49 53 48 | WIPELOOP.FINISH| 000004D0: 45 44 20 52 54 53 0D 3B 60 60 60 60 60 60 60 60 |ED RTS.;````````| 000004E0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000004F0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 0D |```````````````.| 00000500: 50 4C 4F 54 32 35 20 20 20 4C 44 58 20 23 32 35 |PLOT25 LDX #25| 00000510: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 24 |. LDY #$| 00000520: 30 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |00. LDA | 00000530: 23 22 20 22 0D 20 20 20 20 20 20 20 20 20 53 54 |#" ". ST| 00000540: 41 20 28 43 4F 4C 55 4D 4E 29 2C 59 0D 20 20 20 |A (COLUMN),Y. | 00000550: 20 20 20 20 20 20 4C 44 41 20 43 4F 4C 55 4D 4E | LDA COLUMN| 00000560: 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 |. CLC. | 00000570: 20 20 20 20 20 20 20 41 44 43 20 23 34 30 0D 20 | ADC #40. | 00000580: 20 20 20 20 20 20 20 20 53 54 41 20 43 4F 4C 55 | STA COLU| 00000590: 4D 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |MN. LDA | 000005A0: 43 4F 4C 55 4D 4E 2B 31 0D 20 20 20 20 20 20 20 |COLUMN+1. | 000005B0: 20 20 41 44 43 20 23 24 30 30 0D 20 20 20 20 20 | ADC #$00. | 000005C0: 20 20 20 20 53 54 41 20 43 4F 4C 55 4D 4E 2B 31 | STA COLUMN+1| 000005D0: 0D 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 |. DEX. | 000005E0: 20 20 20 20 20 20 20 42 4E 45 20 50 4C 4F 54 32 | BNE PLOT2| 000005F0: 35 2B 32 0D 20 20 20 20 20 20 20 20 20 52 54 53 |5+2. RTS| 00000600: 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |.;``````````````| 00000610: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000620: 60 60 60 60 60 60 60 60 60 0D 43 4F 4C 4E 55 4D |`````````.COLNUM| 00000630: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 43 4F 4C | .BYTE $00.COL| 00000640: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D | .BYTE $00.| 00000650: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00000660: 30 30 0D 3B 60 60 60 60 60 60 60 60 60 60 60 60 |00.;````````````| 00000670: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000680: 60 60 60 60 60 60 60 60 60 60 60 0D 0D |```````````.. |
.;``````````````````````````````````````
`.; SCREEN WIPE 2.; -------------.;.; WI
PE OUT 1 COLUMN AT A TIME FROM LEFT.; TO
RIGHT ACROSS THE SCREEN..;`````````````
``````````````````````````..;```````````
````````````````````````````.SCREEN =
1024.COLORS = SCREEN+$D400..START =
SCREEN.COLUMN = $E0.;````````````````
```````````````````````.. *= $09
00.. ; REMOVE BEFORE USING..
LDX #$00.TEST TXA. STA
SCREEN+(256*0),X. STA SCREEN+(25
6*1),X. STA SCREEN+(256*2),X.
STA SCREEN+(256*3),X. DEX.
BNE TEST.. ; ACTUAL COD
E START. LDX #<START. LD
Y #>START. STX COL. STY
COL+1. LDA #$00. STA COL
NUM..WIPELOOP LDX COLNUM. CPX #4
0. BEQ FINISHED. LDX COL
. LDY COL+1. STX COLUMN.
STY COLUMN+1. JSR PLOT2
5. LDX COL. LDY COL+1.
STX COLUMN. STY COLUMN+1.
LDA COLUMN. CLC.
ADC #$01. STA COL. LDA
COLUMN+1. ADC #$00. STA
COL+1. INC COLNUM. LDY
#$18.DEL0 LDX #$FF. DEX.
BNE *-1. DEY. BNE D
EL0. JMP WIPELOOP.FINISHED RTS.;
```````````````````````````````````````.
PLOT25 LDX #25. LDY #$00.
LDA #" ". STA (COLUMN),Y.
LDA COLUMN. CLC. A
DC #40. STA COLUMN. LDA
COLUMN+1. ADC #$00. STA
COLUMN+1. DEX. BNE PLOT2
5+2. RTS.;``````````````````````
`````````````````.COLNUM .BYTE $00.COL
.BYTE $00. .BYTE $00.;````
```````````````````````````````````..
> CLICK IMAGE PREVIEW FOR FULL MODAL