$DEBUG
$SYMBOLS
                public clearram

                ramclear segment code
                rseg ramclear

; Internes RAM des 8032 (bzw. 8031) mit 00 beschreiben
;
; Im PL/M-Programm gleich am Anfang einbauen: call clearram;
;
; bei den Procedure-Deklarationen einbauen:
;
; clearram: procedure external;
; end;

clearram:       clr     a           ; Akku loeschen
                mov     r0,#0ffh    ; 7Fh fuer 8031 einsetzen
loeschen:       mov     @r0,a
                djnz    r0,loeschen
                ret

                end
