ML$L_POKE                       .. put data to memory                    21-APR-1983 15:39:49  VAX-11 Macro V03-00         Page   1
                                                                          5-APR-1983 09:19:50  CAD$VOLSET:[GARY.STATS.SOURCE]POKE(1)

                                     0000     1         .TITLE  ML$L_POKE .. put data to memory
                                     0000     2 ;++
                                     0000     3 ; FUNCTIONAL DESCRIPTION:
                                     0000     4 ;
                                     0000     5 ;	This routine puts the value located at the argument into the 
                                     0000     6 ;	address of the second argument.
                                     0000     7 ;
                                     0000     8 ; CALLING SEQUENCE:
                                     0000     9 ;
                                     0000    10 ; status = ML$L_POKE( location_1, location_2 )
                                     0000    11 ;
                                     0000    12 ;
                                     0000    13 ; INPUTS:
                                     0000    14 ;
                                     0000    15 ;        The absolute address of the location to take data from
                                     0000    16 ;        The absolute address of the location to put  data to
                                     0000    17 ;
                                     0000    18 ; IMPLICIT INPUTS:
                                     0000    19 ;
                                     0000    20 ;        none
                                     0000    21 ;
                                     0000    22 ; OUTPUTS:
                                     0000    23 ;
                                     0000    24 ;        What ever is stored at the absolute address 1 into
                                     0000    25 ;        What ever is stored at the absolute address 2
                                     0000    26 ;
                                     0000    27 ; IMPLICIT OUTPUTS:
                                     0000    28 ;
                                     0000    29 ;        none
                                     0000    30 ;
                                     0000    31 ; ROUTINE VALUE:
                                     0000    32 ;
                                     0000    33 ;        success (1) regardless
                                     0000    34 ;
                                     0000    35 ; SIDE EFFECTS:
                                     0000    36 ;
                                     0000    37 ;	none so far
                                     0000    38 ;--
                                 00000000    39         .PSECT  ML$L_POKE,PIC,CON,REL,LCL,SHR,NOEXE,RD,WRT,LONG
                               0000  0000    40         .ENTRY  ML$L_POKE ^M<>
                                     0002    41 
                    51   04 BC   D0  0002    42         MOVL    @4(AP),R1    ; get the address of the value
                       51   61   D0  0006    43         MOVL    (R1),R1      ; get the value
                    52   08 BC   D0  0009    44         MOVL    @8(AP),R2    ; get address of destination
                       62   51   D0  000D    45         MOVL    R1,(R2)      ; put value there
                       50   01   D0  0010    46         MOVL    #1,R0        ; OK
                                     0013    47 
                                 04  0013    48         RET                  ; leave
                                     0014    49 
                                     0014    50         .END
ML$L_POKE                       .. put data to memory                    21-APR-1983 15:39:49  VAX-11 Macro V03-00         Page   2
Symbol table                                                              5-APR-1983 09:19:50  CAD$VOLSET:[GARY.STATS.SOURCE]POKE(1)

ML$L_POKE        00000000 RG D  02      

                                                +----------------+
                                                ! Psect synopsis !
                                                +----------------+

PSECT name                      Allocation          PSECT No.  Attributes     
----------                      ----------          ---------  ----------     
.  ABS  .                       00000000  (    0.)  00 (  0.)  NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT NOVEC BYTE  
. BLANK .                       00000000  (    0.)  01 (  1.)  NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT NOVEC BYTE  
ML$L_POKE                       00000014  (   20.)  02 (  2.)    PIC   USR   CON   REL   LCL   SHR NOEXE   RD    WRT NOVEC LONG  
ML$L_POKE                       .. put data to memory                    21-APR-1983 15:39:49  VAX-11 Macro V03-00         Page   3
Cross reference                                                           5-APR-1983 09:19:50  CAD$VOLSET:[GARY.STATS.SOURCE]POKE(1)


                                             +------------------------+
                                             ! Symbol Cross Reference !
                                             +------------------------+

SYMBOL          VALUE        DEFINITION      REFERENCES... 
------          -----        ----------      ------------- 
ML$L_POKE       00000000-R   40     (1)    
ML$L_POKE                       .. put data to memory                    21-APR-1983 15:39:49  VAX-11 Macro V03-00         Page   4
Cross reference                                                           5-APR-1983 09:19:50  CAD$VOLSET:[GARY.STATS.SOURCE]POKE(1)


                                             +------------------------+
                                             ! Opcode Cross Reference !
                                             +------------------------+

OPCODE         VALUE     REFERENCES... 
------         -----     ------------- 
MOVL           00D0      42     (1)    43     (1)    44     (1)    45     (1)    46     (1)    
RET            0004      48     (1)    
ML$L_POKE                       .. put data to memory                    21-APR-1983 15:39:49  VAX-11 Macro V03-00         Page   5
Cross reference                                                           5-APR-1983 09:19:50  CAD$VOLSET:[GARY.STATS.SOURCE]POKE(1)


                                           +----------------------------+
                                           ! Directives Cross Reference !
                                           +----------------------------+

DIRECTIVE      REFERENCES... 
---------      ------------- 
.END           50     (1)    
.ENTRY         40     (1)    
.PSECT         39     (1)    
.TITLE         1      (1)    
ML$L_POKE                       .. put data to memory                    21-APR-1983 15:39:49  VAX-11 Macro V03-00         Page   6
Cross reference                                                           5-APR-1983 09:19:50  CAD$VOLSET:[GARY.STATS.SOURCE]POKE(1)


                                            +--------------------------+
                                            ! Register Cross Reference !
                                            +--------------------------+

REGISTER  NO. REFERENCES     REFERENCES... 
--------  --------------     ------------- 
AP                 2         #-42     (1)    #-44     (1)    
R0                 1         #-46     (1)    
R1                 4         #-42     (1)    #-43     (1)    #-45     (1)    
R2                 2         #-44     (1)    #-45     (1)    

                                             +------------------------+
                                             ! Performance indicators !
                                             +------------------------+

Phase                    Page faults    CPU Time       Elapsed Time   
-----                    -----------    --------       ------------   
Initialization                   30     00:00:00.07    00:00:00.23
Command processing               43     00:00:00.21    00:00:00.58
Pass 1                          105     00:00:00.26    00:00:00.39
Symbol table sort                 0     00:00:00.00    00:00:00.00
Pass 2                           42     00:00:00.13    00:00:00.19
Symbol table output               2     00:00:00.01    00:00:00.01
Psect synopsis output             3     00:00:00.02    00:00:00.02
Cross-reference output           15     00:00:00.08    00:00:00.08
Assembler run totals            244     00:00:00.80    00:00:01.50

The working set limit was 428 pages.
576 bytes (2 pages) of virtual memory were used to buffer the intermediate code.
There were 10 pages of symbol table space allocated to hold 1 non-local and 0 local symbols.
50 source lines were read in Pass 1, producing 14 object records in Pass 2.
0 pages of virtual memory were used to define 0 macros.

                                            +--------------------------+
                                            ! Macro library statistics !
                                            +--------------------------+

Macro library name                           Macros defined      
------------------                           --------------      
SYS$SYSROOT:[SYSLIB]STARLET.MLB;1                       0        

0 GETS were required to define 0 macros.

There were no errors, warnings or information messages.

/EN=(DBG,GBL,TR)/OBJECT=OBJ:POKE/LIST=LIS:POKE/CROSS=ALL SRC:POKE
