mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-07-27 11:08:49 +02:00
gottfriedleibniz
d79382bbfe
* chore: run codespell on source/header files Fixes most reported typos discovered by codespell (while trying to be unopinionated about American vs. British English). * chore: run codespell on build/readme files
226 lines
7.9 KiB
Plaintext
226 lines
7.9 KiB
Plaintext
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
Fish note:
|
|
|
|
The length of the filename is not limited to 17 characters as the
|
|
below sample states. Rather, the length of the filename is limited
|
|
solely by the host filesystem code. On Windows, filenames can be up
|
|
to 260 characters long. (or even longer if "\\?\" format is used!)
|
|
|
|
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
|
|
* $$ JOB JNM=TMOUNT,DISP=D,CLASS=0
|
|
// JOB TMOUNT COMPILE PROGRAM TMOUNT
|
|
// LIBDEF *,CATALOG=PRD2.CONFIG
|
|
// OPTION ERRS,SXREF,SYM,NODECK,CATAL
|
|
PHASE TMOUNT,*
|
|
// EXEC ASMA90,SIZE=(ASMA90,64K),PARM='EXIT(LIBEXIT(EDECKXIT)),SIZE(MAXC
|
|
-200K,ABOVE)'
|
|
TMOUNT CSECT
|
|
SPACE 1
|
|
*---------------------------------------------------------------------
|
|
*
|
|
* TMOUNT - VSE VERSION II
|
|
*
|
|
* THE TMOUNT COMMAND IS USED FROM VSE ON THE P/390 TO TELL THE
|
|
* AWSTAPE MANAGER WHICH OS/2 FILE TO USE WHEN THE USER WRITES TO
|
|
* THIS DEVICE. IT CAN ALSO BE USED TO QUERY WHAT OS/2 FILE IS
|
|
* CURRENTLY ASSOCIATED WITH THE DEVICE.
|
|
*
|
|
* TWO SPECIAL CCW OPCODES ARE SUPPORTED BY THE AWSTAPE EMULATOR:
|
|
* X'4B' - ASSIGN A DOS FILEID TO THE DEVICE. (WAS '4B' 6/30)
|
|
* X'E4' - SENSE FILEID - RETURN THE NAME OF THE ASSIGNED DOS FILE
|
|
*
|
|
* THE EMULATED TAPE HAS TO BE ASSIGNED TO SYS014
|
|
*
|
|
* E.G // JOB TMOUNT
|
|
* // ASSGN SYS014,580
|
|
* // EXEC TMOUNT,REAL,SIZE=AUTO,PARM='580 D:TEST.TAP'
|
|
* OR
|
|
* // EXEC TMOUNT,REAL,SIZE=AUTO,PARM='580 (QUERY'
|
|
* /*
|
|
* /&
|
|
*
|
|
* AWSTAPE HAS A LIMIT OF 17 CHARACTERS IN A DOS FILEID. THAT
|
|
* LIMIT IS ENFORCED ENTIRELY IN AWSTAPE.
|
|
*
|
|
* THIS PROGRAM IS PROVIDED ON AN AS-IS BASIS.
|
|
* IT HAS NOT BEEN TESTED ON R/390
|
|
* NO MAINTENANCE WILL BE DONE AND NO APARS WILL BE ACCEPTED
|
|
*
|
|
* COMMENTS AND SUGGESTION ARE WELCOME
|
|
*
|
|
* AUTHOR: CHUCK BERGHORN
|
|
* REVISED FOR VSE: CHRISTIAN TOEPSCH (TOEPSCH@DE.IBM.COM)
|
|
*
|
|
*---------------------------------------------------------------------
|
|
*
|
|
SPACE 1
|
|
PRINT GEN
|
|
BALR R8,0
|
|
USING *,R8
|
|
CR R15,R1 TEST FOR PARM=
|
|
BE NOPARM NO PARM SPECIFIED, RETURN
|
|
L R2,0(R1) GET PARAMETER ADDRESS
|
|
SR R3,R3 CLEAR R3
|
|
LH R3,0(R2) GET PARMLENGTH
|
|
AH R3,=X'0001' ADJUST MOVE LENGTH
|
|
EX R3,MOVEINST DO THE MOVE
|
|
CLC PARMLEN,=X'0015' PARMLEN > THAN 21?
|
|
* BH TOOLONG PARMS TOO LONG, RETURN
|
|
OPEN CONSOLE PREPARE TO WRITE TO CONSOLE
|
|
MVC MSGOUT,MSGSTART
|
|
* PUT CONSOLE PRINT OUT THIS MESSAGE
|
|
*---------------------------------------------------------------------
|
|
*
|
|
* END OF PROLOGUE
|
|
*
|
|
*---------------------------------------------------------------------
|
|
*
|
|
CLI PARMDAT,C'(' ANY OPTIONS?
|
|
BNE NOOPT NO, DO SETFILE
|
|
CLC PARMDAT+1(5),=C'QUERY' IS IT A QUERY?
|
|
BE DOQUERY
|
|
B BADOPT
|
|
*---------------------------------------------------------------------
|
|
*
|
|
* QUERY THE CURRENT FILE THAT IS THE VIRTUAL TAPE
|
|
*
|
|
*---------------------------------------------------------------------
|
|
*
|
|
DOQUERY DS 0H SET UP TO DO A QUERY
|
|
MVC MSGOUT,TMPQUERY
|
|
MVC MSGOUT+42(4),PARMDEV INSERT DEVADDR FROM PARM
|
|
PUT CONSOLE PRINT OUT THIS MESSAGE
|
|
*
|
|
* DO THE QUERY
|
|
*
|
|
EXCP QDCCB FIND OUT THE CURRENT FILE
|
|
WAIT QDCCB WAIT FOR IT TO HAPPEN
|
|
MVC MSGOUT,DOSFID PREPARE MESSAGE AND DISPLAY
|
|
PUT CONSOLE RESULT OF QUERY
|
|
LA R15,0 SET RETURN CODE
|
|
B RETURN
|
|
MOVEINST MVC RADDR(01),0(R2) GET PARMS
|
|
MOVEINS2 MVC DOSFID(01),PARMDAT MOVE FILENAME
|
|
*---------------------------------------------------------------------
|
|
*
|
|
* CODE TO SET A NEW FILENAME EQUAL TO THE VIRTUAL TAPE...
|
|
*
|
|
*---------------------------------------------------------------------
|
|
*
|
|
NOOPT DS 0H ASSUME ATTEMPT TO SET FILENAME
|
|
CLI PARMDAT+1,C':' WAS A DRIVE LETTER SPECIFIED
|
|
* BNE BADFILE
|
|
CLC PARMDAT,MSGBLANK ANY FILENAME SPECIFIED
|
|
BE BADFILE NO, BAD FILENAME
|
|
MVC MSGOUT,TMPNOOPT
|
|
MVC MSGOUT+49(4),PARMDEV PUT DEVADDR IN MESSAGE
|
|
PUT CONSOLE
|
|
LH R6,PARMLEN THIS IS THE LENGTH HALFW
|
|
LA R4,PARMDAT THIS IS THE DATA
|
|
S R6,PLUS4 SUBTRACT DEVADDR LENGTH AND
|
|
STH R6,SDCCW+6 STORE LENGTH IN CCW
|
|
SH R6,=X'0001' ADJUST MOVE LENGTH
|
|
EX R6,MOVEINS2 DO THE MOVE
|
|
MVC MSGOUT,MSGBLANK CLEAR MESSAGE AREA
|
|
MVC MSGOUT,DOSFID FILENAME IN MESSAGE
|
|
PUT CONSOLE DISPLAY IT
|
|
EXCP SDCCB SET THE FILENAME INTO MOUNT
|
|
WAIT SDCCB WAIT FOR THIS TO HAPPEN
|
|
LA R15,0 SET RETURN CODE
|
|
B RETURN EXIT
|
|
*---------------------------------------------------------------------
|
|
*
|
|
* ERROR CONDITIONS
|
|
*
|
|
*---------------------------------------------------------------------
|
|
*
|
|
NOPARM DS 0H
|
|
MVC MSGOUT,MSGOPT25 SUBSTITUTE VSE MSG
|
|
PUT CONSOLE SHOW THIS MESSAGE
|
|
LA R15,4
|
|
B RETURN
|
|
BADOPT DS 0H
|
|
MVC MSGOUT,MSGOPT24 SUBSTITUTE VSE MSG
|
|
PUT CONSOLE SHOW THIS MESSAGE
|
|
LA R15,8
|
|
B RETURN
|
|
BADFILE DS 0H
|
|
MVC MSGOUT,MSGNOF5 SUBSTITUTE VSE MSG
|
|
PUT CONSOLE SHOW THIS MESSAGE
|
|
LA R15,12
|
|
B RETURN
|
|
TOOLONG DS 0H
|
|
MVC MSGOUT,MSGLNG6 SUBSTITUTE VSE MSG
|
|
PUT CONSOLE SHOW THIS MESSAGE
|
|
LA R15,16
|
|
B RETURN
|
|
*---------------------------------------------------------------------
|
|
*
|
|
* EXIT CODE
|
|
*
|
|
*---------------------------------------------------------------------
|
|
*
|
|
RETURN DS 0H
|
|
MVC MSGOUT,MSGEND TMP MSG TO SHOW COMPLETION
|
|
* PUT CONSOLE TMP - PUT OUT THIS MESSAGE
|
|
CLOSE CONSOLE
|
|
EOJ
|
|
*
|
|
*
|
|
CONSOLE DTFCN DEVADDR=SYSLOG,IOAREA1=MSGOUT,RECFORM=FIXUNB, X
|
|
TYPEFLE=CMBND,BLKSIZE=70,INPSIZE=17
|
|
MSGOUT DS CL80
|
|
MSGSTART DC CL80'*** BEGINNING OF VSE MOUNT ***'
|
|
MSGEND DC CL80'*** END OF VSE MOUNT ***'
|
|
MSGNOF5 DC CL80'AWSMNT001E NO OR INCORRECT FILEID SPECIFIED'
|
|
MSGLNG6 DC CL80'AWSMNT002E DOS FILENAME TOO LONG'
|
|
MSGOPT24 DC CL80'AWSMNT003E NO OR INVALID OPTION SPECIFIED'
|
|
MSGOPT25 DC CL80'AWSMNT004E NO PARM= GIVEN'
|
|
TMPQUERY DC CL80'AWSMNT005E QUERY VIRTUAL TAPE AT ADDRESS '
|
|
TMPNOOPT DC CL80'AWSMNT006E ASSIGNING TO VIRTUAL TAPE AT ADDRESS '
|
|
MSGBLANK DC CL216' '
|
|
*
|
|
RADDR DS 0CL256 USED TO SAVE PARMS
|
|
PARMLEN DC CL2' ' PARAMETER LENGTH
|
|
PARMDEV DC CL4' ' DEVADDR FROM PARMS
|
|
PARMDAT DC CL216' ' DATA FROM PARMS (QUERY
|
|
* OR FULL QUALIFIED FILENAME
|
|
DOSFID DC CL80' '
|
|
*
|
|
*
|
|
QDCCB CCB SYS014,QDCCW
|
|
SDCCB CCB SYS014,SDCCW
|
|
QDCCW CCW X'4B',DOSFID,X'60',1
|
|
CCW X'E4',DOSFID,X'20',L'DOSFID
|
|
SDCCW CCW X'4B',DOSFID,X'20',L'DOSFID
|
|
*
|
|
*
|
|
PLUS4 DC F'4'
|
|
R0 EQU 0
|
|
R1 EQU 1
|
|
R2 EQU 2
|
|
R3 EQU 3
|
|
R4 EQU 4
|
|
R5 EQU 5
|
|
R6 EQU 6
|
|
R7 EQU 7
|
|
R8 EQU 8
|
|
R9 EQU 9
|
|
R10 EQU 10
|
|
R11 EQU 11
|
|
R12 EQU 12
|
|
R13 EQU 13
|
|
R14 EQU 14
|
|
R15 EQU 15
|
|
END
|
|
/*
|
|
// IF $MRC GT 4 THEN
|
|
// GOTO NOLNK
|
|
// EXEC LNKEDT
|
|
/. NOLNK
|
|
/&
|
|
* $$ EOJ
|