Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/source/getasy.mac
There are 7 other files named getasy.mac in the archive. Click here to see a list.
; UPD ID= 1369 on 10/23/78 at 3:17 PM
TITLE GETASY FOR COBOL V12C
SUBTTL READ IN AN ASYFIL WORD AL BLACKINGTON/CAM
SEARCH COPYRT
SALL
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
SEARCH P
%%P==:%%P
;EDITS
;V10*****************
;NAME DATE COMMENTS
;********************
TWOSEG
.COPYRIGHT ;Put COPYRIGHT statement in .REL file.
RELOC 400000
ENTRY GETASY ;GET A WORD
ENTRY SETASY ;SET UP ASYFIL FOR INPUT
EXTERNAL DEVDED,KILL,SIXOUT
GETASY: SOSG AS1BHI+2
JRST GETASB
GETASA: ILDB CH,AS1BHI+1
POPJ PP,
GETASB: AOS AS1BLK
IN ASY,
JRST GETASA
MOVEI CH,AS1DEV
JRST DEVDED
SETASY: MOVE TA,AS1BUF ;SET JOBFF TO A BUFFER AREA
MOVEM TA,.JBFF##
INBUF ASY,2 ;GRAB 2 BUFFERS
SETZM AS1BLK ;CLEAR BLOCK COUNTER
MOVE TE,ASYFIL ;SET UP "LOOKUP" PARAMETERS
MOVE TD,AS1HDR+1
SETZB TC,TB
LOOKUP ASY,TE ;FIND THE FILE
JRST KNOAS1 ;NOT THERE--CATASTROPHE
POPJ PP,
;CANNOT FIND ASYFIL
KNOAS1: MOVE TA,ASYFIL
PUSH PP,TD ;SAVE ERROR NUMBER
PUSHJ PP,SIXOUT
TTCALL 3,[ASCIZ ".TMP ("]
POP PP,I2 ;GET ERROR
HRRZS TA,I2 ;GET NUMBER ONLY
PUSHJ PP,OCTOUT##
JUMPE I2,KNOAS0 ;0 IS SPECIAL
MOVE TA,ERAPTR##
KNOAS2: HLRZ TB,(TA)
CAIE TB,(I2)
AOBJN TA,KNOAS2
HRRZ TA,(TA)
OUTSTR (TA)
OUTSTR [ASCIZ /
/]
JRST KILL
KNOAS0: OUTSTR [ASCIZ /0) file not found
/]
JRST KILL
EXTERNAL AS1BHI,AS1BLK,AS1DEV,AS1BUF,AS1HDR,ASYFIL
END