X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/a0865c742fe1bf0b69346aa5f90665fc301e0236..4004a326545fc294821707378dd8e6b026df8be1:/src/lptser.mac diff --git a/src/lptser.mac b/src/lptser.mac index f5c3273..58a0ae2 100644 --- a/src/lptser.mac +++ b/src/lptser.mac @@ -18,6 +18,7 @@ SUBTTL T. W. MCMANUS /TNM TS 20 MAY 69 EXTERNAL ADVBFE, IOSET, OUT, SETACT, STOIOS + ;THE FOLLOWING SYMBOLS ARE REFERENCED OUTSIDE OF LPTSER: INTERN LPTINT, LPTNXT, LPTECM, LPTDON, LPTDSP @@ -35,11 +36,13 @@ LPTSER: LPTDCM=7B35 ;DONE CHANNEL MASK LPTBDM=LPTBSY+LPTDON ;BUSY/DONE FLAG MASK + ;LINE PRINTER DEVICE DEPENDANT I/O STATUS MNEMONIC DEFINITIONS LPTEND=Z(1B10) ;CLOSE UUO HAS BEEN DONE LPTSYN=Z(1B11) ;CREF AFTER CLOSE UUO HAS BEEN SENT + ;LINE PRINTER DEVICE DATA BLOCK ADDRESSING MNEMNIC DEFINITIONS LPTCON=-4 ;RH = SKIP CHAIN MASK REGISTER @@ -57,6 +60,7 @@ LPTSER: LPTDTO=27 ;DATAO LP?,(TAC) LPTBKO=30 ;BLKO LP?,LP?PTR + ;LINE PRINTER SERVICE DISPATCH TABLE JRST LPTINI ;INITIALIZE @@ -106,6 +110,7 @@ LPTINI: MOVEI TAC,LPTCLR ;CLEAR THE LINE PRINTER JRST CPOPJ1 ;SKIP RETURN IF ENTERED AT LPTINI ; TO FORCE CALL FOR EACH LPT + ;LINE PRINTER CLOSE UUO ROUTINE LPTCLS: TLO IOS,LPTEND ;TURN ON THE END FLAG @@ -223,9 +228,3 @@ LPTSET: MOVEI TAC,@DEVOAD(DEVDAT) ;GET ABS. ADDR. OF CURRENT BUFFER END - - - - - - \ No newline at end of file