Pokey's Magazine 16/Pokeys_Magazine_16_1992_01___nl_Side_B.atr/kaalstrc.src

Text File | 2023-02-26 | 5KB | 302 lines

**************************************
*                 *
* NAAM  :*
*                 *
* DATUM :*
*                 *
* DOEL  :*
*  *
*  *
*  *
*  *
*  *
*  *
*  *
*  *
*  *
*  *
*  *
*  *
**************************************

*------------------------------------*
* ADRES-LABELS                       *
*------------------------------------*

VDSLST    EQU $200        DLI VECTOR
SDLSTL    EQU $230        DISPLAY LST

NMIEN    EQU $D40E

SETVBV    EQU $E45C    SET VBI
SYSVBV    EQU $E45F    SYSTEM VBI
XITVBV    EQU $E462    EXIT DEF VB

**************************************
*                 *
* HOOFDPROGRAMMA             *
*                 *
**************************************

    ORG $A800

    JSR INIT
    JSR VWS1

    RTS

**************************************
*                 *
* SUBROUTINE: INIT         *
*                 *
* DOEL: INITIALISATIES OP          *
*       PROGRAMMANIVEAU         *
*                 *
**************************************

INIT    RTS

**************************************
*                 *
* SUBROUTINE: VWS1         *
*                 *
* DOEL: VERWERKEN SCHERM 1         *
*                 *
**************************************

VWS1    LDA #0
    STA EVWS1?

*------------------------------------*
* HIER DE HANDELINGEN DIE IN DE     *
* LUS WORDEN HERHAALD TOT EINDE OP 1 *
* IS GEZET.             *
*------------------------------------*

VWS1LUS    JSR INI1
    JSR LVS1

*------------------------------------*
* OP VOORWAARDE UIT LVS1 EINDE AAN   *
*------------------------------------*

    LDA ENDER
    BEQ NOEVWS1

    LDA #1
    STA EVWS1?
    BNE ENDVWS1

*------------------------------------*
* INVOER VAN SCHERM 1 VERWERKEN     *
*------------------------------------*

NOEVWS1    JSR VW1

*------------------------------------*
* ALS EVWS1? <>0 DAN EINDE LUS SCH 1 *
*------------------------------------*

ENDVWS1    LDA EVWS1?
    BEQ VWS1LUS

    RTS

**************************************
*                 *
* SUBROUTINE: INI1         *
*                 *
* DOEL: INITIALISEREN SCHERM 1     *
*                 *
**************************************

*------------------------------------*
* DISPLAY LIST OP DL ZETTEN     *
*------------------------------------*

INI1    LDA #DLS1:L
    STA SDLSTL
    LDA #DLS1:H
    STA SDLSTL+1

*------------------------------------*
* IMMEDIATE VERTICAL BLANK OP VBIS1  *
*------------------------------------*

    LDA #6
    LDY #VBIS1:L
    LDX #VBIS1:H
    JSR SETVBV

*------------------------------------*
* DEFERRED VERTICAL BLANK OP VBDS1     *
*------------------------------------*

    LDA #7
    LDY #VBDS1:L
    LDX #VBDS1:H
    JSR SETVBV

*------------------------------------*
* DLST INTERRUPT OP DLIS1 ZETTEN     *
*------------------------------------*

    LDA #DLIS11:L
    STA VDSLST
    LDA #DLIS11:H
    STA VDSLST+1

*------------------------------------*
* DLI'S AANZETTEN             *
*------------------------------------*

    LDA #$C0
    STA NMIEN

    RTS

**************************************
*                 *
* SUBROUTINE: LVS1         *
*                 *
* DOEL: LEES EN VALIDEER SCH 1       *
*                 *
**************************************

LVS1    LDA #0
    STA ELVS1?

*------------------------------------*
* INVOER OP SCHERM 1 REGELEN      *
*------------------------------------*

LVS1LUS    JSR LEES1

*------------------------------------*
* EINDE PROGRAMMA? (DOOR BIJV ESC?)  *
*------------------------------------*

    LDA ENDER
    BEQ NOELVS1

    LDA #1
    STA ELVS1?
    BNE ENDLVS1

*------------------------------------*
* DE INVOER KONTROLEREN         *
*------------------------------------*

NOELVS1    LDA #'N
    STA FOUT

    JSR KSCH1

    LDA FOUT
    CMP #'N
    BNE ENDLVS1

*------------------------------------*
* ER WAS GEEN FOUT, DUS EINDE LVS1     *
*------------------------------------*

    LDA #1
    STA ELVS1?

*------------------------------------*
* ALS ELVS1? <>0 DAN EINDE LUS LVS1     *
*------------------------------------*

ENDLVS1    LDA ELVS1?
    BEQ LVS1LUS

    RTS

**************************************
*                 *
* SUBROUTINE: LEES1         *
*                 *
* DOEL: INVOER OP SCHERM 1 REGELEN     *
*                 *
**************************************

LEES1    RTS

**************************************
*                 *
* SUBROUTINE: KSCH1         *
*                 *
* DOEL: INVOER OP SCHERM 1 KONTROLE  *
*                 *
* BIJ FOUT WORDT FOUT #'J         *
* TEVENS KAN ER ERGENS EEN FOUT-     *
* BOODSCHAP WORDEN AFGEBEELD     *
*                 *
**************************************

KSCH1    RTS

**************************************
*                 *
* SUBROUTINE: VW1             *
*                 *
* DOEL: VERWERKINGEN AAN DE HAND VAN *
*       DE INVOER OP SCHERM 1     *
*                 *
* HIERIN WORDT ALS ER EEN TWEEDE      *
* SCHERM KOMT OOK VWS2 AANGEROEPEN   *
*                 *
**************************************

VW1    RTS

**************************************
*                 *
* INTERRUPT: VBIS1         *
*                 *
* DOEL: VERTICAL BLANK BIJ SCH 1     *
*                 *
**************************************

VBIS1    JMP $E45F

**************************************
*                 *
* INTERRUPT: VBDS1         *
*                 *
* DOEL: VERTICAL BLANK BIJ SCH 1     *
*                 *
**************************************

VBDS1    JMP $E462

**************************************
*                 *
* INTERRUPT: DLIS11         *
*                 *
* DOEL: 1E DLI OP SCHERM 1         *
*                 *
**************************************

DLIS11    RTI

**************************************
*                 *
* VARIABELEN GEBRUIKT DOOR STANDAARD *
* SUBROUTINES             *
*                 *
**************************************

EVWS1    DFB 0
ELVS1    DFB 0
ENDER    DFB 0
FOUT    DFB 0

**************************************
*                 *
* DISPLAY LIST: SCHERM 1         *
*                 *
**************************************

DLS1    EQU $BC20
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯