Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

         TITLE   FILMSG
;ERROR MESSAGES FOR THE FILSET PROGRAM
         TWOSEG
         ENTRY   FILERR
         EXTERN  FILVAL,FILNFL,FILCNT
         RELOC   400000
FILERR:  OUTSTR  [ASCIZ/
?/]
         MOVEM   3,FILVAL
         MOVEI   3,-1(2)
         OUTSTR  @ERRMSG(3)
         JUMPN   3,ENDMSG
         MOVEM   4,FILNFL
         MOVEM   5,FILCNT
         MOVEI   3,3
         MOVE    4,[POINT 3,2,8]
ASCLUP:  ILDB    5,4
         ADDI    5,"0"
         OUTCHR  5
         SOJG    3,ASCLUP
         OUTSTR  [ASCIZ/, IN FILE SPECIFICATION/]
         MOVE    4,FILNFL
         MOVE    5,FILCNT
ENDMSG:  OUTSTR  [ASCIZ/
/]
         MOVE    3,FILVAL
         JRSTF   (1)


ERRMSG:  Z       [ASCIZ/ILLEGAL ASCII, /]
         Z       [ASCIZ/END OF LINE IN QUOTED STRING/]
         Z       [ASCIZ/UNMATCHED RIGHT ANGLE BRACKET/]
         Z       [ASCIZ/UNMATCHED RIGHT SQUARE BRACKET/]
         Z       [ASCIZ/UNKNOWN SWITCH/]
         Z       [ASCIZ/NEGATIVE PROTECTION CODE/]
         Z       [ASCIZ/PROTECTION CODE TOO LARGE/]
         Z       [ASCIZ/NULL PROTECTION CODE/]
         Z       [ASCIZ/IMPROPERLY DELIMITED PROTECTION CODE/]
         Z       [ASCIZ/NEGATIVE PROJECT NUMBER/]
         Z       [ASCIZ/PROJECT NUMBER TOO LARGE/]
         Z       [ASCIZ/IMPROPERLY DELIMITED PROJECT NUMBER/]
         Z       [ASCIZ/NEGATIVE PROGRAMMER NUMBER/]
         Z       [ASCIZ/PROGRAMMER NUMBER TOO LARGE/]
         Z       [ASCIZ/IMPROPERLY DELIMITED PROGRAMMER NUMBER/]
;        Z       [ASCIZ/FURTHER DIAGNOSTICS WOULD BE MISLEADING/]

         LIT
         END