; UPCASE  OBJECT TO MACRO CONVERSION  V01.1   20-APR-89 13:16
 
 
        .TITLE  UPCASE
;
        .IDENT  /V2.1  /
;
;
        .PSECT  TABLES,D,GBL,RO,OVR
        .WORD   1001		; .RAD50  / L3/
        .WORD   4004		; .RAD50  /AKL/
        .WORD   20020		; .RAD50  /EEH/
        .WORD   100100		; .ASCII  /@ /		; .RAD50  /TT2/
        .WORD   1		; .RAD50  /  A/
        .WORD   2		; .RAD50  /  B/
        .WORD   4		; .RAD50  /  D/
        .WORD   10		; .RAD50  /  H/
        .WORD   20		; .RAD50  /  P/
        .WORD   40		; .RAD50  /  2/
        .WORD   100		; .ASCII  /@ /		; .RAD50  / AX/
        .WORD   200		; .RAD50  / CH/
        .WORD   400		; .RAD50  / FP/
        .WORD   1000		; .RAD50  / L2/
        .WORD   2000		; .RAD50  / YX/
        .WORD   4000		; .RAD50  /AKH/
        .WORD   10000		; .RAD50  /BVP/
        .WORD   20000		; .RAD50  /ED2/
        .WORD   40000		; .ASCII  / @/		; .RAD50  /JIX/
        .WORD   100000		; .RAD50  /TSH/
;
        .PSECT  CONSTS,D,LCL,RO,CON
;
        .PSECT  P$CODE,I,LCL,RO,CON
;
	.ENABL	LSB
UPCASE::
        TST     -(SP)
        JSR     PC,P$75
        MOV     20(SP),-(SP)
        MOV     24(SP),R5
16$:    CMP     R5,(SP)
        BGT     66$
        MOV     R5,R3
        SUB     24(SP),R3
        ADD     26(SP),R3
        CMPB    (R3),#141
        BCS     62$
        CMPB    (R3),#172
        BHI     62$
        CLR     R2
        BISB    (R3),R2
        SUB     #40,R2
        MOVB    R2,(R3)
62$:    INC     R5
        BVC     16$
66$:    TST     (SP)+
        JSR     PC,P$77
        MOV     2(SP),10(SP)
        ADD     #10,SP
        RTS     PC
	.DSABL	LSB
;
        .PSECT  P$DYNL,D,GBL,RW,OVR
        .WORD   0
        .END