Trailing-Edge
-
PDP-10 Archives
-
bb-jr93j-bb
-
7,6/ap010/ibmspl.c10
There are 13 other files named ibmspl.c10 in the archive. Click here to see a list.
REP 21/3 ;10C1
XP IBMEDT, 364 ; Edit level
WIT
XP IBMEDT, 366 ; Edit level
REP 472/4 ;10C2
WIT
4(365) 22-Oct-84 VLG Fix file not printing if LSTR switch is used
accidently.
4(366) 1-Nov-84 TPW Remove indirection from instructions using
.RETT,.RETF,.POPJ memory operands
(i.e. @.POPJ -> .POPJ).
INS 115/53 ;10C3
REP 132/56 ;10C4
STRPBL: JUMPLE T2,@.POPJ ; do nothing if no data
WIT
STRPBL: JUMPLE T2,.POPJ ; do nothing if no data
REP 6/68 ;10C5
JUMPF @.POPJ ;propagate error if we cannot
WIT
JUMPF .POPJ ;propagate error if we cannot
REP 77/90 ;10C6
JUMPF @.POPJ ;hard error ?
WIT
JUMPF .POPJ ;hard error ?
REP 21/97 ;10C7
JUMPF @.RETT ;things are going downhill fast
WIT
JUMPF .RETT ;things are going downhill fast
REP 27/113 ;10C8
JUMPF PRCALL ;no, skip this
WIT
JUMPF PRSTR ;[365] no, skip this
REP 40/113 ;10C9
WIT
PRSTR:
MOVEI T2,.IBMST ;[365]code for structure entry
$CALL FNDENT ;[365]see if structure present
JUMPF PRCALL ;[365]no - so don't do anything
MOVEI S1,[.IBMST] ;[365] delete the LSTR entry
$CALL INSENT ;[365]
$RETT ;[365]
REP 41/118 ;10C10
SOJLE T4,@.RETF ;must be permanent
WIT
SOJLE T4,.RETF ;must be permanent
REP 67/118 ;10C11
SOJLE T4,@.RETF ;looks grim
WIT
SOJLE T4,.RETF ;looks grim
REP 33/119 ;10C12
JUMPF @.POPJ ;Failed
WIT
JUMPF .POPJ ;Failed
SUM 137909