;
;       NOCTRLC  820722/LASSE OLOFSSON
;
;       PROGRAM SOM F\RHINDRAR STOPP VIA Ctrl/C
;
;       STOPP SKER IST[LLET GENOM ANROP TILL
;       RUTIN STOPP.
;
;       START SKER GENOM ANROP TILL RUTIN "START"
;       SOM [NDRAR VEKTORNA GENOM ATT [NDRA I-REG.
;
;
;
;
;
;
        ORG 63796
VEKT1   DEFW    NOC          ;VEKTOR TANGENTBORD
VEKT2   DEFW    1428         ;VEKTOR BANDSPELARE
;
;
;
;
;
;
NOC     PUSH    AF
        IN      A,(56)       ;H[MTA TANGENT
        CP      131          ;Ctrl/C ?
        JR      Z,SKIP       ;JA, HOPPA
        POP     AF           ;
        JP      31EH         ;HOPPA TILL NORMAL I/O-RUTIN
;
;
SKIP    POP     AF
        EI
        RETI                 ;RETURN FROM INTRUPPT
;
;
;
STOPP   PUSH    AF
        LD      A,0          ;
        LD      I,A          ;NORMALT I-REGISTER
        LD      A,128        ;
        LD      (65031),A    ;S[TT Ctrl/c FLAGGA
        POP     AF
        RET
;
;
START   PUSH    AF
        LD      A,249        ;
        LD      I,A          ;[NDRA I-REGISTRET F\R
        POP     AF           ;F\R NYA VEKTORER
        RET
;
;
        END