0 REM SLIDE (AUG 25/84)               :
1 :
2 REM  1 STATEMENT, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS:  5
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM S/SLIDE     SLID     3830    043
8 :
9 REM  U/CHKSPR (3664/037)
10 REM U/RASCHK (3676/038)
11 REM U/DIRECT (3930/044)
12 REM D/POWERS (3694/039)
13 :
14 REM  THIS MODULE ALSO CONTAINS ONE
15 REM  LINE FROM SET SPRITES -- 3624
16 :
17 REM ================================
18 :
110 .ASC "SLID[197]"
1110 .WORD SLID-1
3624 XS3 JMP $B248
3664 CHKSPR JSR $73
3666 CHS1 JSR $B79E
3668 CPX #8
3670 BCS XS3
3672 RTS
3674 ;
3676 RASCHK PHA
3678 RAS1 LDA $D012
3680 SBC $D001,X
3682 BCC RAS2
3684 CMP #$2B
3686 BCC RAS1
3688 RAS2 PLA
3690 RTS
3692 ;
3694 POWERS .BYTE 1,2,4,8,16,32,64,128
3696 ;
3830 SLID JSR CHS1
3832 STX $14
3834 JSR $AEFD
3836 JSR DIRECT
3838 PHA
3840 LDA $14
3842 PHA
3844 LDA #1
3846 STA T3
3848 JSR $79
3850 CMP #","
3852 BNE SL1
3854 JSR $B79B
3856 STX T3
3858 SL1 PLA
3860 TAY
3862 ASL
3864 TAX
3866 PLA
3868 JSR RASCHK
3870 BNE SL2
3872 LDA $D001,X
3874 SBC T3
3876 STA $D001,X
3878 RTS
3880 SL2 CMP #2
3882 BNE SL3
3884 CLC
3886 LDA $D001,X
3888 ADC T3
3890 STA $D001,X
3892 RTS
3894 SL3 CMP #1
3896 BNE SL5
3898 LDA $D000,X
3900 CLC
3902 ADC T3
3904 STA $D000,X
3906 BCC SL6
3908 SL4 LDA $D010
3910 EOR POWERS,Y
3912 STA $D010
3914 RTS
3916 SL5 LDA $D000,X;SUBTRACT DISP
3918 SEC
3920 SBC T3
3922 STA $D000,X
3924 BCC SL4
3926 SL6 RTS
3928 ;
3930 DIRECT JSR $AD9E;EVAL DIRECTION
3932 BIT $0D
3934 BMI DI1
3936 JSR $B7A1
3938 CPX #4
3940 BCS DI5
3942 TXA
3944 RTS
3946 DI1 JSR $B6A6
3948 TAY
3950 BEQ DI3
3952 LDY #0
3954 LDA ($22),Y
3956 LDY #$0F
3958 DI2 CMP DIRS,Y
3960 BEQ DI4
3962 DEY
3964 BPL DI2
3966 DI3 JMP $AF08
3968 DI4 TYA
3970 LSR
3972 LSR
3974 RTS
3976 DI5 JMP $B248
3978 ;
3980 DIRS .ASC "[213]U[206]N[210]R[197]E[196]D[211]S[204]L[215]W"
3982 ;