Trailing-Edge
-
PDP-10 Archives
-
bb-bt99m-bb
-
d36com.c19
There are no other files named d36com.c19 in the archive.
REP 45/58 ;19C1
STKVAR <MEMPRI> ; Priority to get memory from ASGRES
MOVEM T2,MEMPRI ; Save it
>
HRRZ P1,T1 ;SAVE THE COUNT
MOVEI T2,1(T1) ;T2 GETS NUMBER OF WORDS.
IFN FTLSTCOR, ADDI T2,3 ;Overhead for check words
WIT
IFN FTOPS20,<
STKVAR <MEMPRI> ; Priority to get memory from ASGRES
MOVEM T2,MEMPRI ; Save it
>>
HRRZ P1,T1 ;SAVE THE COUNT
MOVEI T2,1(T1) ;T2 GETS NUMBER OF WORDS.
IFN FTLSTCOR, ADDI T2,2 ;Overhead for check words
REP 106/58 ;19C2
IFE FTD36MM,<
WIT
IFE FTD36MM!FTOPS10,<
REP 111/58 ;19C3
IFN FTD36MM,<
WIT
IFN FTD36MM!FTOPS10,<
REP 118/58 ;19C4
> ;END IFN FTLOSTCOR
WIT
> ;END IFN FTLSTCOR
REP 81/60 ;19C5
ADDI T2,3 ;Account for check words
WIT
ADDI T2,2 ;Account for check words
SUM 109854