;************************************************
;* GRAF.ASM stellt als RSX Platz fuer Grafik-   *
;* Routine zur Verfuegung und aendert Betriebs- *
;* system-Prompt im aktiven Status              *
;************************************************

            ds    6	;Seriennummer
            jmp   ftest
next:       db    0c3H
            dw    0
prev:       dw    0
rmov:       db    0	;resident
nonbnk:     db    0
            db    'GRAFRSX'
            ds    3
grafik:     ds    080h	;Platzhalter
ftest:      mov   a,c
            cpi   10	;Read Console Buffer
            jz    begin
            jmp   next
begin:      lxi   h,0
            dad   sp
            shld  ret$stack
            lxi   sp,loc$stack
            push  h	;sichere Register
            push  d
            push  b
            mvi   c,9	;drucke neues Prompt
            lxi   d,test$msg
            call  next
            pop   b
            pop   d
            pop   h
            call  next	;Read Console Buffer
            lhld  ret$stack
            sphl
            ret
test$msg:   db    '<Grafik>$'
ret$stack:  dw    0
            ds    32
loc$stack:
            end