1 REM Ins{nt av 3947
100 REM !
101 REM ! STOP med valfri tangent
102 REM ! =======================
103 REM !
104 REM ! F|r ABC80 - rutinen {r sj{lv-relokerande.
105 REM !
106 REM !
107 REM !
108 REM ! KEY EQU 159 ; \nskad kod + 128 - H{r CTRL-SHIFT-O
109 REM !
110 REM ! ORG 00 ; Relativt, l{ggs fr}n BASIC-rutinen
111 REM !
112 REM ! TB_INT DEFB 56 ; TB-interupt
113 REM ! DEFB 0 ; Relativt, l{ggs fr}n BASIC-rutinen
114 REM ! CS_INT DEFB 148 ; CAS-interupt
115 REM ! DEFB 5 ;
116 REM ! IN_CHR PUSH AF ;
117 REM ! IN A,(56) ; L{s TB-porten
118 REM ! CP KEY ; \nskad kod + 128 ?
119 REM ! JP 803 ; Hoppa till normal INT-rutin
120 REM !
121 REM ! Vid hoppet till normala interuptrutinen {r Z-flaggan satt
122 REM ! om det var KEY som l{stes in - Den normala rutinen kollar
123 REM ! detta och s{tter flagga f|r STOP i s}fall.
124 REM ! Om inget STOP |nskas s{tts KEY till < 128.
125 REM ! H{r f|ljer den initieringsrutin som st{ller om I-reg.
126 REM ! Den "f|rsvinner" efter initieringen.
127 REM !
128 REM ! LD A,0 ; Relativt, l{ggs fr}n BASIC-rutinen
129 REM ! LD I,A
130 REM ! RET
131 REM !