ORG 64000
        PSIZE 70     ; Listning p} A4-papper.
        ; ------------------------------------------
        ; K{llkod till SIM802.ABS  (ASM800)        !
        ; ------------------------------------------
        ;
L64000: DI
        LD HL,29700
        LD (L64033),HL
        LD HL,(65494)
        LD (L64062),HL
        LD HL,L64037
        LD (65494),HL
        LD HL,(65460)
        LD (L64094),HL
        LD HL,L64075
        LD (65460),HL
        EI
        RET
L64033: DEFW 0
L64035: DEFW 0
L64037: PUSH HL
        PUSH DE
        PUSH AF
        LD HL,(L64033)
        EX DE,HL
        LD HL,(L64035)
        PUSH HL
        AND A
        SBC HL,DE
        JR NC,L64064
        POP HL
        INC HL
        LD (L64035),HL
L64058: POP AF
        POP DE
        POP HL
L64061: DEFB 0C3H    ; JP
L64062: DEFW 0       ; Reservera plats f|r adressen
L64064: LD A,6
        OUT (56),A
        LD A,0
        OUT (57),A
        POP HL
        JR L64058
L64075: PUSH HL
        PUSH AF
        LD HL,0
        LD (L64035),HL
        LD A,6
        OUT (56),A
        LD A,24
        OUT (57),A
        POP AF
        POP HL
L64093: DEFB 0C3H    ; JP
L64094: DEFW 0       ; Reservera plats f|r adressen
        END 64000