mit41301

100  REM  Utility to hex dump ROM code from Intel 8052-BASIC MCU   S.Quest '97
110  COU=0 : BEG=0 : NDD=8191 : FST=0
120  PH1. BEG+FST," = ", : FOR CYC=BEG TO NDD
130  COU=COU+1 : IF COU=17 PH1. CYC+FST," = ", : COU=1
140  PH0. CBY(FST+CYC), : NEXT CYC : PRINT

mit41301

100  REM  Utility to hex dump ROM code from Intel 8052-BASIC MCU   S.Quest '97
110  COU=0 : BEG=0 : NDD=12287 : FST=0
120  PH1. BEG+FST," = ", : FOR CYC=BEG TO NDD
130  COU=COU+1 : IF COU=17 PH1. CYC+FST," = ", : COU=1
140  PH0. CBY(FST+CYC), : NEXT CYC : PRINT

mit41301

10    TIME=0
20     CLOCK 1 :  REM start the clock
30     FOR I=1 TO 100
40     FOR J=1 TO 100
50    K=SQR(EXP(LOG(I*J)))
55     PRINT I,J,K
60     NEXT J
70     NEXT I
80     CLOCK 0 :  REM stop the clock
90     PRINT TIME

mit41301

10     REM **********************************
20     REM *       Test for "TIME="         * 
30     REM **********************************
40    TIME=0 :  CLOCK 1 : F=0
50     IF TIME>8 THEN  PRINT  :  PRINT  : F=F+1 : TIME=4
60     PRINT TIME,
70     IF F<2 GOTO 50
80     END 

mit41301

10     REM *******************************
11     REM *    Hintergrund-Uhr mit      *
12     REM *    Watchdog-Timer-Reset     *
13     REM *   Auf P1.2 (PWM) des 80C32  *
14     REM * (C) H.-J. Boehling 24.10.99 *
15     REM *******************************
16     XTAL=11059200 : CLEAR  :  FOR I=0 TO 11 : XBY((0C000H+I))=0 :  NEXT I
17     STRING 100,10 : DAY=1 : WDAY=1 : M=1 : YEAR=0
18     PRINT CHR(12), :  REM Bildschirm loeschen
19    $(1)="Montag" : $(2)="Dienstag" : $(3)="Mittwoch"

mit41301

10     REM ***********************************
20     REM * ERASE zum loeschen von EEPROM's *
30     REM *   (C) H.-J. Boehling 21.08.98   *
40     REM ***********************************
50     PRINT "Ich treffe Vorbereitungen zum loeschen des EEPROM."
60    MTOP=5FFFH :  REM RAM-Speicher ab 6000H (obere 8 Kbyte) sichern
70     REM ===== RAM mit FFH fuellen ==========
80     FOR I=6000H TO 7FFFH : XBY(I)=0FFH :  NEXT I
90     REM ===== Register laden ===============
100    REM Quelle = 6000H bis 7FFFH (RAM) nach 

mit41301

10     REM *****************************************
20     REM *  I2C-Communication with MCS-51-BASIC  *
30     REM *   over Ports 1.5 (SCL) and 1.6 (SDA)  *
40     REM *                                       *
50     REM *      (C) H.-J. Boehling 07.29.99      *
60     REM *    http://home.nexgo.de/H.Boehling    *
70     REM *                                       *
80     REM *****************************************
90     REM
100   CLKL=0DFH : CLKH=20H : DATL=0BFH : DATH=40H

mit41301

10     REM *****************************************
20     REM *  I2C-Communication with MCS-51-BASIC  *
30     REM *   over Ports 1.5 (SCL) and 1.6 (SDA)  *
40     REM *    (no remarks for speed version)     *
50     REM *      (C) H.-J. Boehling 07.29.99      *
60     REM *    http://home.nexgo.de/H.Boehling    *
70     REM *                                       *
80     REM *****************************************
90    CLKL=0DFH : CLKH=20H : DATL=0BFH : DATH=40H
100    REM +++ I2C Test ++++++++++++++++++++++++++++

mit41301

10     PRINT CHR(12)
20     PRINT "********************************************"
30     PRINT "*          MEMDUMP  Memory reader          *"
40     PRINT "*       (C) H.-J. Boehling 21.08.99        *"
50     PRINT "*     http://home.nexgo.de/H.Boehling      *"
70     PRINT "********************************************" :  PRINT 
80    Z=0 : CK=0
90     REM ------ Eingabe -----------------------------
100    PRINT "Welcher Speicher soll gelistet werden?" :  PRINT 
110    PRINT " -1-  Interner Speicher"

mit41301

10 REM ******************************
20 REM *  Berechnung der Zahl Phi   *
30 REM *          bis zum           *
40 REM * "Multiplication Underflow" *
50 REM ******************************
100   B=1
110   A=1
120   N=.5
130   F=0
150    REM  DO