home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pokey's Magazine 16
/
Pokeys_Magazine_16_1992_01___nl_Side_B.atr
/
kaalstrc.src
< prev
next >
Wrap
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
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯