;PROMPT.M68
;XCALL PROMPT, row, column, text

       OBJNAM  PROMPT.SBR

       SEARCH  SYS
       SEARCH  SYSSYM

       EXTERN  $GTARG

       .OFINI
       .OFDEF  XC.ARG,2                ;number of arguments
       .OFDEF  XC.TY1,2                ;type code - arg 1
       .OFDEF  XC.AD1,4                ;abs addr - arg 1
       .OFDEF  XC.SZ1,4                ;size - arg 1
       .OFDEF  XC.TY2,2                ;type code - arg 2
       .OFDEF  XC.AD2,4                ;abs addr - arg 2
       .OFDEF  XC.SZ2,4                ;size - arg 2
       .OFDEF  XC.TY3,2                ;type code - arg 3
       .OFDEF  XC.AD3,4                ;abs addr - arg 3
       .OFDEF  XC.SZ3,4                ;size - arg 3

START:  PHDR    -1,0,PH$REE!PH$REU      ;program header
       MOV     #XC.TY1,D1
       CALL    $GTARG
       MOV     D1,D0
       MOV     #XC.TY2,D1
       CALL    $GTARG
       ROLW    D0,#8.
       ADDW    D0,D1
       TCRT                            ;position cursor
       MOV     #177413,D1
       TCRT
       MOV     XC.AD3(A3),A0
       MOV     XC.SZ3(A3),D0
10$:    MOVB    (A0)+,D1
       BEQ     30$
       CMPB    D1,#'A
       BLT     14$
       CMPB    D1,#'Z
       BLE     40$
14$:    TTY
20$:    SOB     D0,10$
30$:    MOV     #177413,D1
       TCRT
       RTN
40$:    SAVE    D1
       MOV     #177414,D1
       TCRT
       REST    D1
       TTY
       MOV     #177413,D1
       TCRT
       BR      20$

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.