X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/d693caac75dd25e668e43e85c29205bfc8dea06e..HEAD:/src/lptser.mac diff --git a/src/lptser.mac b/src/lptser.mac index f5c3273..95304f0 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 @@ -189,7 +194,7 @@ LPTER1: MOVEM TAC,LPTSV2(DEVDAT) ;SAVE TAC IN DDB MOVEI TAC,LPTLOV ;GET LINE OVERFLOW ERROR MASK XCT LPTCSO(DEVDAT) ;SKIP IF LINE OVERFLOW FLAG IS ON JRST LPTER2 ; GO CHECK IF PREVIOUS ERROR OCCURRED - MOVN TAC,[EXP 100001] ;DECREMENT BLK0 POINTER + MOVN TAC,[EXP 1000001] ;DECREMENT BLK0 POINTER ADDM TAC,LPTPTR(DEVDAT) MOVE TAC,[EXP 15B6+12B13] ;PRINT CRLF XCT LPTDTO(DEVDAT) @@ -223,9 +228,3 @@ LPTSET: MOVEI TAC,@DEVOAD(DEVDAT) ;GET ABS. ADDR. OF CURRENT BUFFER END - - - - - - \ No newline at end of file