Category : Assembly Language Source Code
Archive   : R42LIB.ZIP
Filename : SYNERROR.ALC

 
Output of file : SYNERROR.ALC contained in archive : R42LIB.ZIP
TITLE 'SYNERROR - SUBROUTINE TO PRINT ERROR MESSAGE IN SYNAD'
* PGMID. SYNERROR.ALC
* AUTHOR. DON HIGGINS
* DATE. 10/19/87
* REMARKS.
* THIS SUBROUTINE MAY BE CALLED AT BEGINNING OF SYNAD EXIT TO
* DECODE DCB FUNCTION AND ERROR CODE IN R1 AND R0.
* MAINTENANCE.
*
* 10/21/87 REVERSE R0 AND R1 FOR COMPATABILITY WITH NATIVE DCB SYNAD
*
SYNERROR CSECT
USING *,R15
STM R0,R4,SAVE04
LA R3,FUNTAB
LA R4,MAXFUN
FUNSCH EQU *
CLM R1,3,0(R3)
BE FUNHIT
LA R3,12(R3)
BCT R4,FUNSCH
LA R2,=C'SYNAD FUNCTION NOT FOUND$'
SVC WTO
SYNEXT EQU *
LM R0,R4,SAVE04
BR R14
FUNHIT EQU * FUNCTION FOUND
MVC DFUN,4(R3) FUNCTION DESCRIPTION
MH R0,=H'20'
AH R0,2(R3) R1 = OFFSET TO ERROR MESSAGE FOR FUNCTION
LR R1,R0
LA R1,ERRTAB-20(R1)
MVC DERR,0(R1) ERROR DESCRIPTION
LA R3,DFILE
LA R4,L'DFILE
L R1,DCBDSN-IHADCB(R2)
DSNLOOP EQU *
MVC 0(1,R3),0(R1) FILE NAME
LA R1,1(R1)
LA R3,1(R3)
CLI 0(R1),0
BE DSNEND
BCT R4,DSNLOOP
DSNEND EQU *
MVI 0(R3),C'$'
LA R2,ERRMSG
SVC WTO
B SYNEXT
LTORG
SAVE04 DS 5F
ERRMSG DC C' I/O ERROR OP= '
DFUN DC CL8' ',C' ERR= '
DERR DC CL20' ',C' FILE='
DFILE DC CL20' ',C'$'
FUNTAB DS 0F
DC AL2(X'101',PCOPEN-ERRTAB),CL8'PC-OPEN'
DC AL2(X'03D',MSOPEN-ERRTAB),CL8'MS-OPEN'
DC AL2(X'03C',MSMAKE-ERRTAB),CL8'MS-MAKE'
DC AL2(X'102',PCCLOS-ERRTAB),CL8'PC-CLOSE'
DC AL2(X'03E',MSCLOS-ERRTAB),CL8'MS-CLOSE'
DC AL2(X'103',PCREAD-ERRTAB),CL8'PC-READ'
DC AL2(X'042',MSSETP-ERRTAB),CL8'MS-SET'
DC AL2(X'03F',MSREAD-ERRTAB),CL8'MS-READ'
DC AL2(X'104',PCWRIT-ERRTAB),CL8'PC-WRITE'
DC AL2(X'040',MSWRIT-ERRTAB),CL8'MS-WRITE'
DC AL2(X'105',PCGETR-ERRTAB),CL8'PC-GET'
DC AL2(X'106',PCPUTR-ERRTAB),CL8'PC-PUT'
DC AL2(X'107',PCDELF-ERRTAB),CL8'PC-DEL'
DC AL2(X'108',PCFIND-ERRTAB),CL8'PC-FIND'
DC AL2(X'109',PCRENF-ERRTAB),CL8'PC-REN'

MAXFUN EQU (*-FUNTAB)/8
ERRTAB EQU *
PCOPEN EQU *
DC CL20'ALREADY OPEN' 1
DC CL20'HANDLE NOT NULL' 2
DC CL20'LRECL LT MIN' 3
DC CL20'USER BUFFER GT MAX' 4
DC CL20'USER BUFFER LT MIN' 5
DC CL20'R/W BUFFER LT LRECL' 6
DC CL20'MIN BUFFER NOT FREE' 7
DC CL20'GET MEMORY ERROR' 8
DC CL20'LRECL LT MIN' 9
DC CL20'LRECL GT MAX' 10
DC CL20'BLKSZ LT MIN' 11
DC CL20'BLKSZ GT MAX' 12
MSOPEN EQU * 03D 1-5
MSMAKE EQU * 03C 3-5
MSCLOS EQU * 03E 6
MSREAD EQU * 03F 5,6
MSWRIT EQU * 040 5,6
MSDELF EQU * 041 2,5
MSSETP EQU * 042 1,6
MSRENF EQU * 056 2,3,5,11H REN ERR'S
DC CL20'FUNCTION # INVALID' 1
DC CL20'FILE NOT FOUND' 2
DC CL20'PATH NOT FOUND' 3
DC CL20'NO HANDLE AVAILABLE' 4
DC CL20'ACCESS DENIED' 5
DC CL20'HANDLE INVALID' 6
PCCLOS EQU *
DC CL20'FILE NOT OPEN' 1 7
DC CL20'FREEMAIN ERROR' 2 8
PCREAD EQU *
DC CL20'FILE NOT OPEN' 1 9
DC CL20'SHORT BLK/BAD RBA' 2 10
DC CL20'ACCESS DENIED' 3 11
PCWRIT EQU * 042
DC CL20'FILE NOT OPEN' 1 12
DC CL20'NOT OUTPUT FILE' 2 13
DC CL20'SHORT BLK/BAD RBA' 3 14
DC CL20'ZERO BLK/BAD RBA' 4 15
DC CL20'DISK FULL' 5 16
DC CL20'NOT SAME DISK' 17 X'11' RENAME ERROR (SAVE SPACE)
PCGETR EQU *
DC CL20'FILE NOT OPEN' 1
DC CL20'RECFM INVALID' 2
DC CL20'RCD LNG LT MIN' 3
DC CL20'RCD LNG GT LRECL' 4
PCPUTR EQU *
DC CL20'FILE NOT OPEN' 1
DC CL20'RECFM INVALID' 2
DC CL20'RCD LNG GT LRECL' 3
DC CL20'RCD LNG LT MIN' 4
DC CL20'RCD LNG GT MAX' 5
DC CL20'NO EOR FOR TEXT' 6
PCDELF EQU *
PCFIND EQU *
PCRENF EQU *
DC CL20'FILE NOT CLOSED' 7
DC CL20'INVALID HANDLE' 8
COPY CPY\IHADCB
COPY CPY\EQUREGS
COPY CPY\EQUSVCS
END


  3 Responses to “Category : Assembly Language Source Code
Archive   : R42LIB.ZIP
Filename : SYNERROR.ALC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/