home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
cmsqueens.tar.gz
/
cmsqueens.tar
/
cm2upc.asm
< prev
Wrap
Assembly Source File
|
1991-04-18
|
3KB
|
36 lines
*********************************************************************** UPC00010
* UPCASE - THIS MODULE IS A CALL FROM PASCAL TO UPCASE AN ALPHA UPC00020
* VARIABLE . UPC00030
* UPC00040
* IT IS CALLED FROM PASCAL A PROGRAM AS FOLLOWS: UPC00050
* UPCASE (ALPHA1) UPC00060
* UPC00070
********************************************************************** UPC00080
* UPC00090
UPCASE CSECT UPC00100
USING *,15 UPC00110
STM 14,12,12(13) SAVE R14,R15,R0-R12 UPC00120
* UPC00130
* GET PARAMETERS POINTED TO BY REGISTER 1 UPC00140
USING PARMLIST,1 UPC00150
L R4,ADDR1 UPC00160
OC 0(8,R4),UPMASK ***** ALL FOR THIS ***** UPC00170
* UPC00180
LM 14,12,12(13) RESTORE REGISTER UPC00190
BR 14 RETURN TO CALLER UPC00200
* UPC00210
UPMASK DC CL8' ' UPCASE MASKING UPC00220
*********************************************************************** UPC00230
* UPC00240
R1 EQU 1 UPC00250
R2 EQU 2 UPC00260
R3 EQU 3 UPC00270
R4 EQU 4 UPC00280
* UPC00290
PARMLIST DSECT UPC00300
ADDR1 DS F UPC00310
ADDR2 DS F UPC00320
* UPC00330
END UPC00340