00100 *************************
00110 *
00120 * SINT.ASM
00130 * MDJ 08-22-91
00140 *
00150 * SETS INTERRUPTS
00160 *
00170 *************************
00180 *
00190 PCLS    EQU     $3E4F
00200 DNMISV  EQU     $46B6
00210 DIRQSV  EQU     $46C4
00220 FIRQSV  EQU     $4732
00230         ORG     $5271
00240 SINT    PSHS    A,B
00250         ORCC    #$50
00260         LDD     #$3B3B  RTI'S
00270         STA     $106
00280         STD     $107
00290         STD     $FEEE
00300         STD     $FEF0
00310         STD     $FEF2
00320         STA     $FEFA
00330         STD     $FEFB
00340         LDA     #$7E    JMP'S
00350         STA     $FEF4
00360         STA     $FEF7
00370         STA     $FEFD
00380         LDD     #FIRQSV
00390         STD     $FEF5
00400         LDD     #DIRQSV
00410         STD     $FEF8
00420         LDD     #DNMISV
00430         STD     $FEFE
00440         ANDCC   #$AF
00450         PULS    A,B
00460         JMP     PCLS    GO CLEAR SCREEN
00470 ZEND    NOP
00480         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
