ANG-Pokey Magazine 3/ANG_Pokey_Magazine_03_1993_01_ANG_Software_nl_Side_B.atr/expintro.arc/EXPINTRO.SRC

Text File | 1988-09-01 | 4KB | 296 lines

**************************************
* ANOTHER EXPERIMENT OF FRANKENSTEIN *
**************************************

    ORG $B600

VECTORL    EQU $B880
VECTORH    EQU VECTORL+$40
SINUS    EQU VECTORH+$40
LETRS    EQU SINUS+$100
SCREEN    EQU LETRS+$100

LOBYTE    EQU $F0        (AND $F1)
CHAR    EQU $F2
PAULUS    EQU $F3
SIN    EQU $F4        (AND $F5)
FONT    EQU $F6        (AND $F7)
LET    EQU $F8        (AND $F9)

ROMFNT    EQU $E000

    LDA $230
    STA TPDL
    LDA $231
    STA TPDL+1

    LDX #0
    STX 19
    STX 20
STRZP    LDA LOBYTE,X
    STA TPZP,X
    INX
    CPX #10
    BNE STRZP

    LDA #SINUS
    STA SIN
    LDA #SINUS/256
    STA SIN+1

*************************************
*  CREATE VECTOR TABLE FOR PICTURE! *
*************************************

    LDY #0
ALLVEC    STY NUMBER
    JSR MULTI
    LDA LOBYTE
    STA VECTORL,Y
    LDA LOBYTE+1
    CLC
    ADC #SCREEN/256
    STA VECTORH,Y
    INY
    CPY #64
    BNE ALLVEC

*************************************
*         SETUP DISPLAY LIST        *
*************************************

    LDA #0
    STA 709
    STA 710
    STA 712
    STA 559

    LDA #1
    STA $220
BLEK    LDA $220
    BNE BLEK

    LDA #DL
    STA $230
    LDA #DL/256
    STA $231

    LDA $222
    STA TMPVB
    LDA $223
    STA TMPVB+1

    LDA #6
    LDY #VBI:L
    LDX #VBI:H
    JSR $E45C

*************************************
*      DELETE PICTURE MEMORY        *
*************************************

    LDX #0
    LDA #0
WIS    STA SCREEN,X
    STA SCREEN+$100,X
    STA SCREEN+$200,X
    STA SCREEN+$300,X
    STA SCREEN+$400,X
    INX
    BNE WIS

*************************************
*     SET LET,LET+1 WITH LETRS!!    *
*************************************

    LDA #LETRS
    STA LET
    LDA #LETRS/256
    STA LET+1

    LDX #0
NO1    JSR PLUKFNT
    LDA LET
    CLC
    ADC #8
    STA LET
    CPX #32
    BNE NO1

    LDA #LETRS
    STA FONT
    LDA #LETRS/256
    STA FONT+1

    LDA #33
    STA 559

    LDA #128
    STA PAULUS

GO    LDA $D01F
    AND #1
    BEQ EINDE
    LDA 19
    CMP #3
    BEQ EINDE

    LDA $D40B
    CMP #100
    BNE GO
    JSR RUN
    JMP GO

EINDE    LDA #0
    STA 559
    LDA #2
    STA $220
KUL    LDA $220
    BNE KUL

    LDA #6
    LDY TMPVB
    LDX TMPVB+1
    JSR $E45C

    LDX #0
RESZP    LDA TPZP,X
    STA LOBYTE,X
    INX
    CPX #10
    BNE RESZP

    LDA TPDL
    STA $230
    LDA TPDL+1
    STA $231

    RTS

RUN    LDA #0
    STA CHAR
NEXTCH    LDY CHAR
    LDA (SIN),Y
    TAX
    LDY #0
LUSSE    LDA VECTORL,X
    STA LOBYTE
    LDA VECTORH,X
    STA LOBYTE+1
    LDA (FONT),Y
    STY DUMMY
    LDY CHAR
    STA (LOBYTE),Y
    LDY DUMMY
    INX
    INY
    CPY #8
    BNE LUSSE

    LDA FONT
    CLC
    ADC #8
    STA FONT

    INC CHAR
    LDA CHAR
    CMP #32
    BNE NEXTCH

    INC SIN
    LDA SIN
    CMP #152
    BNE FUTJIR
    LDA #32
    STA SIN
FUTJIR    RTS

PLUKFNT    LDY #0
    LDA #0
    STA FONT
    STA FONT+1
    LDA TXT,X
    JSR MULTI8
    LDY #0
NNY    LDA (FONT),Y
    STA (LET),Y
    INY
    CPY #8
    BNE NNY
    INX
    RTS

MULTI8    STX DUMKUP
    LDX #3        ; ROL 3X
    CLC
LOOP    ROL
    ROL FONT+1
    DEX
    BNE LOOP
    STA FONT
    LDA FONT+1
    ADC #ROMFNT/256
    STA FONT+1
    LDX DUMKUP

    RTS

VBI    LDA PAULUS
    BNE DIEKRI

    INC 709
    LDA 709
    CMP #16
    BNE WEK
    LDA #15
    STA 709
WEK    JMP $E45F

DIEKRI    DEC PAULUS
    JMP $E45F

DL    DFB 112,112,112,112,112,112
    DFB 112,112,112,112,112,112
    DFB $4F
    DFW SCREEN
    DFB 15,15,15,15,15,15,15
    DFB 15,15,15,15,15,15,15,15
    DFB 15,15,15,15,15,15,15,15
    DFB 15,15,15,15,15,15,15,15
    DFB 15,15,15,15,15,15,15,15
    DFB $41
    DFW DL

TXT    ASC %    THE ATARI EX%
    ASC %PO DEMO 1991    %

***********************************
* MULTIPLY NUMBER WITH 32 ROUTINE *
* MADE BY FRANKENSTEIN SOFTWARE!  *
***********************************

MULTI    LDA #0
    STA LOBYTE
    STA LOBYTE+1

    LDX #5        ; ROL 5X
    CLC
    LDA NUMBER
LOPEN    ROL
    ROL LOBYTE+1
    DEX
    BNE LOPEN
    STA LOBYTE

    RTS

NUMBER    DFB 0
DUMMY    DFB 0
DUMKUP    DFB 0
TMPVB    DFB 0,0
TPDL    DFB 0,0
TPZP    DFB 0,0        ;$F0,$F1
    DFB 0,0        ;$F2,$F3
    DFB 0,0        ;$F4,$F5
    DFB 0,0        ;$F6,$F7
    DFB 0,0        ;$F8,$F9¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯