Programming - Interrogation program 'SPACE'(1),CLS(2)

 ASSEMBLY FOR BEGINNERS

   (C) Hunter/MSoft

 Hello!!! I won’t explain for a long time, but will get straight to the point.
Survey program 'SPACE'(1),CLS(2)

SPACE LD A,127
        IN A,(254)
        RRA
        JR C, ADR ; if not pressed, go to or to the beginning of the survey,
                   ;or for another procedure.
        CALL ADR1 ; when pressed, goes to ADR1.

CLS LD HL,16384
        LD DE,16385
        LD BC,6144
        LD(HL),L
        LDIR

   Helpful advice: if you have a ticker without music, then don’t
be sure to put it on interruption. Before HALT install
music, and after - CALL (INST + 6) - playing a note (naturally, in
The BS must return to HALT for its normal output to the
wounds).