Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
d60jsy.c10
There is 1 other file named d60jsy.c10 in the archive. Click here to see a list.
INS 1/1 ;10C1
; [306] 18-Oct-84 LWS GCO 10112
; Get rid the @.RETT, @.RETF, etc. some clever person coded.
; Strange things happen now that .RETT and .RETF and others are
; now in the low seg and don't use the entry vector.
REP 5/2 ;10C2
; COPYRIGHT (c) 1979, 1980, 1981, 1982, 1983, 1984
; DIGITAL EQUIPMENT CORPORATION
WIT
; COPYRIGHT (c) 1979,1980,1981,1982,1983,1984,1985
; DIGITAL EQUIPMENT CORPORATION
; ALL RIGHTS RESERVED.
DEL 37/2 ;10C3
.BCOPY
COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1984.
.ECOPY
REP 45/2 ;10C4
XP D60EDT, 305 ; Edit level
WIT
XP D60EDT, 306 ; Edit level
REP 18/8 ;10C5
IFB <$%VEC>,<JRST @.RETF> ;; else give a default of false return
WIT
IFB <$%VEC>,<JRST .RETF> ;; [306] else give a default of false return
REP 54/11 ;10C6
JUMPF @.POPJ ; can't
WIT
JUMPF .POPJ ; [306] can't
REP 74/11 ;10C7
JUMPF @.POPJ ; Can't open a front end
$CALL PRTSTS ; Get the port status
JUMPF @.POPJ ; Can't get port status .. dead 11
WIT
JUMPF .POPJ ; [306] Can't open a front end
$CALL PRTSTS ; Get the port status
JUMPF .POPJ ; [306] Can't get port status .. dead 11
REP 86/11 ;10C8
JUMPF @.POPJ ; Someone died .. go release device
WIT
JUMPF .POPJ ; [306] Someone died .. go release device
REP 72/12 ;10C9
JUMPT @.POPJ ; true...return immediately
WIT
JUMPT .POPJ ; [306] true...return immediately
REP 61/15 ;10C10
JUMPN S1,@.RETT ; Input device .. can't output EOF
LOAD S1,(S2),H$RUN ; Check to see if I/O is running
JUMPE S1,@.RETT ; no need
WIT
JUMPN S1,.RETT ; [306] Input device .. can't output EOF
LOAD S1,(S2),H$RUN ; Check to see if I/O is running
JUMPE S1,.RETT ; [306] no need
REP 47/17 ;10C11
JUMPF @.POPJ ; Can't get device status .. die
WIT
JUMPF .POPJ ; [306] Can't get device status .. die
REP 59/17 ;10C12
JUMPF @.POPJ ; Can't get at the port
WIT
JUMPF .POPJ ; [306] Can't get at the port
REP 73/17 ;10C13
JUMPF @.POPJ ; Failed to start a front end
WIT
JUMPF .POPJ ; [306] Failed to start a front end
REP 77/17 ;10C14
JUMPF @.POPJ ; If line status failed .. bad return
WIT
JUMPF .POPJ ; [306] If line status failed .. bad return
REP 52/18 ;10C15
JUMPF @.POPJ ; exit if failed
WIT
JUMPF .POPJ ; [306] exit if failed
REP 98/18 ;10C16
JUMPF @.POPJ ; no success exit till signed on
WIT
JUMPF .POPJ ; [306] no success exit till signed on
REP 46/19 ;10C17
JUMPF @.POPJ
WIT
JUMPF .POPJ ; [306]
REP 86/20 ;10C18
JUMPF @.POPJ
$LNCMD (LC.SON) ; set station signed on flag
JUMPF @.POPJ ; slowness
WIT
JUMPF .POPJ ; [306]
$LNCMD (LC.SON) ; set station signed on flag
JUMPF .POPJ ; [306] slowness
REP 106/20 ;10C19
JRST @.POPJ ; innocuous
WIT
JRST .POPJ ; [306] innocuous
REP 163/21 ;10C20
JUMPF @.POPJ ; just return if end of string
WIT
JUMPF .POPJ ; [306] just return if end of string
REP 169/21 ;10C21
JUMPF @.POPJ ; we are done one way or another
WIT
JUMPF .POPJ ; [306] we are done one way or another
REP 177/21 ;10C22
JUMPE T1,@.POPJ ; if file error, this fails
WIT
JUMPE T1,.POPJ ; [306] if file error, this fails
REP 193/21 ;10C23
GETNDX: JUMPE T2,@.RETF ; not a valid node name
WIT
GETNDX: JUMPE T2,.RETF ; [306] not a valid node name
REP 16/22 ;10C24
JUMPF @.POPJ ; Yes .. so just return with failure
WIT
JUMPF .POPJ ; [306] Yes .. so just return with failure
REP 26/22 ;10C25
JUMPF @.POPJ
REQGLP: $CALL CKIABT ; Check for input aborts
JUMPF @.POPJ ; Failure do to abort on device
WIT
JUMPF .POPJ ; [306]
REQGLP: $CALL CKIABT ; Check for input aborts
JUMPF .POPJ ; [306] Failure do to abort on device
REP 15/23 ;10C26
JUMPF @.POPJ ; Failed .. line must be dead
WIT
JUMPF .POPJ ; [306] Failed .. line must be dead
REP 32/23 ;10C27
JUMPF @.POPJ ; Yes .. just give error return
WIT
JUMPF .POPJ ; [306] Yes .. just give error return
REP 40/23 ;10C28
JUMPF @.POPJ
$CALL CKOABT ; Check for output aborts
JUMPF @.POPJ ; Yes .. failure on device
WIT
JUMPF .POPJ ; [306]
$CALL CKOABT ; Check for output aborts
JUMPF .POPJ ; [306] Yes .. failure on device
REP 24/24 ;10C29
JUMPF @.POPJ
WIT
JUMPF .POPJ ; [306]
REP 34/24 ;10C30
JUMPF @.POPJ ; Failed to clear flag
WIT
JUMPF .POPJ ; [306] Failed to clear flag
REP 24/25 ;10C31
JUMPF @.POPJ
WIT
JUMPF .POPJ ; [306]
REP 32/25 ;10C32
JUMPF @.POPJ ; Failed to clear flag
WIT
JUMPF .POPJ ; [306] Failed to clear flag
REP 16/27 ;10C33
JUMPF @.POPJ ; no more free space
WIT
JUMPF .POPJ ; [306] no more free space
REP 46/27 ;10C34
JUMPF @.POPJ
WIT
JUMPF .POPJ ; [306]
REP 41/39 ;10C35
JUMPF @.POPJ ; Can't get status so fail.
WIT
JUMPF .POPJ ; [306] Can't get status so fail.
REP 51/41 ;10C36
JUMPE S1,@.RETT ; If no error then give success
WIT
JUMPE S1,.RETT ; [306] If no error then give success
REP 17/42 ;10C37
JUMPF @.POPJ ; looks like the fe is dead or delayed
WIT
JUMPF .POPJ ; [306] looks like the fe is dead or delayed
REP 36/50 ;10C38
JUMPE 0,@.RETT ; suc'd
WIT
JUMPE 0,.RETT ; [306] suc'd
REP 92/52 ;10C39
JUMPE TF,@.RETT ; null transfer implies done
LOAD TF,(P1),ARG$BC ; check no bytes left to xfer
JUMPGE TF,@.RETT ; done?
WIT
JUMPE TF,.RETT ; [306] null transfer implies done
LOAD TF,(P1),ARG$BC ; check no bytes left to xfer
JUMPGE TF,.RETT ; [306] done?
REP 37/53 ;10C40
JUMPF @.POPJ ; Failed ... the line is down
WIT
JUMPF .POPJ ; [306] Failed ... the line is down
REP 20/55 ;10C41
JUMPF @.POPJ ; Failed ... go away
WIT
JUMPF .POPJ ; [306] Failed ... go away
SUM 119781