
*********************************
* LISTING 1: USR-BEFEHL         *
*            ATMAS-II FORMAT    *
* DOUBLE-PEEK FUNKTION          *
* AUFRUF: D=USR(1536,<ADRESSE>) *
*********************************

FR0      EQU $D4           ERGEBNISREGISTER
HLFREG   EQU $CB           HILFSREGISTER IN ZEROPAGE

         ORG $0600         PROGRAMM IN PAGE 6

         PLA               ANZAHL DER ARGUMENTE
         PLA               MSB DER ADRESSE
         STA HLFREG+1      IN ZEROPAGE ABLEGEN
         PLA               LSB DER ADRESSE
         STA HLFREG        AUCH IN ZEROPAGE
         LDY #0            LSB DER ADRESSE...
         LDA (HLFREG),Y    ... INDIREKT LADEN         
         STA FR0           IN ERGEBNISREGISTER EINTRAGEN
         INY               ALS NAECHSTES MSB
         LDA (HLFREG),Y
         STA FR0+1         MSB IN ERGEBNISREGISTER
         RTS               ZURUECK INS BASIC

