
        NAM     GETMEMNO
        
***     Gets number of memory space to be 
*       manipulated. 
*       Adjusts IX to point to specified
*       memory location.
*       Utilizes subroutines WCHKEY, NOKEY,
*       MAKSUR, DECODE, GETKEY, BOUNDS,
*       INITIX, WRITCH & WRISTR.
*
*       Version 1.0
*       hjoel   1988-01-01
*
*       Exit:   IX points to specified mem-
*                 ory location.
*               Mem. loc. number in AccA.
*       Both Acc:s and IR:s changed during op.
***

        ORG     $A0F0
        
GETMEM  JSR     GETKEY
        PSHU    A
        LDY     #GETMEM
        JSR     BOUNDS
        ADDA    #ASCII
        JSR     WRITCH
        LDX     #COLON
        JSR     WRISTR
        PULU    A
        
        LDX     #MEMS      
        JSR     INITIX
        
        RTS
                
