Terima dan manipulasi print out rs232 sisterm interupt

$regfile = "reg51.dat"
$crystal = 11059200
$baud = 9600

Dim Isi As String * 10
Dim Emt As Byte
Enable Int0                                                   ' aktivasi INT0
Enable Int1                                                   ' aktivasi INT1
Enable Interrupts                                             ' aktivasi INT global

On Int0 Zero                                                  ' jika tjd INT0 lompat ke INT0RLI
On Int1 I4                                                    ' jika tjd INT1 lompat ke INT1RLI


Do

    Input Isi Noecho
    Print "XD4 S ";
    Print Isi;
    Print " 2 1 0 0"
    Waitms 50
    Emt = Inkey
    Emt = Inkey
    Emt = Inkey
    Emt = Inkey



Loop

I4:
   Print "I4 A epic "
   Waitms 200
   Return

Zero:
   Print "Z A"
   Waitms 200
   Retur