Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0027/lptser.mac
There are 16 other files named lptser.mac in the archive. Click here to see a list.
TITLE LPTSER LINE PRINTER SIMULATION VERSION #2 SEPT. 1 '69
SUBTTL DAVE MCCLURE JULY/69
;LINE PRINTER DEVICE DATA BLOCK
ENTRY PRINT,LSE,LCB,LLB,LSD,LCF,LPR,PRDATA,PRCDAT
EXTERNAL SWRITE
PRDATA: EXP 4*^D10 ;TIME TO LOAD ONE CHAR IN BUFFER
Z
XWD PRACTIV,PRFLG
Z
PRCDAT: EXP A
SIXBIT /LPT/
EXP PRHEAD,0,PRENTR
Z
Z
Z
Z
Z
LPTBUF: BLOCK ^D48 ;SIMULATED PRINTER BUFFER
LSE: POPJ PDP, ;<6651> SKIP ON LINE PRINTER ERROR
LCB:
LLB:
LSD:
LCF:
LPR:
PRINT: SOSG PRHEAD+2
PUSHJ PDP,POUT
IDPB AC1,PRHEAD+1
POPJ PDP,
POUT: MOVEM AC4,SAVE#
MOVEI FDB,PRCDAT ;LOAD FILE DATA BLOCK ADDRESS
PUSHJ PDP,SWRITE
MOVE AC4,SAVE ;RESTORE AC4
POPJ PDP,
PRENTR: SIXBIT /OUTPUT/
SIXBIT /LST/
Z
Z
PRHEAD: BLOCK 3
END