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 !